Commit 0ebe925f authored by kravtsov's avatar kravtsov

[+] Добавлены типы штрихкодов для печати двумерных штрихкодов:

      DIO_BARCODE_DEVICE_PDF417       = 96;
      DIO_BARCODE_DEVICE_DATAMATRIX   = 97;
      DIO_BARCODE_DEVICE_AZTEC        = 98;
      DIO_BARCODE_DEVICE_QR           = 99;
      DIO_BARCODE_DEVICE_EGAIS        = 100;

[+] Добавлена команда directIO для записи данных TLV, привязанных к операции
    DIO_WRITE_FS_TLV_OPERATION    = 62; // Write TLV operation
parent 426b4bf3
......@@ -4,6 +4,22 @@
Company : SHTRIH-M, Russia, Moscow, Masterkova 4
(495) 787-60-90, www.shtrih-m.ru
*******************************************************************
OposShtrih_1.13_498.exe
26 июня 2018 21:25
[+] Добавлены типы штрихкодов для печати двумерных штрихкодов:
DIO_BARCODE_DEVICE_PDF417 = 96;
DIO_BARCODE_DEVICE_DATAMATRIX = 97;
DIO_BARCODE_DEVICE_AZTEC = 98;
DIO_BARCODE_DEVICE_QR = 99;
DIO_BARCODE_DEVICE_EGAIS = 100;
[+] Добавлена команда directIO для записи данных TLV, привязанных к операции
DIO_WRITE_FS_TLV_OPERATION = 62; // Write TLV operation
*******************************************************************
OposShtrih_1.13_497.exe
......
......@@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=13
Release=0
Build=542
Build=544
Debug=0
PreRelease=0
Special=0
......@@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=SHTRIH-M
FileDescription=OPOS setup utility
FileVersion=1.13.0.542
FileVersion=1.13.0.544
InternalName=OPOS setup
LegalCopyright=SHTRIH-M 2013
LegalTrademarks=
......
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,13,0,497
PRODUCTVERSION 1,13,0,497
FILEVERSION 1,13,0,498
PRODUCTVERSION 1,13,0,498
FILEFLAGSMASK 0x3fL
FILEFLAGS 0x0L
FILEOS 0x4L
......@@ -13,7 +13,7 @@ BEGIN
BEGIN
VALUE "CompanyName", "SHTRIH-M\0"
VALUE "FileDescription", "OPOS setup utility\0"
VALUE "FileVersion", "1.13.0.497\0"
VALUE "FileVersion", "1.13.0.498\0"
VALUE "InternalName", "OPOS setup \0"
VALUE "LegalCopyright", "SHTRIH-M \251 2013 \0"
VALUE "OriginalFilename", "OposConfig.exe\0"
......
[Closed Files]
File_0=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\ReceiptTemplate.pas',0,1,56,1,67,0,0
File_1=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\TextParser.pas',0,1,202,1,1,0,0
File_2=SourceModule,'C:\projects\OPOSShtrih\Source\OposTest\Units\PrinterTest.pas',0,1,4586,18,4603,0,0
File_3=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\PrinterTypes.pas',0,1,179,3,202,0,0
File_4=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\SalesReceipt.pas',0,1,191,2,225,0,0
File_5=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\ReceiptItem.pas',0,1,68,18,92,0,0
File_6=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas',0,1,1,1,1,0,0
File_7=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\ReceiptPrinter.pas',0,1,35,15,41,0,0
File_0=SourceModule,'C:\projects\OPOSShtrih\Source\OposTest\Fmu\fmuFptrDirectIOBarcode.pas',0,1,232,17,260,1,0
File_1=SourceModule,'C:\projects\OPOSShtrih\Source\OposTest\Fmu\fmuFptrDirectIO.pas',0,1,1,64,12,0,0
File_2=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\DirectIOAPI.pas',0,1,1,23,8,0,0
File_3=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas',0,1,608,32,620,0,0
File_4=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\PrinterTypes.pas',0,1,937,14,962,0,0
File_5=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\EscPrinter.pas',0,1,316,49,337,0,0
[Modules]
Module0=C:\projects\OPOSShtrih\Test\SmFiscalPrinterTest\Units\duReceiptTemplate.pas
Module1=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FSSalesReceipt.pas
Count=2
Module0=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas
Module1=C:\projects\OPOSShtrih\Source\Shared\StringUtils.pas
Module2=C:\projects\OPOSShtrih\Source\Shared\DIOHandlers.pas
Module3=C:\projects\OPOSShtrih\Source\OposTest\Units\DIODescription.pas
Count=4
EditWindowCount=1
TypeLibWindowCount=3
[C:\projects\OPOSShtrih\Test\SmFiscalPrinterTest\Units\duReceiptTemplate.pas]
[C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FSSalesReceipt.pas]
[C:\projects\OPOSShtrih\Source\Shared\StringUtils.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\Shared\DIOHandlers.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\OposTest\Units\DIODescription.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
......@@ -98,16 +108,18 @@ FormState=0
FormOnTop=0
[EditWindow0]
ViewCount=2
ViewCount=4
CurrentView=1
View0=0
View1=1
View2=2
View3=3
CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
Create=1
Visible=1
State=2
Left=324
Left=309
Top=138
Width=1302
Height=682
......@@ -118,21 +130,39 @@ MaxHeight=952
ClientWidth=1920
ClientHeight=914
LeftPanelSize=0
LeftPanelClients=CodeExplorer@EditWindow0
LeftPanelData=00000400010000000C000000436F64654578706C6F7265720000000000000000000000000000000000FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=00000400010000000B0000004D6573736167655669657700000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
[View0]
Module=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FSSalesReceipt.pas
CursorX=43
CursorY=1031
TopLine=1008
Module=C:\projects\OPOSShtrih\Source\OposTest\Units\DIODescription.pas
CursorX=118
CursorY=57
TopLine=50
LeftCol=1
[View1]
Module=C:\projects\OPOSShtrih\Test\SmFiscalPrinterTest\Units\duReceiptTemplate.pas
CursorX=2
CursorY=157
TopLine=142
Module=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas
CursorX=18
CursorY=5670
TopLine=5649
LeftCol=1
[View2]
Module=C:\projects\OPOSShtrih\Source\Shared\DIOHandlers.pas
CursorX=1
CursorY=1100
TopLine=1081
LeftCol=1
[View3]
Module=C:\projects\OPOSShtrih\Source\Shared\StringUtils.pas
CursorX=29
CursorY=104
TopLine=81
LeftCol=1
[TypeLibEditWindow0]
......@@ -205,9 +235,12 @@ LRDockWidth=320
Dockable=1
[Breakpoints]
Count=2
Count=5
Breakpoint0='C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\CustomReceipt.pas',160,'',0,1,'',1,0,0,'',1,'','',''
Breakpoint1='C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\MalinaPlugin.pas',194,'',0,1,'',1,0,0,'',1,'','',''
Breakpoint2='C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas',6843,'',0,1,'',1,0,0,'',1,'','',''
Breakpoint3='C:\projects\OPOSShtrih\Source\Shared\DIOHandlers.pas',1100,'',0,1,'',1,0,0,'',1,'','',''
Breakpoint4='C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas',5679,'',0,1,'',1,0,0,'',1,'','',''
[AddressBreakpoints]
Count=0
......@@ -216,9 +249,9 @@ Count=0
Create=1
Visible=1
State=2
Left=92
Top=16
Width=1828
Left=345
Top=0
Width=1575
Height=122
MaxLeft=-1
MaxTop=-1
......@@ -231,14 +264,14 @@ ClientHeight=84
Create=1
Visible=1
State=0
Left=0
Top=115
Width=592
Height=569
Left=8
Top=124
Width=554
Height=589
MaxLeft=-1
MaxTop=-1
ClientWidth=576
ClientHeight=535
ClientWidth=538
ClientHeight=555
TBDockHeight=681
LRDockWidth=445
Dockable=0
......@@ -277,18 +310,18 @@ ClientHeight=60
Create=1
Visible=0
State=0
Left=7
Left=-1
Top=110
Width=307
Width=300
Height=831
MaxLeft=-1
MaxTop=-1
ClientWidth=291
ClientWidth=284
ClientHeight=797
TBDockHeight=681
LRDockWidth=291
Dockable=1
SplitPos=149
SplitPos=143
ArrangeBy=Name
SelectedItem=
ExpandedItems=Anchors,Attributes,BorderIcons,Constraints,Font,Font.Style,Greeting,Options,ProviderFlags,TestModeInfo,Title,Title.Font,VisibleButtons
......@@ -464,14 +497,14 @@ CompUnitPane=104
Create=1
Visible=0
State=0
Left=204
Top=162
Left=-113
Top=-6
Width=140
Height=305
MaxLeft=-1
MaxTop=-1
ClientWidth=124
ClientHeight=271
ClientWidth=140
ClientHeight=305
TBDockHeight=305
LRDockWidth=140
Dockable=1
......@@ -480,14 +513,14 @@ Dockable=1
Create=1
Visible=0
State=0
Left=198
Top=107
Width=443
Left=12
Top=0
Width=1274
Height=85
MaxLeft=-1
MaxTop=-1
ClientWidth=427
ClientHeight=51
ClientWidth=1274
ClientHeight=85
TBDockHeight=85
LRDockWidth=443
Dockable=1
......@@ -500,8 +533,8 @@ DockSiteType=0
Create=1
Visible=0
State=0
Left=373
Top=343
Left=202
Top=592
Width=1007
Height=500
MaxLeft=-1
......@@ -515,5 +548,5 @@ DockClients=CallStackWindow
DockSiteData=0000040000000000D20100000000000001DF03000000000000010000000087000000000000000100000002D2010000000000000200000000DF0300000F00000043616C6C537461636B57696E646F770200000000F7010000000000000100000000080100000000000001000000008C010000000000000100000000100200000000000001000000009802000000000000FFFFFFFF
[ActiveProject]
ActiveProject=7
ActiveProject=3
......@@ -191,8 +191,8 @@ begin
AddPage(TfmFptrFroudReceipt);
{$ENDIF}
AddPage(TfmFptrTest);
AddPage(TfmFptrThreadTest);
AddPage(TfmFptrTest2);
//AddPage(TfmFptrThreadTest);
//AddPage(TfmFptrTest2);
end;
procedure TfmFiscalPrinter.UpdatePages(ListBox: TTntListBox; Pages: TPages);
......
......@@ -113,6 +113,7 @@ begin
AddTest(TReceiptTest20);
AddTest(TReceiptTest21);
AddTest(TCorrectionReceipt2Test);
AddTest(T6DigitsQuantityTest);
cbTest.ItemIndex := 0;
end;
......
......@@ -138,8 +138,8 @@ begin
on E: Exception do
begin
Inc(FErrorCount);
AddMessage('ERROR: ' + E.Message);
if FStopOnError then raise;
AddMessage('ERROR: ' + E.Message);
end;
end;
end;
......
......@@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=13
Release=0
Build=529
Build=532
Debug=0
PreRelease=0
Special=0
......@@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=SHTRIH-M
FileDescription=OPOS test utility
FileVersion=1.13.0.529
FileVersion=1.13.0.532
InternalName=OPOS test
LegalCopyright=SHTRIH-M 2013
LegalTrademarks=
......
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,13,0,497
PRODUCTVERSION 1,13,0,497
FILEVERSION 1,13,0,498
PRODUCTVERSION 1,13,0,498
FILEFLAGSMASK 0x3fL
FILEFLAGS 0x0L
FILEOS 0x4L
......@@ -13,7 +13,7 @@ BEGIN
BEGIN
VALUE "CompanyName", "SHTRIH-M\0"
VALUE "FileDescription", "OPOS test utility\0"
VALUE "FileVersion", "1.13.0.497\0"
VALUE "FileVersion", "1.13.0.498\0"
VALUE "InternalName", "OPOS test\0"
VALUE "LegalCopyright", "SHTRIH-M \251 2013 \0"
VALUE "OriginalFilename", "OposTest.exe\0"
......
......@@ -20,7 +20,7 @@ const
CRLF = #13#10;
DIO_CUSTOM_COMMAND = $FFFF;
DIODescriptions: array[1..43] of TDirectIODescription = (
DIODescriptions: array[1..46] of TDirectIODescription = (
(Command: DIO_COMMAND_PRINTER_XML;
Description: 'XML command';
DescriptionEx: 'Data: Printer command code' + #13#10 +
......@@ -58,8 +58,110 @@ const
(Command: DIO_PRINT_BARCODE;
Description: 'Print barcode';
DescriptionEx: 'Data: Barcode type:(0 - EAN 13; 1 - CODE 128A; 2 - CODE 128B; 3 - CODE 128C)' + #13#10 +
'String: Barcode data'),
DescriptionEx: 'Data: Barcode type:' + CRLF +
'DIO_BARCODE_EAN13_INT = 0' + CRLF +
'DIO_BARCODE_CODE128A = 1' + CRLF +
'DIO_BARCODE_CODE128B = 2' + CRLF +
'DIO_BARCODE_CODE128C = 3' + CRLF +
'DIO_BARCODE_CODE39 = 4' + CRLF +
'DIO_BARCODE_CODE25INTERLEAVED = 5' + CRLF +
'DIO_BARCODE_CODE25INDUSTRIAL = 6' + CRLF +
'DIO_BARCODE_CODE25MATRIX = 7' + CRLF +
'DIO_BARCODE_CODE39EXTENDED = 8' + CRLF +
'DIO_BARCODE_CODE93 = 9' + CRLF +
'DIO_BARCODE_CODE93EXTENDED = 10' + CRLF +
'DIO_BARCODE_MSI = 11' + CRLF +
'DIO_BARCODE_POSTNET = 12' + CRLF +
'DIO_BARCODE_CODABAR = 13' + CRLF +
'DIO_BARCODE_EAN8 = 14' + CRLF +
'DIO_BARCODE_EAN13 = 15' + CRLF +
'DIO_BARCODE_UPC_A = 16' + CRLF +
'DIO_BARCODE_UPC_E0 = 17' + CRLF +
'DIO_BARCODE_UPC_E1 = 18' + CRLF +
'DIO_BARCODE_UPC_S2 = 19' + CRLF +
'DIO_BARCODE_UPC_S5 = 20' + CRLF +
'DIO_BARCODE_EAN128A = 21' + CRLF +
'DIO_BARCODE_EAN128B = 22' + CRLF +
'DIO_BARCODE_EAN128C = 23' + CRLF +
'DIO_BARCODE_CODE11 = 24' + CRLF +
'DIO_BARCODE_C25IATA = 25' + CRLF +
'DIO_BARCODE_C25LOGIC = 26' + CRLF +
'DIO_BARCODE_DPLEIT = 27' + CRLF +
'DIO_BARCODE_DPIDENT = 28' + CRLF +
'DIO_BARCODE_CODE16K = 29' + CRLF +
'DIO_BARCODE_CODE49 = 30' + CRLF +
'DIO_BARCODE_FLAT = 31' + CRLF +
'DIO_BARCODE_RSS14 = 32' + CRLF +
'DIO_BARCODE_RSS_LTD = 33' + CRLF +
'DIO_BARCODE_RSS_EXP = 34' + CRLF +
'DIO_BARCODE_TELEPEN = 35' + CRLF +
'DIO_BARCODE_FIM = 36' + CRLF +
'DIO_BARCODE_LOGMARS = 37' + CRLF +
'DIO_BARCODE_PHARMA = 38' + CRLF +
'DIO_BARCODE_PZN = 39' + CRLF +
'DIO_BARCODE_PHARMA_TWO = 40' + CRLF +
'DIO_BARCODE_PDF417 = 41' + CRLF +
'DIO_BARCODE_PDF417TRUNC = 42' + CRLF +
'DIO_BARCODE_MAXICODE = 43' + CRLF +
'DIO_BARCODE_QRCODE = 44' + CRLF +
'DIO_BARCODE_AUSPOST = 45' + CRLF +
'DIO_BARCODE_AUSREPLY = 46' + CRLF +
'DIO_BARCODE_AUSROUTE = 47' + CRLF +
'DIO_BARCODE_AUSREDIRECT = 48' + CRLF +
'DIO_BARCODE_ISBNX = 49' + CRLF +
'DIO_BARCODE_RM4SCC = 50' + CRLF +
'DIO_BARCODE_DATAMATRIX = 51' + CRLF +
'DIO_BARCODE_EAN14 = 52' + CRLF +
'DIO_BARCODE_CODABLOCKF = 53' + CRLF +
'DIO_BARCODE_NVE18 = 54' + CRLF +
'DIO_BARCODE_JAPANPOST = 55' + CRLF +
'DIO_BARCODE_KOREAPOST = 56' + CRLF +
'DIO_BARCODE_RSS14STACK = 57' + CRLF +
'DIO_BARCODE_RSS14STACK_OMNI = 58' + CRLF +
'DIO_BARCODE_RSS_EXPSTACK = 59' + CRLF +
'DIO_BARCODE_PLANET = 60' + CRLF +
'DIO_BARCODE_MICROPDF417 = 61' + CRLF +
'DIO_BARCODE_ONECODE = 62' + CRLF +
'DIO_BARCODE_PLESSEY = 63' + CRLF +
'DIO_BARCODE_TELEPEN_NUM = 64' + CRLF +
'DIO_BARCODE_ITF14 = 65' + CRLF +
'DIO_BARCODE_KIX = 66' + CRLF +
'DIO_BARCODE_AZTEC = 67' + CRLF +
'DIO_BARCODE_DAFT = 68' + CRLF +
'DIO_BARCODE_MICROQR = 69' + CRLF +
'DIO_BARCODE_HIBC_128 = 70' + CRLF +
'DIO_BARCODE_HIBC_39 = 71' + CRLF +
'DIO_BARCODE_HIBC_DM = 72' + CRLF +
'DIO_BARCODE_HIBC_QR = 73' + CRLF +
'DIO_BARCODE_HIBC_PDF = 74' + CRLF +
'DIO_BARCODE_HIBC_MICPDF = 75' + CRLF +
'DIO_BARCODE_HIBC_BLOCKF = 76' + CRLF +
'DIO_BARCODE_HIBC_AZTEC = 77' + CRLF +
'DIO_BARCODE_AZRUNE = 78' + CRLF +
'DIO_BARCODE_CODE32 = 79' + CRLF +
'DIO_BARCODE_EANX_CC = 80' + CRLF +
'DIO_BARCODE_EAN128_CC = 81' + CRLF +
'DIO_BARCODE_RSS14_CC = 82' + CRLF +
'DIO_BARCODE_RSS_LTD_CC = 83' + CRLF +
'DIO_BARCODE_RSS_EXP_CC = 84' + CRLF +
'DIO_BARCODE_UPCA_CC = 85' + CRLF +
'DIO_BARCODE_UPCE_CC = 86' + CRLF +
'DIO_BARCODE_RSS14STACK_CC = 87' + CRLF +
'DIO_BARCODE_RSS14_OMNI_CC = 88' + CRLF +
'DIO_BARCODE_RSS_EXPSTACK_CC = 89' + CRLF +
'DIO_BARCODE_CHANNEL = 90' + CRLF +
'DIO_BARCODE_CODEONE = 91' + CRLF +
'DIO_BARCODE_GRIDMATRIX = 92' + CRLF +
'DIO_BARCODE_QRCODE2 = 93' + CRLF +
'DIO_BARCODE_QRCODE3 = 94' + CRLF +
'DIO_BARCODE_QRCODE4 = 95' + CRLF +
'DIO_BARCODE_DEVICE_PDF417 = 96' + CRLF +
'DIO_BARCODE_DEVICE_DATAMATRIX = 97' + CRLF +
'DIO_BARCODE_DEVICE_AZTEC = 98' + CRLF +
'DIO_BARCODE_DEVICE_QR = 99' + CRLF +
'DIO_BARCODE_DEVICE_EGAIS = 100' + CRLF +
'String: Barcode;Text;Height;ModuleWidth;Alignment;Parameter1;Parameter2;Parameter3;Parameter4;Parameter5'),
(Command: DIO_COMMAND_PRINTER_STR;
Description: 'String command';
......@@ -498,9 +600,28 @@ const
Description: 'Start correction receipt';
DescriptionEx:
'Data: not used' + CRLF +
'String: not used';)
'String: not used';),
(Command: DIO_START_CORRECTION;
Description: 'Start correction receipt';
DescriptionEx:
'Data: not used' + CRLF +
'String: not used';),
(Command: DIO_WRITE_FS_TLV_HEX;
Description: 'Write TLV data';
DescriptionEx:
'Data: not used' + CRLF +
'String: TLV data in HEX format';),
(Command: DIO_WRITE_FS_TLV_OP_HEX;
Description: 'Write TLV data for operation';
DescriptionEx:
'Data: not used' + CRLF +
'String: TLV data in HEX format';)
);
function GetDIODescription(ADIOCommand: Integer): TDirectIODescription;
implementation
......
......@@ -808,6 +808,14 @@ type
function GetDisplayText: WideString; override;
end;
{ T6DigitsQuantityTest }
T6DigitsQuantityTest = class(TDriverTest)
public
procedure Execute; override;
function GetDisplayText: WideString; override;
end;
implementation
const
......@@ -3428,21 +3436,66 @@ end;
function TTestReceipt5.GetDisplayText: WideString;
begin
Result := 'Barcode test receipt';
Result := 'Barcode test receipt 1';
end;
// 'Barcode;Text;Height;ModuleWidth;Alignment;Parameter1;Parameter2;Parameter3;Parameter4;Parameter5'),
procedure TTestReceipt5.Execute;
var
pData: Integer;
Line: WideString;
pString: WideString;
begin
pData := 0;
pString := '299935000000';
Check(FiscalPrinter.DirectIO(7, pData, pString));
pData := 1;
pString := #$0D#$0A' 15% 23 29 ';
Check(FiscalPrinter.DirectIO(9, pData, pString));
ResultCode: Integer;
const
Separator = '------------------------------------------';
begin
// DIO_BARCODE_DEVICE_PDF417
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Separator);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, 'DIO_BARCODE_DEVICE_PDF417');
pData := DIO_BARCODE_DEVICE_PDF417;
pString := '299935000000;;10;3;0;0;0;3;0;2;';
ResultCode := FiscalPrinter.DirectIO(DIO_PRINT_BARCODE, pData, pString);
Line := Format('Result: %d, %s', [ResultCode, FiscalPrinter.ErrorString]);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Line);
// DIO_BARCODE_DEVICE_DATAMATRIX
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Separator);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, 'DIO_BARCODE_DEVICE_DATAMATRIX');
pData := DIO_BARCODE_DEVICE_DATAMATRIX;
pString := '299935000000;;10;3;0;0;0;3;0;2;';
ResultCode := FiscalPrinter.DirectIO(DIO_PRINT_BARCODE, pData, pString);
Line := Format('Result: %d, %s', [ResultCode, FiscalPrinter.ErrorString]);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Line);
// DIO_BARCODE_DEVICE_AZTEC
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Separator);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, 'DIO_BARCODE_DEVICE_AZTEC');
pData := DIO_BARCODE_DEVICE_AZTEC;
pString := '299935000000;;10;3;0;0;0;3;0;2;';
ResultCode := FiscalPrinter.DirectIO(DIO_PRINT_BARCODE, pData, pString);
Line := Format('Result: %d, %s', [ResultCode, FiscalPrinter.ErrorString]);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Line);
// DIO_BARCODE_DEVICE_QR
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Separator);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, 'DIO_BARCODE_DEVICE_QR');
pData := DIO_BARCODE_DEVICE_QR;
pString := '299935000000;;10;3;0;0;0;3;0;2;';
ResultCode := FiscalPrinter.DirectIO(DIO_PRINT_BARCODE, pData, pString);
Line := Format('Result: %d, %s', [ResultCode, FiscalPrinter.ErrorString]);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Line);
// DIO_BARCODE_DEVICE_EGAIS
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Separator);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, 'DIO_BARCODE_DEVICE_EGAIS');
pData := DIO_BARCODE_DEVICE_EGAIS;
pString := '299935000000;;10;3;0;0;0;3;0;2;';
ResultCode := FiscalPrinter.DirectIO(DIO_PRINT_BARCODE, pData, pString);
Line := Format('Result: %d, %s', [ResultCode, FiscalPrinter.ErrorString]);
FiscalPrinter.PrintNormal(FPTR_S_RECEIPT, Line);
end;
{ TTestReceipt6 }
......@@ -4707,4 +4760,21 @@ begin
Result := 'Correction receipt 2 test';
end;
{ T6DigitsQuantityTest }
procedure T6DigitsQuantityTest.Execute;
begin
Check(FiscalPrinter.ResetPrinter());