FiveTech Software tech support forums

... := "Fatture XML | *.xml |" LOCAL oActivex, oDlg, cUrl := '', cXT := '' LOCAL cTmpFile := cTempFile() + '.XML', cText := '', cFile := '', nFile := 0 LOCAL cschema := '', lStampata := .F., lauto := .F. cFile := 'FATTURA.xml' IF .NOT. File( cFile ) ? '2-File non trovato ' + cFile RETURN ...

... "Fatture XML | *.xml |" LOCAL oActivex ,oDlg ,cUrl := '' , cXT := '' Local cTmpFile := cTempFile() +'.XML' ,cText := '' ,cFile := '' , nFile := 0 Local cschema := '' ,lStampata := .f. ,lauto := .F. //cFile := '\\linux\dati\sql\mastronipe\FATTURE_XML\PASSIVE\IT10168371002_00ZOY.xml' ...

... "Fatture XML | *.xml |" LOCAL oActivex ,oDlg ,cUrl := '' , cXT := '' Local cTmpFile := cTempFile() +'.XML' ,cText := '' ,cFile := '' , nFile := 0 Local cschema := '' ,lStampata := .f. ,lauto := .F. //cFile := '\\linux\dati\sql\mastronipe\FATTURE_XML\PASSIVE\IT10168371002_00ZOY.xml' ...

... " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) end FClose( hSource ) oFile:End() ...

Me auto contesto con oDlg:bStart := {||Eval( oBtn:bAction ),nFile == 0 } puedo ejecutarlo automáticamente :mrgreen: I auto reply with oDlg: bStart: = {|| Eval (oBtn: bAction), nFile == 0} I can run it automatically :mrgreen: Hello, I already tried to make ...

... Funcion para Leer ZIP ------------------------------------// function xlee(hsource) local hTarget local cBuffer := Space(4000) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local nBufsize:=4000 local xfile:="" hSource = FOpen( hsource) while ( nBytes := FRead( hSource, ...

Using the sample from Antonio it does return 37.
No idea why it works with aParams[nFile] but not aParams[37]

The field before it lines up at [36] so [37] should work. It's strange.

... sure the last item is the 37 item in aParams..... So when I try to save aParmas[37] to my DBF I get nothing. Since it's the last item I tried: nFile:= Len(aParams) and used aParmas[nFile] instead of aParpam[37] .... it works. Odd thing is, if I do a MsgInfo(nFile) I get "null"

... item "Console app" then when I wish select this file make me error because on baction of Listview I insert bAction:= { | nOption | Optionfile( oList ) } function Optionfile(oList) Local nfile:= 0 Local cFile:= "" If len(oList:aItems)<>0 nfile:= oList:nOption IF nFile ...

... } oList := TListView():New(oAllegati:nHeight-300,2,{},bAction, oAllegati, ,,.T., .F., oAllegati:nwidth-25,150, ) function Optionfile(oAllegati,oList) msginfo(oList:nOption) return nil I need a baction to show the caption of item But the baction not run ok I tried also with Local ...

... Local nDUE:=StrTran(IIF(AT("/",nDES)>0,Left(nUNO,Len(nUNO)-1)+Right(nDES,1),nDES),CHR(34),"") Local nTIT:=nDUE Local nFILE:=Upper(StrTran(Alltrim(nTIT)," ","_")) Local nARG:={} Local nBT1:=IIF(nBUT<>NIL,IIF(AT("1",nBUT)>0,.T.,.F.),.T.) ...

... Static Function SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) Local n Local hSource Local cBuffer := Space( nBufSize ) Local nBytes, nFile := 0, nTotal := 0 Local nTotSize := 0 Local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Archivo No Encontrado: ...

... Static Function SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) Local n Local hSource Local cBuffer := Space( nBufSize ) Local nBytes, nFile := 0, nTotal := 0 Local nTotSize := 0 Local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Archivo No Encontrado: ...

... Static Function SendFiles( aSource, aTarget, nBufSize, lEnd, oFTP ) Local n Local hSource Local cBuffer := Space( nBufSize ) Local nBytes, nFile := 0, nTotal := 0 Local nTotSize := 0 Local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Archivo No Encontrado: ...

... ","0")+".PDF" Local oScanner,oIMG,nRES:=100 Local nFILE,nCONTA:=1 Local hPDF,K,nOK AEVAL(DIRECTORY("T_*.BMP"),{|X|FERASE(X[1])}) IF FILE("scanner.txt") FERASE("scanner.txt") ...