cFullCode = ALLT(cFullCode)
*-* убираем первые 2 байта - они не нужны
cFullCode = SUBSTR(cFullCode, 3)

*-* gtin всегда 14
cGtin = LEFT(cFullCode, 14)
cFullCode = SUBSTR(cFullCode, 15)

*-* следующие 2 байта "21" тоже не нужны
cFullCode = SUBSTR(cFullCode, 3)
DO CASE
   CASE nTypeNom = LIBFPTR_NT_FURS
     cSerial = LEFT(cFullCode,20)
   CASE nTypeNom = LIBFPTR_NT_MEDICINES
    cSerial = LEFT(cFullCode,13)
   CASE nTypeNom = LIBFPTR_NT_TOBACCO
    cSerial = LEFT(cFullCode,7)
   CASE nTypeNom = LIBFPTR_NT_SHOES
    cSerial = LEFT(cFullCode,13)
   CASE  nTypeNom = LIBFPTR_NT_CLOTHES
*!* INLIST(ipcnakl_fiskal.Tob_Type, '6201', '6202', '6106', '4203', '6302')    && одежда
*-* 6201 - пальто, куртки, ветровки и т.д. для мальчиков
*-* 6202 - пальто, куртки, ветровки и т.д. для девочек
*-* 6106 - блузки, блузоны и всё однокоренное
*-* 4203 10 000 - одежда из натуральной кожи
*-* 6302 - послельное, столовое, кухонное бельё
    cSerial = LEFT(cFullCode,21)
ENDCASE

FP.setParam(LIBFPTR_PARAM_NOMENCLATURE_TYPE, nTypeNom)
FP.setParam(LIBFPTR_PARAM_GTIN, cGtin)
FP.setParam(LIBFPTR_PARAM_SERIAL_NUMBER, cSerial)
FP.utilFormNomenclature()
cTag1162 = FP.getParamString(LIBFPTR_PARAM_TAG_VALUE)
...
FP.setParam(1212,1)        &&  признак предмета расчета (товар)
FP.setParam(1214,4)        &&     признак способа расчета (полный расчет)
FP.setParam(1162, cTag1162)

FP.registration()

cFullCode = ALLT(cFullCode)
cHexCode = STRCONV(cFullCode, 15)
cResult = ''
DO WHILE LEN(cHexCode) > 0
   cResult = cResult + LEFT(cHexCode, 2) + ' '
   cHexCode = SUBSTR(cHexCode, 3)
ENDDO

cHexCode = ALLT(cResult)

*!*   #DEFINE LIBFPTR_PARAM_MARKING_CODE_TYPE = 65826
FP.setParam(65826, LIBFPTR_MCT_OTHER)
FP.setParamStrHex(LIBFPTR_PARAM_MARKING_CODE, cHexCode)
FP.parseMarkingCode()
cTag1162 = FP.getParamByteArray(1162)

With FP
   .setParam(.LIBFPTR_PARAM_NOMENCLATURE_TYPE, .LIBFPTR_MCT_OTHER)
   ...

EndWith

cTag1162 = ''
cFullKod = ALLT(<просканированный код>)
*-* отрезаем хвост, начиная с признака 91
IF '91' $ cFullKod
   cFullKod = LEFT(cFullKod, AT('91', cFullKod)-1)
ENDIF

*-* преобразуем код в 16ричный с разбивкой по пробелам
cHexCode = STRCONV(cFullKod, 15)
cRes = ''
DO WHILE LEN(cHexCode) > 0
   cRes = cRes + LEFT(cHexCode,2) + ' '
   cHexCode = SUBSTR(cHexCode, 3)
ENDDO
cHexCode = ALLT(cRes)

FP.setParam(LIBFPTR_PARAM_MARKING_CODE_TYPE, LIBFPTR_MCT_OTHER)
FP.setParamStrHex(LIBFPTR_PARAM_MARKING_CODE, cHexCode)
FP.parseMarkingCode()

oTag1162 = FP.getParamByteArray(1162)

*-* это просто для проверки
cTag1162 = TRANSFORM(oTag1162)

далее идет установка параметров товара, налоги ...

IF NOT EMPTY(cTag1162)
   FP.setParam(1162, oTag1162)
ENDIF

FP.setParam(1212,1)        &&  признак предмета расчета (товар)
FP.setParam(1214,4)        &&  признак способа расчета (полный расчет)

FP.registration()

Fptr.setParam(Fptr.LIBFPTR_PARAM_RECEIPT_TYPE, 1)
Fptr.openReceipt()  

Fptr.setParam(Fptr.LIBFPTR_PARAM_COMMODITY_NAME, "Товар")
Fptr.setParam(Fptr.LIBFPTR_PARAM_PRICE, 100)
Fptr.setParam(Fptr.LIBFPTR_PARAM_QUANTITY, 1)
Fptr.setParam(Fptr.LIBFPTR_PARAM_TAX_TYPE, Fptr.LIBFPTR_TAX_VAT20)

Fptr.setParam(Fptr.LIBFPTR_PARAM_MARKING_CODE, "30 31 30 34 36 34 30 30 31 32 36 35 38 33 31 36 32 31 33 72 62 4c 48 2a 3f 56 61 61 4e 36 5a 1d 39 31 45 45 30 36 1d 39 32 39 76 4d 50 4b 34 66 31 44 57 55 31 39 2b 41 44 35 53 65 57 46 53 48 64 33 4e 67 4f 74 71 31 56 79 39 65 55 44 76 6e 54 47 51 34 3d")

Fptr.setParam(1212, 1)
Fptr.setParam(1214, 4)
Fptr.registration()

 m.cStr=Strtran(m.cStr,'91',Chr(29)+'91')
 m.cStr=Strtran(m.cStr,'92',Chr(29)+'92')
 m.cStr=Strtran(m.cStr,'93',Chr(29)+'93')

*Когда ловлю сканером:
IF SUBSTR(m.kodnam,1,2)="01" AND SUBSTR(m.kodnam,17,2)="21" &&Если 1 и 2 символ =01, а 17 и 18 символы =21 то это маркировка
ENDIF
*Потом для кассы просто обрезаю
 m.kodnam=SUBSTR(m.kodnam,1,31) && обрезаю данные со сканера до 31 символа. Это и есть наша марка.