-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Ïåðåâîä ñòðîêè â áèíàðíûé ôîðìàò

Âòîðíèê, 22 ßíâàðÿ 2019 ã. 11:17 + â öèòàòíèê
Âñåì ïðèâåò.
Ñ 1 ìàðòà 2019 ã. íåîáõîäèìî ïåðåäàâàòü ÷åðåç îíëàéí-êàññû ñâåäåíèÿ î ìàðêàõ òàáà÷íîé ïðîäóêöèè. Õîòÿ ñàìèõ ìàðîê ÿ â ãëàçà åùå íå âèäåë, íî íàäî ïîòèõîíå÷êó ãîòîâèòñÿ ê ýòîìó.
Ïðîáëåìà âîçíèêëà ñ ïðåîáðàçîâàíèåì êîäà òîâàðà â áèíàðíûé ôîðìàò.
+
Àëãîðèòì çàïèñè òåãà 1162 (Êîä òîâàðíîé íîìåíêëàòóðû) ïðè êîäèðîâàíèè äàííûõ
ïðè ìàðêèðîâêå òàáà÷íîé ïðîäóêöèè.
1. Êîä òèïà ìàðêèðîâêè
Áàéòû [1:2] (2 áàéòà) - Êîä òèïà ìàðêèðîâêè
Ïîñòîÿííîå çíà÷åíèå: 00 05
2. Èäåíòèôèêàòîð ïðîäóêòà GTIN
Áàéòû [3:8] (6 áàéò) – GTIN
Èñïîëüçóåòñÿ 14 ðàçðÿäíûé GTIN, ïðè çàïèñè â ÊÊÒ, GTIN ïðåäñòàâëÿåòñÿ êàê äåñÿòè÷íîå
14 çíàêîâîå ÷èñëî è ïðåîáðàçóåòñÿ â BIN (big endian), ðàçìåðîì 6 áàéò. Åñëè ïîñëå
ïðåîáðàçîâàíèÿ ïîëó÷àåòñÿ ìåíåå 6, òî ñëåäóåò äîáàâèòü ëèäèðóþùèå íóëè.
3. Êîä èäåíòèôèêàöèè óïàêîâêè òàáà÷íîé ïðîäóêöèè
Áàéòû [9:15] (7 áàéò) - Serial
Serial ñîäåðæèò â ñåáå öèôðû, çàãëàâíûå è ñòðî÷íûå áóêâû ëàòèíñêîãî àëôàâèòà. Ñòðîêîâå
çíà÷åíèå, â êîäèðîâêå CPP 866, ðàçìåð – 7 áàéò
4. Ðåçåðâ
Áàéòû [22:32] (11 áàéò) – çàðåçåðâèðîâàíû, è íå èñïîëüçóþòñÿ.
Ðåçåðâ â ÊÊÒ íå ïåðåäàåòñÿ
5. Ïðèìåð ôîðìèðîâàíèÿ òåãà 1162
Èìååì ñëåäóþùèå äàííûå ïî ìàðêå:
GTIN: 98765432101234
Ïðåîáðàçóåì GTIN â áèíàðíûé ôîðìàò: 59 D3 9E 7F 19 72
Serial: ABC1234
Ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå: 41 42 43 31 32 33 34
Ôîðìèðóåì òåã 1162:
Äîáàâëÿåì êîä òèïà ìàðêèðîâêè: 00 05
Ôîðìèðóåì TLV äëÿ ïåðåäà÷è â ÊÊÒ. Òàê êàê òåã 1162 íå èìååò ôèêñèðîâàííîå çíà÷åíèå,
11 áàéò ðåçåðâà â ÊÊÒ íå ïåðåäàþòñÿ:
8A 04 0F 00 00 05 59 D3 9E 7F 19 72 41 42 43 31 32 33 34
Çíà÷åíèå 8A 04 – íîìåð òåãà (1162)
0F 00 – äëèíà äàííûõ (15 áàéò ÊÒÍ)

Çàãâîçäêà âîçíèêëà ñ 5 ïóíêòîì:
Èìååì ñëåäóþùèå äàííûå ïî ìàðêå:
GTIN: 98765432101234
Ïðåîáðàçóåì GTIN â áèíàðíûé ôîðìàò: 59 D3 9E 7F 19 72
Serial: ABC1234
Ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå: 41 42 43 31 32 33 34


Ïðè ïåðåâîäå ñòðîêè 549756338181 â áèíàðíûé (åñëè ïðàâèëüíî ïîíèìàþ, îí æå äâîè÷íûé) ôîðìàò ïîëó÷àþ 1000000000000000000010000000000000000101, à íàäî ÷òî òî òèïà 59 D3 9E 7F 19 72
+
Function TestNumberToBits2()
Dim v As Variant, i As Integer, s As String
v = CDec(êîä)
 For i = 40 To 0 Step -1
  If v >= CDec(2 ^ i) Then
    s = s & "1"
    v = v - CDec(2 ^ i)
  ElseIf s <> "" Then
    s = s & "0"
  End If
 Next
TextBox2 = s
Debug.Print s
End Function
Ìîæåò êòî ïîäñêàæåò, ÷òî äåëàþ íå òàê èëè ÷åãî íå äîäåëàë?
ÏÑ: Ìîæåò íåìíîãî ëèøíåãî íàïèñàë, íî ýòî äëÿ ïîëíîòû êàðòèíû.

https://www.sql.ru/forum/1308018/perevod-stroki-v-binarnyy-format


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó