FiveTech Software tech support forums

... := 'Languages' , ; oSql , ; cSql := "" , ; cSqlIns := "" , ; dDateChk := DATE()-365 , ; nAdded := 0 , ; nTotrec := 0 , ; nError := 0 , ; oExcel, oSheet , ; nX1 := 0 , ; nX2 := 0 , ; nMax := 65000 , ; lCont := .F. , ; lShow := .T. , ; nUpdated := 0 , ; lSource := .F. , ...

... ) --> uResult (Can also use oCn:SqlQuery(...) ) uResult can be a) nil if there is no result or if error occured. In case of error, oCn:nError and oCn:cError provide teh error information Optionally setting lShowError displays ther error or result of sql statement, b) Numeric: In case ...

... } ACTIVATE DIALOG oDlg ; ON INIT EnableCommNotification( nComm, oDlg:hWnd, 20, 20 ) CloseComm( nComm ) return nil function InitCOMM() local cDcb, nError, nBytes local nComm := OpenComm( "COM1", 1024, 128 ) if ! BuildCommDcb( "COM1:9600,n,8,1", @cDcb ) MsgStop( "Error BUILD!" ...

... hacienda. El siguiente código guarda un XML en la variable cCadena y al convertirla en XML con la clase TXMLDocument me da un mensaje con el oXML:nError = 4 en la línea 16. #include "FiveWin.ch"#include "hbxml.ch"     local oXML, cCadena    cCadena := '<?xml version="1.0" ...

... hacienda. El siguiente código guarda un XML en la variable cCadena y al convertirla en XML con la clase TXMLDocument me da un mensaje con el oXML:nError = 4 en la línea 16. #include "FiveWin.ch"#include "hbxml.ch"     local oXML, cCadena    cCadena := '<?xml version="1.0" ...

... = '11:36WHERE esc.cemp = '018' 8' AND `esc`.`TIPO` = 'S1010' AND `esc`.`CAMPO` = '005' AND ( esc.cemp = '018' ) ORDER BY data,hora" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax ...

... esc.cemp = '018' 3' AND `esc`.`TIPO` = 'S1030' AND `esc`.`CAMPO` = '10200513' AND ( esc.cemp = '018' ) ORDER BY data,hora" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax ...

... cBloque := LeePuertoCom1( nComm,128 ) CloseComm( nComm ) Return Val( SubStr( cBloque,1,7 ) ) STATIC FUNCTION AbrePuertoCom1( cPuerto ) LOCAL cDcb, nError Local nBauds := 9600, nParity := "N", nDataByt := 8, lIRmode := .f. Local nStopBits := ONE5STOPBITS /*De las formas que trate encontre ...

... cBloque := LeePuertoCom1( nComm,128 ) CloseComm( nComm ) Return Val( SubStr( cBloque,1,7 ) ) STATIC FUNCTION AbrePuertoCom1( cPuerto ) LOCAL cDcb, nError Local nBauds := 9600, nParity := "N", nDataByt := 8, lIRmode := .f. Local nStopBits := ONE5STOPBITS /*De las formas que trate encontre ...

... PortId := abrirport(mport) cbloque = leer_bloque(PortId,31) CloseComm(PortId) RETURN cBloque STATIC FUNCTION abrirport(n) LOCAL IdPort, cDcb, nError IdPort := OpenComm("COM"+STR(n,1),1024,256) IF IdPort <= 0 nError = GetCommError( IdPort) MsgInfo( "Error al abrir: " ...

... los ejemplos del sitio y no logro. Dejo a Continuacion el Programa. #include "Fivewin.ch" function LeErPuertos() Local cDcb, lError, nError Local nComm := OpenComm( "COM2", 4024, 1024 ) if ! BuildCommDcb( "COM2:9600,N,8,1", @cDcb ) MsgStop( "Error BUILD!" ...

... += "'"+cPoblacion+"'" +"," cCmdSql += "'"+cProvincia+"' )" oServer:Execute( cCmdSql ) IF oServer:nError = 0 COMMIT() BEEP() MSGRUN(OemToAnsi("Registros inclusos com Sucesso..."),OemToAnsi("ATENۂO...")) ELSE ROLLBACK() BEEP() ...

... Default(@<varName>,<xDefaultValue>)->Nil DefPath()->cDefaultPath Deleted()->lDeleted DeleteFile(<cFileName>)->nErrorCode Descend(<exp>)->ValueInverted DevOut(<exp>,[<cColorString>])->Nil DevOutPict(<exp>,<cPicture>,[<cColorString>])->Nil ...

... := CallDll32( "OpenComFiscal" , "WINFIS32.DLL" , nPort , 1 ) If nHandler >= 0 msgalert("Puerto de impresora OK ") nError := CallDll32( "InitFiscal" , "WINFIS32.DLL" , nHandler ) If nError = 0 lResp := .T. Else msginfo(" La impresora no se ...

... Token Activo. TBLOQ = Otro Problema. RESPUESTAS Token: TOKEN If I do a xbrowse( oXml ) I Get Num - Data - Value 1 cHeader <Protected> 2 nError 0 3 nLine 1 4 nNodeCount 0 5 nStatus 1 6 oErrorNode 7 oIterator <Protected> 8 oRoot Any help will be appreciated