FiveTech Software tech support forums

Enrico,

You are right. I was thinking in

INDEX ON DToC(Date1) TO TmpFile

DToC() function return bad order expression key

INDEX ON Date1 TO TmpFile is ok; my fault; I´m sorry


Regards

Tim I have some doubts about the TmpFile() function .. I do not see the end of the loop and should the function return( cTmpName ) ?? I presume the variable cTmpFile := TmpFile() .. cTmpFile should be declared as local ?? Rick Lipkin ps .. ...

... base64" + CRLF + ; "Content-Disposition: attachment; " + ; // LKM was inline 'filename="' + cFileNoPath( ::aFiles[ nI ] ) + '"' + CRLF + CRLF ) cTmpFile := TmpFile() // ivt (based on his fix) FMimeEnc( ::aFiles[ nI ], cTmpFile ) oSocket:SendFile( cTmpFile,, ::nDelay ) FErase( cTmpFile ) Endif ...

Tim, I am confused. Is the function tmpFile() part of your TSMTP.PRG? I don't have it in mine. Also, when is it used? Rick is creating his own file and it is not a temp file and he is including the path, so it seems he should not be having ...

... it is local, but when you use oSocket:SendFile, it uses the default path. Here is the solution. Make this change in your code: Static Function TmpFile() Local cTmpDir := GetEnv( "TEMP" ) + "\" // LK Mar/26/2008 added path to avoid file being created in _SET_DEFAULT directory Local cTmpName ...

Hola:
Resuelto el problema. SendFile de TSOCKET.PRG no veía el fichero temporal que se genera con TmpFile(). Le he puesto una ruta fija y todo funciona bien recibiendo el fichero con tamaño.

Saludos.

Ricardo Patón

... sería una rutina que me arme en un temporal el mayor de cada cuenta, recorriendo todas las dbf's, algo mas o menos así: dBCreate( cFile:= TmpFile( 'DBF' ), { estructura del movim } ) Use (cFile) Alias TempMov Exclusive New For i:= 2 to Year(Date())%100 For j:= 1 to 12 If File( cMov:= 'MOV'+StrZero(j,2)+StrZero(i,2)+'.dbf' ...

... sería una rutina que me arme en un temporal el mayor de cada cuenta, recorriendo todas las dbf's, algo mas o menos así: dBCreate( cFile:= TmpFile( 'DBF' ), { estructura del movim } ) Use (cFile) Alias TempMov Exclusive New For i:= 2 to Year(Date())%100 For j:= 1 to 12 If File( cMov:= 'MOV'+StrZero(j,2)+StrZero(i,2)+'.dbf' ...