Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- POLYNOM = $08408;
- //2 бит - 10 рублей
- //3 бит - 50 рублей
- //4 бит - 100 рублей
- //5 бит - 500 рублей
- //6 бит - 1000 рублей
- //7 бит - 5000 рублей
- B10 = 4; //00000100
- B50 = 8; //00001000
- B100 = 16; //00010000
- B500 = 32; //00100000
- B1000 = 64; //01000000
- B5000 = 128;//10000000
- type
- Tnominal = record
- B10:Boolean;
- B50:Boolean;
- B100:Boolean;
- B500:Boolean;
- B1000:Boolean;
- B5000:Boolean;
- end;
- function TCashCodeBillValidatorCCNET.EnableBillTypes(
- Nominal: TNominal): Boolean;
- var
- BillTypesByte:Byte;
- begin
- try
- if not FComConnected then raise Exception.Create('COM порт закрыт, выполнение команды RESET не возможно');
- BillTypesByte:=0;
- // Установим биты купюр
- if Nominal.B10 then BillTypesByte:=BillTypesByte+B10;
- if Nominal.B50 then BillTypesByte:=BillTypesByte+B50;
- if Nominal.B100 then BillTypesByte:=BillTypesByte+B100;
- if Nominal.B500 then BillTypesByte:=BillTypesByte+B500;
- if Nominal.B1000 then BillTypesByte:=BillTypesByte+B1000;
- if Nominal.B5000 then BillTypesByte:=BillTypesByte+B5000;
- //Рубли хранятся в третьем байте
- SendPacket($34,[0,0,BillTypesByte,0,0,0]);
- ProcessMessage(206,'->ENABLE BILL TYPES');
- ProcessComand();
- if FData[0] = $FF then
- begin
- ProcessMessage(202,'<-NSC');
- raise Exception.Create('Получен отрицательный ответ (NAK)')
- end;
- if FData[0] = $00
- then ProcessMessage(203,'<-ASC');
- result:=true;
- except
- on E:Exception do
- begin
- ProcessMessage(104,E.Message);
- result:=false;
- end;
- end;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement