forum.clarionlife.net

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

...
    ?cm_Ole{'FNOperation'}                  ! осуществляет операцию в зависимости от
 DO checkErrors:Shtr                        ! проверить на ошибку
if LOC:CashError = TRUE then BREAK .       ! прерывание по ошибке

! обработка ошибок в этом примере убрана
?cm_Ole{'PaymentItemSign'}    = 31      ! здесь 31 - маркируемый и безакцизный
?cm_Ole{'DivisionalQuantity'} = 0       ! признак реализации 
?cm_Ole{'MeasureUnit'} = 41             ! литр
?cm_Ole{'Password'} = S_O:PasswOper

! проверка КМ:
 ожидаем ответ сервиса проверки КМ:
          LOC:Counter = 1
     LOOP
!-  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -!
         ?cm_Ole{'Password'} = S_O:PasswOper
         ?cm_Ole{'Barcode'}  = CLIP(LOC:mark_Barc)

! для проверки, вначале посылаем на сервер запрос на проверку марки методом FNCheckItemBarcode:
         ?cm_Ole{'TLVDataHEX'}         = ''
         ?cm_Ole{'CheckItemMode'}      = 0
         ?cm_Ole{'FNCheckItemBarcode'}
          sleep(400)                           ! задержка (нужна для завершения отработки команд)

! получаем ответ методом KMServerCheckingStatus:

               LOC:Long_1         = ?cm_Ole{'KMServerCheckingStatus'}
               LOC:CashReturnCode = ?cm_Ole{'ResultCode'}                ! код результата
            if LOC:CashReturnCode
!                   MESSAGE('ошибка:  ' & LOC:CashReturnCode & '  ->  ' & ?cm_Ole{'ResultCodeDescription'})
          end !if

          case LOC:Long_1
            of 15                              ! при успехе будет число 15
                   ok# = 1
          else
                if S_D:mark_Type <> 18 then LOC:ErrorsFound = TRUE .     ! если это не пиво
           end !case

       if LOC:ErrorsFound then BREAK .    ! прервать цикл при ошибке

         ?cm_Ole{'FNAcceptMarkingCode()'}      ! позиция с маркой будет продана

       if ok# = 1 then BREAK .            ! проверка пройдена

          LOC:Counter += 1

       if LOC:Counter > 20 then LOC:ErrorsFound = TRUE ;  BREAK .  ! если 8 сек. нет ответа сервиса, прервать проверку
!-  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -  .  -!
      End !Loop


! тег 1260 может быть только один и формируется на стороне ФР, поэтому, просто посылаем теги 1262 1263 1264 1265
! по отдельности каждый через FNSendTagOperation, а не через FNAddTag() как бы было в ином случае:

?cm_Ole{'TagNumber'}   = 1262         ! 1262 - идентификатор федерального органа исп.власти
?cm_Ole{'TagType'}     = 7                  !   тип - "строка"
?cm_Ole{'TagValueStr'} = beerKeg:id_FedOrg  !   значение
?cm_Ole{'FNSendTagOperation()'}             !   добавить тег

?cm_Ole{'TagNumber'}   = 1263         ! 1263 - дата документа основания (передаю как строковая)
?cm_Ole{'TagType'}     = 7                  !   тип - "строка"
?cm_Ole{'TagValueStr'} = beerKeg:doc_Date   !   значение
?cm_Ole{'FNSendTagOperation()'}             !   добавить тег

?cm_Ole{'TagNumber'}   = 1264         ! 1264 - номер документа основания
?cm_Ole{'TagType'}     = 7                  !   тип - "строка"
?cm_Ole{'TagValueStr'} = beerKeg:doc_Num    !   значение
?cm_Ole{'FNSendTagOperation()'}             !   добавить тег

?cm_Ole{'TagNumber'}   = 1265         ! 1265 - значение отраслевого реквизита
?cm_Ole{'TagType'}     = 7                  !   тип - "строка"
?cm_Ole{'TagValueStr'} = beerKeg:value_InPr !   значение
?cm_Ole{'FNSendTagOperation()'}             !   добавить тег

?cm_Ole{'Barcode'}  = CLIP(LOC:mark_Barc)
?cm_Ole{'FNSendItemBarcode'}