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?
Search found 95 matches
- Tue Dec 12, 2017 3:15 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Direct IP Connection
- Replies: 18
- Views: 4308
- Wed Mar 06, 2013 7:21 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Cash with protocol Xon-Xoff
- Replies: 4
- Views: 1169
Re: Cash with protocol Xon-Xoff
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...
- Tue Dec 13, 2011 9:24 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: codigo de barras serial (com1) ayuda urgente
- Replies: 6
- Views: 2663
Re: codigo de barras serial (com1) ayuda urgente
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 !!...
- Thu Nov 24, 2011 5:48 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Toolbar en Dialog
- Replies: 6
- Views: 1140
Re: Toolbar en Dialog
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...
- Thu May 26, 2011 10:35 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to print on a previous page
- Replies: 4
- Views: 1008
Re: How to print on a previous page
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
Code: Select all
oPrn:ImportWMF( aFicheros[ x ], .F. )
Robert
- Tue May 24, 2011 9:19 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: How to print on a previous page
- Replies: 4
- Views: 1008
How to print on a previous page
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...
- Thu May 12, 2011 9:10 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: how to open multiple ports
- Replies: 5
- Views: 1211
Re: how to open multiple ports
Try to use my example and check what BuildCommDcb and GetCommError will say.
- Thu May 12, 2011 8:25 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: how to open multiple ports
- Replies: 5
- Views: 1211
Re: how to open multiple ports
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...
- Fri May 06, 2011 8:52 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Invoice
- Replies: 7
- Views: 1954
Re: Invoice
Silvio
I sent to you working sample.
Function Ptxt() and Slownie() are in my libraries.
R.
I sent to you working sample.
Function Ptxt() and Slownie() are in my libraries.
R.
- Thu May 05, 2011 6:45 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Invoice
- Replies: 7
- Views: 1954
Re: Invoice
Jasne - poproszę o e-mail.
R.
R.
- Thu May 05, 2011 3:24 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Invoice
- Replies: 7
- Views: 1954
Re: Invoice
// 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...
- Thu Apr 21, 2011 5:23 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Read com port
- Replies: 25
- Views: 5604
Re: Read com port
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...
- Mon Apr 18, 2011 9:28 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Read com port
- Replies: 25
- Views: 5604
Re: Read com port
Standard of communication (via RS232 or sockets) between medical software and medical analysers.Jeff Barnes wrote:Thanks Enrico .... a slip of the finger
Robert ... What is ASTM ?
- Sat Apr 16, 2011 2:05 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Read com port
- Replies: 25
- Views: 5604
Re: Read com port
?
Jeff, have you got an example of ASTM communication in fivewin?
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?
- Wed Apr 13, 2011 3:54 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Limitation of open files ...
- Replies: 13
- Views: 3136
Re: Limitation of open files ...
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...