forum.clarionlife.net

Код: Выделить всё

printAtolBank_r  routine   !печать на атол 10 (слип платежного терминала)
   DATA
lor:dl long
lor:i  long
lor:p1 long
lor:p2 long
lor:kCut  byte  !счетчик для отрезов
   CODE

   if GloM:PinPadSlip=''
      MessageError('Пустое значение строки со слипом банка!')
      exit
   .

   if GloM:FirmaActive=0
      MessageError('Кассовый аппарат недоступен!')
      exit
   .

   FsKKMAtolL &= (GloM:DevKKMAtol)

   FsKKMAtolL.FlagCutNo=Fir:DevFiscRegCutNo

   lor:dl=len(clip(GloM:PinPadSlip))
   lor:p1=1
   lor:p2=1
   lor:kCut=0
   loop lor:i=1 to lor:dl
      if GloM:PinPadSlip [lor:i] = chr(13)
         lor:p2=lor:i
         FsKKMAtolL.AddStringForPrint(sub(GloM:PinPadSlip,lor:p1,lor:p2-lor:p1),0,0,0)
         lor:p1=lor:i+2
      elsif GloM:PinPadSlip [lor:i] = '~'   !отрез
         if GloM:PinPadSlip [lor:i+1] = 'S'
            lor:p1=lor:i+2
            lor:kCut+=1
            if lor:kCut=1
               !добавляем строки перед отрезом
               loop 6 times
                  FsKKMAtolL.AddStringForPrint('',0,0,0)
               .
               FsKKMAtolL.AddStringForPrint('cut=',0,0,0)
            .
         .
      elsif GloM:PinPadSlip [lor:i] = chr(01)
         lor:p1=lor:i+1
         lor:kCut+=1
         if lor:kCut=1
            !добавляем строки перед отрезом
            loop 6 times
               FsKKMAtolL.AddStringForPrint('',0,0,0)
            .
            FsKKMAtolL.AddStringForPrint('cut=',0,0,0)
         .
      .
   .

   FsKKMAtolL.PrintNoFiscal    !печать нефискального документа

   if FsKKMAtolL.ErrorCode<>0
      StatAdd(2)
   .

   loc:ok=1