FiveTech Software tech support forums

... of the event.

13. **`cSubject` (STRING)**
The subject or title of the event.

14. **`nIdx` (NUMERIC)**
A custom index for the event.

15. **`nStatus` (NUMERIC)**
The status of the event (e.g., pending, completed).

16. **`nMinutes` (NUMERIC)**
The duration of the event in minutes.

17 ...

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

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 this error ( another ...

... version="1.0" 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 ...

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

... 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 := CLR_HRED
local nClrBack ...

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

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

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

... Dutch,
I 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

Dutch,
I 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

... FiveWin.ch"

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

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 Mostra(aBtn)
for n ...

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 64
#define PRINTER_STATUS_OFFLINE 128
#define ...

... Datos Incorrectos.

TDUP = Existen 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