search

shtrih-m / fr_drv_ng

релизы и поддержка драйвера fr_drv_ng
36 stars 5 forks source link

Тег Агента #258

Closed VohminV closed 1 year ago

VohminV commented 1 year ago

Друзья, что не так с кодом ?(

 if Teg_1222 <> '' then
  begin
     DrvFr.TagNumber := 1222;
    DrvFr.TagType := 0;
    DrvFr.TagValueInt := StrToInt(Teg_1222);
    DrvFr.FNSendTagOperation;

    DrvFr.TagNumber := 1223;
    DrvFr.FNBeginSTLVTag;
    TagID_1223 := DrvFr.TagID;

    DrvFr.TagID := TagID_1223;
    DrvFr.TagNumber := 1005;
    DrvFr.TagValueStr := RAGENT_ADRESS;
    DrvFr.TagType := 7; // строка
    DrvFr.FNAddTag;

    DrvFr.TagID := TagID_1223;
    DrvFr.TagNumber := 1026;
    DrvFr.TagValueStr := RAGENT_NAME;
    DrvFr.TagType := 7; // строка
    DrvFr.FNAddTag;

    DrvFr.TagID := TagID_1223;
    DrvFr.TagNumber := 1073;
    DrvFr.TagValueStr := RAGENT_PHONE;
    DrvFr.TagType := 7; // строка
    DrvFr.FNAddTag;

    DrvFr.TagID := TagID_1223;
    DrvFr.TagNumber := 1016;
    DrvFr.TagValueStr := RAGENT_INN;
    DrvFr.TagType := 7; // строка
    DrvFr.FNAddTag;

    DrvFr.FNSendSTLVTagOperation;
  end;