FiveTech Software tech support forums

I work for medical laboratories too (for many years).
I wrote whole LIS and my software collect orders and results from a lot of analysers.
What kind of analyser do you need to implement?
Is IDS iSys immunology analyser?
Main point is: do you want to use ASTM?

try to use

1. FISKALNA_OPEN() - open COM port
2. FISK_COM_SEND(cTEKST) - send string to COM port (fiskal printer)
3. FISKALNA_CLOSE() - close COM port

Function FISKALNA_OPEN()Local pNAMELocal nError,cDCBLocal xRESZTA:=.T.Local cTEKST:=""Local xPORT:=1cKASAFISKALNA:=AllTrim(GetENV&#40 ...

Try

Static Function MAIN_WINDOW()Local hCOMMDEFINE WINDOW oWnd ; TITLE "COM RECEIVE: "+DToC(Date()) ; MENU BuildMenu() ; MDISET MESSAGE OF oWND TO 'TEST COMM' 2007hCOMM:=COM_OPEN(1)oWND:bCommNotify := {|nComm,nStatus| ODBIERZ(hCOMM,nSTATUS&#41 ...

Static Function METODA_DRUGA(cMODE)
Local xPOZB:= 0
Local yPOZB:= 0
Local xPOZE:=1024
Local yPOZE:= 750
Local oBRUSH

DEFINE BRUSH oBRUSH FILENAME "BACKGRND\TLO_DG.BMP"

DEFINE DIALOG oWNDW FROM yPOZB,xPOZB TO yPOZE,xPOZE PIXEL BRUSH oBRUSH

......

ACTIVATE DIALOG oWNDW ON INIT (CreateWWButtonBar ...

I have problems with read in Spanish too, but if I good understood point is that you have to use WMF file to put number of page.

I'm going to wait for another idea but is it exist?

Robert

I have code like it:
Function TEST()Local nPAGE:=0oPRN:=PrintBegin....Page nPage++EndPagePage nPage++EndPage// POINTOFQUESTION EndPrintReturn .T.

The point is - how in place signed // POINTOFQUESTION print something on page number one?
I want to place information page X of Y, but Y I know ...

Try to use my example and check what BuildCommDcb and GetCommError will say.

OpenPort() return handle of port

try:

COM_OPEN(1)
COM_OPEN(2)

Be sure that you have both of com ports installed in operating system






Function COM_OPEN(xPORT)
Local pNAME
Local nError,cDCB
Local xRESZTA:=.T.
Do Case
Case xPORT=1
pNAME:="COM1"
Case xPORT=2
pNAME:="COM2"
Case xPORT=3
pNAME ...

Silvio
I sent to you working sample.

Function Ptxt() and Slownie() are in my libraries.

R.

Jasne - poproszę o e-mail.
R.

// WYDRUK

Static Procedure DRUKUJ(cPRINTER,cOPIS)
Local cTYTWYDRUKU:=Ptxt("FAKTURA VAT nr ")+AllTrim(FVAT1->NR_M)+cOPIS
Local lPREV:=.F.
oPRN:=PrintBegin(cTYTWYDRUKU,.F.,lPREV,IIF(cPRINTER<>NIL,cPRINTER,PrnGetName()))
Page
FV_CIENIE(@oPRN)
FV_NAGLOWEK(@oPRN,cOPIS)
//FV_KRESKI(@oPRN)
FV ...

Favory, Jef and Enrico wrotes main point of this subiect.


if ! SetCommState( nComm, cDcb )
MsgInfo("SetComm Error")
endif


You wrote in your example

if ! SetCommState( cDcb )
MsgStop( "Error SETCOMM!" )
return .f.
endif


Did you correct it to them version? SetCommState( nComm, cDcb )

Jeff Barnes wrote:Thanks Enrico .... a slip of the finger

Robert ... What is ASTM ?

Standard of communication (via RS232 or sockets) between medical software and medical analysers.

?

Jeff Barnes wrote:This is what I use to read data from a medical device:

Jeff, have you got an example of ASTM communication in fivewin?

Hi !
Exist something like limitation how many can open dbfs+cdxs in xHarbour ? In one old application I added 3 dbfs + 3 cdxs . Until that number of opens files was 98 , now 104 . I don't know really with what that is related - xharbour , Win 2003 server , clients PC . But in network in some PC ...