FiveTech Software tech support forums

... ) AS LONG PASCAL ; FROM "Bematech_FI_CierraInformeGerencial" LIB oDp:nBemaDLL //Verifica status da gaveta DLL32 FUNCTION BmStGaveta( @nStatus AS PTR ) AS LONG PASCAL ; FROM "Bematech_FI_VerificaEstadoGaveta" LIB oDp:nBemaDLL //Abre cupom adicional DLL32 FUNCTION BmCupAdAbr( ...

Now I insert ? ValType( oData ) before of If ValType( oData ) == "O" oData:Cargo = {=>} oData:Cargo['STATUS'] = nStatus oData:Cargo['INDICE'] = ::oReserva:ROOMS_ID + DToS(::oReserva:CHECK_IN) oPlann:oLastData = NIL else ? "odata is not object" endif and it make ...

... encoding="UTF-8"?>'+CRLF nXml += cText Else nXml := cXml cNodo:= cProc EndIf oXmlDoc := TXmlDocument():new( nXml ) IF oXmlDoc:nStatus != HBXML_STATUS_OK RETURN cRet ENDIF oNode := oXmlDoc:findfirst(cNodo) If oNode != Nil If lNodo xmlNode := oXmlDoc:oRoot:oChild WHILE xmlNode ...

How read xml file size 10Mb cFileName:='test.xml' I am using oXmlDoc := TXmlDocument():new( ) // HBXML_TYPE_CDATA HBXML_STYLE_NOESCAPE IF oXmlDoc:nStatus != HBXML_STATUS_OK Msginfo( "error file .XML" ) Break ENDIF oXmlDoc:read( Memoread( cFileName ) ) best regard KAJOT

... array I make obtn:cToolTip := {|obtn| FwTooltip(obtn) } on FwTooltip(obtn) I have local cText := Crea_Tooltip(oBtn) local cTitle := cMyTitle+IIF(nstatus=3, " Prenotazione", IIF(nstatus=2," Occupato"," Libero")) local cIcon := IcoTooltip(cCliente,nstatus) local nClrFore ...

Dear Otto
Function in harbour is
win_UuidCreateString( [@<nStatus>] )

contrib/hbwin/win_rpc.c
contrib/hbwin/tests/testrpc.prg

... the dates (dDataIniziale and dDataFinale) after making the filter (cfilter) I made I cycle on the archive reserva.dbf DO WHILE !oReservation:EoF() nStatus := Val( oReservation:STATUS ) to take the first record and have the value of the variable nStatus later with this value I can change the image ...

For nY := 1 to TOTY For nX := 1 To TOTX cSettore:= aSettori[nY,nX] nElemento:= aNumeri[nY,nX] cTypeRoom := aData[nY,nX] nStatus:= 5 aBmps[nY,nX]:cargo := {nElemento,cSettore,cTypeRoom,nStatus } aBmps[nY,nX]:bPainted:= { |hDC| FW_SayText( hDC, ltrim(str(nElemento)), { 30, 2, 48, 25 ...

... use a timer . DEFINE TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select RAWPOIDS append blank replace data with cBuffer return nil

... use a timer . DEFINE TIMER oTmr INTERVAL 6000 ACTION (BytesAtPort( nComm),oLbx:Refresh()) OF oWnd ACTIVATE TIMER oTmr function BytesAtPort( nComm, nStatus ) local cBuffer:=space(18) ReadComm( nComm, @cBuffer ) select RAWPOIDS append blank replace data with cBuffer return nil

... function Main() local oDlg, nComm := InitComm() DEFINE DIALOG oDlg TITLE "Testing Comm functions" oDlg:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) } ACTIVATE DIALOG oDlg ; ON INIT EnableCommNotification( nComm, oDlg:hWnd, 20, 20 ) CloseComm( nComm ) return ...

BUT not run I cannot see the tooltip For n= 1 to 4 @ nRow, nCol BTNBMP aBtn[ n ] RESOURCE GiveBmp(nStatus) ; SIZE OMB_W,OMB_H PIXEL OF oDlg ; FLAT TOP COLOR CLR_WHITE NOBORDER ; TOOLTIP cPosNome next ACTIVATE DIALOG oDlg CENTERED ; on init Mostra(aBtn) RETURN NIL Function ...

Hello Silvio, does PrnStatus work for you. Best regards, Otto #define PRINTER_STATUS_PENDING_DELETION 4 #define PRINTER_STATUS_PAPER_JAM 8 #define PRINTER_STATUS_PAPER_OUT 16 #define PRINTER_STATUS_MANUAL_FEED 32 #define PRINTER_STATUS_PAPER_PROBLEM ...

... 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

De la clase con FW. Las instrucciones siguientes:   oDlg:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) }   ACTIVATE DIALOG oDlg ON INIT EnableCommNotification( nComm, oDlg:hWnd, 256, 256 )function BytesAtPort( ...