Search found 95 matches

by Robert Frank
Tue Dec 12, 2017 3:15 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Direct IP Connection
Replies: 18
Views: 4308

Re: Direct IP Connection

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?
by Robert Frank
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...
by Robert Frank
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 !!...
by Robert Frank
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...
by Robert Frank
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.

Code: Select all

oPrn:ImportWMF( aFicheros[ x ], .F. )
 
I'm going to wait for another idea but is it exist?

Robert
by Robert Frank
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...
by Robert Frank
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.
by Robert Frank
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...
by Robert Frank
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.
by Robert Frank
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.
by Robert Frank
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...
by Robert Frank
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...
by Robert Frank
Mon Apr 18, 2011 9:28 am
Forum: FiveWin for Harbour/xHarbour
Topic: Read com port
Replies: 25
Views: 5604

Re: Read com port

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.
by Robert Frank
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 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?
by Robert Frank
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...