Commit 1d53e946 authored by kravtsov's avatar kravtsov

[-] Ошибки после снятия отчета игнорируются, сделаны переповторы

parent 9d1867c6
......@@ -6,10 +6,10 @@
*******************************************************************
OposShtrih_1.13_482.exe
22 марта 2018 14:15
OposShtrih_1.13_483.exe
22 марта 2018 15:15
[-] Ошибки после снятия отчета игнорируются
[-] Ошибки после снятия отчета игнорируются, сделаны переповторы
*******************************************************************
......
[Closed Files]
File_0=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas',0,1,2726,62,2739,0,0
File_0=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas',0,1,924,54,934,0,0
File_1=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\DirectIOAPI.pas',0,1,300,33,309,0,0
File_2=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\oleFiscalPrinter.pas',0,1,101,91,114,0,0
File_3=SourceModule,'C:\projects\OPOSShtrih\Source\Shared\DriverError.pas',0,1,19,1,34,0,0
......@@ -10,20 +10,16 @@ File_7=SourceModule,'C:\projects\OPOSShtrih\Source\OposTest\Units\PrinterTest.pa
File_8=SourceModule,'C:\projects\OPOSShtrih\Source\Shared\DIOHandlers.pas',0,1,502,38,510,0,0
[Modules]
Module0=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas
Module0=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas
Count=1
EditWindowCount=1
TypeLibWindowCount=3
[C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas]
[C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Test\SmScaleTest\SmScaleTestLib.dpr]
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\OposShtrih.bpg]
FormState=0
FormOnTop=0
......@@ -96,6 +92,10 @@ FormOnTop=0
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Test\SmScaleTest\SmScaleTestLib.dpr]
FormState=0
FormOnTop=0
[EditWindow0]
ViewCount=1
CurrentView=0
......@@ -104,28 +104,30 @@ CodeExplorer=CodeExplorer@EditWindow0
MessageView=MessageView@EditWindow0
Create=1
Visible=1
State=0
State=2
Left=309
Top=138
Width=1302
Height=682
MaxLeft=-1
MaxTop=-1
ClientWidth=1286
ClientHeight=644
MaxLeft=-8
MaxTop=106
MaxWidth=1936
MaxHeight=952
ClientWidth=1920
ClientHeight=914
LeftPanelSize=0
LeftPanelClients=CodeExplorer@EditWindow0
LeftPanelData=00000400010000000C000000436F64654578706C6F7265720000000000000000000000000000000000FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomPanelSize=85
BottomPanelClients=MessageView@EditWindow0
BottomPanelData=00000400010000000B0000004D657373616765566965770000000000000000000000000000000000FFFFFFFF
BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
[View0]
Module=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas
CursorX=1
CursorY=926
TopLine=924
Module=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas
CursorX=14
CursorY=2711
TopLine=2694
LeftCol=1
[TypeLibEditWindow0]
......@@ -266,7 +268,7 @@ ClientHeight=60
[PropertyInspector]
Create=1
Visible=1
Visible=0
State=0
Left=-1
Top=110
......@@ -469,15 +471,15 @@ Dockable=1
[MessageView@EditWindow0]
Create=1
Visible=0
Visible=1
State=0
Left=-119
Top=-705
Width=443
Left=12
Top=0
Width=1908
Height=85
MaxLeft=-1
MaxTop=-1
ClientWidth=443
ClientWidth=1908
ClientHeight=85
TBDockHeight=85
LRDockWidth=443
......
......@@ -2708,16 +2708,24 @@ end;
procedure TFiscalPrinterDevice.PrintCommStatus;
var
i: Integer;
R: TFSCommStatus;
begin
if not CapFiscalStorage then Exit;
WaitForPrinting;
Check(FSReadCommStatus(R));
PrintText(PRINTER_STATION_REC, StringOfChar('-', GetPrintWidth));
PrintLines(' :', IntToStr(R.DocumentCount));
PrintLines(' :', IntToStr(R.DocumentNumber));
PrintLines(' :', PrinterDateTimeToStr2(R.DocumentDate));
for i := 1 to 10 do
begin
if FSReadCommStatus(R) = 0 then
begin
PrintText(PRINTER_STATION_REC, StringOfChar('-', GetPrintWidth));
PrintLines(' :', IntToStr(R.DocumentCount));
PrintLines(' :', IntToStr(R.DocumentNumber));
PrintLines(' :', PrinterDateTimeToStr2(R.DocumentDate));
Break;
end;
Sleep(1000)
end;
end;
(******************************************************************************
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment