Primera subida de control de impresión para todos los documentos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@268 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Source/Base/Base.bdsproj

@@ -170,7 +170,8 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-		</VersionInfoKeys>  <Excluded_Packages>
+		</VersionInfoKeys>  
+    <Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxComnD10.bpl">ExpressCommonLibrary by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxEditorsD10.bpl">ExpressEditors Library 5 by Developer Express Inc.</Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\cxDataD10.bpl">ExpressDataController by Developer Express Inc.</Excluded_Packages>

Source/Base/Base.dpk

@@ -78,7 +78,8 @@ requires
   jsDialog100,
   indy,
   JvDlgsD10R,
-  JvNetD10R;
+  JvNetD10R,
+  dxGDIPlusD10;
 
 contains
   uDataTableUtils in 'Utiles\uDataTableUtils.pas',
@@ -101,6 +102,7 @@ contains
   uPasswordUtils in 'Utiles\uPasswordUtils.pas',
   uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
   uInformeRegistryUtils in 'ClassRegistry\uInformeRegistryUtils.pas',
-  uStringsUtils in 'Utiles\uStringsUtils.pas';
+  uStringsUtils in 'Utiles\uStringsUtils.pas',
+  uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {dmImpresiones: TDataModule};
 
 end.

Source/Base/GUIBase/uEditorPreview.dfm

@@ -5,17 +5,15 @@ inherited fEditorPreview: TfEditorPreview
   WindowState = wsMaximized
   OnDestroy = FormDestroy
   OnResize = FormResize
-  ExplicitWidth = 658
+  ExplicitWidth = 803
-  ExplicitHeight = 492
+  ExplicitHeight = 485
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
     Top = 75
     Visible = False
     ExplicitTop = 75
-    ExplicitWidth = 650
     inherited Image1: TImage
-      Left = 623
       ExplicitLeft = 623
     end
   end
@@ -27,7 +25,7 @@ inherited fEditorPreview: TfEditorPreview
       DefaultDock = TBXDock
       Visible = False
       ExplicitTop = 49
-      ExplicitWidth = 242
+      ExplicitWidth = 248
     end
     inherited tbxMenu: TTBXToolbar
       DockPos = -24
@@ -175,8 +173,6 @@ inherited fEditorPreview: TfEditorPreview
       item
         Width = 50
       end>
-    ExplicitTop = 439
-    ExplicitWidth = 650
   end
   inherited EditorActionList: TActionList
     Top = 104
@@ -847,13 +843,14 @@ inherited fEditorPreview: TfEditorPreview
     Bitmap = {}
   end
   object frxReport1: TfrxReport
-    Version = '3.23.7'
+    Version = '4.3'
     DotMatrixReport = False
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
     PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
+    PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 38658.858023541660000000
     ReportOptions.LastChange = 38658.858023541660000000
     ScriptLanguage = 'PascalScript'
@@ -864,9 +861,6 @@ inherited fEditorPreview: TfEditorPreview
     StoreInDFM = False
     Left = 16
     Top = 200
-    Datasets = <>
-    Variables = <>
-    Style = <>
   end
   object frxBarCodeObject1: TfrxBarCodeObject
     Left = 16

Source/Base/GUIBase/uEditorPreview.pas

@@ -21,6 +21,13 @@ type
     function ExportToFile : String;
     procedure Print;
     procedure Preview;
+
+    function GetTablaImpresion: String;
+    function GetIdTablaImpresion: String;
+    procedure SetTablaImpresion (Value: String);
+    procedure SetIdTablaImpresion (Value: String);
+    property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
+    property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
   end;
 
   TfEditorPreview = class(TfEditorBase, IEditorPreview)
@@ -102,9 +109,21 @@ type
     FPreview : TfrViewPreview;
     procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
     procedure UpdateZoom;
+    procedure OnPrint(Sender: Tobject);
+
   protected
+    FTablaImpresion: String;
+    FIdTablaImpresion: String;
+    function GetTablaImpresion: String;
+    function GetIdTablaImpresion: String;
+    procedure SetTablaImpresion (Value: String);
+    procedure SetIdTablaImpresion (Value: String);
+
     function GetReport: TfrxReport; virtual;
   public
+    property TablaImpresion: String read GetTablaImpresion write SetTablaImpresion;
+    property IdTablaImpresion: String read GetIdTablaImpresion write SetIdTablaImpresion;
+
     constructor Create(AOwner: TComponent); override;
     property Report: TfrxReport read GetReport;
     procedure Print;
@@ -118,18 +137,28 @@ implementation
 
 uses
   frxRes, frxUtils, frxPrinter, 
-  uCustomEditor, uSistemaFunc;
+  uCustomEditor, uSistemaFunc, uDataModuleImpresiones;
 
 {$R *.dfm}
 
 { TfEditorBase1 }
 
+function TfEditorPreview.GetIdTablaImpresion: String;
+begin
+  Result := FIdTablaImpresion;
+end;
+
 function TfEditorPreview.GetReport: TfrxReport;
 begin
   Result := frxReport1;
 end;
 
 
+function TfEditorPreview.GetTablaImpresion: String;
+begin
+  Result := FTablaImpresion;
+end;
+
 procedure TfEditorPreview.FormShow(Sender: TObject);
 begin
   inherited;
@@ -284,6 +313,11 @@ begin
     [PageNo, Sender.PageCount]);
 end;
 
+procedure TfEditorPreview.OnPrint(Sender: Tobject);
+begin
+  dmImpresiones.AnadirMarcaImpresion(TablaImpresion, IdTablaImpresion);
+end;
+
 constructor TfEditorPreview.Create(AOwner: TComponent);
 begin
   inherited;
@@ -304,6 +338,8 @@ begin
   FPreview := TfrViewPreview.Create(Self);
   Report.Preview := FPreview.Preview;
   FPreview.Preview.OnPageChanged := OnPageChanged;
+  FTablaImpresion := '-1';
+  FIdTablaImpresion := '-1';
 end;
 
 procedure TfEditorPreview.Preview;
@@ -313,6 +349,8 @@ end;
 
 procedure TfEditorPreview.Print;
 begin
+  FPreview.Preview.Report.OnPrintReport := onprint;
+
   if not frxPrinters.HasPhysicalPrinters then
     frxErrorMsg(frxResources.Get('clNoPrinters'))
   else
@@ -320,6 +358,16 @@ begin
   Enabled := True;
 end;
 
+procedure TfEditorPreview.SetIdTablaImpresion(Value: String);
+begin
+  FIdTablaImpresion := Value;
+end;
+
+procedure TfEditorPreview.SetTablaImpresion(Value: String);
+begin
+  FTablaImpresion := Value;
+end;
+
 function TfEditorPreview.ExportToFile: String;
 var
   AFile : String;

Source/Base/uDataModuleBase.pas

@@ -38,7 +38,8 @@ implementation
 
 uses
   uDataModuleConexion, Dialogs, TBX, TBXThemes, Forms, Windows,
-  JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion;
+  JclFileUtils, cxControls, SysUtils, uDataModuleConfiguracion,
+  uDataModuleImpresiones;
 
 {
 *********************************** TdmBase ************************************
@@ -47,6 +48,7 @@ procedure TdmBase.DAClientDataModuleCreate(Sender: TObject);
 begin
   dmConexion := TdmConexion.Create(NIL);
   dmConfiguracion := TdmConfiguracion.Create(NIL);
+  dmImpresiones := TDataModuleImpresiones.Create(NIL);  
 
   TBXSwitcher.OnThemeChange := OnTBXThemeChange;
   TBXSetTheme('Office2003');
@@ -114,6 +116,7 @@ procedure TdmBase.DataModuleDestroy(Sender: TObject);
 begin
   FreeANDNIL(dmConfiguracion);
   FreeAndNil(dmConexion);
+  FreeAndNil(dmImpresiones);  
 end;
 
 initialization

Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.bdsproj

@@ -172,7 +172,7 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>
 	</Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas

@@ -32,7 +32,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorFacturasClientePreview,
-  uEditorPreview, uDataModuleFacturasCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleFacturasCliente, uEditorBase, cxControls,
+  schFacturasClienteClient_Intf;
 
 { TFacturasClienteReportController }
 
@@ -99,7 +100,11 @@ begin
   end;
 
   if Assigned(AEditor) then
-    AEditor.Print
+  begin
+    AEditor.TablaImpresion := nme_FacturasCliente;
+    AEditor.IdTablaImpresion := AFacturaID;
+    AEditor.Print;
+  end;
 end;
 
 end.

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -455,6 +455,17 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'NUM_COPIAS'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'FECHA_VENCIMIENTO'
         DataType = datDateTime
@@ -858,7 +869,7 @@ object DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'User'
         ParamType = fIn
         DataType = rtString
-        Value = 'Administrador'
+        Value = 'Luis'
       end
       item
         Name = 'Password'

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -9,11 +9,11 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_DarReferencia = '{19462EB6-165A-476C-9823-5B2B47A082F8}';
+  RID_DarReferencia = '{EA572FA1-0901-4EF3-938E-2362AC640EB4}';
-  RID_FacturasCliente = '{8DDD5076-A7FE-4649-BD84-36A382C2DB9F}';
+  RID_FacturasCliente = '{29F1AA5F-3116-4524-9211-1FBD4E374821}';
-  RID_FacturasCliente_Detalles = '{C3991952-23C1-47BE-9530-07D295DBFF68}';
+  RID_FacturasCliente_Detalles = '{800AB71B-4277-426A-9227-90DEB5691D1B}';
-  RID_FacturasCliente_Detalles_Refresh = '{B6449FD9-7ECA-4803-88B5-43887E1AE8F9}';
+  RID_FacturasCliente_Detalles_Refresh = '{86962468-04E7-46A8-9092-2CB67A9C8386}';
-  RID_FacturasCliente_Refresh = '{88BDA112-E109-4894-A64B-83C094E54A14}';
+  RID_FacturasCliente_Refresh = '{5867B671-2351-490B-9C7F-8FD8FF52F453}';
 
   { Data table names }
   nme_DarReferencia = 'DarReferencia';
@@ -62,6 +62,7 @@ const
   fld_FacturasClienteID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
   fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
   fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
+  fld_FacturasClienteNUM_COPIAS = 'NUM_COPIAS';
   fld_FacturasClienteFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
 
   { FacturasCliente field indexes }
@@ -98,7 +99,8 @@ const
   idx_FacturasClienteID_COMISION_LIQUIDADA = 30;
   idx_FacturasClienteREFERENCIA_COMISION = 31;
   idx_FacturasClienteID_AGENTE = 32;
-  idx_FacturasClienteFECHA_VENCIMIENTO = 33;
+  idx_FacturasClienteNUM_COPIAS = 33;
+  idx_FacturasClienteFECHA_VENCIMIENTO = 34;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -198,6 +200,7 @@ const
   fld_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA';
   fld_FacturasCliente_RefreshREFERENCIA_COMISION = 'REFERENCIA_COMISION';
   fld_FacturasCliente_RefreshID_AGENTE = 'ID_AGENTE';
+  fld_FacturasCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
   fld_FacturasCliente_RefreshFECHA_VENCIMIENTO = 'FECHA_VENCIMIENTO';
 
   { FacturasCliente_Refresh field indexes }
@@ -234,12 +237,13 @@ const
   idx_FacturasCliente_RefreshID_COMISION_LIQUIDADA = 30;
   idx_FacturasCliente_RefreshREFERENCIA_COMISION = 31;
   idx_FacturasCliente_RefreshID_AGENTE = 32;
-  idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 33;
+  idx_FacturasCliente_RefreshNUM_COPIAS = 33;
+  idx_FacturasCliente_RefreshFECHA_VENCIMIENTO = 34;
 
 type
   { IDarReferencia }
   IDarReferencia = interface(IDAStronglyTypedDataTable)
-  ['{4A9A147C-F0D4-4D12-A078-E1628935D51C}']
+  ['{3256D6AA-181E-4AA4-8C6B-80AB1640194C}']
     { Property getters and setters }
     function GetVALORValue: String;
     procedure SetVALORValue(const aValue: String);
@@ -268,7 +272,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{97F07602-AA17-43F5-B602-DF2652E5E44D}']
+  ['{1E620AC4-0A78-4423-B993-C73C1C37956E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -336,6 +340,8 @@ type
     procedure SetREFERENCIA_COMISIONValue(const aValue: String);
     function GetID_AGENTEValue: Integer;
     procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetFECHA_VENCIMIENTOValue: DateTime;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
 
@@ -374,6 +380,7 @@ type
     property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
   end;
 
@@ -448,6 +455,8 @@ type
     procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
     function GetID_AGENTEValue: Integer; virtual;
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
 
@@ -485,6 +494,7 @@ type
     property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
 
   public
@@ -495,7 +505,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{D4170DB7-FDD7-4E30-B782-BD714997C91F}']
+  ['{719659FD-6739-411F-A273-E73CE5721675}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -602,7 +612,7 @@ type
 
   { IFacturasCliente_Detalles_Refresh }
   IFacturasCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{6DE35809-3133-4554-9B41-CFD14D4D76E4}']
+  ['{927E98B8-EC45-41CF-A4D0-33B5B3F70DD9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -709,7 +719,7 @@ type
 
   { IFacturasCliente_Refresh }
   IFacturasCliente_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{9012F341-ADE0-4953-B0D9-6D9F2C1AD246}']
+  ['{7034A9EF-11B0-479C-810E-4635F48B903D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -777,6 +787,8 @@ type
     procedure SetREFERENCIA_COMISIONValue(const aValue: String);
     function GetID_AGENTEValue: Integer;
     procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
     function GetFECHA_VENCIMIENTOValue: DateTime;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime);
 
@@ -815,6 +827,7 @@ type
     property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
   end;
 
@@ -889,6 +902,8 @@ type
     procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
     function GetID_AGENTEValue: Integer; virtual;
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
 
@@ -926,6 +941,7 @@ type
     property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
     property FECHA_VENCIMIENTO: DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
 
   public
@@ -1302,6 +1318,16 @@ begin
   DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger := aValue;
 end;
 
+function TFacturasClienteDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasClienteNUM_COPIAS].AsInteger;
+end;
+
+procedure TFacturasClienteDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasClienteNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TFacturasClienteDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := DataTable.Fields[idx_FacturasClienteFECHA_VENCIMIENTO].AsDateTime;
@@ -1959,6 +1985,16 @@ begin
   DataTable.Fields[idx_FacturasCliente_RefreshID_AGENTE].AsInteger := aValue;
 end;
 
+function TFacturasCliente_RefreshDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasCliente_RefreshNUM_COPIAS].AsInteger;
+end;
+
+procedure TFacturasCliente_RefreshDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasCliente_RefreshNUM_COPIAS].AsInteger := aValue;
+end;
+
 function TFacturasCliente_RefreshDataTableRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := DataTable.Fields[idx_FacturasCliente_RefreshFECHA_VENCIMIENTO].AsDateTime;

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas

@@ -9,16 +9,16 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_DarReferenciaDelta = '{2A3A12E9-C827-4E8E-87F4-66663046BCB0}';
+  RID_DarReferenciaDelta = '{EC8CF18D-9B28-4048-A90B-24F954D0DC5B}';
-  RID_FacturasClienteDelta = '{EE0C8D6B-09A1-49BA-995E-D5813C219BC6}';
+  RID_FacturasClienteDelta = '{9DFFB51A-DD80-4EBA-B1A7-CFDE7A089FA6}';
-  RID_FacturasCliente_DetallesDelta = '{E103EFA3-3E5A-4A51-BEA4-A455639671F8}';
+  RID_FacturasCliente_DetallesDelta = '{E2C9BB04-8C40-4E2C-991D-FE75784D4208}';
-  RID_FacturasCliente_Detalles_RefreshDelta = '{59F4EB01-2245-46B8-B145-7B5B5559CFF0}';
+  RID_FacturasCliente_Detalles_RefreshDelta = '{F1B97398-D0F8-40DC-8088-94984892518A}';
-  RID_FacturasCliente_RefreshDelta = '{90BC3A87-5CD3-4430-9FE9-342CB1C9B5C7}';
+  RID_FacturasCliente_RefreshDelta = '{75588952-1574-4345-9658-DB10B41E1C75}';
 
 type
   { IDarReferenciaDelta }
   IDarReferenciaDelta = interface(IDarReferencia)
-  ['{2A3A12E9-C827-4E8E-87F4-66663046BCB0}']
+  ['{EC8CF18D-9B28-4048-A90B-24F954D0DC5B}']
     { Property getters and setters }
     function GetOldVALORValue : String;
 
@@ -47,7 +47,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{EE0C8D6B-09A1-49BA-995E-D5813C219BC6}']
+  ['{9DFFB51A-DD80-4EBA-B1A7-CFDE7A089FA6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -82,6 +82,7 @@ type
     function GetOldID_COMISION_LIQUIDADAValue : Integer;
     function GetOldREFERENCIA_COMISIONValue : String;
     function GetOldID_AGENTEValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
 
     { Properties }
@@ -118,6 +119,7 @@ type
     property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
   end;
 
@@ -225,6 +227,9 @@ type
     function GetID_AGENTEValue: Integer; virtual;
     function GetOldID_AGENTEValue: Integer; virtual;
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@@ -296,6 +301,8 @@ type
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
 
@@ -307,7 +314,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{E103EFA3-3E5A-4A51-BEA4-A455639671F8}']
+  ['{E2C9BB04-8C40-4E2C-991D-FE75784D4208}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -427,7 +434,7 @@ type
 
   { IFacturasCliente_Detalles_RefreshDelta }
   IFacturasCliente_Detalles_RefreshDelta = interface(IFacturasCliente_Detalles_Refresh)
-  ['{59F4EB01-2245-46B8-B145-7B5B5559CFF0}']
+  ['{F1B97398-D0F8-40DC-8088-94984892518A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -547,7 +554,7 @@ type
 
   { IFacturasCliente_RefreshDelta }
   IFacturasCliente_RefreshDelta = interface(IFacturasCliente_Refresh)
-  ['{90BC3A87-5CD3-4430-9FE9-342CB1C9B5C7}']
+  ['{75588952-1574-4345-9658-DB10B41E1C75}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -582,6 +589,7 @@ type
     function GetOldID_COMISION_LIQUIDADAValue : Integer;
     function GetOldREFERENCIA_COMISIONValue : String;
     function GetOldID_AGENTEValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
     function GetOldFECHA_VENCIMIENTOValue : DateTime;
 
     { Properties }
@@ -618,6 +626,7 @@ type
     property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue;
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
   end;
 
@@ -725,6 +734,9 @@ type
     function GetID_AGENTEValue: Integer; virtual;
     function GetOldID_AGENTEValue: Integer; virtual;
     procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
     function GetFECHA_VENCIMIENTOValue: DateTime; virtual;
     function GetOldFECHA_VENCIMIENTOValue: DateTime; virtual;
     procedure SetFECHA_VENCIMIENTOValue(const aValue: DateTime); virtual;
@@ -796,6 +808,8 @@ type
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
     property FECHA_VENCIMIENTO : DateTime read GetFECHA_VENCIMIENTOValue write SetFECHA_VENCIMIENTOValue;
     property OldFECHA_VENCIMIENTO : DateTime read GetOldFECHA_VENCIMIENTOValue;
 
@@ -1345,6 +1359,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := aValue;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNUM_COPIAS];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNUM_COPIAS];
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNUM_COPIAS] := aValue;
+end;
+
 function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO];
@@ -2313,6 +2342,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshID_AGENTE] := aValue;
 end;
 
+function TFacturasCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshNUM_COPIAS];
+end;
+
+function TFacturasCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_RefreshNUM_COPIAS];
+end;
+
+procedure TFacturasCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshNUM_COPIAS] := aValue;
+end;
+
 function TFacturasCliente_RefreshBusinessProcessorRules.GetFECHA_VENCIMIENTOValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_RefreshFECHA_VENCIMIENTO];

Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas

@@ -28,7 +28,6 @@ uses
   schFacturasClienteClient_Intf, uBusinessUtils, uReferenciasUtils, uROClasses;
 
 { TBizFacturasClienteServer }
-
 procedure TBizFacturasClienteServer.BeforeProcessChange(
   Sender: TDABusinessProcessor; aChangeType: TDAChangeType;
   aChange: TDADeltaChange; var ProcessChange: Boolean);

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm

@@ -1243,7 +1243,7 @@ object RptFacturasCliente: TRptFacturasCliente
     Top = 158
   end
   object frxReport: TfrxReport
-    Version = '3.23.7'
+    Version = '4.3'
     DotMatrixReport = False
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
@@ -1251,6 +1251,7 @@ object RptFacturasCliente: TRptFacturasCliente
     PreviewOptions.OutlineWidth = 180
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Default'
+    PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 37871.995398692100000000
     ReportOptions.LastChange = 39290.847101226850000000
     ReportOptions.VersionBuild = '1'
@@ -1406,70 +1407,6 @@ object RptFacturasCliente: TRptFacturasCliente
     OnStartReport = 'frxReportOnStartReport'
     Left = 169
     Top = 16
-    Datasets = <
-      item
-        DataSet = frxDBCabecera
-        DataSetName = 'frxDBCabecera'
-      end
-      item
-        DataSet = frxDBDetalles
-        DataSetName = 'frxDBDetalles'
-      end
-      item
-        DataSet = frxDBDataset1
-        DataSetName = 'frxDBVencimientos'
-      end>
-    Variables = <
-      item
-        Name = ' Paginacion'
-        Value = Null
-      end
-      item
-        Name = 'Pagina'
-        Value = Null
-      end
-      item
-        Name = 'TotalPaginas'
-        Value = Null
-      end>
-    Style = <
-      item
-        Name = 'Concepto normal'
-        Color = clNone
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Tahoma'
-        Font.Style = []
-      end
-      item
-        Name = 'Concepto subtotal'
-        Color = clNone
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-      end
-      item
-        Name = 'Cabecera de columna'
-        Color = 15790320
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-        Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
-      end
-      item
-        Name = 'Concepto titulo'
-        Color = clNone
-        Font.Charset = ANSI_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -13
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-      end>
   end
   object frxDBCabecera: TfrxDBDataset
     UserName = 'frxDBCabecera'

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas

@@ -45,7 +45,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uDataModuleServer, schFacturasClienteClient_Intf;
+  uDataModuleServer, schFacturasClienteClient_Intf, srvImpresiones_Impl;
 
 const
   rptFacturaCliente = 'InfFacturaCliente.fr3';
@@ -120,6 +120,13 @@ begin
     frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
     frxReport.PrepareReport(False);
 
+{    with TsrvImpresiones.Create(NIL) do
+      try
+        AnadirMarcaImpresion(nme_FacturasCliente, ID);
+      finally
+        Free;
+      end;
+}
   finally
     AStream.Free;
     dsMaster := Nil;

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -77,45 +77,9 @@ object srvFacturasCliente: TsrvFacturasCliente
               'GO_POSTAL, FECHA_ALTA, FECHA_MODIFICACION,'#10'    USUARIO, ID_FORMA' +
               '_PAGO, RECARGO_EQUIVALENCIA, ID_TIPO_IVA,'#10'    IMPORTE_NETO, IMPO' +
               'RTE_PORTE, ID_COMISION_LIQUIDADA, REFERENCIA_COMISION,'#10'    ID_AG' +
-              'ENTE'#10'  FROM'#10'    V_FACTURAS_CLIENTE'
+              'ENTE, NUM_COPIAS'#10'  FROM'#10'    V_FACTURAS_CLIENTE'
             StatementType = stSQL
             ColumnMappings = <
-              item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
-              end
-              item
-                DatasetField = 'DESCUENTO'
-                TableField = 'DESCUENTO'
-              end
-              item
-                DatasetField = 'IVA'
-                TableField = 'IVA'
-              end
-              item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
-              end
-              item
-                DatasetField = 'NOMBRE'
-                TableField = 'NOMBRE'
-              end
-              item
-                DatasetField = 'CALLE'
-                TableField = 'CALLE'
-              end
-              item
-                DatasetField = 'PROVINCIA'
-                TableField = 'PROVINCIA'
-              end
-              item
-                DatasetField = 'POBLACION'
-                TableField = 'POBLACION'
-              end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
@@ -124,6 +88,14 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'ID_EMPRESA'
                 TableField = 'ID_EMPRESA'
               end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -136,18 +108,38 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'BASE_IMPONIBLE'
                 TableField = 'BASE_IMPONIBLE'
               end
+              item
+                DatasetField = 'DESCUENTO'
+                TableField = 'DESCUENTO'
+              end
               item
                 DatasetField = 'IMPORTE_DESCUENTO'
                 TableField = 'IMPORTE_DESCUENTO'
               end
+              item
+                DatasetField = 'IVA'
+                TableField = 'IVA'
+              end
               item
                 DatasetField = 'IMPORTE_IVA'
                 TableField = 'IMPORTE_IVA'
               end
+              item
+                DatasetField = 'RE'
+                TableField = 'RE'
+              end
+              item
+                DatasetField = 'IMPORTE_RE'
+                TableField = 'IMPORTE_RE'
+              end
               item
                 DatasetField = 'IMPORTE_TOTAL'
                 TableField = 'IMPORTE_TOTAL'
               end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
+              end
               item
                 DatasetField = 'ID_CLIENTE'
                 TableField = 'ID_CLIENTE'
@@ -156,6 +148,22 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'NIF_CIF'
                 TableField = 'NIF_CIF'
               end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'CALLE'
+                TableField = 'CALLE'
+              end
+              item
+                DatasetField = 'POBLACION'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
+              end
               item
                 DatasetField = 'CODIGO_POSTAL'
                 TableField = 'CODIGO_POSTAL'
@@ -169,17 +177,21 @@ object srvFacturasCliente: TsrvFacturasCliente
                 TableField = 'FECHA_MODIFICACION'
               end
               item
-                DatasetField = 'RE'
+                DatasetField = 'USUARIO'
-                TableField = 'RE'
+                TableField = 'USUARIO'
-              end
-              item
-                DatasetField = 'IMPORTE_RE'
-                TableField = 'IMPORTE_RE'
               end
               item
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
               end
+              item
+                DatasetField = 'RECARGO_EQUIVALENCIA'
+                TableField = 'RECARGO_EQUIVALENCIA'
+              end
+              item
+                DatasetField = 'ID_TIPO_IVA'
+                TableField = 'ID_TIPO_IVA'
+              end
               item
                 DatasetField = 'IMPORTE_NETO'
                 TableField = 'IMPORTE_NETO'
@@ -188,14 +200,6 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'IMPORTE_PORTE'
                 TableField = 'IMPORTE_PORTE'
               end
-              item
-                DatasetField = 'ID_TIPO_IVA'
-                TableField = 'ID_TIPO_IVA'
-              end
-              item
-                DatasetField = 'RECARGO_EQUIVALENCIA'
-                TableField = 'RECARGO_EQUIVALENCIA'
-              end
               item
                 DatasetField = 'ID_COMISION_LIQUIDADA'
                 TableField = 'ID_COMISION_LIQUIDADA'
@@ -209,8 +213,8 @@ object srvFacturasCliente: TsrvFacturasCliente
                 TableField = 'ID_AGENTE'
               end
               item
-                DatasetField = 'TIPO'
+                DatasetField = 'NUM_COPIAS'
-                TableField = 'TIPO'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'FacturasCliente'
@@ -556,6 +560,17 @@ object srvFacturasCliente: TsrvFacturasCliente
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
@@ -1076,45 +1091,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               'DIGO_POSTAL, '#10'    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_FO' +
               'RMA_PAGO, '#10'    RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, ' +
               'IMPORTE_PORTE, ID_COMISION_LIQUIDADA,'#10'    REFERENCIA_COMISION, I' +
-              'D_AGENTE'#10'  FROM'#10'    V_FACTURAS_CLIENTE'#10'  WHERE ID = :ID'
+              'D_AGENTE, NUM_COPIAS'#10'  FROM'#10'    V_FACTURAS_CLIENTE'#10'  WHERE ID = ' +
+              ':ID'
             StatementType = stSQL
             ColumnMappings = <
-              item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
-              end
-              item
-                DatasetField = 'DESCUENTO'
-                TableField = 'DESCUENTO'
-              end
-              item
-                DatasetField = 'IVA'
-                TableField = 'IVA'
-              end
-              item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
-              end
-              item
-                DatasetField = 'NOMBRE'
-                TableField = 'NOMBRE'
-              end
-              item
-                DatasetField = 'CALLE'
-                TableField = 'CALLE'
-              end
-              item
-                DatasetField = 'PROVINCIA'
-                TableField = 'PROVINCIA'
-              end
-              item
-                DatasetField = 'POBLACION'
-                TableField = 'POBLACION'
-              end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
               item
                 DatasetField = 'ID'
                 TableField = 'ID'
@@ -1123,6 +1103,14 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'ID_EMPRESA'
                 TableField = 'ID_EMPRESA'
               end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
               item
                 DatasetField = 'FECHA_FACTURA'
                 TableField = 'FECHA_FACTURA'
@@ -1135,18 +1123,38 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'BASE_IMPONIBLE'
                 TableField = 'BASE_IMPONIBLE'
               end
+              item
+                DatasetField = 'DESCUENTO'
+                TableField = 'DESCUENTO'
+              end
               item
                 DatasetField = 'IMPORTE_DESCUENTO'
                 TableField = 'IMPORTE_DESCUENTO'
               end
+              item
+                DatasetField = 'IVA'
+                TableField = 'IVA'
+              end
               item
                 DatasetField = 'IMPORTE_IVA'
                 TableField = 'IMPORTE_IVA'
               end
+              item
+                DatasetField = 'RE'
+                TableField = 'RE'
+              end
+              item
+                DatasetField = 'IMPORTE_RE'
+                TableField = 'IMPORTE_RE'
+              end
               item
                 DatasetField = 'IMPORTE_TOTAL'
                 TableField = 'IMPORTE_TOTAL'
               end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
+              end
               item
                 DatasetField = 'ID_CLIENTE'
                 TableField = 'ID_CLIENTE'
@@ -1155,6 +1163,22 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'NIF_CIF'
                 TableField = 'NIF_CIF'
               end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'CALLE'
+                TableField = 'CALLE'
+              end
+              item
+                DatasetField = 'POBLACION'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
+              end
               item
                 DatasetField = 'CODIGO_POSTAL'
                 TableField = 'CODIGO_POSTAL'
@@ -1168,17 +1192,21 @@ object srvFacturasCliente: TsrvFacturasCliente
                 TableField = 'FECHA_MODIFICACION'
               end
               item
-                DatasetField = 'RE'
+                DatasetField = 'USUARIO'
-                TableField = 'RE'
+                TableField = 'USUARIO'
-              end
-              item
-                DatasetField = 'IMPORTE_RE'
-                TableField = 'IMPORTE_RE'
               end
               item
                 DatasetField = 'ID_FORMA_PAGO'
                 TableField = 'ID_FORMA_PAGO'
               end
+              item
+                DatasetField = 'RECARGO_EQUIVALENCIA'
+                TableField = 'RECARGO_EQUIVALENCIA'
+              end
+              item
+                DatasetField = 'ID_TIPO_IVA'
+                TableField = 'ID_TIPO_IVA'
+              end
               item
                 DatasetField = 'IMPORTE_NETO'
                 TableField = 'IMPORTE_NETO'
@@ -1187,14 +1215,6 @@ object srvFacturasCliente: TsrvFacturasCliente
                 DatasetField = 'IMPORTE_PORTE'
                 TableField = 'IMPORTE_PORTE'
               end
-              item
-                DatasetField = 'ID_TIPO_IVA'
-                TableField = 'ID_TIPO_IVA'
-              end
-              item
-                DatasetField = 'RECARGO_EQUIVALENCIA'
-                TableField = 'RECARGO_EQUIVALENCIA'
-              end
               item
                 DatasetField = 'ID_COMISION_LIQUIDADA'
                 TableField = 'ID_COMISION_LIQUIDADA'
@@ -1208,8 +1228,8 @@ object srvFacturasCliente: TsrvFacturasCliente
                 TableField = 'ID_AGENTE'
               end
               item
-                DatasetField = 'TIPO'
+                DatasetField = 'NUM_COPIAS'
-                TableField = 'TIPO'
+                TableField = 'NUM_COPIAS'
               end>
           end>
         Name = 'FacturasCliente_Refresh'
@@ -1559,6 +1579,17 @@ object srvFacturasCliente: TsrvFacturasCliente
             Lookup = False
             LookupCache = False
           end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -21,6 +21,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         end>
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
+      object cxGridViewNUM_COPIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'NUM_COPIAS'
+        VisibleForCustomization = False
+        Width = 25
+        IsCaptionAssigned = True
+      end
       object cxGridViewTIPO: TcxGridDBColumn
         DataBinding.FieldName = 'TIPO'
         PropertiesClassName = 'TcxImageComboBoxProperties'

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas

@@ -55,6 +55,7 @@ type
     TBXItem3: TTBXItem;
     TBXSeparatorItem2: TTBXSeparatorItem;
     cxGridViewTIPO: TcxGridDBColumn;
+    cxGridViewNUM_COPIAS: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Modulos/Impresiones/Data/uDataModuleImpresiones.dfm

@@ -0,0 +1,77 @@
+object DataModuleImpresiones: TDataModuleImpresiones
+  OldCreateOrder = True
+  OnCreate = DAClientDataModuleCreate
+  RemoteService = RORemoteService
+  Adapter = DABinAdapter
+  SchemaCall.MethodName = 'GetSchemaAsXML'
+  SchemaCall.Params = <
+    item
+      Name = 'Result'
+      ParamType = fResult
+      DataType = rtString
+    end>
+  Height = 414
+  Width = 518
+  object RORemoteService: TRORemoteService
+    ServiceName = 'srvImpresiones'
+    Message = ROBinMessage1
+    Channel = ROWinInetHTTPChannel1
+    Left = 48
+    Top = 24
+  end
+  object DABinAdapter: TDABINAdapter
+    Left = 48
+    Top = 80
+  end
+  object DADesigntimeCall1: TDADesigntimeCall
+    RemoteRequest.MethodName = 'Login'
+    RemoteRequest.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBoolean
+      end
+      item
+        Name = 'User'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'Administrador'
+      end
+      item
+        Name = 'Password'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'LoginInfo'
+        ParamType = fOut
+        DataType = rtUserDefined
+        UserClassName = 'TRdxLoginInfo'
+      end>
+    RemoteService = LoginRemoteService
+    Left = 48
+    Top = 160
+  end
+  object LoginRemoteService: TRORemoteService
+    ServiceName = 'srvLogin'
+    Message = ROBinMessage1
+    Channel = ROWinInetHTTPChannel1
+    Left = 48
+    Top = 216
+  end
+  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
+    ServerLocators = <>
+    DispatchOptions = []
+    ProbeServers = False
+    ProbeFrequency = 60000
+    UserAgent = 'RemObjects SDK'
+    TargetURL = 'http://localhost:8099/bin'
+    Left = 48
+    Top = 272
+  end
+  object ROBinMessage1: TROBinMessage
+    Left = 48
+    Top = 324
+  end
+end

Source/Modulos/Impresiones/Data/uDataModuleImpresiones.pas

@@ -0,0 +1,48 @@
+unit uDataModuleImpresiones;
+
+interface
+
+uses
+  SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
+  uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
+  uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
+  uDADesigntimeCall;
+
+type
+  TDataModuleImpresiones = class(TDAClientDataModule)
+    RORemoteService: TRORemoteService;
+    DABinAdapter: TDABINAdapter;
+    DADesigntimeCall1: TDADesigntimeCall;
+    LoginRemoteService: TRORemoteService;
+    ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
+    ROBinMessage1: TROBinMessage;
+    procedure DAClientDataModuleCreate(Sender: TObject);
+  public
+    function AnadirMarcaImpresion(const Tabla: String; IdsTabla: String): Boolean;
+  end;
+
+var
+  dmImpresiones: TDataModuleImpresiones;
+
+implementation
+
+{$R *.DFM}
+
+uses
+  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
+  Dialogs;
+
+{ TdmImpresiones }
+
+function TDataModuleImpresiones.AnadirMarcaImpresion(const Tabla: String; IdsTabla: String): Boolean;
+begin
+  Result := (RORemoteService as IsrvImpresiones).AnadirMarcaImpresion(Tabla, IdsTabla);
+end;
+
+procedure TDataModuleImpresiones.DAClientDataModuleCreate(Sender: TObject);
+begin
+  RORemoteService.Channel := dmConexion.Channel;
+  RORemoteService.Message := dmConexion.Message;
+end;
+
+end.

Source/Modulos/Impresiones/Model/schImpresionesClient_Intf.pas

@@ -0,0 +1,136 @@
+unit schImpresionesClient_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable;
+
+const
+  { Data table rules ids
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_Impresiones = '{EAA2FFEA-7F70-4B38-A9DD-302CB54EDF1C}';
+
+  { Data table names }
+  nme_Impresiones = 'Impresiones';
+
+  { Impresiones fields }
+  fld_ImpresionesID = 'ID';
+  fld_ImpresionesTABLA = 'TABLA';
+  fld_ImpresionesID_TABLA = 'ID_TABLA';
+  fld_ImpresionesNUM_COPIAS = 'NUM_COPIAS';
+
+  { Impresiones field indexes }
+  idx_ImpresionesID = 0;
+  idx_ImpresionesTABLA = 1;
+  idx_ImpresionesID_TABLA = 2;
+  idx_ImpresionesNUM_COPIAS = 3;
+
+type
+  { IImpresiones }
+  IImpresiones = interface(IDAStronglyTypedDataTable)
+  ['{4CADBD7F-0B03-4453-BD72-CAB44E9F590D}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetTABLAValue: String;
+    procedure SetTABLAValue(const aValue: String);
+    function GetID_TABLAValue: Integer;
+    procedure SetID_TABLAValue(const aValue: Integer);
+    function GetNUM_COPIASValue: Integer;
+    procedure SetNUM_COPIASValue(const aValue: Integer);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property TABLA: String read GetTABLAValue write SetTABLAValue;
+    property ID_TABLA: Integer read GetID_TABLAValue write SetID_TABLAValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+  end;
+
+  { TImpresionesDataTableRules }
+  TImpresionesDataTableRules = class(TDADataTableRules, IImpresiones)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetTABLAValue: String; virtual;
+    procedure SetTABLAValue(const aValue: String); virtual;
+    function GetID_TABLAValue: Integer; virtual;
+    procedure SetID_TABLAValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property TABLA: String read GetTABLAValue write SetTABLAValue;
+    property ID_TABLA: Integer read GetID_TABLAValue write SetID_TABLAValue;
+    property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses Variants;
+
+{ TImpresionesDataTableRules }
+constructor TImpresionesDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TImpresionesDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TImpresionesDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_ImpresionesID].AsInteger;
+end;
+
+procedure TImpresionesDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ImpresionesID].AsInteger := aValue;
+end;
+
+function TImpresionesDataTableRules.GetTABLAValue: String;
+begin
+  result := DataTable.Fields[idx_ImpresionesTABLA].AsString;
+end;
+
+procedure TImpresionesDataTableRules.SetTABLAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ImpresionesTABLA].AsString := aValue;
+end;
+
+function TImpresionesDataTableRules.GetID_TABLAValue: Integer;
+begin
+  result := DataTable.Fields[idx_ImpresionesID_TABLA].AsInteger;
+end;
+
+procedure TImpresionesDataTableRules.SetID_TABLAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ImpresionesID_TABLA].AsInteger := aValue;
+end;
+
+function TImpresionesDataTableRules.GetNUM_COPIASValue: Integer;
+begin
+  result := DataTable.Fields[idx_ImpresionesNUM_COPIAS].AsInteger;
+end;
+
+procedure TImpresionesDataTableRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ImpresionesNUM_COPIAS].AsInteger := aValue;
+end;
+
+
+initialization
+  RegisterDataTableRules(RID_Impresiones, TImpresionesDataTableRules);
+
+end.

Source/Modulos/Impresiones/Model/schImpresionesServer_Intf.pas

@@ -0,0 +1,145 @@
+unit schImpresionesServer_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schImpresionesClient_Intf;
+
+const
+  { Delta rules ids 
+       Feel free to change them to something more human readable
+       but make sure they are unique in the context of your application }
+  RID_ImpresionesDelta = '{2013D757-4089-4550-B61B-481831BE4EF9}';
+
+type
+  { IImpresionesDelta }
+  IImpresionesDelta = interface(IImpresiones)
+  ['{2013D757-4089-4550-B61B-481831BE4EF9}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldTABLAValue : String;
+    function GetOldID_TABLAValue : Integer;
+    function GetOldNUM_COPIASValue : Integer;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldTABLA : String read GetOldTABLAValue;
+    property OldID_TABLA : Integer read GetOldID_TABLAValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
+  end;
+
+  { TImpresionesBusinessProcessorRules }
+  TImpresionesBusinessProcessorRules = class(TDABusinessProcessorRules, IImpresiones, IImpresionesDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetOldIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetTABLAValue: String; virtual;
+    function GetOldTABLAValue: String; virtual;
+    procedure SetTABLAValue(const aValue: String); virtual;
+    function GetID_TABLAValue: Integer; virtual;
+    function GetOldID_TABLAValue: Integer; virtual;
+    procedure SetID_TABLAValue(const aValue: Integer); virtual;
+    function GetNUM_COPIASValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: Integer; virtual;
+    procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property OldID : Integer read GetOldIDValue;
+    property TABLA : String read GetTABLAValue write SetTABLAValue;
+    property OldTABLA : String read GetOldTABLAValue;
+    property ID_TABLA : Integer read GetID_TABLAValue write SetID_TABLAValue;
+    property OldID_TABLA : Integer read GetOldID_TABLAValue;
+    property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses
+  Variants, uROBinaryHelpers;
+
+{ TImpresionesBusinessProcessorRules }
+constructor TImpresionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TImpresionesBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TImpresionesBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID];
+end;
+
+function TImpresionesBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesID];
+end;
+
+procedure TImpresionesBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID] := aValue;
+end;
+
+function TImpresionesBusinessProcessorRules.GetTABLAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesTABLA];
+end;
+
+function TImpresionesBusinessProcessorRules.GetOldTABLAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesTABLA];
+end;
+
+procedure TImpresionesBusinessProcessorRules.SetTABLAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesTABLA] := aValue;
+end;
+
+function TImpresionesBusinessProcessorRules.GetID_TABLAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID_TABLA];
+end;
+
+function TImpresionesBusinessProcessorRules.GetOldID_TABLAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesID_TABLA];
+end;
+
+procedure TImpresionesBusinessProcessorRules.SetID_TABLAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesID_TABLA] := aValue;
+end;
+
+function TImpresionesBusinessProcessorRules.GetNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesNUM_COPIAS];
+end;
+
+function TImpresionesBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ImpresionesNUM_COPIAS];
+end;
+
+procedure TImpresionesBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ImpresionesNUM_COPIAS] := aValue;
+end;
+
+
+initialization
+  RegisterBusinessProcessorRules(RID_ImpresionesDelta, TImpresionesBusinessProcessorRules);
+
+end.

Source/Modulos/Impresiones/Servidor/srvImpresiones_Impl.dfm

@@ -0,0 +1,184 @@
+object srvImpresiones: TsrvImpresiones
+  OldCreateOrder = True
+  OnCreate = DARemoteServiceCreate
+  RequiresSession = True
+  SessionManager = dmServer.SessionManager
+  AcquireConnection = True
+  ServiceSchema = schImpresiones
+  ServiceAdapter = DABINAdapter
+  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
+  Height = 202
+  Width = 392
+  object Diagrams: TDADiagrams
+    Left = 150
+    Top = 90
+    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <
+      item
+        Name = 'Referencias_CODIGO'
+        DataType = datString
+        Size = 50
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'CODIGO'
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'Referencias_DESCRIPCION'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'Referencias'
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'Referencias_VALOR'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'C'#243'digo'
+        Alignment = taLeftJustify
+      end
+      item
+        Name = 'Referencias_ID_EMPRESA'
+        DataType = datInteger
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        DisplayLabel = 'ID_EMPRESA'
+        Alignment = taLeftJustify
+      end>
+    Left = 150
+    Top = 24
+  end
+  object schImpresiones: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    DataDictionary = DataDictionary
+    Diagrams = Diagrams
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'IMPRESIONES'
+            SQL = 'select ID, TABLA, ID_TABLA, NUM_COPIAS'#10'from IMPRESIONES'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'TABLA'
+                TableField = 'TABLA'
+              end
+              item
+                DatasetField = 'ID_TABLA'
+                TableField = 'ID_TABLA'
+              end
+              item
+                DatasetField = 'NUM_COPIAS'
+                TableField = 'NUM_COPIAS'
+              end>
+          end>
+        Name = 'Impresiones'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            BlobType = dabtUnknown
+            GeneratorName = 'GEN_IMPRESIONES_ID'
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = True
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'TABLA'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'ID_TABLA'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end
+          item
+            Name = 'NUM_COPIAS'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'Tabla'
+            DataType = datString
+            Size = 255
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptInput
+          end
+          item
+            Name = 'IdTabla'
+            BlobType = dabtUnknown
+            Value = ''
+            ParamType = daptUnknown
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'IMPRESIONES'
+            SQL = 'execute procedure PRO_ANADIR_MARCA_IMPRESION :Tabla, :IdTabla'
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'AnadirMarcaImpresion'
+      end>
+    RelationShips = <>
+    UpdateRules = <>
+    Left = 48
+    Top = 24
+  end
+  object DABINAdapter: TDABINAdapter
+    Left = 48
+    Top = 90
+  end
+  object bpImpresiones: TDABusinessProcessor
+    Schema = schImpresiones
+    UpdateCommandName = 'Update_Referencias'
+    ReferencedDataset = 'Referencias'
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 248
+    Top = 24
+  end
+end

Source/Modulos/Impresiones/Servidor/srvImpresiones_Impl.pas

@@ -0,0 +1,108 @@
+unit srvImpresiones_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DARemoteService_Impl,
+  {Used RODLs:} DataAbstract_Intf,
+  {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
+  uDAScriptingProvider, uDABusinessProcessor;
+
+type
+  { TsrvImpresiones }
+  TsrvImpresiones = class(TDARemoteService, IsrvImpresiones)
+    Diagrams: TDADiagrams;
+    DABINAdapter: TDABINAdapter;
+    bpImpresiones: TDABusinessProcessor;
+    schImpresiones: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DARemoteServiceCreate(Sender: TObject);
+    procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService;
+      var ConnectionName: string);
+  public
+    { IsrvImpresiones methods }
+    function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils, uDAInterfaces,
+  uROClasses;
+
+procedure Create_srvImpresiones(out anInstance : IUnknown);
+begin
+  anInstance := TsrvImpresiones.Create(NIL);
+end;
+
+{ srvImpresiones }
+procedure TsrvImpresiones.DARemoteServiceBeforeAcquireConnection(
+  Sender: TDARemoteService; var ConnectionName: string);
+begin
+  ConnectionName := dmServer.ConnectionName;
+end;
+
+procedure TsrvImpresiones.DARemoteServiceCreate(Sender: TObject);
+begin
+  SessionManager := dmServer.SessionManager;
+end;
+
+function TsrvImpresiones.AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
+var
+  ASchema : TDASchema;
+  AConn : IDAConnection;
+  dsCommand: IDASQLCommand;
+  ListaIds: TStringList;
+  i: Integer;
+
+begin
+  Result := False;
+
+  ASchema := schImpresiones;
+  AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
+
+  try
+    try
+      ListaIds := TStringList.Create;
+      ListaIds.CommaText := IdsTabla;
+
+      //Vamos generando todas y cada una de las marcas de impresion
+      for i := 0 to ListaIds.Count - 1 do
+      begin
+        dsCommand := ASchema.NewCommand(AConn, 'AnadirMarcaImpresion');
+        with dsCommand do
+        begin
+          ParamByName('TABLA').AsString := NombreTabla;
+          ParamByName('IDTABLA').AsString := ListaIds.Strings[i];
+        end;
+        dsCommand.Execute;
+        AConn.CommitTransaction;
+      end;
+
+      FreeAndNil(ListaIds);
+      Result := True;
+    except
+      RaiseError('Error al añadir una nueva marca de impresion ' + NombreTabla + ' en tablas');
+      AConn.RollbackTransaction;
+    end;
+  finally
+    dsCommand := NIL;
+  end;
+end;
+
+initialization
+  TROClassFactory.Create('srvImpresiones', Create_srvImpresiones, TsrvImpresiones_Invoker);
+
+finalization
+
+end.

Source/Servicios/FactuGES.RODL

@@ -627,24 +627,17 @@
 </Interfaces>
 </Service>
 <Service Name="srvImpresiones" UID="{FB192E4F-F42F-4AA5-81A5-30C18953573E}" Ancestor="DARemoteService">
+<Group Under="{E062357C-11F0-4929-9F72-7C62D89F7912}" />
 <Interfaces>
 <Interface Name="Default" UID="{7610E29E-D4FD-4253-A519-A3559D111663}">
 <Operations>
-<Operation Name="InsertarMarcaImpresion" UID="{DD25FF77-F1F7-4CD4-ADC0-0097FDABE47A}">
+<Operation Name="AnadirMarcaImpresion" UID="{DD25FF77-F1F7-4CD4-ADC0-0097FDABE47A}">
 <Parameters>
 <Parameter Name="Result" DataType="Boolean" Flag="Result">
 </Parameter>
 <Parameter Name="NombreTabla" DataType="String" Flag="In" >
 </Parameter>
-<Parameter Name="IdTabla" DataType="Integer" Flag="In" >
+<Parameter Name="IdsTabla" DataType="String" Flag="In" >
-</Parameter>
-</Parameters>
-</Operation>
-<Operation Name="IncrementarMarcaImpresion" UID="{309EB080-E7A6-4C23-919D-D9AD59BEAAAA}">
-<Parameters>
-<Parameter Name="Result" DataType="Boolean" Flag="Result">
-</Parameter>
-<Parameter Name="IdMarcaImpresion" DataType="Integer" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>

Source/Servicios/FactuGES_Intf.pas

@@ -704,8 +704,7 @@ type
   { IsrvImpresiones }
   IsrvImpresiones = interface(IDARemoteService)
     ['{7610E29E-D4FD-4253-A519-A3559D111663}']
-    function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean;
+    function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
-    function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean;
   end;
 
   { CosrvImpresiones }
@@ -718,8 +717,7 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean;
+    function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
-    function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean;
   end;
 
 implementation
@@ -2387,7 +2385,7 @@ begin
   result := 'srvImpresiones';
 end;
 
-function TsrvImpresiones_Proxy.InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean;
+function TsrvImpresiones_Proxy.AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean;
 var
   __request, __response : TMemoryStream;
 begin
@@ -2395,32 +2393,9 @@ begin
   __response := TMemoryStream.Create;
 
   try
-     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'InsertarMarcaImpresion');
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'AnadirMarcaImpresion');
      __Message.Write('NombreTabla', TypeInfo(String), NombreTabla, []);
-     __Message.Write('IdTabla', TypeInfo(Integer), IdTabla, []);
+     __Message.Write('IdsTabla', TypeInfo(String), IdsTabla, []);
-     __Message.Finalize;
-
-     __Message.WriteToStream(__request);
-     __TransportChannel.Dispatch(__request, __response);
-     __Message.ReadFromStream(__response);
-
-     __Message.Read('Result', TypeInfo(Boolean), result, []);
-  finally
-    __request.Free;
-    __response.Free;
-  end
-end;
-
-function TsrvImpresiones_Proxy.IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean;
-var
-  __request, __response : TMemoryStream;
-begin
-  __request := TMemoryStream.Create;
-  __response := TMemoryStream.Create;
-
-  try
-     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarMarcaImpresion');
-     __Message.Write('IdMarcaImpresion', TypeInfo(Integer), IdMarcaImpresion, []);
      __Message.Finalize;
 
      __Message.WriteToStream(__request);

Source/Servicios/FactuGES_Invk.pas

@@ -231,8 +231,7 @@ type
   private
   protected
   published
-    procedure Invoke_InsertarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_AnadirMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-    procedure Invoke_IncrementarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
 implementation
@@ -1389,39 +1388,20 @@ end;
 
 { TsrvImpresiones_Invoker }
 
-procedure TsrvImpresiones_Invoker.Invoke_InsertarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+procedure TsrvImpresiones_Invoker.Invoke_AnadirMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function InsertarMarcaImpresion(const NombreTabla: String; const IdTabla: Integer): Boolean; }
+{ function AnadirMarcaImpresion(const NombreTabla: String; const IdsTabla: String): Boolean; }
 var
   NombreTabla: String;
-  IdTabla: Integer;
+  IdsTabla: String;
   lResult: Boolean;
 begin
   try
     __Message.Read('NombreTabla', TypeInfo(String), NombreTabla, []);
-    __Message.Read('IdTabla', TypeInfo(Integer), IdTabla, []);
+    __Message.Read('IdsTabla', TypeInfo(String), IdsTabla, []);
 
-    lResult := (__Instance as IsrvImpresiones).InsertarMarcaImpresion(NombreTabla, IdTabla);
+    lResult := (__Instance as IsrvImpresiones).AnadirMarcaImpresion(NombreTabla, IdsTabla);
 
-    __Message.Initialize(__Transport, 'FactuGES', 'srvImpresiones', 'InsertarMarcaImpresionResponse');
+    __Message.Initialize(__Transport, 'FactuGES', 'srvImpresiones', 'AnadirMarcaImpresionResponse');
-    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
-    __Message.Finalize;
-
-  finally
-  end;
-end;
-
-procedure TsrvImpresiones_Invoker.Invoke_IncrementarMarcaImpresion(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function IncrementarMarcaImpresion(const IdMarcaImpresion: Integer): Boolean; }
-var
-  IdMarcaImpresion: Integer;
-  lResult: Boolean;
-begin
-  try
-    __Message.Read('IdMarcaImpresion', TypeInfo(Integer), IdMarcaImpresion, []);
-
-    lResult := (__Instance as IsrvImpresiones).IncrementarMarcaImpresion(IdMarcaImpresion);
-
-    __Message.Initialize(__Transport, 'FactuGES', 'srvImpresiones', 'IncrementarMarcaImpresionResponse');
     __Message.Write('Result', TypeInfo(Boolean), lResult, []);
     __Message.Finalize;
 

Source/Servidor/FactuGES_Server.bdsproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<PersonalityInfo>
 		<Option>
@@ -175,10 +175,11 @@
 			<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">3.0.3.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">jueves, 26 de junio de 2008 11:49</VersionInfoKeys></VersionInfoKeys>  <Excluded_Packages>
+			<VersionInfoKeys Name="CompileDate">jueves, 26 de junio de 2008 11:49</VersionInfoKeys></VersionInfoKeys>
-      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+		<Excluded_Packages>
-    </Excluded_Packages>
+			<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-  </Delphi.Personality>
+		</Excluded_Packages>
+	</Delphi.Personality>
 	<ModelSupport>False</ModelSupport>
 	<!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.dpr

@@ -86,8 +86,6 @@ uses
   uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame},
   uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
   uBizOscOrderServer in '..\Modulos\Tienda web\Model\uBizOscOrderServer.pas',
-  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDARemoteService},
@@ -133,7 +131,11 @@ uses
   schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
   schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
   uCheckPrevious in 'Utiles\uCheckPrevious.pas',
-  srvImpresiones_Impl in '..\Modulos\Impresion\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService};
+  srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
+  schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
+  schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
+  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.drc

@@ -912,12 +912,12 @@
 #define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
 #define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
 #define IdResourceStrings_RSStatusResolving 65183
-#define uRORes_err_InvalidVarArrayDimCount 65184
+#define uRODECConst_sFMT_HEXL 65184
-#define uRORes_err_MessageNotAssigned 65185
+#define uRODECConst_sFMT_MIME64 65185
-#define ComConst_SOleError 65186
+#define uRODECConst_sFMT_UU 65186
-#define ComConst_SNoMethod 65187
+#define uRODECConst_sFMT_XX 65187
-#define ComConst_SVarNotObject 65188
+#define uRODECConst_sInvalidKeySize 65188
-#define ComConst_STooManyParams 65189
+#define uRODECConst_sNotInitialized 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_UnhandledException 65200
+#define uRORes_err_NoXMLParsersAvailable 65200
-#define uRORes_err_ChannelBusy 65201
+#define uRORes_err_IDispatchMarshalingNotSupported 65201
-#define uRORes_err_ArrayIndexOutOfBounds 65202
+#define uRORes_err_UnsupportedVariantType 65202
-#define uRORes_err_InvalidHeader 65203
+#define uRORes_err_VariantIsNotArray 65203
-#define uRORes_err_UnknownClassInStream 65204
+#define uRORes_err_InvalidVarArrayDimCount 65204
-#define uRORes_err_UnexpectedClassInStream 65205
+#define uRORes_err_MessageNotAssigned 65205
-#define uRORes_err_SessionNotFound 65206
+#define ComConst_SOleError 65206
-#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207
+#define ComConst_SNoMethod 65207
-#define uRORes_err_TooManySessions 65208
+#define ComConst_SVarNotObject 65208
-#define uRORes_err_DOMElementIsNIL 65209
+#define ComConst_STooManyParams 65209
-#define uRORes_err_CannotLoadXMLDocument 65210
+#define uRODECConst_sProtectionCircular 65210
-#define uRORes_err_ErrorCreatingMsXmlDoc 65211
+#define uRODECConst_sStringFormatExists 65211
-#define uRORes_err_NoXMLParsersAvailable 65212
+#define uRODECConst_sInvalidStringFormat 65212
-#define uRORes_err_IDispatchMarshalingNotSupported 65213
+#define uRODECConst_sInvalidFormatString 65213
-#define uRORes_err_UnsupportedVariantType 65214
+#define uRODECConst_sFMT_COPY 65214
-#define uRORes_err_VariantIsNotArray 65215
+#define uRODECConst_sFMT_HEX 65215
-#define uRORes_str_ExceptionReraisedFromServer 65216
+#define uRORes_err_UnknownProxyInterface 65216
-#define uRORes_err_AssignError 65217
+#define uRORes_err_DispatcherAlreadyAssigned 65217
-#define uRORes_err_InvalidRequestStream 65218
+#define uRORes_err_CannotFindMessageDispatcher 65218
-#define uRORes_err_NILMessage 65219
+#define uRORes_err_ServerOnlySupportsOneDispatcher 65219
-#define uRORes_err_UnspecifiedInterface 65220
+#define uRORes_err_UnhandledException 65220
-#define uRORes_err_UnspecifiedMessage 65221
+#define uRORes_err_ChannelBusy 65221
-#define uRORes_err_UnknownMethod 65222
+#define uRORes_err_ArrayIndexOutOfBounds 65222
-#define uRORes_err_ClassFactoryDidNotReturnInstance 65223
+#define uRORes_err_InvalidHeader 65223
-#define uRORes_err_TypeNotSupported 65224
+#define uRORes_err_UnknownClassInStream 65224
-#define uRORes_err_ClassFactoryNotFound 65225
+#define uRORes_err_UnexpectedClassInStream 65225
-#define uRORes_err_IROMessageNotSupported 65226
+#define uRORes_err_SessionNotFound 65226
-#define uRORes_err_ClassAlreadyRegistered 65227
+#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
-#define uRORes_err_UnknownProxyInterface 65228
+#define uRORes_err_TooManySessions 65228
-#define uRORes_err_DispatcherAlreadyAssigned 65229
+#define uRORes_err_DOMElementIsNIL 65229
-#define uRORes_err_CannotFindMessageDispatcher 65230
+#define uRORes_err_CannotLoadXMLDocument 65230
-#define uRORes_err_ServerOnlySupportsOneDispatcher 65231
+#define uRORes_err_ErrorCreatingMsXmlDoc 65231
-#define uRORes_err_InvalidType 65232
+#define uRORes_err_RodlInvalidDataType 65232
-#define uRORes_err_InvalidStream 65233
+#define uRORes_err_RodlStructCannotBeNested 65233
-#define uRORes_err_InvalidParamFlag 65234
+#define uRORes_err_RodlInvalidAncestorType 65234
-#define uRORes_err_InvalidStringLength 65235
+#define uRORes_str_ExceptionOnServer 65235
-#define uRORes_str_InvalidClassTypeInStream 65236
+#define uRORes_str_ExceptionReraisedFromServer 65236
-#define uRORes_err_UnexpectedEndOfStream 65237
+#define uRORes_err_AssignError 65237
-#define uRORes_err_RodlDuplicateName 65238
+#define uRORes_err_InvalidRequestStream 65238
-#define uRORes_err_RodlNoDataTypeSpecified 65239
+#define uRORes_err_NILMessage 65239
-#define uRORes_err_RodlNoEnumValues 65240
+#define uRORes_err_UnspecifiedInterface 65240
-#define uRORes_err_RodlNoStructElementsDefined 65241
+#define uRORes_err_UnspecifiedMessage 65241
-#define uRORes_err_RodlNoOperationsDefined 65242
+#define uRORes_err_UnknownMethod 65242
-#define uRORes_err_RodlUsedFileDoesNotExist 65243
+#define uRORes_err_ClassFactoryDidNotReturnInstance 65243
-#define uRORes_err_RodlInvalidDataType 65244
+#define uRORes_err_TypeNotSupported 65244
-#define uRORes_err_RodlStructCannotBeNested 65245
+#define uRORes_err_ClassFactoryNotFound 65245
-#define uRORes_err_RodlInvalidAncestorType 65246
+#define uRORes_err_IROMessageNotSupported 65246
-#define uRORes_str_ExceptionOnServer 65247
+#define uRORes_err_ClassAlreadyRegistered 65247
 #define Consts_SUTF8Encoding 65248
 #define Consts_SUTF7Encoding 65249
 #define Consts_SPageControlNotSet 65250
-#define uRODECConst_sProtectionCircular 65251
+#define uRORes_err_InvalidIndex 65251
-#define uRODECConst_sStringFormatExists 65252
+#define uRORes_err_InvalidType 65252
-#define uRODECConst_sInvalidStringFormat 65253
+#define uRORes_err_InvalidStream 65253
-#define uRODECConst_sInvalidFormatString 65254
+#define uRORes_err_InvalidParamFlag 65254
-#define uRODECConst_sFMT_COPY 65255
+#define uRORes_err_InvalidStringLength 65255
-#define uRODECConst_sFMT_HEX 65256
+#define uRORes_str_InvalidClassTypeInStream 65256
-#define uRODECConst_sFMT_HEXL 65257
+#define uRORes_err_UnexpectedEndOfStream 65257
-#define uRODECConst_sFMT_MIME64 65258
+#define uRORes_err_RodlDuplicateName 65258
-#define uRODECConst_sFMT_UU 65259
+#define uRORes_err_RodlNoDataTypeSpecified 65259
-#define uRODECConst_sFMT_XX 65260
+#define uRORes_err_RodlNoEnumValues 65260
-#define uRODECConst_sInvalidKeySize 65261
+#define uRORes_err_RodlNoStructElementsDefined 65261
-#define uRODECConst_sNotInitialized 65262
+#define uRORes_err_RodlNoOperationsDefined 65262
-#define uRORes_err_InvalidIndex 65263
+#define uRORes_err_RodlUsedFileDoesNotExist 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."
-	uRORes_err_InvalidVarArrayDimCount,	"Variant Array DimCount must be 1 but is %d"
+	uRODECConst_sFMT_HEXL,	"Hexadecimal lowercase"
-	uRORes_err_MessageNotAssigned,	"Message is NIL"
+	uRODECConst_sFMT_MIME64,	"MIME Base 64"
-	ComConst_SOleError,	"OLE error %.8x"
+	uRODECConst_sFMT_UU,	"UU Coding"
-	ComConst_SNoMethod,	"Method '%s' not supported by automation object"
+	uRODECConst_sFMT_XX,	"XX Coding"
-	ComConst_SVarNotObject,	"Variant does not reference an automation object"
+	uRODECConst_sInvalidKeySize,	"Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
-	ComConst_STooManyParams,	"Dispatch methods do not support more than 64 parameters"
+	uRODECConst_sNotInitialized,	"%s is not initialized call Init() or InitKey() before."
 	IdResourceStrings_RSCannotAllocateSocket,	"Cannot allocate socket."
 	IdResourceStrings_RSConnectionClosedGracefully,	"Connection Closed Gracefully."
 	IdResourceStrings_RSCouldNotBindSocket,	"Could not bind socket. Address and port are already in use."
@@ -2186,6 +2186,26 @@ 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)."
@@ -2198,10 +2218,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_NoXMLParsersAvailable,	"MSXML is not installed"
+	uRORes_err_RodlInvalidDataType,	"Invalid or undefined data type \"%s\"."
-	uRORes_err_IDispatchMarshalingNotSupported,	"Marshaling of IDispatch (%d) type variants is not supported."
+	uRORes_err_RodlStructCannotBeNested,	"Structs cannot recursively contain themselves."
-	uRORes_err_UnsupportedVariantType,	"Unsupported variant type \"%d\""
+	uRORes_err_RodlInvalidAncestorType,	"Invalid or undefined ancestor type \"%s\"."
-	uRORes_err_VariantIsNotArray,	"Variant must be Array, but is %d"
+	uRORes_str_ExceptionOnServer,	"An exception of type %s was raised on the server: %s"
 	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)"
@@ -2214,10 +2234,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"
-	uRORes_err_UnknownProxyInterface,	"Unknown proxy interface \"%s\""
+	Consts_SUTF8Encoding,	"UTF-8"
-	uRORes_err_DispatcherAlreadyAssigned,	"Dispatcher for %s already assigned"
+	Consts_SUTF7Encoding,	"UTF-7"
-	uRORes_err_CannotFindMessageDispatcher,	"Cannot find message dispatcher. Maybe there is no message component configured for  for the requested path?"
+	Consts_SPageControlNotSet,	"PageControl must first be assigned"
-	uRORes_err_ServerOnlySupportsOneDispatcher,	"%s servers only support one dispatcher"
+	uRORes_err_InvalidIndex,	"Invalid index %d"
 	uRORes_err_InvalidType,	"Invalid type \"%s. Expected \"%s\"\""
 	uRORes_err_InvalidStream,	"Invalid stream"
 	uRORes_err_InvalidParamFlag,	"Invalid Parameter Flag \"%s\""
@@ -2230,26 +2250,6 @@ 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"

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "3.0.3.1\0"
               VALUE "ProductName", "FactuGES Server\0"
               VALUE "ProductVersion", "3.0.3.1\0"
-              VALUE "CompileDate", "miércoles, 09 de julio de 2008 13:53\0"
+              VALUE "CompileDate", "jueves, 10 de julio de 2008 17:32\0"
          END
     END
     BLOCK "VarFileInfo"