Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adapta para que se puedan imprimir facturas con formato bcoaching

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@327 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2010-03-22 12:14:47 +00:00
parent 773bb811d3
commit fde328f775
17 changed files with 260 additions and 154 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Base/GUIBase/uViewGrid.dfm
View File

@ -61,8 +61,15 @@ inherited frViewGrid: TfrViewGrid
Width = 554
Height = 102
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitWidth = 554
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 554
@ -107,6 +114,7 @@ inherited frViewGrid: TfrViewGrid
SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 2
Visible = False
ExplicitWidth = 128
object TBXAlignmentPanel1: TTBXAlignmentPanel
Left = 0
Top = 0
@ -154,7 +162,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39738.576001226850000000
ReportDocument.CreationDate = 40259.515870208340000000
StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True

2
Source/Base/GUIBase/uViewGrid.pas
View File

@ -21,7 +21,7 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPrnDlg,
cxIntlPrintSys3, dxPSPrvwAdv, uViewGridBase, cxGridCustomPopupMenu,
cxGridPopupMenu, uViewFiltroBase, ComCtrls, cxPC, ImgList, PngImageList,
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg;
TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, uCustomView;
type
IViewGrid = interface(IViewGridBase)

0
Source/Informes/InfFacturaCliente.fr3 → Source/Informes/InfFacturaClienteTipo1.fr3
View File

71
Source/Informes/InfFacturaClienteTipo2.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

3
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1141,7 +1141,6 @@ procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllIt
var
AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList;
begin
AReportController := TFacturasClienteReportController.Create;
try
@ -1164,7 +1163,7 @@ begin
else
ID_Facturas.Add(AFactura.ID);
AReportController.Preview(ID_Facturas);
AReportController.Preview(ID_Facturas);
finally
AReportController := NIL;
FreeANDNIL(ID_Facturas)

1
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -88,6 +88,7 @@ procedure TFacturasClienteReportController.Preview(
var
AStream: Binary;
AEditor : IEditorFacturasClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;

20
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -47,8 +47,8 @@ implementation
{$R *.DFM}
uses
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
schFacturasClienteClient_Intf, uBizContactos;
Forms, Windows, FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
uDAInterfaces, schFacturasClienteClient_Intf, uBizContactos;
{ TdmPresupuestos }
@ -75,11 +75,17 @@ function TDataModuleFacturasCliente.GetRptPDFFacturas(
const AID: Integer; const ShowLogotipo: Boolean = False): Binary;
var
AParam : TIntegerArray;
Tipo: Integer;
begin
//Si dice que no se imprimirá la factura como becoaching
Tipo := 1;
if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then
Tipo := 2;
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo)
Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam, ShowLogotipo, Tipo)
finally
FreeANDNIL(AParam)
end;
@ -89,10 +95,16 @@ function TDataModuleFacturasCliente.GetRptFacturas(
const AListaID: TIntegerList; const ShowLogotipo: Boolean = False): Binary;
var
AParam : TIntegerArray;
Tipo: Integer;
begin
//Si dice que no se imprimirá la factura como becoaching
Tipo := 1;
if (Application.MessageBox('¿Desea imprimir las facturas/abonos de cliente seleccionados, con el modelo por defecto?', 'Atención', MB_YESNO) = IDNO) then
Tipo := 2;
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo)
Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam, ShowLogotipo, Tipo)
finally
FreeANDNIL(AParam)
end;

24
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -1270,7 +1270,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 40092.714477893520000000
ReportOptions.LastChange = 40259.487696377310000000
ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13'
@ -1378,6 +1378,16 @@ object RptFacturasCliente: TRptFacturasCliente
' Memo15.Lines.Add('#39'FACTURA'#39')'
'end;'
''
'procedure Memo20OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
' begin'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;'
''
'end;'
''
'procedure Memo11OnBeforePrint(Sender: TfrxComponent);'
'var'
' Cadena : String;'
@ -1408,7 +1418,7 @@ object RptFacturasCliente: TRptFacturasCliente
''
'procedure Picture1OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if <ShowLogotipo> then'
'{ if <ShowLogotipo> then'
' begin '
' Picture1.Visible := True; '
' Picture2.Visible := True; '
@ -1434,15 +1444,7 @@ object RptFacturasCliente: TRptFacturasCliente
' Memo14.Visible := False; ' +
' '
' end'
'end;'
''
'procedure Memo21OnBeforePrint(Sender: TfrxComponent);'
'begin'
' if (StrToFloat(<frxDBCabecera."RE">) = 0) then'
' begin'
' Memo21.Lines.Clear;'
' Memo29.Lines.Clear;'
' end;'
'} '
'end;'
''
'begin'

30
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -38,12 +38,12 @@ type
FConnection: IDAConnection;
FShowLogotipo: Boolean;
//Genera cada uno de los albaranes a imprimir
procedure _GenerarFactura(const ID: Integer);
procedure _GenerarFactura(const ID: Integer; const Tipo: Integer);
public
function GenerarFactura(const ListaID : TIntegerArray;
const AConLogotipo: Boolean = False): Binary;
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray;
const AConLogotipo: Boolean = False): Binary;
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
end;
implementation
@ -54,7 +54,8 @@ uses
uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
const
rptFacturaCliente = 'InfFacturaCliente.fr3';
rptFacturaClienteTipo1 = 'InfFacturaClienteTipo1.fr3';
rptFacturaClienteTipo2 = 'InfFacturaClienteTipo2.fr3';
{ Dataset names for schReport }
ds_InformeFacturasCliente = 'InformeFacturasCliente';
@ -70,7 +71,7 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
FShowLogotipo := False;
frxReport.EngineOptions.NewSilentMode := simReThrow;
frxReport.EngineOptions.NewSilentMode := simReThrow;
end;
{function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary;
@ -97,7 +98,7 @@ begin
end;
end;}
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer);
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer; const Tipo: Integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
@ -124,8 +125,11 @@ begin
DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE);
if (Tipo = 1) then
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo1, True)
else
frxReport.LoadFromFile(DarRutaInformes + rptFacturaClienteTipo2, True);
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False);
finally
@ -143,8 +147,8 @@ begin
Value := FShowLogotipo;
end;
function TRptFacturasCliente.GenerarFactura(
const ListaID: TIntegerArray; const AConLogotipo: Boolean = False): Binary;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray;
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
var
i: Integer;
begin
@ -153,15 +157,15 @@ begin
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]);
_GenerarFactura(ListaID.Items[i], Tipo);
frxReport.PreviewPages.SaveToStream(Result);
finally
end;
end;
function TRptFacturasCliente.GenerarFacturaEnPDF(
const ListaID: TIntegerArray; const AConLogotipo: Boolean = False): Binary;
function TRptFacturasCliente.GenerarFacturaEnPDF(const ListaID: TIntegerArray;
const AConLogotipo: Boolean = False; const Tipo: Integer=1): Binary;
var
i: Integer;
begin
@ -170,7 +174,7 @@ begin
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]);
_GenerarFactura(ListaID.Items[i], Tipo);
frxPDFExport1.Stream := Result;
frxReport.Export(frxPDFExport1)

14
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -36,8 +36,8 @@ type
protected
{ IsrvFacturasCliente methods }
function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
end;
implementation
@ -79,27 +79,25 @@ begin
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
end;
function TsrvFacturasCliente.GenerarInforme(
const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo);
Result := AReportGenerator.GenerarFactura(ListaID, ShowLogotipo, Tipo);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray;
const ShowLogotipo: Boolean): Binary;
function TsrvFacturasCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
var
AReportGenerator : TRptFacturasCliente;
begin
AReportGenerator := TRptFacturasCliente.Create(nil);
try
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo);
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID, ShowLogotipo, Tipo);
finally
FreeAndNIL(AReportGenerator);
end;

5
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -276,6 +276,7 @@ var
Respuesta : Integer;
AFacturas: IBizFacturaCliente;
AllItems: Boolean;
begin
AFacturas := Nil;
AllItems := False;
@ -293,7 +294,7 @@ begin
begin
case JsImprimirDialog.CustomButtonResult of
200 : begin // Lista de elementos visibles
inherited;
inherited
end;
100 : begin // Elemento Seleccionado
if AllItems then
@ -394,7 +395,7 @@ begin
begin
case JsPrevisualizarDialog.CustomButtonResult of
200 : begin // Lista de elementos visibles
inherited;
inherited
end;
100 : begin // Elemento Seleccionado
if AllItems then

2
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -13,7 +13,7 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizFacturasCliente, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg;
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uCustomView, uViewBase;
type
IViewFacturasCliente = interface(IViewGrid)

4
Source/Servicios/FactuGES.RODL
View File

@ -134,6 +134,8 @@
</Parameter>
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="Tipo" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEnPDF" UID="{D2C4E6D0-9D90-4C35-9C92-B9139493B849}">
@ -144,6 +146,8 @@
</Parameter>
<Parameter Name="ShowLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="Tipo" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>

14
Source/Servicios/FactuGES_Intf.pas
View File

@ -264,8 +264,8 @@ type
IsrvFacturasCliente = interface(IDARemoteService)
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
end;
{ CosrvFacturasCliente }
@ -279,8 +279,8 @@ type
function __GetInterfaceName:string; override;
function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
end;
{ IsrvPedidosProveedor }
@ -1350,7 +1350,7 @@ begin
end
end;
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
var
__request, __response : TMemoryStream;
begin
@ -1362,6 +1362,7 @@ begin
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Write('Tipo', TypeInfo(Integer), Tipo, []);
__Message.Finalize;
__Message.WriteToStream(__request);
@ -1375,7 +1376,7 @@ begin
end
end;
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary;
function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary;
var
__request, __response : TMemoryStream;
begin
@ -1387,6 +1388,7 @@ begin
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Write('Tipo', TypeInfo(Integer), Tipo, []);
__Message.Finalize;
__Message.WriteToStream(__request);

12
Source/Servicios/FactuGES_Invk.pas
View File

@ -485,10 +485,11 @@ begin
end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
ShowLogotipo: Boolean;
Tipo: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -497,8 +498,9 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Read('Tipo', TypeInfo(Integer), Tipo, []);
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo);
lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID, ShowLogotipo, Tipo);
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -516,10 +518,11 @@ begin
end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean): Binary; }
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const ShowLogotipo: Boolean; const Tipo: Integer): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
ShowLogotipo: Boolean;
Tipo: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -528,8 +531,9 @@ begin
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('ShowLogotipo', TypeInfo(Boolean), ShowLogotipo, []);
__Message.Read('Tipo', TypeInfo(Integer), Tipo, []);
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo);
lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID, ShowLogotipo, Tipo);
__Message.Initialize(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

202
Source/Servidor/FactuGES_Server.drc
View File

@ -912,12 +912,12 @@
#define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
#define IdResourceStrings_RSStatusResolving 65183
#define uRODECConst_sFMT_HEXL 65184
#define uRODECConst_sFMT_MIME64 65185
#define uRODECConst_sFMT_UU 65186
#define uRODECConst_sFMT_XX 65187
#define uRODECConst_sInvalidKeySize 65188
#define uRODECConst_sNotInitialized 65189
#define uRORes_err_InvalidVarArrayDimCount 65184
#define uRORes_err_MessageNotAssigned 65185
#define ComConst_SOleError 65186
#define ComConst_SNoMethod 65187
#define ComConst_SVarNotObject 65188
#define ComConst_STooManyParams 65189
#define IdResourceStrings_RSCannotAllocateSocket 65190
#define IdResourceStrings_RSConnectionClosedGracefully 65191
#define IdResourceStrings_RSCouldNotBindSocket 65192
@ -928,70 +928,70 @@
#define IdResourceStrings_RSThreadClassNotSpecified 65197
#define IdResourceStrings_RSFileNotFound 65198
#define IdResourceStrings_RSOnlyOneAntiFreeze 65199
#define uRORes_err_NoXMLParsersAvailable 65200
#define uRORes_err_IDispatchMarshalingNotSupported 65201
#define uRORes_err_UnsupportedVariantType 65202
#define uRORes_err_VariantIsNotArray 65203
#define uRORes_err_InvalidVarArrayDimCount 65204
#define uRORes_err_MessageNotAssigned 65205
#define ComConst_SOleError 65206
#define ComConst_SNoMethod 65207
#define ComConst_SVarNotObject 65208
#define ComConst_STooManyParams 65209
#define uRODECConst_sProtectionCircular 65210
#define uRODECConst_sStringFormatExists 65211
#define uRODECConst_sInvalidStringFormat 65212
#define uRODECConst_sInvalidFormatString 65213
#define uRODECConst_sFMT_COPY 65214
#define uRODECConst_sFMT_HEX 65215
#define uRORes_err_UnknownProxyInterface 65216
#define uRORes_err_DispatcherAlreadyAssigned 65217
#define uRORes_err_CannotFindMessageDispatcher 65218
#define uRORes_err_ServerOnlySupportsOneDispatcher 65219
#define uRORes_err_UnhandledException 65220
#define uRORes_err_ChannelBusy 65221
#define uRORes_err_ArrayIndexOutOfBounds 65222
#define uRORes_err_InvalidHeader 65223
#define uRORes_err_UnknownClassInStream 65224
#define uRORes_err_UnexpectedClassInStream 65225
#define uRORes_err_SessionNotFound 65226
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
#define uRORes_err_TooManySessions 65228
#define uRORes_err_DOMElementIsNIL 65229
#define uRORes_err_CannotLoadXMLDocument 65230
#define uRORes_err_ErrorCreatingMsXmlDoc 65231
#define uRORes_err_RodlInvalidDataType 65232
#define uRORes_err_RodlStructCannotBeNested 65233
#define uRORes_err_RodlInvalidAncestorType 65234
#define uRORes_str_ExceptionOnServer 65235
#define uRORes_str_ExceptionReraisedFromServer 65236
#define uRORes_err_AssignError 65237
#define uRORes_err_InvalidRequestStream 65238
#define uRORes_err_NILMessage 65239
#define uRORes_err_UnspecifiedInterface 65240
#define uRORes_err_UnspecifiedMessage 65241
#define uRORes_err_UnknownMethod 65242
#define uRORes_err_ClassFactoryDidNotReturnInstance 65243
#define uRORes_err_TypeNotSupported 65244
#define uRORes_err_ClassFactoryNotFound 65245
#define uRORes_err_IROMessageNotSupported 65246
#define uRORes_err_ClassAlreadyRegistered 65247
#define uRORes_err_UnhandledException 65200
#define uRORes_err_ChannelBusy 65201
#define uRORes_err_ArrayIndexOutOfBounds 65202
#define uRORes_err_InvalidHeader 65203
#define uRORes_err_UnknownClassInStream 65204
#define uRORes_err_UnexpectedClassInStream 65205
#define uRORes_err_SessionNotFound 65206
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207
#define uRORes_err_TooManySessions 65208
#define uRORes_err_DOMElementIsNIL 65209
#define uRORes_err_CannotLoadXMLDocument 65210
#define uRORes_err_ErrorCreatingMsXmlDoc 65211
#define uRORes_err_NoXMLParsersAvailable 65212
#define uRORes_err_IDispatchMarshalingNotSupported 65213
#define uRORes_err_UnsupportedVariantType 65214
#define uRORes_err_VariantIsNotArray 65215
#define uRORes_str_ExceptionReraisedFromServer 65216
#define uRORes_err_AssignError 65217
#define uRORes_err_InvalidRequestStream 65218
#define uRORes_err_NILMessage 65219
#define uRORes_err_UnspecifiedInterface 65220
#define uRORes_err_UnspecifiedMessage 65221
#define uRORes_err_UnknownMethod 65222
#define uRORes_err_ClassFactoryDidNotReturnInstance 65223
#define uRORes_err_TypeNotSupported 65224
#define uRORes_err_ClassFactoryNotFound 65225
#define uRORes_err_IROMessageNotSupported 65226
#define uRORes_err_ClassAlreadyRegistered 65227
#define uRORes_err_UnknownProxyInterface 65228
#define uRORes_err_DispatcherAlreadyAssigned 65229
#define uRORes_err_CannotFindMessageDispatcher 65230
#define uRORes_err_ServerOnlySupportsOneDispatcher 65231
#define uRORes_err_InvalidType 65232
#define uRORes_err_InvalidStream 65233
#define uRORes_err_InvalidParamFlag 65234
#define uRORes_err_InvalidStringLength 65235
#define uRORes_str_InvalidClassTypeInStream 65236
#define uRORes_err_UnexpectedEndOfStream 65237
#define uRORes_err_RodlDuplicateName 65238
#define uRORes_err_RodlNoDataTypeSpecified 65239
#define uRORes_err_RodlNoEnumValues 65240
#define uRORes_err_RodlNoStructElementsDefined 65241
#define uRORes_err_RodlNoOperationsDefined 65242
#define uRORes_err_RodlUsedFileDoesNotExist 65243
#define uRORes_err_RodlInvalidDataType 65244
#define uRORes_err_RodlStructCannotBeNested 65245
#define uRORes_err_RodlInvalidAncestorType 65246
#define uRORes_str_ExceptionOnServer 65247
#define Consts_SUTF8Encoding 65248
#define Consts_SUTF7Encoding 65249
#define Consts_SPageControlNotSet 65250
#define uRORes_err_InvalidIndex 65251
#define uRORes_err_InvalidType 65252
#define uRORes_err_InvalidStream 65253
#define uRORes_err_InvalidParamFlag 65254
#define uRORes_err_InvalidStringLength 65255
#define uRORes_str_InvalidClassTypeInStream 65256
#define uRORes_err_UnexpectedEndOfStream 65257
#define uRORes_err_RodlDuplicateName 65258
#define uRORes_err_RodlNoDataTypeSpecified 65259
#define uRORes_err_RodlNoEnumValues 65260
#define uRORes_err_RodlNoStructElementsDefined 65261
#define uRORes_err_RodlNoOperationsDefined 65262
#define uRORes_err_RodlUsedFileDoesNotExist 65263
#define uRODECConst_sProtectionCircular 65251
#define uRODECConst_sStringFormatExists 65252
#define uRODECConst_sInvalidStringFormat 65253
#define uRODECConst_sInvalidFormatString 65254
#define uRODECConst_sFMT_COPY 65255
#define uRODECConst_sFMT_HEX 65256
#define uRODECConst_sFMT_HEXL 65257
#define uRODECConst_sFMT_MIME64 65258
#define uRODECConst_sFMT_UU 65259
#define uRODECConst_sFMT_XX 65260
#define uRODECConst_sInvalidKeySize 65261
#define uRODECConst_sNotInitialized 65262
#define uRORes_err_InvalidIndex 65263
#define Consts_SPictureLabel 65264
#define Consts_SPictureDesc 65265
#define Consts_SPreviewLabel 65266
@ -2170,12 +2170,12 @@ BEGIN
IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty"
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
@ -2186,26 +2186,6 @@ BEGIN
IdResourceStrings_RSThreadClassNotSpecified, "Thread Class Not Specified."
IdResourceStrings_RSFileNotFound, "File \"%s\" not found"
IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application."
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
@ -2218,10 +2198,10 @@ BEGIN
uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
@ -2234,10 +2214,10 @@ BEGIN
uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found"
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
@ -2250,6 +2230,26 @@ BEGIN
uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements."
uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements."
uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found."
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidIndex, "Invalid index %d"
Consts_SPictureLabel, "Picture:"
Consts_SPictureDesc, " (%dx%d)"
Consts_SPreviewLabel, "Preview"