FiveTech Software tech support forums

... FTP que requiere TLS, antes me conectaba sin problema pero ahora requiero ese nivel de seguridad. Asi funcionaba correctamente: FtpSendFile(cFTP, cSource, cTarget, nVar41, nVar42, 14147 ) FUNCTION FtpSendFile( cFTPSite, cSource, cTarget, cUser, cPass, nBufSize ) LOCAL oInternet, oFTP DEFAULT cUser:="", ...

... Youre code is not that easy for me )))) I was trying to take the Google Translate function to put in my application. I only need the folowing cSource = "This is a sample text in english" Result from the function only in dutch 'NL' Can you help me with this ? I get stuck op the Do ...

... FUNCTION Opc_PidoNuevoTA() Local cBat, cOpenSSL,nError Local nHandle Local aRespuesta local cCuitNew := cCuit Local cSource := 'C=AR, O=' + cEmpresa + ', serialNumber=CUIT '+ cCuitNew +', CN='+cRazon Local cDestinationDn := 'cn=wsaa,o=afip,c=ar,serialNumber=CUIT 33697454239' ...

... FUNCTION Opc_PidoNuevoTA() Local cBat, cOpenSSL,nError Local nHandle Local aRespuesta local cCuitNew := cCuit Local cSource := 'C=AR, O=' + cEmpresa + ', serialNumber=CUIT '+ cCuitNew +', CN='+cRazon Local cDestinationDn := 'cn=wsaa,o=afip,c=ar,serialNumber=CUIT 33697454239' ...

REDEFINE COMBOBOX oCbx VAR cSource ITEMS arrTranspose( aSrc )[2] ; ON CHANGE ( cSource := aSrc[oCbx][1], oCbx:update() ) ID 2504 OF oDlg UPDATE The combobox displays the 2nd element of the array as desired, but it also returns that element ...

... "New" }, {"R", "Rebuilt"}, {"U", "Used"} } Then the code: REDEFINE COMBOBOX oCbx VAR cSource ITEMS arrTranspose( aSrc )[2] ; ON CHANGE ( cSource := aSrc[oCbx][1], oCbx:update() ) ID 2504 OF oDlg UPDATE The combobox displays the 2nd element ...

... </Transaction> /********* Sample Code /********* nXmlMax := LEN(aXmlFile) cXmlFile := aXmlFile[nXmlMax,1] cStart := TIME() hFile := FOpen( cSource + cXmlFile ) oXmlDoc := TXmlDocument():New( hFile ) oXmlIter := TXmlIterator():New( oXmlDoc:oRoot ) WHILE .T. oTagActual = oXmlIter:Next() If ...

... := 0 , ; oExcel, oSheet , ; nX1 := 0 , ; nX2 := 0 , ; nMax := 65000 , ; lCont := .F. , ; lShow := .T. , ; nUpdated := 0 , ; lSource := .F. , ; cSource := "language.xlsx" , ; cDrive := DISKNAME() + ":\" + CURDIR( DISKNAME() ) + "\" , ; cTitle := "Lanugages" ...

... * Updated function SOURCEEDIT with new screen and new parameters added SourceEdit( @<cSource>, <cTitle>, <nClrBack>, <nTop>, <nLeft>, <nBottom>, <nRight>,; <nClrText>, <cFile>, <nLin>, ...

Dear Cristobal,
I send you the copy I use.
Here I have a
METHOD EvalSourceCode( cSource )
METHOD EvalExpression( cText )
Best regards,
Otto

... PrintItem() of CLASS VRD IF oItem:cType = "TEXT" .AND. oItem:nShow = 1 cText := ::EvalExpression( oItem:cText ) IF .NOT. EMPTY( oItem:cSource ) .AND. ::lNoExpr = .F. cText := ::EvalSourceCode( oItem:cSource ) ENDIF if Left( cText, 5 ) == "{\rtf" lRTF := .T. endif if !lRTF ...

... control. Releasing Image: PalBmpFree( aImageInfo ) aImageInfo format { pImage/hBitmap/hIcon/hCursor/hMeta, hPalette, nWidth, nHeight, lHasAlpha, cSource, lResource ) uSource: Can be (a) any file on disk (b) internet address of an image, (c) Resource Name, (d) FWShapes array, (e) utf8asc value ...

... BlobDirectGet(<nBlobID>,[<nStart>],[<nCount>])->xBlobData BlobDirectImport(<nOldBlobID>,<cSourceFile>)->nNewBlobID BlobDirectPut(<nOldblobID>,<xBlobData>)->nNewblobID BlobExport(<nFieldPos>,<cTargetFile>,[<nMode>])->lSuccess ...

Is there a way to copy a file that has a comma "," in the file name. With COPY FILE &cSource TO &cDest I get a DOS Error 123. I cannot control the original filename so I have to somehow work with the "," in the filename. I will also need to be ...

I wonder if the error is in source or destination definition. Can you change the destination name to one without comma?
COPY FILE (cSource) TO ('test.tst')
If it can copy to normal filename without error then you might have a work around.
Maybe filemove( cSource, 'test.tst' )