Commit a9034233 authored by kravtsov's avatar kravtsov

[+] Добавлены типы чеков коррекции для печати чека коррекции версии 2

    FPTR_RT_CORRECTION2_SALE              =  104;
    FPTR_RT_CORRECTION2_BUY               =  105;
parent d7d616e5
......@@ -4,6 +4,15 @@
Company : SHTRIH-M, Russia, Moscow, Masterkova 4
(495) 787-60-90, www.shtrih-m.ru
*******************************************************************
OposShtrih_1.13_488.exe
16 мая 2018 22:10
[+] Добавлены типы чеков коррекции для печати чека коррекции версии 2
FPTR_RT_CORRECTION2_SALE = 104;
FPTR_RT_CORRECTION2_BUY = 105;
*******************************************************************
OposShtrih_1.13_487.exe
......
......@@ -6,7 +6,7 @@ uses
// VCL
SysUtils,
// This
OPOS, OPOShi;
OPOS, OPOShi, WException, gnugettext;
type
{ TOPOSError }
......@@ -14,20 +14,20 @@ type
TOPOSError = record
ResultCode: Integer;
ResultCodeExtended: Integer;
ErrorString: string;
ErrorString: WideString;
end;
{ EOPOSException }
EOPOSException = class(Exception)
EOPOSException = class(WideException)
private
FResultCode: Integer;
FResultCodeExtended: Integer;
public
constructor Create(const AMessage: string;
constructor Create(const AMessage: WideString;
AResultCode, AResultCodeExtended: Integer);
class function GetResultCodeText(Value: Integer): string;
class function GetResultCodeText(Value: Integer): WideString;
property ResultCode: Integer read FResultCode;
property ResultCodeExtended: Integer read FResultCodeExtended;
......@@ -35,16 +35,16 @@ type
{ EOPOSDeviceException }
EOPOSDeviceException = class(Exception)
EOPOSDeviceException = class(WideException)
private
FResultCode: Integer;
FResultCodeExtended: Integer;
FDeviceErrorCode: Integer;
public
constructor Create(const AMessage: string;
constructor Create(const AMessage: WideString;
AResultCode, AResultCodeExtended, ADeviceErrorCode: Integer);
class function GetResultCodeText(Value: Integer): string;
class function GetResultCodeText(Value: Integer): WideString;
property ResultCode: Integer read FResultCode;
property DeviceErrorCode: Integer read FDeviceErrorCode;
......@@ -52,58 +52,54 @@ type
end;
procedure RaiseIllegalError; overload;
procedure RaiseIllegalError(const AMessage: string); overload;
procedure RaiseIllegalError(const AMessage: WideString); overload;
procedure RaiseOPOSException(AResultCode: Integer); overload;
procedure RaiseExtendedError(AResultCodeExtended: Integer); overload;
procedure RaiseOPOSException(
AResultCode: Integer;
const AMessage: string); overload;
const AMessage: WideString); overload;
procedure RaiseOPOSException(
AResultCode, AResultCodeExtended: Integer;
const AMessage: string); overload;
const AMessage: WideString); overload;
procedure RaiseExtendedError(
AResultCodeExtended: Integer;
const AMessage: string); overload;
const AMessage: WideString); overload;
procedure InvalidPropertyValue(const PropName, PropValue: string);
procedure InvalidParameterValue(const ParamName, ParamValue: string);
resourcestring
MsgInvalidParameterValue = 'Invalid parameter value';
MsgInvalidPropertyValue = 'Invalid property value';
procedure InvalidPropertyValue(const PropName, PropValue: WideString);
procedure InvalidParameterValue(const ParamName, ParamValue: WideString);
implementation
procedure InvalidParameterValue(const ParamName, ParamValue: string);
procedure InvalidParameterValue(const ParamName, ParamValue: WideString);
begin
RaiseOposException(OPOS_E_ILLEGAL, Format('%s, %s=''%s''',
[MsgInvalidParameterValue, ParamName]));
[_('Invalid parameter value'), ParamName]));
end;
procedure InvalidPropertyValue(const PropName, PropValue: string);
procedure InvalidPropertyValue(const PropName, PropValue: WideString);
begin
RaiseOposException(OPOS_E_ILLEGAL, Format('%s, %s=''%s''',
[MsgInvalidPropertyValue, PropName, PropValue]));
[_('Invalid property value'), PropName, PropValue]));
end;
procedure RaiseOPOSException(AResultCode, AResultCodeExtended: Integer;
const AMessage: string); overload;
const AMessage: WideString); overload;
begin
raise EOPOSException.Create(AMessage, AResultCode, AResultCodeExtended);
end;
procedure RaiseOPOSException(AResultCode: Integer;
const AMessage: string); overload;
const AMessage: WideString); overload;
begin
RaiseOPOSException(AResultCode, OPOS_SUCCESS, AMessage);
end;
procedure RaiseExtendedError(AResultCodeExtended: Integer;
const AMessage: string); overload;
const AMessage: WideString); overload;
begin
RaiseOPOSException(OPOS_E_EXTENDED, AResultCodeExtended, AMessage);
end;
......@@ -120,7 +116,7 @@ begin
'');
end;
procedure RaiseIllegalError(const AMessage: string); overload;
procedure RaiseIllegalError(const AMessage: WideString); overload;
begin
RaiseOposException(OPOS_E_ILLEGAL, AMessage);
end;
......@@ -132,7 +128,7 @@ end;
{ EOPOSExtendedError }
constructor EOPOSException.Create(const AMessage: string;
constructor EOPOSException.Create(const AMessage: WideString;
AResultCode, AResultCodeExtended: Integer);
begin
inherited Create(AMessage);
......@@ -140,7 +136,7 @@ begin
FResultCodeExtended := AResultCodeExtended;
end;
class function EOPOSException.GetResultCodeText(Value: Integer): string;
class function EOPOSException.GetResultCodeText(Value: Integer): WideString;
begin
case Value of
OPOS_SUCCESS : Result := 'OPOS_SUCCESS';
......@@ -176,7 +172,7 @@ end;
{ EOPOSDeviceException }
constructor EOPOSDeviceException.Create(const AMessage: string;
constructor EOPOSDeviceException.Create(const AMessage: WideString;
AResultCode, AResultCodeExtended, ADeviceErrorCode: Integer);
begin
inherited Create(AMessage);
......@@ -186,7 +182,7 @@ begin
end;
class function EOPOSDeviceException.GetResultCodeText(
Value: Integer): string;
Value: Integer): WideString;
begin
Result := EOPOSException.GetResultCodeText(Value);
end;
......
......@@ -6,7 +6,7 @@ uses
// VCL
SysUtils,
// This
Opos, OposUtils, Oposhi, OposFptr, OposFptrhi, OposException;
Opos, OposUtils, Oposhi, OposFptr, OposFptrhi, OposException, gnugettext;
function PrinterStateToStr(Value: Integer): string;
function EncodeOposDate(const Date: TOposDate): string;
......@@ -32,24 +32,19 @@ procedure raiseOposFptrCoverOpened;
implementation
resourcestring
MsgCoverOpened = 'Cover is opened';
MsgReceiptStationEmpty = 'Receipt station is empty';
MsgJournalStationEmpty = 'Journal station is empty';
procedure raiseOposFptrRecEmpty;
begin
raiseExtendedError(OPOS_EFPTR_REC_EMPTY, MsgReceiptStationEmpty);
raiseExtendedError(OPOS_EFPTR_REC_EMPTY, _('Receipt station is empty'));
end;
procedure raiseOposFptrJrnEmpty;
begin
raiseExtendedError(OPOS_EFPTR_JRN_EMPTY, MsgJournalStationEmpty);
raiseExtendedError(OPOS_EFPTR_JRN_EMPTY, _('Journal station is empty'));
end;
procedure raiseOposFptrCoverOpened;
begin
raiseExtendedError(OPOS_EFPTR_COVER_OPEN, MsgCoverOpened);
raiseExtendedError(OPOS_EFPTR_COVER_OPEN, _('Cover is opened'));
end;
function OposFptrGetErrorText(Driver: OleVariant): string;
......@@ -185,13 +180,6 @@ end;
// hh hour (0-23)
// mm minutes (0-59)
resourcestring
MsgInvalidDay = 'Invalid day';
MsgInvalidMonth = 'Invalid month';
MsgInvalidYear = 'Invalid year';
MsgInvalidHour = 'Invalid hour';
MsgInvalidMinutes = 'Invalid minutes';
function DecodeOposDate(const Date: string): TOposDate;
begin
Result.Day := StrToInt(Copy(Date, 1, 2));
......@@ -201,19 +189,19 @@ begin
Result.Min := StrToInt(Copy(Date, 11, 2));
if not(Result.Day in [1..31]) then
raiseExtendedError(OPOS_EFPTR_BAD_DATE, MsgInvalidDay);
raiseExtendedError(OPOS_EFPTR_BAD_DATE, _('Invalid day'));
if not(Result.Month in [1..12]) then
raiseExtendedError(OPOS_EFPTR_BAD_DATE, MsgInvalidMonth);
raiseExtendedError(OPOS_EFPTR_BAD_DATE, _('Invalid month'));
if Result.Year < 2000 then
raiseExtendedError(OPOS_EFPTR_BAD_DATE, MsgInvalidYear);
raiseExtendedError(OPOS_EFPTR_BAD_DATE, _('Invalid year'));
if not(Result.Hour in [0..23]) then
raiseExtendedError(OPOS_EFPTR_BAD_DATE, MsgInvalidHour);
raiseExtendedError(OPOS_EFPTR_BAD_DATE, _('Invalid hour'));
if not(Result.Min in [0..59]) then
raiseExtendedError(OPOS_EFPTR_BAD_DATE, MsgInvalidMinutes);
raiseExtendedError(OPOS_EFPTR_BAD_DATE, _('Invalid minutes'));
end;
function EncodeOposDate(const Date: TOposDate): string;
......
......@@ -9,7 +9,7 @@ uses
Opos, Oposhi, OposFptr, OposEvents, OposException, OposFptrUtils,
OposUtils,
// This
OposSemaphore, NotifyThread, LogFile, PrinterTypes;
OposSemaphore, NotifyThread, LogFile, PrinterTypes, gnugettext;
type
{ TOposServiceDevice19 }
......@@ -296,13 +296,10 @@ error
*)
resourcestring
MsgDeviceDisabled = 'Device is disabled';
procedure TOposServiceDevice19.CheckEnabled;
begin
if not DeviceEnabled then
RaiseOposException(OPOS_E_DISABLED, MsgDeviceDisabled);
RaiseOposException(OPOS_E_DISABLED, _('Device is disabled'));
end;
procedure TOposServiceDevice19.SetFreezeEvents(const Value: Boolean);
......@@ -425,15 +422,13 @@ function TOposServiceDevice19.ConvertBinary(const Data: string): string;
until False;
end;
resourcestring
MsgInvalidBinaryConversion = 'Invalid BinaryConversion property value';
begin
case FBinaryConversion of
OPOS_BC_NONE : Result := Data;
OPOS_BC_NIBBLE : Result := NibbleConversion(Data);
OPOS_BC_DECIMAL : Result := DecimalConversion(Data);
else
RaiseOposException(OPOS_E_ILLEGAL, MsgInvalidBinaryConversion);
RaiseOposException(OPOS_E_ILLEGAL, _('Invalid BinaryConversion property value'));
end;
end;
......
......@@ -43,7 +43,7 @@ type
function Get_FontNumber: Integer;
procedure Set_FontNumber(const Value: Integer);
function GetIntParameter(ParamID: Integer): Integer;
procedure SetIntParameter(ParamID, Value: Integer);
function SetIntParameter(ParamID, Value: Integer): Integer;
procedure Check(AResultCode: Integer);
// IOPOSFiscalPrinter_1_6
procedure SODataDummy(Status: Integer); safecall;
......@@ -269,8 +269,9 @@ type
function SetCurrency(NewCurrency: Integer): Integer; safecall;
function GetBoolParameter(ParamID: Integer): Boolean;
function GetParameter(ParamID: Integer): WideString;
procedure SetBoolParameter(ParamID: Integer; Value: Boolean);
procedure SetParameter(ParamID: Integer; const Value: WideString);
function SetBoolParameter(ParamID: Integer; Value: Boolean): Integer;
function SetParameter(ParamID: Integer; const Value: WideString): Integer; overload;
function SetParameter(ParamID: Integer; const Value: Integer): Integer; overload;
procedure PrintImage(const FileName: string);
procedure PrintImageScale(const FileName: string; Scale: Integer);
procedure PrintBarcode(const Data: string; BarcodeType: Integer);
......@@ -1769,24 +1770,29 @@ begin
Result := StrToBool(GetParameter(ParamID));
end;
procedure TSMFiscalPrinter.SetParameter(ParamID: Integer; const Value: WideString);
function TSMFiscalPrinter.SetParameter(ParamID: Integer; const Value: WideString): Integer;
var
pData: Integer;
pString: WideString;
begin
pData := ParamID;
pString := Value;
Check(Driver.DirectIO(DIO_SET_DRIVER_PARAMETER, pData, pString));
Result := Driver.DirectIO(DIO_SET_DRIVER_PARAMETER, pData, pString);
end;
procedure TSMFiscalPrinter.SetIntParameter(ParamID, Value: Integer);
function TSMFiscalPrinter.SetParameter(ParamID: Integer; const Value: Integer): Integer;
begin
SetParameter(ParamID, IntToStr(Value));
Result := SetParameter(ParamID, IntToStr(Value));
end;
procedure TSMFiscalPrinter.SetBoolParameter(ParamID: Integer; Value: Boolean);
function TSMFiscalPrinter.SetIntParameter(ParamID, Value: Integer): Integer;
begin
SetParameter(ParamID, BoolToStr(Value));
Result := SetParameter(ParamID, IntToStr(Value));
end;
function TSMFiscalPrinter.SetBoolParameter(ParamID: Integer; Value: Boolean): Integer;
begin
Result := SetParameter(ParamID, BoolToStr(Value));
end;
function TSMFiscalPrinter.Get_FontNumber: Integer;
......
......@@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=13
Release=0
Build=487
Build=502
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.487
FileVersion=1.13.0.502
InternalName=OPOS setup
LegalCopyright=SHTRIH-M 2013
LegalTrademarks=
......
......@@ -78,9 +78,9 @@ uses
fmuFptrPayType in 'Fmu\fmuFptrPayType.pas' {fmFptrPayType},
VatCode in '..\SmFiscalPrinter\Units\VatCode.pas',
DriverContext in '..\SmFiscalPrinter\Units\DriverContext.pas',
OposMessages in '..\SmFiscalPrinter\Units\OposMessages.pas',
fmuFptrConnection in 'Fmu\fmuFptrConnection.pas' {fmFptrConnection},
fmuMarkChecker in 'Fmu\fmuMarkChecker.pas' {fmMarkChecker};
fmuMarkChecker in 'Fmu\fmuMarkChecker.pas' {fmMarkChecker},
WException in '..\Shared\WException.pas';
{$R *.RES}
{$R WindowsXP.RES}
......
......@@ -8,43 +8,40 @@
resources were bound to the produced executable.
*/
#define pnglang_EPNGHeaderNotPresentText 65184
#define OleConst_SCannotActivate 65185
#define OleConst_SNoWindowHandle 65186
#define OleConst_SInvalidLicense 65187
#define OleConst_SNotLicensed 65188
#define pnglang_EPNGInvalidIHDRText 65200
#define pnglang_EPNGMissingMultipleIDATText 65201
#define pnglang_EPNGZLIBErrorText 65202
#define pnglang_EPNGInvalidPaletteText 65203
#define pnglang_EPNGInvalidFileHeaderText 65204
#define pnglang_EPNGIHDRNotFirstText 65205
#define pnglang_EPNGSizeExceedsText 65206
#define pnglang_EPNGUnknownPalEntryText 65207
#define pnglang_EPNGUnknownCriticalChunkText 65208
#define pnglang_EPNGUnknownCompressionText 65209
#define pnglang_EPNGUnknownInterlaceText 65210
#define pnglang_EPNGCannotAssignChunkText 65211
#define pnglang_EPNGUnexpectedEndText 65212
#define pnglang_EPNGNoImageDataText 65213
#define pnglang_EPNGCannotChangeSizeText 65214
#define pnglang_EPNGOutMemoryText 65215
#define OleConst_SInvalidLicense 65184
#define OleConst_SNotLicensed 65185
#define pnglang_EPNGInvalidPaletteText 65200
#define pnglang_EPNGInvalidFileHeaderText 65201
#define pnglang_EPNGIHDRNotFirstText 65202
#define pnglang_EPNGSizeExceedsText 65203
#define pnglang_EPNGUnknownPalEntryText 65204
#define pnglang_EPNGUnknownCriticalChunkText 65205
#define pnglang_EPNGUnknownCompressionText 65206
#define pnglang_EPNGUnknownInterlaceText 65207
#define pnglang_EPNGCannotAssignChunkText 65208
#define pnglang_EPNGUnexpectedEndText 65209
#define pnglang_EPNGNoImageDataText 65210
#define pnglang_EPNGCannotChangeSizeText 65211
#define pnglang_EPNGOutMemoryText 65212
#define pnglang_EPNGHeaderNotPresentText 65213
#define OleConst_SCannotActivate 65214
#define OleConst_SNoWindowHandle 65215
#define ComConst_SNoCloseActiveServer1 65216
#define ComConst_SNoCloseActiveServer2 65217
#define OposDevice_MsgKeyOpenError 65218
#define VatCode_MsgVATCodeExists 65219
#define PrinterParametersReg_MsgRegistryKeyOpenError 65220
#define PrinterParametersRegIBT_MsgRegistryKeyOpenError 65221
#define TntSystem_SBufferOverflow 65222
#define TntSystem_SInvalidUTF7 65223
#define MalinaParams_MsgInvalidFuelAmountPrecision 65224
#define SynEditStrConst_SYNS_ScrollInfoFmt 65225
#define SynEditStrConst_SYNS_ScrollInfoFmtTop 65226
#define SynEditStrConst_SYNS_EDuplicateShortcut 65227
#define SynEditStrConst_SYNS_FriendlyLangUnknown 65228
#define SynEditTextBuffer_SListIndexOutOfBounds 65229
#define SynEditTextBuffer_SInvalidCapacity 65230
#define pnglang_EPngInvalidCRCText 65231
#define TntSystem_SBufferOverflow 65219
#define TntSystem_SInvalidUTF7 65220
#define TntFormatStrUtils_SInvalidFormatSpecifier 65221
#define SynEditStrConst_SYNS_ScrollInfoFmt 65222
#define SynEditStrConst_SYNS_ScrollInfoFmtTop 65223
#define SynEditStrConst_SYNS_EDuplicateShortcut 65224
#define SynEditStrConst_SYNS_FriendlyLangUnknown 65225
#define SynEditTextBuffer_SListIndexOutOfBounds 65226
#define SynEditTextBuffer_SInvalidCapacity 65227
#define pnglang_EPngInvalidCRCText 65228
#define pnglang_EPNGInvalidIHDRText 65229
#define pnglang_EPNGMissingMultipleIDATText 65230
#define pnglang_EPNGZLIBErrorText 65231
#define ComStrs_sTabFailDelete 65232
#define ComStrs_sTabFailRetrieve 65233
#define ComStrs_sTabFailGetObject 65234
......@@ -351,14 +348,8 @@
#define SysConst_SDiskFull 65535
STRINGTABLE
BEGIN
pnglang_EPNGHeaderNotPresentText, "This operation is not valid because the current image contains no valid header."
OleConst_SCannotActivate, "OLE control activation failed"
OleConst_SNoWindowHandle, "Could not obtain OLE control window handle"
OleConst_SInvalidLicense, "License information for %s is invalid"
OleConst_SNotLicensed, "License information for %s not found. You cannot use this control in design mode"
pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted"
pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts."
pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: "
pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette."
pnglang_EPNGInvalidFileHeaderText, "The file being readed is not a valid \"Portable Network Graphics\" image because it contains an invalid header. This file may be corruped, try obtaining it again."
pnglang_EPNGIHDRNotFirstText, "This \"Portable Network Graphics\" image is not supported or it might be invalid.\r\n(IHDR chunk is not the first)"
......@@ -372,15 +363,15 @@ BEGIN
pnglang_EPNGNoImageDataText, "This \"Portable Network Graphics\" image contains no data."
pnglang_EPNGCannotChangeSizeText, "The \"Portable Network Graphics\" image can not be resize by changing width and height properties. Try assigning the image from a bitmap."
pnglang_EPNGOutMemoryText, "Some operation could not be performed because the system is out of resources. Close some windows and try again."
pnglang_EPNGHeaderNotPresentText, "This operation is not valid because the current image contains no valid header."
OleConst_SCannotActivate, "OLE control activation failed"
OleConst_SNoWindowHandle, "Could not obtain OLE control window handle"
ComConst_SNoCloseActiveServer1, "There are still active COM objects in this application. One or more clients may have references to these objects, so manually closing "
ComConst_SNoCloseActiveServer2, "this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
OposDevice_MsgKeyOpenError, "Error opening registry key: %s"
VatCode_MsgVATCodeExists, "Item with app VAT code %d already exists."
PrinterParametersReg_MsgRegistryKeyOpenError, "Registry key open error"
PrinterParametersRegIBT_MsgRegistryKeyOpenError, "Registry key open error"
TntSystem_SBufferOverflow, "Buffer overflow"
TntSystem_SInvalidUTF7, "Invalid UTF7"
MalinaParams_MsgInvalidFuelAmountPrecision, "Invalid FuelAmountPrecision value"
TntFormatStrUtils_SInvalidFormatSpecifier, "Invalid Format Specifier: %s"
SynEditStrConst_SYNS_ScrollInfoFmt, "%d - %d"
SynEditStrConst_SYNS_ScrollInfoFmtTop, "Top Line: %d"
SynEditStrConst_SYNS_EDuplicateShortcut, "Shortcut already exists"
......@@ -388,6 +379,9 @@ BEGIN
SynEditTextBuffer_SListIndexOutOfBounds, "Invalid stringlist index %d"
SynEditTextBuffer_SInvalidCapacity, "Stringlist capacity cannot be smaller than count"
pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)"
pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted"
pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts."
pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: "
ComStrs_sTabFailDelete, "Failed to delete tab at index %d"
ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d"
ComStrs_sTabFailGetObject, "Failed to get object at index %d"
......
VS_VERSION_INFO VERSIONINFO
FILEVERSION 1,13,0,487
PRODUCTVERSION 1,13,0,487
FILEVERSION 1,13,0,488
PRODUCTVERSION 1,13,0,488
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.487\0"
VALUE "FileVersion", "1.13.0.488\0"
VALUE "InternalName", "OPOS setup \0"
VALUE "LegalCopyright", "SHTRIH-M \251 2013 \0"
VALUE "OriginalFilename", "OposConfig.exe\0"
......
......@@ -9,10 +9,10 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = OposConfig.exe OposTest.exe SmFiscalPrinter.dll SmFiscalPrinter.RUS \
SmScale.dll SmFptrSrv.exe OposConfigTest.exe OposConfigTestLib.dll \
SmFiscalPrinterTest.exe SmFiscalPrinterTestLib.dll OposTestTest.exe \
OposTestTestLib.dll SmScaleTest.exe SmScaleTestLib.dll
PROJECTS = OposConfig.exe OposTest.exe SmFiscalPrinter.dll SmScale.dll \
SmFptrSrv.exe OposConfigTest.exe OposConfigTestLib.dll SmFiscalPrinterTest.exe \
SmFiscalPrinterTestLib.dll OposTestTest.exe OposTestTestLib.dll SmScaleTest.exe \
SmScaleTestLib.dll
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
......@@ -56,7 +56,4 @@ SmScaleTest.exe: ..\Test\SmScaleTest\SmScaleTest.dpr
SmScaleTestLib.dll: ..\Test\SmScaleTest\SmScaleTestLib.dpr
$(DCC)
SmFiscalPrinter.RUS: SmFiscalPrinter\RUS\SmFiscalPrinter.dpr
$(DCC)
[Closed Files]
File_0=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FSSalesReceipt.pas',0,1,1,76,11,0,0
File_1=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas',0,1,644,13,656,0,0
File_2=SourceModule,'C:\projects\OPOSShtrih\Source\Shared\DIOHandlers.pas',0,1,2282,18,2288,0,0
File_3=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\TLVTags.pas',0,1,358,1,371,0,0
File_4=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas',0,1,8614,44,8624,0,0
File_5=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\PrinterProtocol2.pas',0,1,333,25,352,0,0
File_6=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\GS1Barcode.pas',0,1,369,1,332,0,0
File_7=SourceModule,'C:\projects\OPOSShtrih\Source\Shared\StringUtils.pas',0,1,103,1,122,0,0
File_0=SourceModule,'C:\projects\OPOSShtrih\Source\SmFptrSrv\Units\oleMain.pas',0,1,1,1,1,0,0
File_1=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterImpl.pas',0,1,15,46,26,0,0
File_2=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\CorrectionReceipt.pas',0,1,1,1,1,0,0
File_3=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\DirectIOAPI.pas',0,1,1,1,1,0,0
File_4=SourceModule,'C:\projects\OPOSShtrih\Source\OposTest\Units\PrinterTest.pas',0,1,4663,3,4678,0,0
File_5=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\CorrectionReceipt2.pas',0,1,70,13,119,0,0
File_6=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\FiscalPrinterDevice.pas',0,1,4038,1,4044,0,0
File_7=SourceModule,'C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\EscPrinter.pas',0,1,285,33,298,0,0
File_8=SourceModule,'C:\projects\OPOSShtrih\Source\Shared\DIOHandler.pas',0,1,97,15,108,0,0
File_9=SourceModule,'C:\projects\OPOSShtrih\Source\SmScale\Units\CommandDef.pas',0,1,135,16,145,0,0
[Modules]
Module0=C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\DirectIOAPI.pas
Module1=C:\projects\OPOSShtrih\Source\OposTest\Units\PrinterTest.pas
Module2=C:\projects\OPOSShtrih\Source\Opos\OposFptr.pas
Count=3
EditWindowCount=1
Count=0
EditWindowCount=0
TypeLibWindowCount=3
[C:\projects\OPOSShtrih\Source\SmFiscalPrinter\Units\DirectIOAPI.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\OposTest\Units\PrinterTest.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\Opos\OposFptr.pas]
ModuleType=SourceModule
FormState=0
FormOnTop=0
[C:\projects\OPOSShtrih\Source\OposShtrih.bpg]