FiveTech Software tech support forums

... a Do while loop Function Print_Schedule() Local aTable,a1,n,aTemp,x,aFlags:={} local c1,c2 local cFileName := "table.rtf" local oFile := FCreate(cFileName, 0) aTable := {} Do while (!oTemp4:Eof()) * If Empty(oTemp4:Nome) oTemp4:skip() Loop Endif ....................... c1:="Cartella ...

... RETURN(.F.) ENDIF RETURN(.T.) PARA RECUPERAR FUNCTION EDATOS(cDAT,cNOM) cARCH=HexToStr(cDAT) ASALIDA:=".\"+cNOM hFile := FCreate(asalida) FWrite( hFile, cARCH) FClose( hFile ) RETURN NIL

... Please note that there is a similar function HB_FCOMMIT( <filehandle> ) function available to us when we are using raw file functions like fCreate(), fWrite() etc. We can use hb_fcommit(handle) to ensure flushing all buffers to disk. Mr. Enrico was clear. He said "It is not necessary ...

... before usinf fw code. that changes for every record. //========================= cFile = "c:\maveco\website\catalog.htm" FCatalog := FCREATE(cFile) FWRITE(FCatalog, MEMOREAD("c:\maveco\html\catbase.htm") + chr(10) ) // This file contains the first lines of the html file ...

... before usinf fw code. that changes for every record. //========================= cFile = "c:\maveco\website\catalog.htm" FCatalog := FCREATE(cFile) FWRITE(FCatalog, MEMOREAD("c:\maveco\html\catbase.htm") + chr(10) ) // This file contains the first lines of the html file ...

... cSQLp, CadenaCon ) CATCH oErr MsginFo( "no puedo leer "+cSQLP ) showError( oErr ) wtxt = "errorge.txt" cHandeg = FCREATE ( wtxt ) FWrite ( cHandeg, cSQLP + chr( 13 ) + chr( 10 ) ) fclose(cHandleg) RETURN NIL END TRY Saludos Jorge

Hola, No sé si hay equivalencia para el SET MULTIPLE OFF Una alternativa es crear un fichero cualquiera ( FCreate("Semaforo.Nul", FO_EXCLUSIVE) ) en exclusivo. El primer usuario / primera vez que entra pilla semaforo verde. Las siguientes pulsaciones no permitirá acceder. ...

... Encoding gzip, no se envía. Por favor, puedes indicarme como realizas el envío con curl salida := Respuesta+'.gz' headers:= Respuesta+'.txt' m := fcreate("LROE.bat",0) FWrite (m, 'c:\gerogest\curl -X POST -# --connect-timeout 60 -m 60 -s -S -L --cert ./dispositivo.pem --header "Content-Type: ...

... actualiza: oServer:Update("fotos_articulos",{"fotografia"},{uData},cWhere) y luego para recuperarlo, lo descomprimo: nHandle:=FCreate(cTempZip) FWrite(nHandle,bFOTOS:fotografia,Len(bFOTOS:fotografia)) FClose(nHandle) aFiles:=hb_GetFilesInZip(cTempZip,.t.) Hb_UnZipFile(cTempZip,,.T.,,cTemp,aFiles[1],NIL) ...

... + cService + '</service>' + CRLF cXml += '</loginTicketRequest>' + CRLF * Grabo el Archivo XML con el Nombre TRA.xml If( ( nHandle := fcreate( cPath+'TRA.xml', 0 ) ) == -1 ) MsgStop( 'NO se pudo crear TRA.xml',' ERROR' ) Return( .F. ) Else fWrite( nHandle, cXml ) fClose( nHandle ) ...

... + cService + '</service>' + CRLF cXml += '</loginTicketRequest>' + CRLF * Grabo el Archivo XML con el Nombre TRA.xml If( ( nHandle := fcreate( cPath+'TRA.xml', 0 ) ) == -1 ) MsgStop( 'NO se pudo crear TRA.xml',' ERROR' ) Return( .F. ) Else fWrite( nHandle, cXml ) fClose( nHandle ) ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

... cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason //MsgAlert(cOrigen) ElTxt:= "QrJason.txt" Nhandle:= fcreate(ElTxt) If (nhandle > 0) fwrite(Nhandle, cOrigen + CRLF) fclose(nhandle) EndIf cDestino:="FastQR.jpg" QRCode(cOrigen,cDestino) MsgInfo("Qr ...

... cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason //MsgAlert(cOrigen) ElTxt:= "QrJason.txt" Nhandle:= fcreate(ElTxt) If (nhandle > 0) fwrite(Nhandle, cOrigen + CRLF) fclose(nhandle) EndIf cDestino:="FastQR.jpg" QRCode(cOrigen,cDestino) MsgInfo("Qr ...

... If Left(Rtrim(linetxt),6)="Sábado" iLinea := a+1 Exit EndIf Next ntxt:="" ltcambio := .F. otxt:=FCreate( op:temp+"tcambio.txt" ) For a:=iLinea TO nLine oWait:Say( 1,3,"Espere, Convirtiendo response..."+Space(30) ) SysRefresh() ...