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 pNAME Local nError,cDCB Local xRESZTA:=.T. Local cTEKST:="" Local xPORT:=1 cKASAFISKALNA:=AllTrim(GetENV(&qu...

Try Static Function MAIN_WINDOW() Local hCOMM DEFINE WINDOW oWnd ;    TITLE "COM RECEIVE: "+DToC(Date()) ;    MENU BuildMenu() ;    MDI SET MESSAGE OF oWND TO 'TEST COMM' 2007 hCOMM:=COM_OPEN(1) oWND:bCommNotify := {|nComm,nStatus| ODBIERZ(hCOMM,nSTATUS) } // THIS IS MOST IMPORTANT LINE !!...

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

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:=0 oPRN:=PrintBegin.... Page    nPage++ EndPage Page    nPage++ EndPage // [color=#BF0000]POINTOFQUESTION[/color] EndPrint Return .T.   The point is - how in place signed // POINTOFQUESTION print something on page number one? I want to place informa...

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

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

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