Am o Casa de Marcat OPTIMUS IC MG 1200.

Nu stiu cum pot verifica daca Bonul Fiscal a fost tiparit/incheiat cu succes (adica fiscalizat, s-a intamplat ca din program sa trimit bonul la casa de marcat, aceasta sa tipareasca o parte din el, apoi din diferite motive (necunoscute de mine)  se intrerupea transmisia sau cine stie ce se intampla si bonul era anulat, dar la mine figura FISCAL ca l-am trimis la casa de marcat)

Nu ma refer aici la ceea ce tine de BD ci ma modul de comunicare si de raspuns al casei de marcat.

Folosesc exact fisierul tangodrv existent intr-o arhiva pe forum:.

http://www.profox.ro/Forum/tabid/55/forumid/12/threadid/479/scope/posts/Default.aspx

Exista un fisier error acolo. E folosit?

Nu stiu cum se poate verifica daca casa a scos bonul fiscal sau nu la scos deloc.

Daca e pornita s-au nu.

Cum pot sa primesc o confirmare de la casa de marcat ca bon fiscal s-a tiparit cu succes?

Are cineva vreo aplicatie ce foloseste aceasta Casa de Marcat?

S-au recomandati-mi alta casa de marcat fiscala daca aceasta nu stie sa raspunda.

Ma intereseaza modul de lucru cu casa de marcat.

Ce trebuie sa trimit la casa de marcat pentru a spoate Raportul Z din aplicatie fara interventia operatorului? Acesta doar fiind atentionat ca se tipareste Raportul Z.

Utilizatori mai uita ca trebuie tiparit Raportul Z zilnic.

Daca te intereseaza comunicarea cu portul serial mai gasesti ceva si aici:

http://www.profox.ro/Forum/tabid/55/forumid/7/threadid/155/scope/posts/Default.aspx

Ok. uite functia:

FUNCTION DoAndWait( cExe)

DECLARE INTEGER CreateProcess IN kernel32.DLL ;
 INTEGER lpApplicationName, ;
 STRING lpCommandLine, ;
 INTEGER lpProcessAttributes, ;
 INTEGER lpThreadAttributes, ;
 INTEGER bInheritHandles, ;
 INTEGER dwCreationFlags, ;
 INTEGER lpEnvironment, ;
 INTEGER lpCurrentDirectory, ;
 STRING @lpStartupInfo, ;
 STRING @lpProcessInformation

DECLARE INTEGER WaitForSingleObject IN kernel32.DLL ;
 INTEGER hHandle, INTEGER dwMilliseconds

DECLARE INTEGER CloseHandle IN kernel32.DLL ;
 INTEGER hObject

#DEFINE NORMAL_PRIORITY_CLASS 32
#DEFINE IDLE_PRIORITY_CLASS 64
#DEFINE HIGH_PRIORITY_CLASS 128
#DEFINE REALTIME_PRIORITY_CLASS 1600

* Return code from WaitForSingleObject() if
* it timed out.
#DEFINE WAIT_TIMEOUT 0x00000102

* This controls how long, in milli secconds, WaitForSingleObject()
* waits before it times out. Change this to suit your preferences.
#DEFINE WAIT_INTERVAL 200

*DECLARE INTEGER GetLastError IN kernel32.DLL

* STARTUPINFO is 68 bytes, of which we need to
* initially populate the 'cb' or Count of Bytes member
* with the overall length of the structure.
* The remainder should be 0-filled
START = long2str(68) + REPLICATE(CHR(0), 64)

* PROCESS_INFORMATION structure is 4 longs,
* or 4*4 bytes = 16 bytes, which we'll fill with nulls.
process_info = REPLICATE(CHR(0), 16)

* EXE name must be null-terminated
cExe = cExe + CHR(0)

* Call CreateProcess, obtain a process handle. Treat the
* application to run as the 'command line' argument, accept
* all other defaults. Important to pass the start and
* process_info by reference.
RetCode = CreateProcess(0, cExe, 0, 0, 1, ;
 NORMAL_PRIORITY_CLASS, 0, 0, @START, @process_info)

* Unable to run, exit now.
IF RetCode = 0
 RETURN .F.
ENDIF

* Extract the process handle from the
* PROCESS_INFORMATION structure.
hProcess = str2long( SUBSTR( process_info, 1, 4))

DO WHILE .T.
 * Use timeout of TIMEOUT_INTERVAL msec so the display
 * will be updated. Otherwise, the VFP window never repaints until
 * the loop is exited.
 IF WaitForSingleObject( hProcess, WAIT_INTERVAL) != WAIT_TIMEOUT
  EXIT
 ELSE
  DOEVENTS
 ENDIF
ENDDO

* Close the process handle afterwards.
RetCode = CloseHandle( hProcess)

RETURN .T.
ENDFUNC

Este pe forum:

http://www.profox.ro/Forum/tabid/55/forumid/9/threadid/602/scope/posts/Default.aspx

:D