FiveTech Software tech support forums

... IF .NOT. USED("CLIENTE") USE ( CurDir() + "\dat\cliente.dbf" ) NEW ENDIF * Fichero temporal de datos de clientes *DbCreate(CurDir() + "\tmp\result.dbf",{{ "codigo", "n", 10, 0 },{ "nombrec", "c", 45, 0 },{ "telefono", "c", 20, 0 }}) *USE ( CurDir() + "\tmp\result.dbf" ) NEW *Index On ...

Luis,

En la clase TPrinter, la DATA ::cDir está definida como GetEnv( "TEMP" ), ó como GetEnv( "TMP" ), ó como GetWinDir().

Posiblemente lo más sencillo y con menos problemas sería definirla como CurDir().

... this: tools\clp2harb module.c temp\module.c echo -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -TP -Ic:\harbour_ce\include > tmp echo -Ic:\vce\include\arm -I.\include >> tmp c:\vce\bin\clarm @tmp -Fobjce\module.obj temp\module.c

... ) , no tienes que tocar ni una linea , si cuenga del raiz , ode otro lado cambia la linea echo ..\lib\FiveCE.lib ..\lib\FiveCEC.lib >> msvc.tmp por algo como c:\fwpcc\lib\FiveCE.lib c:\fwpcc\lib\FiveCEC.lib >> msvc.tmp y creo que nada mas . Saludso.

... msginfo("message:="+message) endif else // Change the filename by the one you want to get from the FTP site if ! Ftpgetfile(hftp,"aviso.MEM","c:\tmp\aviso.mem",1,128,2,0) msginfo("Getlat:="+str(getlasterror())) if Intrespinf(@n1,message,@n2) msginfo("message:="+message) endif endif msginfo("Done!") ...

Ya resuelto a mano... DbCreate( zcDBF, { ; { "TUTTO", "C", 50, 0}, ; // tutti i campi { "C_BAR", "C", 13, 0}, ; // Codice a barre { "C_QTA", "C", 05, 0} ; // Qta }) select 0 use (zcDBF) exclusive alias tmp_import append from (fileName) SDF tmp_import->( DBEVAL( {|| ( tmp_import->c_bar := SUBST...

Antonio Isso não resolveu, mas deletei os testes que estava fazendo comecei um novo e funcionou: http://softservice.com/tmp/app1.jpg Mas há algo misterioso, deve ser algum problema no emulador. Agora vou começar a portar um sistema para o ppc acabo descobrindo o que houve. ...

Antonio,

funcionou:


não sei o que pode ter sido. Simplesmente insisti em abrir novamente os testes e os menus apareceram. Deve haver algum bug nos emuladores.

Caso descubra lhes informo.

Obrigado.

[]'s

Rogerio

Antonio
funciona, aparece assim, creio que está correto:




Nenhum teste que tenha menu abre-me o menu.
Já rodei os vários exemplos.

[]'s

Rogerio

... consigo visualizar os menus. não creio que sejam problemas com recursos. O testbrw funciona perfeitamente, veja: http://softservice.com/tmp/testbrw.jpg Sabes que mais poderia provocar isso? []'s Rogerio

Antonio

Coloquei o executável aqui: http://softservice.com/tmp/tutor3.zip

[]'s

Rogerio

Antonio

já havia tentado esse. Fiz novamente.
Dá no mesmo:


o menu não é mostrado.

[]'s

Rogerio

Antonio

estou usando aqueles que baixei na ultima atualização de FWPPC.
Em qualquer um deles acontece o mesmo.
não me aparece o menu.
veja a imagem :




[]'s

Rogerio

After reading I can conclude that idea to have a program parameter which specifies a temp directory (for example, MyProg /TMP:c:\somepath) deserves consideration.

... backslash function GetTempDir() local cTargetDir, cTempDir, cTmpDir local lTempExist, lTmpExist cTempDir := GetEnv( "TEMP" ) cTmpDir := GetEnv( "TMP" ) if ( Right( cTempDir, 1 ) == "\" ) cTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 ) endif if ( Right( cTmpDir, 1 ) == "\" ) cTmpDir := ...