Протокол купюроприемника ccNET

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
    B1:Boolean;
    B2:Boolean;
    B5:Boolean;
    B10:Boolean;
    B50:Boolean;
    B100:Boolean;
    B500:Boolean;
    B1000:Boolean;
    B5000:Boolean;
  end;
 
    function EnableBillTypes(Nominal:TNominal):Boolean;        //Установка прнимаемых купюр

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;