JavaScript + ActiveX = niedziałający kod;

[voidsn1010 0]

Witam, muszę zintegrować kasę fiskalną firmy Novitus model Nano E z system sprzedażowym/sklepem internetowym. Producent udostępnił kontrolki ActiveX do obsługi kasy i przykłady kodu napisane bodajże w Pascalu. (swoją drogą droga przez mękę)

 

Problem mam taki, że IE pokazuje obiekt kontrolki jako pusty obiekt (console.log), mimo że wszystkie zmienne i metody działają poprawnie. Stąd prawdopodobnie nie mogę użyć kontrolki jako parametru i kod przestaje działać.

 

Mój kod w JS:

var ECR = new ActiveXObject("OICECRLIB.OICECR");
var Cashier = new ActiveXObject("OICECRLIB.OICECRCashier");
var time = 1;

ECR.ChangeDevice(0x00); //ECR.ecrdtCommDevice

ECR.CommOptions.Port = 'COM3';
ECR.CommOptions.Speed = 9600;
ECR.CommOptions.DataBits = 8;
ECR.CommOptions.StopBits = 1;
ECR.CommOptions.Parity = 0x00; //ECR.ecrptNone
ECR.CommOptions.TimeOut = 20000;
ECR.CommOptions.WaitTimeOut = 300000;
ECR.CommOptions.FlowControl = 0x02; //ECR.ecrfcRTS_CTS
ECR.PacketLibraryFile = 'C:/Windows/System32/tango.pkd';

function ProcessError()
{
if(ECR.LastErrorCode == ECR.odplpeRejected)
	alert(ECR.LastNativeErrorMessage);
else
	alert(ECR.LastErrorMessage);
}

function ECRCheck(ExecuteResult)
{
if(!ExecuteResult)
{
	console.log(time);
	ProcessError();
}

time++;

return ExecuteResult;
}

function ReadFlags()
{
if(ECRCheck(ECR.Connect()) && ECRCheck(ECR.BeginRead(0x00, '', '', 0x00, 0x00)) && ECRCheck(ECR.ReadFlags()) && ECRCheck(ECR.ConfirmRead()) && ECRCheck(ECR.Disconnect()))
{
	console.log(ECR.Flags.ScalesCodeType);
}
}

function ReadCashier()
{
if(ECRCheck(ECR.Connect()) && ECRCheck(ECR.BeginRead(0x04, 1, 1, 0x01, 0x00)) && ECRCheck(ECR.ReadCashier(Cashier)) && ECRCheck(ECR.ConfirmRead()) && ECRCheck(ECR.Disconnect()))
	alert(Cashier.Name);
}

ReadCashier();

 

Kod z dokumentacji technicznej:

function ECRCheck (ExecuteResult: Boolean): Boolean;
begin
 Result := ExecuteResult;
 if not Result then
   ProcessError;
end;

procedure ProcessError;
begin
 if ECR.LastErrorCode = odplpeRejected then
   MessageDlg(ECR.LastNativeErrorMessage, mtError, [mbOK], 0)
 else
   MessageDlg(ECR.LastErrorMessage, mtError, [mbOK], 0);
end;

procedure ReadFlags;
begin
 if ECRCheck (ECR.Connect) and
    ECRCheck (ECR.BeginRead (ecrdtFlags, '', '', ecrrtNone,
                              ecrrmNotResetting)) and
    ECRCheck (ECR.ReadFlags) and
    ECRCheck (ECR.ConfirmRead) and
    ECRCheck (ECR.Disconnect) then
   ShowMessage ('OK');
end;

procedure ReadCashier;
var
 Cashier: IOICECRCashier;
begin
 Cashier := CreateCOMObject (Class_OICECRCashier) as IOICECRCashier;
 try
   if ECRCheck (ECR.Connect) and
      ECRCheck (ECR.BeginRead (ecrdtCashier, 1, 1, ecrrtCodes,
                                ecrrmNotResetting)) and
      ECRCheck (ECR.ReadCashier (Cashier)) and
      ECRCheck (ECR.ConfirmRead) and
      ECRCheck (ECR.Disconnect) then
     ShowMessage ('OK');
 finally
   Cashier := nil;
 end;
end;

 

O ile funkcja ReadFlags działa poprawnie, to niestety ReadCashier wykłada się na ECRCheck(ECR.ReadCashier(Cashier)) i zwraca komunikat 'brak danych'. Podejrzewam się mogłem źle przerobić ten kod. Pełna dokumentacja tech. dla masochistów znajduje się TUTAJ.

 

Proszę o pomoc. Gdyby ktoś wiedział jak lepiej obsługiwać kasy Novitus niech da znać.

[januzi 24]

Z tego co pamiętam, to najpierw trzeba było wysłać polecenie resetu (o ile tak to szło). Ze 4 godziny siedziałem i kombinowałem zanim drukarka ruszyła.

 

Edit: nazwa drukarki nie jest ważna, skup się na przekazaniu danych do paragonu (i pamiętaj o tym, że drukarka nie lubi produktów bez ceny; chyba, że producent coś zmienił).

 

I ogólnie jest tak: przekazujesz nazwę produktu, liczbę i wartość. Na koniec musisz przekazać jeszcze sumę zamówienia. Dopiero wtedy drukarka uzna, że dostała cały paragon.

 

 

Szkoda, że spalił mi się dysk w laptopie. Przekopiowałbym Tobie działający kod. Ale na pewno ściągałem to: "Sterownik ActiveX do drukarek fiskalnych (również z kopią elektroniczną) wraz z dokumentacją (bogato ilustrowaną przykładami użycia), opisem protokołu drukarek fiskalnych, programem demonstracyjnym i jego źródłami oraz programem serwisowym do drukarek fiskalnych (wersja 6.6.4)".

[voidsn1010 0]

@januzi

 

Niestety, sposób który opisałeś (przekazywanie produktu itp. aby wydrukować paragon) nie może zostać zastosowany w kasie fiskalnej, a tylko w drukarce fiskalnej. Serwisant urządzenia twierdzi, że w przypadku kasy należy wykonać wszystko na odwrót tzn. można jedynie zarządzać produktami w kasie oraz odbierać informacje o przykładowo ostatnim paragonie. Paragon musi zostać nabity na kasie przez człowieka. Podejrzewam, że serwisant ma w tym przypadku rację, ponieważ w dokumentacji nie znalazłem funkcji/metody pozwalającej wydrukować paragon.

 

Jeśli chodzi o pakiet, który używałeś, też go używam i program demonstracyjny bez problemu odbiera i przekazuje dane. Mój skrypt w JS już niestety nie.

[januzi 24]

poszukaj funkcji bell/reset (jedno z dwojga), to powinno aktywować komunikację

i odpal sobie w firebugu nadzór nad javascriptem, będziesz mógł podejrzeć co idzie w odpowiedzi