repaso final de todos lo datos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@29 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/Modulos/Albaranes de cliente/Controller/View/uIEditorAlbaranesClientePreview.pas

@@ -8,6 +8,18 @@ uses
 type
   IEditorAlbaranesClientePreview = interface(IEditorPreview)
   ['{F58BF987-28EB-485A-B953-55BDEEBE2C91}']
+    function GetVerPrecios: Boolean;
+    function GetVerRefProveedor: Boolean;
+    function GetVerIncidencias: Boolean;
+    function GetVerObservaciones: Boolean;
+    procedure SetVerPrecios(const Value: Boolean);
+    procedure SetVerRefProveedor(const Value: Boolean);
+    procedure SetObservaciones(const Value: Boolean);
+    procedure SetVerIncidencias(const Value: Boolean);
+    property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
+    property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
+    property VerObservaciones : Boolean read GetVerObservaciones write SetObservaciones;
+    property VerIncidencias : Boolean read GetVerIncidencias write SetVerIncidencias;
   end;
 
 

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -47,8 +47,12 @@ type
     function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
     function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
 
-    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -147,8 +151,12 @@ type
       AFechaRecibido : TDateTime = 0;
       DoPost: Boolean = True) : Boolean;
 
-    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
-    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
 
@@ -1054,7 +1062,10 @@ begin
   end;    
 end;
 
-procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
+procedure TAlbaranesClienteController.Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+
 var
   AReportController : IAlbaranesClienteReportController;
   ID_Albaranes: TIntegerList;
@@ -1082,7 +1093,7 @@ begin
    else
      ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Preview(ID_Albaranes);
+    AReportController.Preview(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
 
   finally
     AReportController := NIL;
@@ -1090,7 +1101,9 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
+procedure TAlbaranesClienteController.Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
 var
   AReportController : IAlbaranesClienteReportController;
   ID_Albaranes: TIntegerList;
@@ -1116,7 +1129,7 @@ begin
    else
      ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Print(ID_Albaranes);
+    AReportController.Print(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
 
   finally
     AReportController := NIL;

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas

@@ -10,8 +10,12 @@ uses
 type
   IAlbaranesClienteReportController = interface(IControllerBase)
   ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
-    procedure Preview(const AListaID : TIntegerList);
+    procedure Preview(const AListaID : TIntegerList;
-    procedure Print(const AListaID : TIntegerList);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(const AListaID : TIntegerList;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
@@ -27,8 +31,12 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : TIntegerList);
+    procedure Preview(const AListaID : TIntegerList;
-    procedure Print(const AListaID : TIntegerList);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(const AListaID : TIntegerList;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
     function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;    
     procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
@@ -168,7 +176,10 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList);
+procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
@@ -177,7 +188,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptAlbaranes(AListaID);
+    AStream := FDataModule.GetRptAlbaranes(AListaID, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
     try
       CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
       if Assigned(AEditor) then
@@ -185,6 +196,10 @@ begin
         try
           AEditor.Controller := Self;
           AEditor.ListaID := AListaID;
+          AEditor.VerPrecios := VerImprimirPrecios;
+          AEditor.VerRefProveedor := VerImprimirRefProveedor;
+          AEditor.VerPrecios := VerImprimirObservaciones;
+          AEditor.VerRefProveedor := VerImprimirIncidencias;
           AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
           AEditor.LoadFromStream(AStream);
           AEditor.Preview;
@@ -201,7 +216,10 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList);
+procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas

@@ -36,10 +36,14 @@ type
     function NewItem : IBizAlbaranCliente;
 
     // Report
-    function GetRptAlbaranes(const ListaID: TIntegerList): Binary;
+    function GetRptAlbaranes(const ListaID: TIntegerList;
+    const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
+    const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
     function GetRptWordAlbaran(const AID: Integer): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
-    function GetRptPDFAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer;
+    const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
+    const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
 
     function GetAnosItems : TStringList;
   end;
@@ -65,27 +69,30 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList): Binary;
+function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList;
+    const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
+    const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := ListaID.ToIntegerArray;
   try
-    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
+    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
   finally
     FreeAndNil(AParam);
   end;
 end;
 
-function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(
+function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer;
-  const AID: Integer): Binary;
+    const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
+    const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := TIntegerArray.Create;
   try
     AParam.Add(AID);
-    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
+    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
   finally
     FreeAndNil(AParam);
   end;

Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas

@@ -8,9 +8,13 @@ uses
 type
   IDataModuleAlbaranesClienteReport = interface
   ['{42C55204-5AB9-403E-8385-1A62B02D8234}']
-    function GetRptAlbaranes(const AListaID: TIntegerList): Binary;
+    function GetRptAlbaranes(const ListaID: TIntegerList;
+    const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
+    const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
     function GetRptWordAlbaran(const AID: Integer): Binary;
-    function GetRptPDFAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer;
+    const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
+    const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;    
   end;
 

Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas

@@ -59,18 +59,29 @@ type
     tbl_Cabecera: TDAMemDataTable;
     tbl_Detalles: TDAMemDataTable;
     frxPDFExport1: TfrxPDFExport;
-    schReport: TDASchema;
     DABin2DataStreamer1: TDABin2DataStreamer;
+    schReport: TDASchema;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure frxReportGetValue(const VarName: string; var Value: Variant);
+
   private
     FConnection: IDAConnection;
+    FVerLogotipo : Boolean;
+    FVerPrecios : Boolean;
+    FVerRefProveedor : Boolean;
+    FVerObservaciones : Boolean;
+    FVerIncidencias : Boolean;
+
     //Genera cada uno de los albaranes a imprimir
     procedure _GenerarAlbaran(const AID: Integer);
+
   public
-    function GenerarAlbaran(const AListaID : TIntegerArray): Binary;
     function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
-    function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary;
+    function GenerarAlbaran(const AListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
+                                 const VerIncidencias: Boolean): Binary;
+    function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
+                                 const VerIncidencias: Boolean): Binary;
   end;
 
 implementation
@@ -87,7 +98,6 @@ const
   { Dataset names for schReport }
   ds_InformeCabecera = 'Informe_Cabecera';
   ds_InformeDetalles = 'Informe_Detalles';
-  ds_InformeDetallesEtiquetas = 'Informe_Detalles_Etiquetas';
 
 
 { TRptAlbaranesCliente }
@@ -112,11 +122,33 @@ begin
     tbl_Detalles.Active := False;
 end;
 
-function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray): Binary;
+procedure TRptAlbaranesCliente.frxReportGetValue(const VarName: string;
+  var Value: Variant);
+begin
+  if VarName = 'ShowLogotipo' then
+    Value := FVerLogotipo;
+  if VarName = 'VerPrecios' then
+    Value := FVerPrecios;
+  if VarName = 'VerRefProveedor' then
+    Value := FVerREfProveedor;
+  if VarName = 'VerObservaciones' then
+    Value := FVerObservaciones;
+  if VarName = 'VerIncidencias' then
+    Value := FVerIncidencias;
+end;
+
+function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
+                                 const VerIncidencias: Boolean): Binary;
 var
   i: Integer;
 begin
   Result := Binary.Create;
+  FVerLogotipo := True;
+  FVerPrecios := VerPrecios;
+  FVerRefProveedor := VerRefProveedor;
+  FVerObservaciones := VerObservaciones;
+  FVerIncidencias := VerIncidencias;
+
   try
     //Vamos generando todos y cada uno de los albaranes recibidos
     for i := 0 to AListaID.Count - 1 do
@@ -126,12 +158,18 @@ begin
   end;
 end;
 
-function TRptAlbaranesCliente.GenerarAlbaranEnPDF(
+function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
-  const ListaID: TIntegerArray): Binary;
+                                 const VerIncidencias: Boolean): Binary;
 var
   i: Integer;
 begin
   Result := Binary.Create;
+  FVerLogotipo := True;
+  FVerPrecios := VerPrecios;
+  FVerRefProveedor := VerRefProveedor;
+  FVerObservaciones := VerObservaciones;
+  FVerIncidencias := VerIncidencias;
+
   try
     //Vamos generando todos y cada uno de los presupuestos recibidos
     for i := 0 to ListaID.Count - 1 do
@@ -171,40 +209,38 @@ begin
 end;
 
 function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
-{var
+var
-  dsMaster: IDADataset;
+  AInforme: Variant;
-  dsDetail: IDADataset;
+
-  AStream: TMemoryStream;}
 begin
-  Result := NIL;
-{
-  AStream := TMemoryStream.Create;
   Result := Binary.Create;
-  FConnection.BeginTransaction;
+
+  FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
   try
-    dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
+    tbl_Cabecera.Active := False;
-    dsDetail := schReport.NewDataset(FConnection, ds_InformeDetallesEtiquetas, ['ID_ALBARAN'], [AID], False);
+    tbl_Detalles.Active := False;
 
-    AStream.Clear;
+    tbl_Cabecera.ParamByName('ID').AsInteger := AID;
-    DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
+    tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID;
-    DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
 
-    AStream.Clear;
+    tbl_Cabecera.Active := True;
-    DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
+    tbl_Detalles.Active := True;
-    DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
 
-    frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
+    AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
+    if VarIsNull(AInforme) then
+       raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe ' + rptInforme));
+
+    frxReport.LoadFromFile(AInforme, True);
     if withRefCliente then
        frxReport.Variables.Variables['withRefCliente'] := 1
     else
        frxReport.Variables.Variables['withRefCliente'] := 0;
+       
     frxReport.PrepareReport(False);
     frxReport.PreviewPages.SaveToStream(Result);
   finally
-    AStream.Free;
+    FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
-    FConnection.RollbackTransaction;
   end;
-}  
 end;
 
 end.

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -32,10 +32,13 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
   protected
     { IsrvAlbaranesCliente methods }
-    function GenerarInforme(const ListaID: TIntegerArray): Binary;
     function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
     function GenerarInformeEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
+                            const VerIncidencias: Boolean): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
+                                 const VerIncidencias: Boolean): Binary;
+
   end;
 
 implementation
@@ -78,41 +81,41 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvAlbaranesCliente.GenerarInformeEnPDF(
+function TsrvAlbaranesCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
-  const ListaID: TIntegerArray): Binary;
+                                 const VerIncidencias: Boolean): Binary;
 var
   AReportGenerator : TRptAlbaranesCliente;
 begin
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID);
+    Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
 function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
-//var
+var
-//  AReportGenerator : TRptAlbaranesCliente;
+  AReportGenerator : TRptAlbaranesCliente;
 begin
   Result := NIL;
-{
+
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
     Result := AReportGenerator.GenerarEtiquetas(ID, withRefCliente);
   finally
     FreeAndNIL(AReportGenerator);
   end;
-}
 end;
 
-function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
+function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
+                            const VerIncidencias: Boolean): Binary;
 var
   AReportGenerator : TRptAlbaranesCliente;
 begin
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarAlbaran(ListaID);
+    Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
   finally
     FreeAndNIL(AReportGenerator);
   end;

Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas

@@ -0,0 +1,62 @@
+unit uDialogOpcionesImpresionAlbaranesCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
+
+type
+  TfDialogOpcionesImpresionAlbaranesCliente = class(TfDialogBase)
+    cbVerPrecios: TCheckBox;
+    cbVerRefProveedor: TCheckBox;
+    cbVerIncidencias: TCheckBox;
+    cbVerObservaciones: TCheckBox;
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+  end;
+
+  function ElegirOpcionesImpresionAlbaranCliente(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
+
+implementation
+
+{$R *.dfm}
+
+function ElegirOpcionesImpresionAlbaranCliente(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
+var
+  AEditor : TfDialogOpcionesImpresionAlbaranesCliente;
+begin
+  AEditor := TfDialogOpcionesImpresionAlbaranesCliente.Create(NIL);
+  try
+    AEditor.cbVerPrecios.Checked := AVerPrecios;
+    AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
+    AEditor.cbVerObservaciones.Checked := AVerObservaciones;
+    AEditor.cbVerIncidencias.Checked := AVerIncidencias;
+
+
+    Result := (AEditor.ShowModal = mrOk);
+    if Result then
+    begin
+      AVerPrecios := AEditor.cbVerPrecios.Checked;
+      AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
+      AVerObservaciones := AEditor.cbVerObservaciones.Checked;
+      AVerIncidencias := AEditor.cbVerIncidencias.Checked;
+    end;
+  finally
+    AEditor.Release;
+  end;
+end;
+
+procedure TfDialogOpcionesImpresionAlbaranesCliente.actAceptarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk
+end;
+
+procedure TfDialogOpcionesImpresionAlbaranesCliente.actCancelarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrCancel;
+end;
+
+end.

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas

@@ -86,7 +86,7 @@ implementation
 uses
   uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
   uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
-  uEditorDBBase, uDataTableUtils, uFactuGES_App;
+  uEditorDBBase, uDataTableUtils, uFactuGES_App, uDialogOpcionesImpresionAlbaranesCliente;
 
 {$R *.dfm}
 
@@ -241,9 +241,21 @@ begin
 end;
 
 procedure TfEditorAlbaranCliente.ImprimirInterno;
+var
+  FImprimirPrecios : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
 begin
   inherited;
-  FController.Print(FAlbaran);
+  FImprimirPrecios := True;
+  FImprimirRefProveedor := True;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
+
+  if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
+     FController.Print(Albaran, False, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
 end;
 
 procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@@ -323,9 +335,21 @@ begin
 end;
 
 procedure TfEditorAlbaranCliente.PrevisualizarInterno;
+var
+  FImprimirPrecios : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
 begin
   inherited;
-  FController.Preview(FAlbaran);
+  FImprimirPrecios := True;
+  FImprimirRefProveedor := True;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
+
+  if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
+     FController.Preview(Albaran, False, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
 end;
 
 procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas

@@ -96,7 +96,7 @@ uses
   uDialogUtils, schAlbaranesClienteClient_Intf,
 //  uFacturasClienteController, uBizFacturasCliente,
 //  uInventarioController, uGenerarAlbaranesCliUtils,
-  uEditorBase,
+  uEditorBase, uDialogOpcionesImpresionAlbaranesCliente,
   cxCustomData, uGridStatusUtils, uDBSelectionListUtils;
 
 {$R *.dfm}
@@ -166,7 +166,7 @@ end;
 
 procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
 begin
-{
+
   inherited;
   //Miramos si viene de un pedido previo, si no es asi le preguntamos si desea imprimir la referencia del cliente
   if (FAlbaranes.ID_PEDIDO > 0) then
@@ -178,7 +178,6 @@ begin
      else
         FController.EtiquetasPreview(FAlbaranes, False);
   end;
-}
 end;
 
 procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject);
@@ -406,11 +405,18 @@ var
   Respuesta : Integer;
   AAlbaranes: IBizAlbaranCliente;
   AllItems: Boolean;
+  FImprimirPrecios : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
 
 begin
-
   AAlbaranes := Nil;
   AllItems := False;
+  FImprimirPrecios := True;
+  FImprimirRefProveedor := True;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
 
   if MultiSelect and Assigned(ViewGrid) then
      AllItems :=  (ViewGrid.NumSeleccionados > 1);
@@ -437,7 +443,8 @@ begin
                     AAlbaranes := Albaranes;
 
                   if Assigned(AAlbaranes) then
-                     FController.Print(AAlbaranes, AllItems);
+                     if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
+                        FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
                 end;
       end;
     end;
@@ -495,9 +502,18 @@ var
   Respuesta : Integer;
   AAlbaranes: IBizAlbaranCliente;
   AllItems: Boolean;
+  FImprimirPrecios : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
 begin
   AAlbaranes := Nil;
   AllItems := False;
+  FImprimirPrecios := True;
+  FImprimirRefProveedor := True;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
 
   if MultiSelect and Assigned(ViewGrid) then
      AllItems :=  (ViewGrid.NumSeleccionados > 1);
@@ -514,7 +530,7 @@ begin
         200   : begin   // Lista de elementos visibles
                   inherited;
                 end;
-        100   : begin   // Elemento Seleccionado
+        100, 101   : begin   // Elemento Seleccionado
                   if AllItems then
                   begin
                     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
@@ -524,7 +540,8 @@ begin
                     AAlbaranes := Albaranes;
 
                   if Assigned(AAlbaranes) then
-                     FController.Preview(AAlbaranes, AllItems);
+                     if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
+                        FController.Preview(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
                 end;
       end;
     end;

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas

@@ -18,6 +18,25 @@ type
   TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
     TBXItem58: TTBXItem;
     procedure actExportarRTFExecute(Sender: TObject);
+  private
+    FVerPrecios : Boolean;
+    FVerRefProveedor : Boolean;
+    FVerObservaciones : Boolean;
+    FVerIncidencias : Boolean;
+    function GetVerPrecios: Boolean;
+    function GetVerRefProveedor: Boolean;
+    function GetVerIncidencias: Boolean;
+    function GetVerObservaciones: Boolean;
+    procedure SetVerPrecios(const Value: Boolean);
+    procedure SetVerRefProveedor(const Value: Boolean);
+    procedure SetObservaciones(const Value: Boolean);
+    procedure SetVerIncidencias(const Value: Boolean);
+    { Private declarations }
+  public
+    property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
+    property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
+    property VerObservaciones : Boolean read GetVerObservaciones write SetObservaciones;
+    property VerIncidencias : Boolean read GetVerIncidencias write SetVerIncidencias;
   end;
 
 
@@ -42,4 +61,47 @@ begin
       ShowInfoMessage('El albarán se ha exportado correctamente.');    
 end;
 
+function TfEditorAlbaranesClientePreview.GetVerIncidencias: Boolean;
+begin
+Result := FVerIncidencias;
+end;
+
+function TfEditorAlbaranesClientePreview.GetVerObservaciones: Boolean;
+begin
+Result := FVerObservaciones;
+end;
+
+function TfEditorAlbaranesClientePreview.GetVerPrecios: Boolean;
+begin
+Result := FVerPrecios;
+end;
+
+function TfEditorAlbaranesClientePreview.GetVerRefProveedor: Boolean;
+begin
+Result := FVerRefProveedor;
+end;
+
+procedure TfEditorAlbaranesClientePreview.SetObservaciones(
+  const Value: Boolean);
+begin
+  FVerObservaciones := Value;
+end;
+
+procedure TfEditorAlbaranesClientePreview.SetVerIncidencias(
+  const Value: Boolean);
+begin
+  FVerIncidencias := Value;
+end;
+
+procedure TfEditorAlbaranesClientePreview.SetVerPrecios(const Value: Boolean);
+begin
+  FVerPrecios := Value;
+end;
+
+procedure TfEditorAlbaranesClientePreview.SetVerRefProveedor(
+  const Value: Boolean);
+begin
+  FVerRefProveedor := Value;
+end;
+
 end.

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -614,8 +614,8 @@ begin
       REFERENCIA := '';
       ID_PEDIDO := 0;
       ID_FACTURA := 0;
-      ID_ALBARAN := 0;
+//      ID_ALBARAN := 0;
-      REFERENCIA_ALBARAN := '';
+//      REFERENCIA_ALBARAN := '';
     end;
     Result.Post;
   finally

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas

@@ -3,15 +3,15 @@ unit schAlbaranesProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 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_ListaAnosAlbaranes = '{E3A2ED3A-F249-4ABE-8A74-10FE9BD3248E}';
+  RID_ListaAnosAlbaranes = '{67FE3121-0CE7-44D8-ACA8-DD41FC61C261}';
-  RID_AlbaranesProveedor = '{70F52AD0-4120-42C8-B8C9-002C650CD667}';
+  RID_AlbaranesProveedor = '{35158E6A-D01B-419D-A2EA-50F406DE673F}';
-  RID_AlbaranesProveedor_Detalles = '{858DC56E-F6E9-4CBD-A42B-4D4C1B386F17}';
+  RID_AlbaranesProveedor_Detalles = '{058C3E31-7243-4BF5-82E7-4DAE76DDB637}';
 
   { Data table names }
   nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -35,6 +35,10 @@ const
   fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
   fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
   fld_AlbaranesProveedorTIPO = 'TIPO';
+  fld_AlbaranesProveedorID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
+  fld_AlbaranesProveedorREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
+  fld_AlbaranesProveedorID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
+  fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
   fld_AlbaranesProveedorID_ALMACEN = 'ID_ALMACEN';
   fld_AlbaranesProveedorTIPO_ALMACEN = 'TIPO_ALMACEN';
   fld_AlbaranesProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
@@ -64,8 +68,8 @@ const
   fld_AlbaranesProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_AlbaranesProveedorUSUARIO = 'USUARIO';
   fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
-  fld_AlbaranesProveedorID_ALBARAN = 'ID_ALBARAN';
+  fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
-  fld_AlbaranesProveedorREFERENCIA_ALBARAN = 'REFERENCIA_ALBARAN';
+  fld_AlbaranesProveedorNUM_CORREOS = 'NUM_CORREOS';
 
   { AlbaranesProveedor field indexes }
   idx_AlbaranesProveedorID = 0;
@@ -78,37 +82,41 @@ const
   idx_AlbaranesProveedorREFERENCIA = 7;
   idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 8;
   idx_AlbaranesProveedorTIPO = 9;
-  idx_AlbaranesProveedorID_ALMACEN = 10;
+  idx_AlbaranesProveedorID_ALBARAN_DEV = 10;
-  idx_AlbaranesProveedorTIPO_ALMACEN = 11;
+  idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 11;
-  idx_AlbaranesProveedorNOMBRE_ALMACEN = 12;
+  idx_AlbaranesProveedorID_FAC_ALB_DEV = 12;
-  idx_AlbaranesProveedorID_PEDIDO = 13;
+  idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 13;
-  idx_AlbaranesProveedorREF_PED_PROVEEDOR = 14;
+  idx_AlbaranesProveedorID_ALMACEN = 14;
-  idx_AlbaranesProveedorID_FACTURA = 15;
+  idx_AlbaranesProveedorTIPO_ALMACEN = 15;
-  idx_AlbaranesProveedorREF_FACTURA = 16;
+  idx_AlbaranesProveedorNOMBRE_ALMACEN = 16;
-  idx_AlbaranesProveedorREF_FACTURA_PROV = 17;
+  idx_AlbaranesProveedorID_PEDIDO = 17;
-  idx_AlbaranesProveedorCALLE = 18;
+  idx_AlbaranesProveedorREF_PED_PROVEEDOR = 18;
-  idx_AlbaranesProveedorCODIGO_POSTAL = 19;
+  idx_AlbaranesProveedorID_FACTURA = 19;
-  idx_AlbaranesProveedorPOBLACION = 20;
+  idx_AlbaranesProveedorREF_FACTURA = 20;
-  idx_AlbaranesProveedorPROVINCIA = 21;
+  idx_AlbaranesProveedorREF_FACTURA_PROV = 21;
-  idx_AlbaranesProveedorPERSONA_CONTACTO = 22;
+  idx_AlbaranesProveedorCALLE = 22;
-  idx_AlbaranesProveedorTELEFONO = 23;
+  idx_AlbaranesProveedorCODIGO_POSTAL = 23;
-  idx_AlbaranesProveedorIMPORTE_NETO = 24;
+  idx_AlbaranesProveedorPOBLACION = 24;
-  idx_AlbaranesProveedorIMPORTE_PORTE = 25;
+  idx_AlbaranesProveedorPROVINCIA = 25;
-  idx_AlbaranesProveedorDESCUENTO = 26;
+  idx_AlbaranesProveedorPERSONA_CONTACTO = 26;
-  idx_AlbaranesProveedorIMPORTE_DESCUENTO = 27;
+  idx_AlbaranesProveedorTELEFONO = 27;
-  idx_AlbaranesProveedorBASE_IMPONIBLE = 28;
+  idx_AlbaranesProveedorIMPORTE_NETO = 28;
-  idx_AlbaranesProveedorIVA = 29;
+  idx_AlbaranesProveedorIMPORTE_PORTE = 29;
-  idx_AlbaranesProveedorIMPORTE_IVA = 30;
+  idx_AlbaranesProveedorDESCUENTO = 30;
-  idx_AlbaranesProveedorIMPORTE_TOTAL = 31;
+  idx_AlbaranesProveedorIMPORTE_DESCUENTO = 31;
-  idx_AlbaranesProveedorOBSERVACIONES = 32;
+  idx_AlbaranesProveedorBASE_IMPONIBLE = 32;
-  idx_AlbaranesProveedorINCIDENCIAS = 33;
+  idx_AlbaranesProveedorIVA = 33;
-  idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 34;
+  idx_AlbaranesProveedorIMPORTE_IVA = 34;
-  idx_AlbaranesProveedorFECHA_ALTA = 35;
+  idx_AlbaranesProveedorIMPORTE_TOTAL = 35;
-  idx_AlbaranesProveedorFECHA_MODIFICACION = 36;
+  idx_AlbaranesProveedorOBSERVACIONES = 36;
-  idx_AlbaranesProveedorUSUARIO = 37;
+  idx_AlbaranesProveedorINCIDENCIAS = 37;
-  idx_AlbaranesProveedorID_FORMA_PAGO = 38;
+  idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 38;
-  idx_AlbaranesProveedorID_ALBARAN = 39;
+  idx_AlbaranesProveedorFECHA_ALTA = 39;
-  idx_AlbaranesProveedorREFERENCIA_ALBARAN = 40;
+  idx_AlbaranesProveedorFECHA_MODIFICACION = 40;
+  idx_AlbaranesProveedorUSUARIO = 41;
+  idx_AlbaranesProveedorID_FORMA_PAGO = 42;
+  idx_AlbaranesProveedorNUM_COPIAS = 43;
+  idx_AlbaranesProveedorNUM_CORREOS = 44;
 
   { AlbaranesProveedor_Detalles fields }
   fld_AlbaranesProveedor_DetallesID = 'ID';
@@ -151,7 +159,7 @@ const
 type
   { IListaAnosAlbaranes }
   IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
-  ['{F465A675-EFE9-4F84-B5D4-B4960D19B0AC}']
+  ['{1ACBFBC1-8E84-4ED5-B38E-C9A682A139A7}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -165,7 +173,7 @@ type
   end;
 
   { TListaAnosAlbaranesDataTableRules }
-  TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
+  TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
   private
   protected
     { Property getters and setters }
@@ -186,7 +194,7 @@ type
 
   { IAlbaranesProveedor }
   IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
-  ['{AA1B6979-13F8-4B5C-9618-E53CC259BC39}']
+  ['{F880F855-AF71-44A7-9893-AE9DDB0C73D9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -228,6 +236,22 @@ type
     procedure SetTIPOValue(const aValue: String);
     function GetTIPOIsNull: Boolean;
     procedure SetTIPOIsNull(const aValue: Boolean);
+    function GetID_ALBARAN_DEVValue: Integer;
+    procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
+    function GetID_ALBARAN_DEVIsNull: Boolean;
+    procedure SetID_ALBARAN_DEVIsNull(const aValue: Boolean);
+    function GetREFERENCIA_ALB_DEVValue: String;
+    procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
+    function GetREFERENCIA_ALB_DEVIsNull: Boolean;
+    procedure SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean);
+    function GetID_FAC_ALB_DEVValue: Integer;
+    procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
+    function GetID_FAC_ALB_DEVIsNull: Boolean;
+    procedure SetID_FAC_ALB_DEVIsNull(const aValue: Boolean);
+    function GetREFERENCIA_FAC_ALB_DEVValue: String;
+    procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
+    function GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean;
+    procedure SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean);
     function GetID_ALMACENValue: Integer;
     procedure SetID_ALMACENValue(const aValue: Integer);
     function GetID_ALMACENIsNull: Boolean;
@@ -342,14 +366,14 @@ type
     procedure SetID_FORMA_PAGOValue(const aValue: Integer);
     function GetID_FORMA_PAGOIsNull: Boolean;
     procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-    function GetID_ALBARANValue: Integer;
+    function GetNUM_COPIASValue: SmallInt;
-    procedure SetID_ALBARANValue(const aValue: Integer);
+    procedure SetNUM_COPIASValue(const aValue: SmallInt);
-    function GetID_ALBARANIsNull: Boolean;
+    function GetNUM_COPIASIsNull: Boolean;
-    procedure SetID_ALBARANIsNull(const aValue: Boolean);
+    procedure SetNUM_COPIASIsNull(const aValue: Boolean);
-    function GetREFERENCIA_ALBARANValue: String;
+    function GetNUM_CORREOSValue: SmallInt;
-    procedure SetREFERENCIA_ALBARANValue(const aValue: String);
+    procedure SetNUM_CORREOSValue(const aValue: SmallInt);
-    function GetREFERENCIA_ALBARANIsNull: Boolean;
+    function GetNUM_CORREOSIsNull: Boolean;
-    procedure SetREFERENCIA_ALBARANIsNull(const aValue: Boolean);
+    procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -373,6 +397,14 @@ type
     property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+    property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
+    property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
+    property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
+    property REFERENCIA_ALB_DEVIsNull: Boolean read GetREFERENCIA_ALB_DEVIsNull write SetREFERENCIA_ALB_DEVIsNull;
+    property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
+    property ID_FAC_ALB_DEVIsNull: Boolean read GetID_FAC_ALB_DEVIsNull write SetID_FAC_ALB_DEVIsNull;
+    property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
+    property REFERENCIA_FAC_ALB_DEVIsNull: Boolean read GetREFERENCIA_FAC_ALB_DEVIsNull write SetREFERENCIA_FAC_ALB_DEVIsNull;
     property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
     property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
     property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
@@ -431,14 +463,14 @@ type
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
-    property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+    property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
-    property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+    property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
-    property REFERENCIA_ALBARAN: String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue;
+    property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
-    property REFERENCIA_ALBARANIsNull: Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull;
+    property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
   end;
 
   { TAlbaranesProveedorDataTableRules }
-  TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor)
+  TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
@@ -486,6 +518,22 @@ type
     procedure SetTIPOValue(const aValue: String); virtual;
     function GetTIPOIsNull: Boolean; virtual;
     procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+    function GetID_ALBARAN_DEVValue: Integer; virtual;
+    procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
+    function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
+    procedure SetID_ALBARAN_DEVIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_ALB_DEVValue: String; virtual;
+    procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
+    function GetREFERENCIA_ALB_DEVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean); virtual;
+    function GetID_FAC_ALB_DEVValue: Integer; virtual;
+    procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
+    function GetID_FAC_ALB_DEVIsNull: Boolean; virtual;
+    procedure SetID_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
+    procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
+    function GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
     function GetID_ALMACENValue: Integer; virtual;
     procedure SetID_ALMACENValue(const aValue: Integer); virtual;
     function GetID_ALMACENIsNull: Boolean; virtual;
@@ -600,14 +648,14 @@ type
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
     function GetID_FORMA_PAGOIsNull: Boolean; virtual;
     procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
-    function GetID_ALBARANValue: Integer; virtual;
+    function GetNUM_COPIASValue: SmallInt; virtual;
-    procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+    procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
-    function GetID_ALBARANIsNull: Boolean; virtual;
+    function GetNUM_COPIASIsNull: Boolean; virtual;
-    procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
+    procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_ALBARANValue: String; virtual;
+    function GetNUM_CORREOSValue: SmallInt; virtual;
-    procedure SetREFERENCIA_ALBARANValue(const aValue: String); virtual;
+    procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
-    function GetREFERENCIA_ALBARANIsNull: Boolean; virtual;
+    function GetNUM_CORREOSIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_ALBARANIsNull(const aValue: Boolean); virtual;
+    procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -630,6 +678,14 @@ type
     property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
     property TIPO: String read GetTIPOValue write SetTIPOValue;
     property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
+    property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
+    property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
+    property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
+    property REFERENCIA_ALB_DEVIsNull: Boolean read GetREFERENCIA_ALB_DEVIsNull write SetREFERENCIA_ALB_DEVIsNull;
+    property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
+    property ID_FAC_ALB_DEVIsNull: Boolean read GetID_FAC_ALB_DEVIsNull write SetID_FAC_ALB_DEVIsNull;
+    property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
+    property REFERENCIA_FAC_ALB_DEVIsNull: Boolean read GetREFERENCIA_FAC_ALB_DEVIsNull write SetREFERENCIA_FAC_ALB_DEVIsNull;
     property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
     property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
     property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
@@ -688,10 +744,10 @@ type
     property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
-    property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+    property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
-    property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+    property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
-    property REFERENCIA_ALBARAN: String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue;
+    property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
-    property REFERENCIA_ALBARANIsNull: Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull;
+    property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -701,7 +757,7 @@ type
 
   { IAlbaranesProveedor_Detalles }
   IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{C89909AC-C87D-409B-A9F4-6FA0037F0E34}']
+  ['{016EE213-5C1E-47B9-AF6B-80B093BA8C57}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -811,7 +867,7 @@ type
   end;
 
   { TAlbaranesProveedor_DetallesDataTableRules }
-  TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles)
+  TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles)
   private
   protected
     { Property getters and setters }
@@ -1204,6 +1260,90 @@ begin
     DataTable.Fields[idx_AlbaranesProveedorTIPO].AsVariant := Null;
 end;
 
+function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger := aValue;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].IsNull;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetID_ALBARAN_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsVariant := Null;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsString;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
+begin
+  DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsString := aValue;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALB_DEVIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].IsNull;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsVariant := Null;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsInteger;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsInteger := aValue;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetID_FAC_ALB_DEVIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].IsNull;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetID_FAC_ALB_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsVariant := Null;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
+begin
+  DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString := aValue;
+end;
+
+function TAlbaranesProveedorDataTableRules.GetREFERENCIA_FAC_ALB_DEVIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].IsNull;
+end;
+
+procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsVariant := Null;
+end;
+
 function TAlbaranesProveedorDataTableRules.GetID_ALMACENValue: Integer;
 begin
   result := DataTable.Fields[idx_AlbaranesProveedorID_ALMACEN].AsInteger;
@@ -1805,46 +1945,46 @@ begin
     DataTable.Fields[idx_AlbaranesProveedorID_FORMA_PAGO].AsVariant := Null;
 end;
 
-function TAlbaranesProveedorDataTableRules.GetID_ALBARANValue: Integer;
+function TAlbaranesProveedorDataTableRules.GetNUM_COPIASValue: SmallInt;
 begin
-  result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].AsInteger;
+  result := DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsSmallInt;
 end;
 
-procedure TAlbaranesProveedorDataTableRules.SetID_ALBARANValue(const aValue: Integer);
+procedure TAlbaranesProveedorDataTableRules.SetNUM_COPIASValue(const aValue: SmallInt);
 begin
-  DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].AsInteger := aValue;
+  DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsSmallInt := aValue;
 end;
 
-function TAlbaranesProveedorDataTableRules.GetID_ALBARANIsNull: boolean;
+function TAlbaranesProveedorDataTableRules.GetNUM_COPIASIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].IsNull;
+  result := DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].IsNull;
 end;
 
-procedure TAlbaranesProveedorDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean);
+procedure TAlbaranesProveedorDataTableRules.SetNUM_COPIASIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].AsVariant := Null;
+    DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsVariant := Null;
 end;
 
-function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALBARANValue: String;
+function TAlbaranesProveedorDataTableRules.GetNUM_CORREOSValue: SmallInt;
 begin
-  result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].AsString;
+  result := DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsSmallInt;
 end;
 
-procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALBARANValue(const aValue: String);
+procedure TAlbaranesProveedorDataTableRules.SetNUM_CORREOSValue(const aValue: SmallInt);
 begin
-  DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].AsString := aValue;
+  DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsSmallInt := aValue;
 end;
 
-function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALBARANIsNull: boolean;
+function TAlbaranesProveedorDataTableRules.GetNUM_CORREOSIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].IsNull;
+  result := DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].IsNull;
 end;
 
-procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALBARANIsNull(const aValue: Boolean);
+procedure TAlbaranesProveedorDataTableRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].AsVariant := Null;
+    DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsVariant := Null;
 end;
 
 

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas

@@ -9,14 +9,14 @@ 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_ListaAnosAlbaranesDelta = '{B991C998-8031-4B76-A869-AAD2C16ED2AF}';
+  RID_ListaAnosAlbaranesDelta = '{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}';
-  RID_AlbaranesProveedorDelta = '{0FC3D2BC-B9A2-4FBA-A4DA-65522DD5B4D3}';
+  RID_AlbaranesProveedorDelta = '{E1D5D564-4E1B-40E7-836F-99DEF018E818}';
-  RID_AlbaranesProveedor_DetallesDelta = '{A6A5E64F-495A-4C33-B6BF-EE78BEF1ECAD}';
+  RID_AlbaranesProveedor_DetallesDelta = '{F56457BE-97AC-46CB-A5B8-A4334B643925}';
 
 type
   { IListaAnosAlbaranesDelta }
   IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
-  ['{B991C998-8031-4B76-A869-AAD2C16ED2AF}']
+  ['{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IAlbaranesProveedorDelta }
   IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
-  ['{0FC3D2BC-B9A2-4FBA-A4DA-65522DD5B4D3}']
+  ['{E1D5D564-4E1B-40E7-836F-99DEF018E818}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -62,6 +62,10 @@ type
     function GetOldREFERENCIAValue : String;
     function GetOldREFERENCIA_PROVEEDORValue : String;
     function GetOldTIPOValue : String;
+    function GetOldID_ALBARAN_DEVValue : Integer;
+    function GetOldREFERENCIA_ALB_DEVValue : String;
+    function GetOldID_FAC_ALB_DEVValue : Integer;
+    function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
     function GetOldID_ALMACENValue : Integer;
     function GetOldTIPO_ALMACENValue : String;
     function GetOldNOMBRE_ALMACENValue : String;
@@ -91,8 +95,8 @@ type
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
     function GetOldID_FORMA_PAGOValue : Integer;
-    function GetOldID_ALBARANValue : Integer;
+    function GetOldNUM_COPIASValue : SmallInt;
-    function GetOldREFERENCIA_ALBARANValue : String;
+    function GetOldNUM_CORREOSValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -105,6 +109,10 @@ type
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
     property OldTIPO : String read GetOldTIPOValue;
+    property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
+    property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
+    property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
+    property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
     property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
     property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
     property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
@@ -134,8 +142,8 @@ type
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
-    property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+    property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
-    property OldREFERENCIA_ALBARAN : String read GetOldREFERENCIA_ALBARANValue;
+    property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
   end;
 
   { TAlbaranesProveedorBusinessProcessorRules }
@@ -207,6 +215,30 @@ type
     function GetOldTIPOIsNull: Boolean; virtual;
     procedure SetTIPOValue(const aValue: String); virtual;
     procedure SetTIPOIsNull(const aValue: Boolean); virtual;
+    function GetID_ALBARAN_DEVValue: Integer; virtual;
+    function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
+    function GetOldID_ALBARAN_DEVValue: Integer; virtual;
+    function GetOldID_ALBARAN_DEVIsNull: Boolean; virtual;
+    procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
+    procedure SetID_ALBARAN_DEVIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_ALB_DEVValue: String; virtual;
+    function GetREFERENCIA_ALB_DEVIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
+    function GetOldREFERENCIA_ALB_DEVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean); virtual;
+    function GetID_FAC_ALB_DEVValue: Integer; virtual;
+    function GetID_FAC_ALB_DEVIsNull: Boolean; virtual;
+    function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
+    function GetOldID_FAC_ALB_DEVIsNull: Boolean; virtual;
+    procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
+    procedure SetID_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
+    function GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
+    function GetOldREFERENCIA_FAC_ALB_DEVIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
     function GetID_ALMACENValue: Integer; virtual;
     function GetID_ALMACENIsNull: Boolean; virtual;
     function GetOldID_ALMACENValue: Integer; virtual;
@@ -379,18 +411,18 @@ type
     function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
     procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
-    function GetID_ALBARANValue: Integer; virtual;
+    function GetNUM_COPIASValue: SmallInt; virtual;
-    function GetID_ALBARANIsNull: Boolean; virtual;
+    function GetNUM_COPIASIsNull: Boolean; virtual;
-    function GetOldID_ALBARANValue: Integer; virtual;
+    function GetOldNUM_COPIASValue: SmallInt; virtual;
-    function GetOldID_ALBARANIsNull: Boolean; virtual;
+    function GetOldNUM_COPIASIsNull: Boolean; virtual;
-    procedure SetID_ALBARANValue(const aValue: Integer); virtual;
+    procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
-    procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
+    procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_ALBARANValue: String; virtual;
+    function GetNUM_CORREOSValue: SmallInt; virtual;
-    function GetREFERENCIA_ALBARANIsNull: Boolean; virtual;
+    function GetNUM_CORREOSIsNull: Boolean; virtual;
-    function GetOldREFERENCIA_ALBARANValue: String; virtual;
+    function GetOldNUM_CORREOSValue: SmallInt; virtual;
-    function GetOldREFERENCIA_ALBARANIsNull: Boolean; virtual;
+    function GetOldNUM_CORREOSIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_ALBARANValue(const aValue: String); virtual;
+    procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
-    procedure SetREFERENCIA_ALBARANIsNull(const aValue: Boolean); virtual;
+    procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -433,6 +465,22 @@ type
     property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
     property OldTIPO : String read GetOldTIPOValue;
     property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
+    property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
+    property ID_ALBARAN_DEVIsNull : Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
+    property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
+    property OldID_ALBARAN_DEVIsNull : Boolean read GetOldID_ALBARAN_DEVIsNull;
+    property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
+    property REFERENCIA_ALB_DEVIsNull : Boolean read GetREFERENCIA_ALB_DEVIsNull write SetREFERENCIA_ALB_DEVIsNull;
+    property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
+    property OldREFERENCIA_ALB_DEVIsNull : Boolean read GetOldREFERENCIA_ALB_DEVIsNull;
+    property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
+    property ID_FAC_ALB_DEVIsNull : Boolean read GetID_FAC_ALB_DEVIsNull write SetID_FAC_ALB_DEVIsNull;
+    property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
+    property OldID_FAC_ALB_DEVIsNull : Boolean read GetOldID_FAC_ALB_DEVIsNull;
+    property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
+    property REFERENCIA_FAC_ALB_DEVIsNull : Boolean read GetREFERENCIA_FAC_ALB_DEVIsNull write SetREFERENCIA_FAC_ALB_DEVIsNull;
+    property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
+    property OldREFERENCIA_FAC_ALB_DEVIsNull : Boolean read GetOldREFERENCIA_FAC_ALB_DEVIsNull;
     property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
     property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
     property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
@@ -549,14 +597,14 @@ type
     property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
-    property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
+    property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
-    property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
+    property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
-    property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
+    property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
-    property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull;
+    property OldNUM_COPIASIsNull : Boolean read GetOldNUM_COPIASIsNull;
-    property REFERENCIA_ALBARAN : String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue;
+    property NUM_CORREOS : SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
-    property REFERENCIA_ALBARANIsNull : Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull;
+    property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
-    property OldREFERENCIA_ALBARAN : String read GetOldREFERENCIA_ALBARANValue;
+    property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
-    property OldREFERENCIA_ALBARANIsNull : Boolean read GetOldREFERENCIA_ALBARANIsNull;
+    property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -566,7 +614,7 @@ type
 
   { IAlbaranesProveedor_DetallesDelta }
   IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
-  ['{A6A5E64F-495A-4C33-B6BF-EE78BEF1ECAD}']
+  ['{F56457BE-97AC-46CB-A5B8-A4334B643925}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -1179,6 +1227,130 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO] := Null;
 end;
 
+function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV]);
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARAN_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV]);
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV] := aValue;
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARAN_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV] := Null;
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALB_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV]);
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV]);
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV] := aValue;
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV] := Null;
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetID_FAC_ALB_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV]);
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldID_FAC_ALB_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV]);
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV] := aValue;
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetID_FAC_ALB_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV] := Null;
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV]);
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV];
+end;
+
+function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV]);
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV] := aValue;
+end;
+
+procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV] := Null;
+end;
+
 function TAlbaranesProveedorBusinessProcessorRules.GetID_ALMACENValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALMACEN];
@@ -2072,66 +2244,66 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FORMA_PAGO] := Null;
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARANValue: Integer;
+function TAlbaranesProveedorBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS];
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARANIsNull: Boolean;
+function TAlbaranesProveedorBusinessProcessorRules.GetNUM_COPIASIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS]);
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARANValue: Integer;
+function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_COPIAS];
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean;
+function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_COPIASIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_COPIAS]);
 end;
 
-procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer);
+procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: SmallInt);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := aValue;
 end;
 
-procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean);
+procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_COPIASIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := Null;
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALBARANValue: String;
+function TAlbaranesProveedorBusinessProcessorRules.GetNUM_CORREOSValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS];
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALBARANIsNull: Boolean;
+function TAlbaranesProveedorBusinessProcessorRules.GetNUM_CORREOSIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS]);
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALBARANValue: String;
+function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_CORREOSValue: SmallInt;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_CORREOS];
 end;
 
-function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALBARANIsNull: Boolean;
+function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_CORREOSIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_CORREOS]);
 end;
 
-procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALBARANValue(const aValue: String);
+procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: SmallInt);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := aValue;
 end;
 
-procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALBARANIsNull(const aValue: Boolean);
+procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := Null;
 end;
 
 

Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas

@@ -58,7 +58,7 @@ type
     procedure SetID_ALMACENValue(const aValue: Integer); override;
     procedure SetID_FACTURAValue(const aValue: Integer); override;
     procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
-    procedure SetID_ALBARANValue(const aValue: Integer); override;
+//    procedure SetID_ALBARANValue(const aValue: Integer); override;
 
     procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
     procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@@ -255,6 +255,7 @@ begin
     inherited;
 end;
 
+{
 procedure TBizAlbaranProveedor.SetID_ALBARANValue(const aValue: Integer);
 begin
   if (aValue = 0) then
@@ -262,6 +263,7 @@ begin
   else
     inherited;
 end;
+}
 
 procedure TBizAlbaranProveedor.SetID_ALMACENValue(const aValue: Integer);
 begin

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas

@@ -232,7 +232,7 @@ var
 begin
   inherited;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then
@@ -291,7 +291,7 @@ var
 begin
   inherited;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas

@@ -241,7 +241,7 @@ var
 begin
   AAlbaranes := Nil;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if MultiSelect and Assigned(ViewGrid) then
@@ -340,7 +340,7 @@ var
 begin
   AAlbaranes := Nil;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
 

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

@@ -85,13 +85,14 @@ type
     frxDBInformeListadoFacturasPendientes: TfrxDBDataset;
     DADSInformeListadoFacturasPendientes: TDADataSource;
     tbl_InformeListadoFacturasPendientes: TDAMemDataTable;
-    schReport: TDASchema;
     frxDBInformeListadoFacturasResumen: TfrxDBDataset;
     DADSInformeListadoFacturasResumen: TDADataSource;
     tbl_InformeListadoFacturasResumen: TDAMemDataTable;
     Bin2DataStreamer: TDABin2DataStreamer;
+    schReport: TDASchema;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure frxReportGetValue(const VarName: string; var Value: Variant);
   private
     FConnection: IDAConnection;
     FIdEmpresa: Integer;
@@ -103,6 +104,7 @@ type
     FListaNombresClientes : TStringList;
     FImporteMinimo: Currency;
     FDesglosado : Boolean;
+    FShowLogotipo: Boolean;
 
     //Genera cada una de las facturas a imprimir
     procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True);
@@ -146,6 +148,8 @@ const
 
 procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject);
 begin
+  FShowLogotipo := False;
+
   schReport.ConnectionManager := dmServer.ConnectionManager;
   FConnection := dmServer.DarNuevaConexion;
   frxReport.EngineOptions.NewSilentMode := simReThrow;
@@ -171,6 +175,12 @@ begin
   FreeANDNIL(FListaNombresClientes);
 end;
 
+procedure TRptFacturasCliente.frxReportGetValue(const VarName: string; var Value: Variant);
+begin
+  if VarName = 'ShowLogotipo' then
+    Value := FShowLogotipo;
+end;
+
 function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; const VerSello: Boolean = True; const VerCopia: Boolean = True): Binary;
 var
   i: Integer;
@@ -675,21 +685,23 @@ begin
        raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
 
     frxReport.LoadFromFile(AInforme, True);
+{
     if VerSello then
        frxReport.Variables.Variables['VerSello'] := 1
     else
        frxReport.Variables.Variables['VerSello'] := 0;
-
      //La primera impresion siempre es sin la etiqueta copia
     frxReport.Variables.Variables['VerCopia'] := 0;
+}
     frxReport.PrepareReport(False);
+{
     if VerCopia then
     begin
        frxReport.Variables.Variables['VerCopia'] := 1;
        frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
        frxReport.PrepareReport(False);
     end;
-
+}
   finally
     FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
   end;

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

@@ -340,7 +340,7 @@ begin
   AVerCopia := True;
 
   //Preguntamos si desea que en las facturas se vea el Sello
-  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
+//  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
      FController.Print(FFactura, AllItems, AVerSello, AVerCopia);
 end;
 
@@ -430,7 +430,7 @@ begin
   AVerCopia := True;
 
   //Preguntamos si desea que en las facturas se vea el Sello
-  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
+//  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
      FController.Preview(FFactura, AllItems, AVerSello, AVerCopia);
 end;
 

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

@@ -338,7 +338,7 @@ begin
                     AFacturas := Facturas;
 
                   //Preguntamos si desea que en las facturas se vea el Sello
-                  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
+//                  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
                      if Assigned(AFacturas) then
                         FController.Print(AFacturas, AllItems, AVerSello, AVerCopia);
                 end;
@@ -433,7 +433,7 @@ begin
                     AFacturas := Facturas;
 
                   //Preguntamos si desea que en las facturas se vea el Sello
-                  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
+//                  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
                      if Assigned(AFacturas) then
                         FController.Preview(AFacturas, AllItems, AVerSello, AVerCopia);
                 end;

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -137,7 +137,7 @@ uses
   uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
   uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
   uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
-  uFormasPagoController, uBizFormasPago, uStringsUtils,
+  uFormasPagoController, uBizFormasPago, uStringsUtils, uIntegerListUtils,
   uIEditorElegirDomiciliacion,
 
   cxEdit;
@@ -900,12 +900,12 @@ end;
 procedure TFacturasProveedorController.Preview(AFactura: IBizFacturaProveedor; AllItems: Boolean = false);
 var
   AReportController : IFacturasProveedorReportController;
-  ID_Facturas: TStringList;
+  ID_Facturas: TIntegerList;
 
 begin
   AReportController := TFacturasProveedorReportController.Create;
   try
-   ID_Facturas := TStringList.Create;
+   ID_Facturas := TIntegerList.Create;
 
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
@@ -915,16 +915,16 @@ begin
        First;
        while not EOF do
        begin
-         ID_Facturas.Add(IntToStr(AFactura.ID));
+         ID_Facturas.Add(AFactura.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Facturas.Add(IntToStr(AFactura.ID));
+     ID_Facturas.Add(AFactura.ID);
 
-    AReportController.Preview(ID_Facturas.CommaText);
+    AReportController.Preview(ID_Facturas);
 
   finally
     AReportController := NIL;
@@ -935,12 +935,12 @@ end;
 procedure TFacturasProveedorController.Print(AFactura: IBizFacturaProveedor; AllItems: Boolean = false);
 var
   AReportController : IFacturasProveedorReportController;
-  ID_Facturas: TStringList;
+  ID_Facturas: TIntegerList;
 
 begin
   AReportController := TFacturasProveedorReportController.Create;
   try
-   ID_Facturas := TStringList.Create;
+   ID_Facturas := TIntegerList.Create;
 
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
@@ -950,16 +950,16 @@ begin
        First;
        while not EOF do
        begin
-         ID_Facturas.Add(IntToStr(AFactura.ID));
+         ID_Facturas.Add(AFactura.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Facturas.Add(IntToStr(AFactura.ID));
+     ID_Facturas.Add(AFactura.ID);
 
-    AReportController.Print(ID_Facturas.CommaText);
+    AReportController.Print(ID_Facturas);
 
   finally
     AReportController := NIL;

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas

@@ -4,13 +4,15 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedorReport,
-  uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor;
+  uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
+  uIntegerListUtils;
 
 type
   IFacturasProveedorReportController = interface(IControllerBase)
   ['{551F82DC-B8DC-482E-A20D-15003E845078}']
-    procedure Preview(const AFacturaID : String);
+    procedure Preview(const AListaID : TIntegerList);
-    procedure Print(const AFacturaID : String);
+    procedure Print(const AListaID : TIntegerList);
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
   TFacturasProveedorReportController = class(TControllerBase, IFacturasProveedorReportController)
@@ -21,8 +23,9 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AFacturaID : String);
+    procedure Preview(const AListaID : TIntegerList);
-    procedure Print(const AFacturaID : String);
+    procedure Print(const AListaID : TIntegerList);
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
 
@@ -30,7 +33,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorFacturasProveedorPreview,
-  uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls,
+  uStringsUtils;
 
 { TFacturasProveedorReportController }
 
@@ -53,7 +57,30 @@ begin
   inherited;
 end;
 
-procedure TFacturasProveedorReportController.Preview(const AFacturaID : String);
+function TFacturasProveedorReportController.ExportToPDF(const AID: Integer;
+  const AFileName: String): Boolean;
+var
+  AStream: Binary;
+begin
+  Result := False;
+  if EsCadenaVacia(AFileName) then
+    Exit;
+
+  ShowHourglassCursor;
+  try
+    AStream := FDataModule.GetRptPDFFactura(AID);
+    try
+      AStream.SaveToFile(AFileName);
+      Result := True;
+    finally
+      FreeAndNil(AStream);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TFacturasProveedorReportController.Preview(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorFacturasProveedorPreview;
@@ -62,7 +89,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AFacturaID);
+    AStream := FDataModule.GetRptFacturas(AListaID);
     try
       CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
       if Assigned(AEditor) then
@@ -81,7 +108,7 @@ begin
   end;
 end;
 
-procedure TFacturasProveedorReportController.Print(const AFacturaID : String);
+procedure TFacturasProveedorReportController.Print(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorFacturasProveedorPreview;
@@ -90,7 +117,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AFacturaID);
+    AStream := FDataModule.GetRptFacturas(AListaID);
     try
       CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas

@@ -8,7 +8,7 @@ uses
   uRORemoteService, uROClient, uROBinMessage,
   uDataModuleBase,
   uIDataModuleFacturasProveedor, uBizFacturasProveedor, uBizDetallesFacturaProveedor,
-  uBizPedidosFacturaProveedor,
+  uBizPedidosFacturaProveedor, uIntegerListUtils,
   uDADesigntimeCall, uIDataModuleFacturasProveedorReport, uDARemoteDataAdapter,
   uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
 
@@ -29,13 +29,15 @@ type
   private
     function _GetDetalles : IBizDetallesFacturaProveedor;
     function _GetPedidos : IBizPedidosFacturaProveedor;
+
   public
     function GetItems : IBizFacturaProveedor;
     function GetItem(const ID : Integer) : IBizFacturaProveedor;
     function NewItem : IBizFacturaProveedor;
 
     // Report
-    function GetReport(const AFacturaID: String): Binary;
+    function GetRptFacturas(const AListaID: TIntegerList): Binary;
+    function GetRptPDFFactura(const AID: Integer): Binary;
 
     function GetAnosItems : TStringList;
   end;
@@ -56,9 +58,29 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleFacturasProveedor.GetReport(const AFacturaID: String): Binary;
+function TDataModuleFacturasProveedor.GetRptFacturas(const AListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-//  Result := (RORemoteService as IsrvFacturasProveedor).GenerateReport(AFacturaID)
+  AParam := AListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvFacturasProveedor).GenerarInforme(AParam);
+  finally
+    FreeANDNIL(AParam);
+  end;
+end;
+
+function TDataModuleFacturasProveedor.GetRptPDFFactura(const AID: Integer): Binary;
+var
+  AParam : TIntegerArray;
+begin
+  AParam := TIntegerArray.Create;
+  try
+    AParam.Add(AID);
+    Result := (RORemoteService as IsrvFacturasProveedor).GenerarInformeEnPDF(AParam);
+  finally
+    FreeANDNIL(AParam);
+  end;
 end;
 
 function TDataModuleFacturasProveedor.NewItem: IBizFacturaProveedor;

Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedorReport.pas

@@ -3,12 +3,13 @@ unit uIDataModuleFacturasProveedorReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleFacturasProveedorReport = interface
   ['{4979ACC5-069C-45C8-9D0B-49FC471F1A92}']
-    function GetReport(const AFacturaID: String): Binary;
+    function GetRptFacturas(const AListaID: TIntegerList): Binary;
+    function GetRptPDFFactura(const AID: Integer): Binary;
   end;
 
 implementation

Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas

@@ -37,7 +37,16 @@ type
     tbl_InformeListadoFacturasPendResumen: TDAMemDataTable;
     Bin2DataStreamer: TDABin2DataStreamer;
     DARemoteDataAdapter: TDARemoteDataAdapter;
+    tbl_Cabecera: TDAMemDataTable;
+    tbl_Detalles: TDAMemDataTable;
+    DADSDetalles: TDADataSource;
+    DADSCabecera: TDADataSource;
+    frxDBCabecera: TfrxDBDataset;
+    frxDBDetalles: TfrxDBDataset;
     schReport: TDASchema;
+    frxDBVencimientos: TfrxDBDataset;
+    DADSVencimientos: TDADataSource;
+    tbl_Vencimientos: TDAMemDataTable;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
@@ -51,12 +60,18 @@ type
     FListaNombresProveedores: TStringList;
     FImporteMinimo: Currency;
     FDesglosado : Boolean;
+
+    //Genera cada una de las facturas a imprimir
+    procedure _GenerarFactura(const ID: Integer);
+
     procedure RecuperarNombresProveedores;
     procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
     procedure PrepararTablaResumenInforme(ATabla: IDADataset);
     procedure IniciarParametrosInforme;
     function _GenerarInforme(const TipoInforme: String): Binary;
   public
+    function GenerarFactura(const ListaID : TIntegerArray): Binary;
+    function GenerarFacturaEnPDF(const ListaID : TIntegerArray): Binary;
     function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@@ -71,6 +86,8 @@ uses
   uROServer, DataAbstract4_Intf;
 
 const
+  rptFacturaProveedor = 'InfFacturaProveedor.fr3';
+  
   rptInformeIVA = 'InformeIVAProveedores.fr3';
   rptInformeIVADesglosado = 'InformeIVAProveedoresDesglosado.fr3';
   rptInformeListadoFacturasProveedor = 'InformeListadoFacturasProveedor.fr3';
@@ -99,6 +116,37 @@ begin
   FreeANDNIL(FListaNombresProveedores);
 end;
 
+function TRptFacturasProveedor.GenerarFactura(const ListaID: TIntegerArray): Binary;
+var
+  i: Integer;
+begin
+  Result := Binary.Create;
+  try
+    //Vamos generando todos y cada una de las facturas recibidas
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarFactura(ListaID.Items[i]);
+
+    frxReport.PreviewPages.SaveToStream(Result);
+  finally
+  end;
+end;
+
+function TRptFacturasProveedor.GenerarFacturaEnPDF(const ListaID: TIntegerArray): Binary;
+var
+  i: Integer;
+begin
+  Result := Binary.Create;
+  try
+    //Vamos generando todos y cada una de las facturas recibidas
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarFactura(ListaID.Items[i]);
+
+    frxPDFExport1.Stream := Result;
+    frxReport.Export(frxPDFExport1)
+  finally
+  end;
+end;
+
 function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
   const FechaInicio, FechaFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
@@ -585,6 +633,52 @@ begin
 end;
 
 
+procedure TRptFacturasProveedor._GenerarFactura(const ID: Integer);
+var
+  AInforme: Variant;
+
+begin
+  FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  try
+    tbl_Cabecera.Active := False;
+    tbl_Detalles.Active := False;
+//    tbl_Vencimientos.Active := False;
+
+    tbl_Cabecera.ParamByName('ID').AsInteger := ID;
+    tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
+//    tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID;
+
+    tbl_Cabecera.Active := True;
+    tbl_Detalles.Active := True;
+//    tbl_Vencimientos.Active := True;
+
+    AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProveedor, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
+    if VarIsNull(AInforme) then
+       raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaProveedor));
+
+    frxReport.LoadFromFile(AInforme, True);
+{
+    if VerSello then
+       frxReport.Variables.Variables['VerSello'] := 1
+    else
+       frxReport.Variables.Variables['VerSello'] := 0;
+     //La primera impresion siempre es sin la etiqueta copia
+    frxReport.Variables.Variables['VerCopia'] := 0;
+}
+    frxReport.PrepareReport(False);
+{
+    if VerCopia then
+    begin
+       frxReport.Variables.Variables['VerCopia'] := 1;
+       frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
+       frxReport.PrepareReport(False);
+    end;
+}
+  finally
+    FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  end;
+end;
+
 function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String): Binary;
 var
   AInforme: Variant;

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas

@@ -33,6 +33,11 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
+
+  protected
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+
   end;
 
 implementation
@@ -41,8 +46,8 @@ implementation
 uses
   {Generated:} FactuGES_Invk, Dialogs,
   uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasProveedorClient_Intf,
-  uRestriccionesUsuarioUtils, uBizFacturasProveedorServer;
+  uRestriccionesUsuarioUtils, uBizFacturasProveedorServer,
-//  uRptFacturasProveedor_Server;
+  uRptFacturasProveedor_Server;
 
 procedure Create_srvFacturasProveedor(out anInstance : IUnknown);
 begin
@@ -77,6 +82,30 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
+function TsrvFacturasProveedor.GenerarInforme(const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptFacturasProveedor;
+begin
+  AReportGenerator := TRptFacturasProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarFactura(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvFacturasProveedor.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptFacturasProveedor;
+begin
+  AReportGenerator := TRptFacturasProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarFacturaEnPDF(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
 initialization
   TROClassFactory.Create('srvFacturasProveedor', Create_srvFacturasProveedor, TsrvFacturasProveedor_Invoker);
 

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas

@@ -275,10 +275,8 @@ end;
 
 procedure TfEditorFacturaProveedor.ImprimirInterno;
 begin
-{
   inherited;
   FController.Print(FFactura);
-}  
 end;
 
 procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
@@ -352,10 +350,8 @@ end;
 
 procedure TfEditorFacturaProveedor.PrevisualizarInterno;
 begin
-{
   inherited;
   FController.Preview(FFactura);
-}  
 end;
 
 procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad;

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas

@@ -62,6 +62,8 @@ type
     procedure ModificarInterno; override;
     procedure DuplicarInterno; override;
     procedure RefrescarInterno; override;
+    procedure ImprimirInterno; override;
+    procedure PrevisualizarInterno; override;
 
   public
     procedure PonerTitulos(const ATitulo: string = ''); override;
@@ -322,6 +324,49 @@ begin
   Result := FFacturas;
 end;
 
+procedure TfEditorFacturasProveedor.ImprimirInterno;
+var
+  Respuesta : Integer;
+  AFacturas: IBizFacturaProveedor;
+  AllItems: Boolean;
+begin
+  AFacturas := Nil;
+  AllItems := False;
+
+  if MultiSelect and Assigned(ViewGrid) then
+     AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+  //Si esta agrupado solo podré imprimir la lista de elementos visibles
+  if not ViewGrid.esSeleccionCeldaDatos then
+     inherited
+  else
+  begin
+    Respuesta := JsImprimirDialog.Execute;
+    if Respuesta <> IDCANCEL then
+    begin
+      case JsImprimirDialog.CustomButtonResult of
+        200   : begin   // Lista de elementos visibles
+                  inherited;
+                end;
+        100   : begin   // Elemento Seleccionado
+                  if AllItems then
+                  begin
+                    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+                  end
+                  else
+                    AFacturas := Facturas;
+
+                  //Preguntamos si desea que en las facturas se vea el Sello
+//                  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
+                     if Assigned(AFacturas) then
+                        FController.Print(AFacturas, AllItems);
+                end;
+      end;
+    end;
+  end;
+end;
+
 procedure TfEditorFacturasProveedor.ModificarInterno;
 begin
   inherited;
@@ -370,6 +415,49 @@ begin
   inherited PonerTitulos(FTitulo);
 end;
 
+procedure TfEditorFacturasProveedor.PrevisualizarInterno;
+var
+  Respuesta : Integer;
+  AFacturas: IBizFacturaProveedor;
+  AllItems: Boolean;
+begin
+  AFacturas := Nil;
+  AllItems := False;
+
+  if MultiSelect and Assigned(ViewGrid) then
+     AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+  //Si esta agrupado solo podré imprimir la lista de elementos visibles
+  if not ViewGrid.esSeleccionCeldaDatos then
+     inherited
+  else
+  begin
+    Respuesta := JsPrevisualizarDialog.Execute;
+    if Respuesta <> IDCANCEL then
+    begin
+      case JsPrevisualizarDialog.CustomButtonResult of
+        200   : begin   // Lista de elementos visibles
+                  inherited;
+                end;
+        100   : begin   // Elemento Seleccionado
+                  if AllItems then
+                  begin
+                    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+                    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+                  end
+                  else
+                    AFacturas := Facturas;
+
+                  //Preguntamos si desea que en las facturas se vea el Sello
+//                  if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
+                     if Assigned(AFacturas) then
+                        FController.Preview(AFacturas, AllItems);
+                end;
+      end;
+    end;
+  end;
+end;
+
 procedure TfEditorFacturasProveedor.RefrescarInterno;
 begin
   //Volvemos a cargar los años de los albaranes

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas

@@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 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_ListaAnosPedidos = '{BB4ACD7F-346E-4B72-9B4C-4765E709D911}';
+  RID_ListaAnosPedidos = '{F7F27923-FB30-40B2-8F05-6B9563D17395}';
-  RID_PedidosProveedor = '{FB6CB8F5-5944-469C-848F-C2B228E6115F}';
+  RID_PedidosProveedor = '{8C858277-77F8-4D71-A60F-8003348A72AA}';
-  RID_PedidosProveedor_Detalles = '{BB197BA1-5EB9-416C-A7DD-1B8C3097AE72}';
+  RID_PedidosProveedor_Detalles = '{5C63501F-5ADE-45AD-B72C-52E7EA7EE819}';
-  RID_PedidosProveedor_Articulos_Pendientes = '{D8031329-D44D-436D-90CC-28FFBF9B3485}';
+  RID_PedidosProveedor_Articulos_Pendientes = '{1928FD1A-A663-4568-B2AF-E6E1EA2DF22F}';
 
   { Data table names }
   nme_ListaAnosPedidos = 'ListaAnosPedidos';
@@ -69,6 +69,8 @@ const
   fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_PedidosProveedorID_FACTURA = 'ID_FACTURA';
   fld_PedidosProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV';
+  fld_PedidosProveedorNUM_COPIAS = 'NUM_COPIAS';
+  fld_PedidosProveedorNUM_CORREOS = 'NUM_CORREOS';
 
   { PedidosProveedor field indexes }
   idx_PedidosProveedorID = 0;
@@ -113,6 +115,8 @@ const
   idx_PedidosProveedorID_FORMA_PAGO = 39;
   idx_PedidosProveedorID_FACTURA = 40;
   idx_PedidosProveedorREF_FACTURA_PROV = 41;
+  idx_PedidosProveedorNUM_COPIAS = 42;
+  idx_PedidosProveedorNUM_CORREOS = 43;
 
   { PedidosProveedor_Detalles fields }
   fld_PedidosProveedor_DetallesID = 'ID';
@@ -169,7 +173,7 @@ const
 type
   { IListaAnosPedidos }
   IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
-  ['{F50ECDED-B2E2-4A7E-A160-91F65194D336}']
+  ['{D3E6D035-02AB-4F73-A14A-EF9351F42E0F}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -204,7 +208,7 @@ type
 
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{52592A3B-FB1A-438A-8B4D-56335E373D8C}']
+  ['{5EF1B3BD-4774-46DF-B868-897B3A0F2818}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -372,6 +376,14 @@ type
     procedure SetREF_FACTURA_PROVValue(const aValue: String);
     function GetREF_FACTURA_PROVIsNull: Boolean;
     procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
+    function GetNUM_COPIASValue: SmallInt;
+    procedure SetNUM_COPIASValue(const aValue: SmallInt);
+    function GetNUM_COPIASIsNull: Boolean;
+    procedure SetNUM_COPIASIsNull(const aValue: Boolean);
+    function GetNUM_CORREOSValue: SmallInt;
+    procedure SetNUM_CORREOSValue(const aValue: SmallInt);
+    function GetNUM_CORREOSIsNull: Boolean;
+    procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -459,6 +471,10 @@ type
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
     property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
     property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
+    property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
+    property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
+    property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
   end;
 
   { TPedidosProveedorDataTableRules }
@@ -636,6 +652,14 @@ type
     procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
     function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
     procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
+    function GetNUM_COPIASValue: SmallInt; virtual;
+    procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
+    function GetNUM_COPIASIsNull: Boolean; virtual;
+    procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
+    function GetNUM_CORREOSValue: SmallInt; virtual;
+    procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
+    function GetNUM_CORREOSIsNull: Boolean; virtual;
+    procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -722,6 +746,10 @@ type
     property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
     property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
     property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
+    property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
+    property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
+    property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -731,7 +759,7 @@ type
 
   { IPedidosProveedor_Detalles }
   IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{5D182AFF-F1C8-4C0C-A82B-E8F74B11F199}']
+  ['{AE5543A6-B0AC-4168-857F-C66C80AFDABC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -946,7 +974,7 @@ type
 
   { IPedidosProveedor_Articulos_Pendientes }
   IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{4EDB8973-E2C1-4B31-BAB1-1724233A993F}']
+  ['{9F527A92-29EF-42D2-8704-594EA3926CCD}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -1981,6 +2009,48 @@ begin
     DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsVariant := Null;
 end;
 
+function TPedidosProveedorDataTableRules.GetNUM_COPIASValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsSmallInt;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetNUM_COPIASValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsSmallInt := aValue;
+end;
+
+function TPedidosProveedorDataTableRules.GetNUM_COPIASIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].IsNull;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetNUM_COPIASIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsVariant := Null;
+end;
+
+function TPedidosProveedorDataTableRules.GetNUM_CORREOSValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].AsSmallInt;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetNUM_CORREOSValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].AsSmallInt := aValue;
+end;
+
+function TPedidosProveedorDataTableRules.GetNUM_CORREOSIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].IsNull;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].AsVariant := Null;
+end;
+
 
 { TPedidosProveedor_DetallesDataTableRules }
 constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas

@@ -9,15 +9,15 @@ 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_ListaAnosPedidosDelta = '{7413239D-F923-4D2D-885F-4083C7008226}';
+  RID_ListaAnosPedidosDelta = '{ED73D976-2DA8-409E-9A56-827BAB200193}';
-  RID_PedidosProveedorDelta = '{D1505641-F1C6-4565-823C-F14DC964DDC6}';
+  RID_PedidosProveedorDelta = '{1A2AA90B-29E8-4944-9082-7CFEDEC9E9A0}';
-  RID_PedidosProveedor_DetallesDelta = '{E1572661-F1D9-4902-A018-60E27BF71613}';
+  RID_PedidosProveedor_DetallesDelta = '{EE10E854-7C9C-4EFB-9C85-BFFF777218EA}';
-  RID_PedidosProveedor_Articulos_PendientesDelta = '{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}';
+  RID_PedidosProveedor_Articulos_PendientesDelta = '{7839E7D3-A150-4648-8FF5-AA4F543D5622}';
 
 type
   { IListaAnosPedidosDelta }
   IListaAnosPedidosDelta = interface(IListaAnosPedidos)
-  ['{7413239D-F923-4D2D-885F-4083C7008226}']
+  ['{ED73D976-2DA8-409E-9A56-827BAB200193}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{D1505641-F1C6-4565-823C-F14DC964DDC6}']
+  ['{1A2AA90B-29E8-4944-9082-7CFEDEC9E9A0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -95,6 +95,8 @@ type
     function GetOldID_FORMA_PAGOValue : Integer;
     function GetOldID_FACTURAValue : Integer;
     function GetOldREF_FACTURA_PROVValue : String;
+    function GetOldNUM_COPIASValue : SmallInt;
+    function GetOldNUM_CORREOSValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -139,6 +141,8 @@ type
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
     property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
+    property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
+    property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
   end;
 
   { TPedidosProveedorBusinessProcessorRules }
@@ -400,6 +404,18 @@ type
     function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual;
     procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
     procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
+    function GetNUM_COPIASValue: SmallInt; virtual;
+    function GetNUM_COPIASIsNull: Boolean; virtual;
+    function GetOldNUM_COPIASValue: SmallInt; virtual;
+    function GetOldNUM_COPIASIsNull: Boolean; virtual;
+    procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
+    procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
+    function GetNUM_CORREOSValue: SmallInt; virtual;
+    function GetNUM_CORREOSIsNull: Boolean; virtual;
+    function GetOldNUM_CORREOSValue: SmallInt; virtual;
+    function GetOldNUM_CORREOSIsNull: Boolean; virtual;
+    procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
+    procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -570,6 +586,14 @@ type
     property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
     property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
     property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull;
+    property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
+    property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
+    property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
+    property OldNUM_COPIASIsNull : Boolean read GetOldNUM_COPIASIsNull;
+    property NUM_CORREOS : SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
+    property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+    property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
+    property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -579,7 +603,7 @@ type
 
   { IPedidosProveedor_DetallesDelta }
   IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
-  ['{E1572661-F1D9-4902-A018-60E27BF71613}']
+  ['{EE10E854-7C9C-4EFB-9C85-BFFF777218EA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -793,7 +817,7 @@ type
 
   { IPedidosProveedor_Articulos_PendientesDelta }
   IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
-  ['{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}']
+  ['{7839E7D3-A150-4648-8FF5-AA4F543D5622}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -2260,6 +2284,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := Null;
 end;
 
+function TPedidosProveedorBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNUM_COPIASIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_COPIAS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNUM_COPIASIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_COPIAS]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNUM_COPIASIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS] := Null;
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNUM_CORREOSValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetNUM_CORREOSIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNUM_CORREOSValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_CORREOS];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldNUM_CORREOSIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_CORREOS]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS] := Null;
+end;
+
 
 { TPedidosProveedor_DetallesBusinessProcessorRules }
 constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas

@@ -79,6 +79,7 @@ type
     FListaIDProveedores: TIntegerArray;
     FListaNombresProveedores: TStringList;
     FImporteMinimo: Currency;
+    FShowLogotipo: Boolean;
     FImprimirPrecio : Boolean;
     FImprimirRefProveedor : Boolean;
     FDesglosado : Boolean;
@@ -150,6 +151,8 @@ end;
 procedure TRptPedidosProveedor.frxReportGetValue(const VarName: string;
   var Value: Variant);
 begin
+  if VarName = 'ShowLogotipo' then
+    Value := FShowLogotipo;
   if VarName = 'ImprimirPrecio' then
     Value := FImprimirPrecio;
   if VarName = 'ImprimirRefProveedor' then
@@ -220,6 +223,7 @@ var
   i: Integer;
 begin
   Result := Binary.Create;
+  FShowLogotipo:= False;
   FImprimirPrecio := ImprimirPrecio;
   FImprimirRefProveedor := ImprimirRefProveedor;
   try
@@ -282,6 +286,7 @@ var
   i: Integer;
 begin
   Result := Binary.Create;
+  FShowLogotipo:= False;
   FImprimirPrecio := ImprimirPrecio;
   FImprimirRefProveedor := ImprimirRefProveedor;
   try

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas

@@ -238,7 +238,7 @@ var
 begin
   inherited;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if ElegirOpcionesImpresionPedidoProveedor(FImprimirPrecios, FImprimirRefProveedor) then
@@ -305,7 +305,7 @@ var
 begin
   inherited;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if ElegirOpcionesImpresionPedidoProveedor(FImprimirPrecios, FImprimirRefProveedor) then

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas

@@ -296,7 +296,7 @@ var
 begin
   APedidos := Nil;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if MultiSelect and Assigned(ViewGrid) then
@@ -393,7 +393,7 @@ var
 begin
   APedidos := Nil;
   AllItems := False;
-  FImprimirPrecios := True;
+  FImprimirPrecios := False;
   FImprimirRefProveedor := True;
 
   if MultiSelect and Assigned(ViewGrid) then

Source/Modulos/Pedidos de cliente/Controller/View/uIEditorPedidosClientePreview.pas

@@ -8,6 +8,13 @@ uses
 type
   IEditorPedidosClientePreview = interface(IEditorPreview)
   ['{B60B6013-32C0-4694-9676-F582A759CB48}']
+    procedure SetVerPrecios(const Value: Boolean);
+    function GetVerPrecios: Boolean;
+    property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
+
+    function GetVerRefProveedor: Boolean;
+    procedure SetVerRefProveedor(const Value: Boolean);
+    property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
   end;
 
 

Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas

@@ -41,9 +41,9 @@ type
     function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
 
     procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = False;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
 
     procedure RecalcularImportes(APedido: IBizPedidoCliente);
     function EsModificable(APedido : IBizPedidoCliente): Boolean;
@@ -117,9 +117,9 @@ type
     function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
 
     procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = False;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
 
     procedure RecalcularImportes(APedido: IBizPedidoCliente);
     function EsModificable(APedido : IBizPedidoCliente): Boolean;
@@ -876,7 +876,7 @@ begin
 end;
 
 procedure TPedidosClienteController.Preview(APedido: IBizPedidoCliente; AllItems: Boolean = false;
-  const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+  const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
 var
   AReportController : IPedidosClienteReportController;
   ID_Pedidos: TIntegerList;
@@ -903,7 +903,7 @@ begin
    else
      ID_Pedidos.Add(APedido.ID);
 
-    AReportController.Preview(ID_Pedidos, VerPrecios, VerRefCliente);
+    AReportController.Preview(ID_Pedidos, VerPrecios, VerRefProveedor);
   finally
     AReportController := NIL;
     FreeANDNIL(ID_Pedidos)
@@ -911,7 +911,7 @@ begin
 end;
 
 procedure TPedidosClienteController.Print(APedido: IBizPedidoCliente; AllItems: Boolean = false;
-  const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+  const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
 var
   AReportController : IPedidosClienteReportController;
   ID_Pedidos: TIntegerList;
@@ -937,7 +937,7 @@ begin
     else
      ID_Pedidos.Add(APedido.ID);
 
-    AReportController.Print(ID_Pedidos, VerPrecios, VerRefCliente);
+    AReportController.Print(ID_Pedidos, VerPrecios, VerRefProveedor);
   finally
     AReportController := NIL;
     FreeANDNIL(ID_Pedidos)

Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas

@@ -11,11 +11,11 @@ type
   IPedidosClienteReportController = interface(IControllerBase)
   ['{D68620B5-2EB6-47DE-89D9-560943990895}']
     procedure Preview(const AListaID : TIntegerList;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     procedure Print(const AListaID : TIntegerList;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     function ExportToPDF(const AID: Integer; const AFileName : String = '';
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True): Boolean;
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean;
   end;
 
   TPedidosClienteReportController = class(TControllerBase, IPedidosClienteReportController)
@@ -27,11 +27,11 @@ type
     destructor Destroy; override;
 
     procedure Preview(const AListaID : TIntegerList;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     procedure Print(const AListaID : TIntegerList;
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
     function ExportToPDF(const AID: Integer; const AFileName : String = '';
-      const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True): Boolean;
+      const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean;
   end;
 
 
@@ -65,7 +65,7 @@ end;
 
 function TPedidosClienteReportController.ExportToPDF(const AID: Integer;
   const AFileName: String; const VerPrecios: Boolean;
-  const VerRefCliente: Boolean): Boolean;
+  const VerRefProveedor: Boolean): Boolean;
 var
   AStream: Binary;
 begin
@@ -75,7 +75,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptPDFPedido(AID, VerPrecios, VerRefCliente);
+    AStream := FDataModule.GetRptPDFPedido(AID, VerPrecios, VerRefProveedor);
     try
       AStream.SaveToFile(AFileName);
       Result := True;
@@ -88,7 +88,7 @@ begin
 end;
 
 procedure TPedidosClienteReportController.Preview(const AListaID : TIntegerList;
-  const VerPrecios: Boolean; const VerRefCliente: Boolean);
+  const VerPrecios: Boolean; const VerRefProveedor: Boolean);
 var
   AStream: Binary;
   AEditor : IEditorPedidosClientePreview;
@@ -97,7 +97,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefCliente);
+    AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor);
     try
       CreateEditor('EditorPedidosClientePreview', IEditorPedidosClientePreview, AEditor);
       if Assigned(AEditor) then
@@ -105,8 +105,8 @@ begin
         try
           AEditor.Controller := Self;
           AEditor.ListaID := AListaID;
-//          AEditor.VerPrecios := VerPrecios;
+          AEditor.VerPrecios := VerPrecios;
-//          AEditor.VerRefProveedor := VerRefProveedor;
+          AEditor.VerRefProveedor := VerRefProveedor;
           AEditor.Title := 'Pedido de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
           AEditor.LoadFromStream(AStream);
           AEditor.Preview;
@@ -124,7 +124,7 @@ begin
 end;
 
 procedure TPedidosClienteReportController.Print(const AListaID : TIntegerList;
-  const VerPrecios: Boolean; const VerRefCliente: Boolean);
+  const VerPrecios: Boolean; const VerRefProveedor: Boolean);
 var
   AStream: Binary;
   AEditor : IEditorPedidosClientePreview;
@@ -133,7 +133,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefCliente);
+    AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor);
     try
       CreateEditor('EditorPedidosClientePreview', IEditorPedidosClientePreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas

@@ -79,6 +79,7 @@ type
     FListaIDProveedores: TIntegerArray;
     FListaNombresProveedores: TStringList;
     FImporteMinimo: Currency;
+    FShowLogotipo: Boolean;
     FImprimirPrecio : Boolean;
     FImprimirRefProveedor : Boolean;
     FDesglosado : Boolean;
@@ -111,7 +112,7 @@ uses
     uROServer, DataAbstract4_Intf;
 
 const
-  rptInforme = 'InfPedidoProveedor.fr3';
+  rptInforme = 'InfPedidoCliente.fr3';
   rptInformeListadoPedidosDesglosado = 'InformeListadoPedidosDesglosado.fr3';
   rptInformeListadoPedidos = 'InformeListadoPedidos.fr3';
 
@@ -150,6 +151,8 @@ end;
 procedure TRptPedidosCliente.frxReportGetValue(const VarName: string;
   var Value: Variant);
 begin
+  if VarName = 'ShowLogotipo' then
+    Value := FShowLogotipo;
   if VarName = 'ImprimirPrecio' then
     Value := FImprimirPrecio;
   if VarName = 'ImprimirRefProveedor' then
@@ -220,6 +223,7 @@ var
   i: Integer;
 begin
   Result := Binary.Create;
+  FShowLogotipo:= True;
   FImprimirPrecio := ImprimirPrecio;
   FImprimirRefProveedor := ImprimirRefProveedor;
   try
@@ -282,6 +286,7 @@ var
   i: Integer;
 begin
   Result := Binary.Create;
+  FShowLogotipo:= True;  
   FImprimirPrecio := ImprimirPrecio;
   FImprimirRefProveedor := ImprimirRefProveedor;
   try

Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas

@@ -46,9 +46,7 @@ uses
   Dialogs, uSistemaFunc,
   {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
   schPedidosClienteClient_Intf, uRestriccionesUsuarioUtils,
-  uBizPedidosClienteServer;
+  uBizPedidosClienteServer, uRptPedidosCliente_Server;
-
-  //, uRptPedidosCliente_Server;
 
 {  uRORemoteDataModule,
   fServerForm, Variants, IB,
@@ -87,33 +85,31 @@ end;
 
 function TsrvPedidosCliente.GenerarInforme(const ListaID: TIntegerArray;
   const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
-//var
+var
-//  AReportGenerator : TRptPedidosCliente;
+  AReportGenerator : TRptPedidosCliente;
 begin
-{  AReportGenerator := TRptPedidosCliente.Create(nil);
+  AReportGenerator := TRptPedidosCliente.Create(nil);
   try
     Result := AReportGenerator.GenerarPedido(ListaID,
       ImprimirPrecio, ImprimirRefProveedor);
   finally
     FreeAndNIL(AReportGenerator);
   end;
-}
 end;
 
 function TsrvPedidosCliente.GenerarInformeEnPDF(
   const ListaID: TIntegerArray;
   const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
-//var
+var
-//  AReportGenerator : TRptPedidosCliente;
+  AReportGenerator : TRptPedidosCliente;
 begin
-{  AReportGenerator := TRptPedidosCliente.Create(nil);
+  AReportGenerator := TRptPedidosCliente.Create(nil);
   try
     Result := AReportGenerator.GenerarPedidoEnPDF(ListaID,
       ImprimirPrecio, ImprimirRefProveedor);
   finally
     FreeAndNIL(AReportGenerator);
   end;
-}
 end;
 
 initialization

Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas

@@ -303,15 +303,15 @@ procedure TfEditorPedidoCliente.PrevisualizarInterno;
 var
   AllItems: Boolean;
   FImprimirPrecios : Boolean;
-  FImprimirRefCliente : Boolean;
+  FImprimirRefProveedor : Boolean;
 begin
   inherited;
   AllItems := False;
   FImprimirPrecios := True;
-  FImprimirRefCliente := True;
+  FImprimirRefProveedor := True;
 
-  if ElegirOpcionesImpresionPedidoCliente(FImprimirPrecios, FImprimirRefCliente) then
+  if ElegirOpcionesImpresionPedidoCliente(FImprimirPrecios, FImprimirRefProveedor) then
-    FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefCliente);
+     FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefProveedor);
 end;
 
 procedure TfEditorPedidoCliente.RecalcularPortePorUnidad;

Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.pas

@@ -0,0 +1,77 @@
+unit uEditorPedidosClienteReport;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorPreview,  JvAppStorage, JvAppRegistryStorage, JvComponentBase,
+  JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
+  TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
+  ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorPedidosClientePreview,
+  JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
+  frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
+  frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
+
+type
+  TfEditorPedidosClientePreview = class(TfEditorPreview, IEditorPedidosClientePreview)
+    TBXItem58: TTBXItem;
+    procedure actExportarRTFExecute(Sender: TObject);
+  private
+    FVerPrecios : Boolean;
+    FVerRefProveedor : Boolean;
+    function GetVerPrecios: Boolean;
+    function GetVerRefProveedor: Boolean;
+    procedure SetVerPrecios(const Value: Boolean);
+    procedure SetVerRefProveedor(const Value: Boolean);
+    { Private declarations }
+  public
+    property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
+    property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses
+  uPedidosClienteReportController, uDialogUtils;
+
+procedure TfEditorPedidosClientePreview.actExportarRTFExecute(
+  Sender: TObject);
+var
+  I: Integer;
+begin
+  // inherited; <- No llamar al padre
+{  if not Assigned(Controller) then
+    raise Exception.Create('No se ha asignado el controlador necesario');
+
+  for I := 0 to ListaID.Count - 1 do
+    if (Controller as IPedidosClienteReportController).ExportToWord(ListaID[I], '',
+      FVerPrecios, FVerRefProveedor) then
+	    ShowInfoMessage('El pedido se ha exportado correctamente.');
+}    				
+end;
+
+function TfEditorPedidosClientePreview.GetVerPrecios: Boolean;
+begin
+  Result := FVerPrecios;
+end;
+
+function TfEditorPedidosClientePreview.GetVerRefProveedor: Boolean;
+begin
+  Result := FVerRefProveedor;
+end;
+
+procedure TfEditorPedidosClientePreview.SetVerPrecios(const Value: Boolean);
+begin
+  FVerPrecios := Value;
+end;
+
+procedure TfEditorPedidosClientePreview.SetVerRefProveedor(
+  const Value: Boolean);
+begin
+  FVerRefProveedor := Value;
+end;
+
+end.

Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas

@@ -11,7 +11,7 @@ uses
   uEditorRegistryUtils,
   uEditorPedidosCliente,
   uEditorPedidoCliente,
-//  uEditorPedidosClienteReport,
+  uEditorPedidosClienteReport,
 //  uEditorElegirPedidosCliente,
   uEditorElegirArticulosPedidoCliente,
   uEditorDireccionEntregaPedidoCliente;
@@ -24,7 +24,7 @@ begin
   EditorRegistry.RegisterClass(TfEditorPedidoCliente, 'EditorPedidoCliente');
 //  EditorRegistry.RegisterClass(TfEditorElegirPedidosCliente, 'EditorElegirPedidosCliente');
   EditorRegistry.RegisterClass(TfEditorElegirArticulosPedidoCliente, 'EditorElegirArticulosPedidoCliente');
-//  EditorRegistry.RegisterClass(TfEditorPedidosClientePreview, 'EditorPedidosClientePreview');
+  EditorRegistry.RegisterClass(TfEditorPedidosClientePreview, 'EditorPedidosClientePreview');
 //  EditorRegistry.RegisterClass(TfEditorSituacionPedidoCliente, 'EditorSituacionPedidoCliente');
 end;
 
@@ -35,7 +35,7 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorPedidoCliente);
 //  EditorRegistry.UnRegisterClass(TfEditorElegirPedidosCliente);
   EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPedidoCliente);
-//  EditorRegistry.UnRegisterClass(TfEditorPedidosClientePreview);
+  EditorRegistry.UnRegisterClass(TfEditorPedidosClientePreview);
 //  EditorRegistry.UnRegisterClass(TfEditorSituacionPedidoCliente);
 end;
 

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -223,7 +223,7 @@ type
   end;
 
   { TListaAnosRecibosDataTableRules }
-  TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
+  TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
   private
   protected
     { Property getters and setters }
@@ -468,7 +468,7 @@ type
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -779,7 +779,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -1090,7 +1090,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas

@@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 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_ListaAnosRecibos = '{E517AD0B-3117-47E6-BDE0-C6F56CA71A1D}';
+  RID_ListaAnosRecibos = '{86E71826-275E-4A5A-863D-B21956A3AED2}';
-  RID_RecibosCompensadosProv = '{9EAB41F6-5853-4683-A0E3-F66C12232C03}';
+  RID_RecibosCompensadosProv = '{80E7A05A-0220-4E61-8D3F-A98F1141A621}';
-  RID_RecibosProveedor = '{2344F4F7-8139-44E1-B225-3E581F4B9FB2}';
+  RID_RecibosProveedor = '{520C0FD8-98B8-40E4-9BED-4E40C9D0ADF4}';
-  RID_PagosProveedor = '{873FD5ED-817D-4AF3-81CF-5D3290B15090}';
+  RID_PagosProveedor = '{B5FDAB8C-A57F-41AD-995D-651BEAD70D75}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -52,6 +52,10 @@ const
   fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR';
   fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
   fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR';
+  fld_RecibosCompensadosProvENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR';
+  fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR';
+  fld_RecibosCompensadosProvDC_PROVEEDOR = 'DC_PROVEEDOR';
+  fld_RecibosCompensadosProvCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR';
   fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA';
   fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_RecibosCompensadosProvUSUARIO = 'USUARIO';
@@ -82,9 +86,13 @@ const
   idx_RecibosCompensadosProvID_PROVEEDOR = 22;
   idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 23;
   idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 24;
-  idx_RecibosCompensadosProvFECHA_ALTA = 25;
+  idx_RecibosCompensadosProvENTIDAD_PROVEEDOR = 25;
-  idx_RecibosCompensadosProvFECHA_MODIFICACION = 26;
+  idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 26;
-  idx_RecibosCompensadosProvUSUARIO = 27;
+  idx_RecibosCompensadosProvDC_PROVEEDOR = 27;
+  idx_RecibosCompensadosProvCUENTA_PROVEEDOR = 28;
+  idx_RecibosCompensadosProvFECHA_ALTA = 29;
+  idx_RecibosCompensadosProvFECHA_MODIFICACION = 30;
+  idx_RecibosCompensadosProvUSUARIO = 31;
 
   { RecibosProveedor fields }
   fld_RecibosProveedorID = 'ID';
@@ -112,6 +120,10 @@ const
   fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
   fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
   fld_RecibosProveedorNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR';
+  fld_RecibosProveedorENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR';
+  fld_RecibosProveedorSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR';
+  fld_RecibosProveedorDC_PROVEEDOR = 'DC_PROVEEDOR';
+  fld_RecibosProveedorCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR';
   fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA';
   fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
   fld_RecibosProveedorUSUARIO = 'USUARIO';
@@ -142,9 +154,13 @@ const
   idx_RecibosProveedorID_PROVEEDOR = 22;
   idx_RecibosProveedorNOMBRE_PROVEEDOR = 23;
   idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24;
-  idx_RecibosProveedorFECHA_ALTA = 25;
+  idx_RecibosProveedorENTIDAD_PROVEEDOR = 25;
-  idx_RecibosProveedorFECHA_MODIFICACION = 26;
+  idx_RecibosProveedorSUCURSAL_PROVEEDOR = 26;
-  idx_RecibosProveedorUSUARIO = 27;
+  idx_RecibosProveedorDC_PROVEEDOR = 27;
+  idx_RecibosProveedorCUENTA_PROVEEDOR = 28;
+  idx_RecibosProveedorFECHA_ALTA = 29;
+  idx_RecibosProveedorFECHA_MODIFICACION = 30;
+  idx_RecibosProveedorUSUARIO = 31;
 
   { PagosProveedor fields }
   fld_PagosProveedorID = 'ID';
@@ -177,7 +193,7 @@ const
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{738763D4-26C6-4F0D-BB6E-D638C380B114}']
+  ['{3A7340AE-117A-4B22-8B3C-74EF250CF441}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -191,7 +207,7 @@ type
   end;
 
   { TListaAnosRecibosDataTableRules }
-  TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
+  TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
   private
   protected
     { Property getters and setters }
@@ -212,7 +228,7 @@ type
 
   { IRecibosCompensadosProv }
   IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
-  ['{43B7C892-1530-424B-B6B0-380E0A018456}']
+  ['{0A3240FC-E9D9-41DF-99B9-768AECEC817C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -314,6 +330,22 @@ type
     procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
     function GetNIF_CIF_PROVEEDORIsNull: Boolean;
     procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean);
+    function GetENTIDAD_PROVEEDORValue: String;
+    procedure SetENTIDAD_PROVEEDORValue(const aValue: String);
+    function GetENTIDAD_PROVEEDORIsNull: Boolean;
+    procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
+    function GetSUCURSAL_PROVEEDORValue: String;
+    procedure SetSUCURSAL_PROVEEDORValue(const aValue: String);
+    function GetSUCURSAL_PROVEEDORIsNull: Boolean;
+    procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
+    function GetDC_PROVEEDORValue: String;
+    procedure SetDC_PROVEEDORValue(const aValue: String);
+    function GetDC_PROVEEDORIsNull: Boolean;
+    procedure SetDC_PROVEEDORIsNull(const aValue: Boolean);
+    function GetCUENTA_PROVEEDORValue: String;
+    procedure SetCUENTA_PROVEEDORValue(const aValue: String);
+    function GetCUENTA_PROVEEDORIsNull: Boolean;
+    procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
     function GetFECHA_ALTAValue: DateTime;
     procedure SetFECHA_ALTAValue(const aValue: DateTime);
     function GetFECHA_ALTAIsNull: Boolean;
@@ -379,6 +411,14 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
     property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
+    property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
+    property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
+    property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
+    property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
+    property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
+    property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
+    property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
+    property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@@ -388,7 +428,7 @@ type
   end;
 
   { TRecibosCompensadosProvDataTableRules }
-  TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv)
+  TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
   private
   protected
     { Property getters and setters }
@@ -492,6 +532,22 @@ type
     procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
     function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
     procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetENTIDAD_PROVEEDORValue: String; virtual;
+    procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
+    function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetSUCURSAL_PROVEEDORValue: String; virtual;
+    procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
+    function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetDC_PROVEEDORValue: String; virtual;
+    procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
+    function GetDC_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_PROVEEDORValue: String; virtual;
+    procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
+    function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
     function GetFECHA_ALTAValue: DateTime; virtual;
     procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
     function GetFECHA_ALTAIsNull: Boolean; virtual;
@@ -556,6 +612,14 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
     property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
+    property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
+    property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
+    property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
+    property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
+    property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
+    property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
+    property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
+    property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@@ -571,7 +635,7 @@ type
 
   { IRecibosProveedor }
   IRecibosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{A7B468FD-DB65-4615-A6C5-1E2807D62ABE}']
+  ['{57CA1618-75D7-4E37-830C-F7F6C6329C3C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -673,6 +737,22 @@ type
     procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
     function GetNIF_CIF_PROVEEDORIsNull: Boolean;
     procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean);
+    function GetENTIDAD_PROVEEDORValue: String;
+    procedure SetENTIDAD_PROVEEDORValue(const aValue: String);
+    function GetENTIDAD_PROVEEDORIsNull: Boolean;
+    procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
+    function GetSUCURSAL_PROVEEDORValue: String;
+    procedure SetSUCURSAL_PROVEEDORValue(const aValue: String);
+    function GetSUCURSAL_PROVEEDORIsNull: Boolean;
+    procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
+    function GetDC_PROVEEDORValue: String;
+    procedure SetDC_PROVEEDORValue(const aValue: String);
+    function GetDC_PROVEEDORIsNull: Boolean;
+    procedure SetDC_PROVEEDORIsNull(const aValue: Boolean);
+    function GetCUENTA_PROVEEDORValue: String;
+    procedure SetCUENTA_PROVEEDORValue(const aValue: String);
+    function GetCUENTA_PROVEEDORIsNull: Boolean;
+    procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
     function GetFECHA_ALTAValue: DateTime;
     procedure SetFECHA_ALTAValue(const aValue: DateTime);
     function GetFECHA_ALTAIsNull: Boolean;
@@ -738,6 +818,14 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
     property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
+    property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
+    property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
+    property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
+    property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
+    property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
+    property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
+    property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
+    property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@@ -747,7 +835,7 @@ type
   end;
 
   { TRecibosProveedorDataTableRules }
-  TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor)
+  TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
   private
   protected
     { Property getters and setters }
@@ -851,6 +939,22 @@ type
     procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
     function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
     procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetENTIDAD_PROVEEDORValue: String; virtual;
+    procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
+    function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetSUCURSAL_PROVEEDORValue: String; virtual;
+    procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
+    function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetDC_PROVEEDORValue: String; virtual;
+    procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
+    function GetDC_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_PROVEEDORValue: String; virtual;
+    procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
+    function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
     function GetFECHA_ALTAValue: DateTime; virtual;
     procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
     function GetFECHA_ALTAIsNull: Boolean; virtual;
@@ -915,6 +1019,14 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
     property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
+    property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
+    property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
+    property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
+    property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
+    property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
+    property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
+    property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
+    property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@@ -930,7 +1042,7 @@ type
 
   { IPagosProveedor }
   IPagosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{6A3FB0F1-D6B5-49C4-A298-F046CF5DA655}']
+  ['{E6FD7505-9514-4D2D-AB44-C2FC080E63AE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1010,7 +1122,7 @@ type
   end;
 
   { TPagosProveedorDataTableRules }
-  TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor)
+  TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
   private
   protected
     { Property getters and setters }
@@ -1668,6 +1780,90 @@ begin
     DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsVariant := Null;
 end;
 
+function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsVariant := Null;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsVariant := Null;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsVariant := Null;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsVariant := Null;
+end;
+
 function TRecibosCompensadosProvDataTableRules.GetFECHA_ALTAValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime;
@@ -2268,6 +2464,90 @@ begin
     DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsVariant := Null;
 end;
 
+function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsVariant := Null;
+end;
+
+function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsVariant := Null;
+end;
+
+function TRecibosProveedorDataTableRules.GetDC_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetDC_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsVariant := Null;
+end;
+
+function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsVariant := Null;
+end;
+
 function TRecibosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime;
 begin
   result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime;

Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas

@@ -9,15 +9,15 @@ 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_ListaAnosRecibosDelta = '{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}';
+  RID_ListaAnosRecibosDelta = '{CEF05DC1-6B9E-474B-8A65-DA95A612D89E}';
-  RID_RecibosCompensadosProvDelta = '{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}';
+  RID_RecibosCompensadosProvDelta = '{19410887-89F2-4DA4-B652-CC673A904159}';
-  RID_RecibosProveedorDelta = '{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}';
+  RID_RecibosProveedorDelta = '{053B97EC-710A-491F-94B5-2A3DC4519D8F}';
-  RID_PagosProveedorDelta = '{E48CD2E0-5DD4-41AF-97DE-F945B013E452}';
+  RID_PagosProveedorDelta = '{3BC45D98-D47D-4921-BB34-44DE99F785F2}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}']
+  ['{CEF05DC1-6B9E-474B-8A65-DA95A612D89E}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosCompensadosProvDelta }
   IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
-  ['{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}']
+  ['{19410887-89F2-4DA4-B652-CC673A904159}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -78,6 +78,10 @@ type
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldNOMBRE_PROVEEDORValue : String;
     function GetOldNIF_CIF_PROVEEDORValue : String;
+    function GetOldENTIDAD_PROVEEDORValue : String;
+    function GetOldSUCURSAL_PROVEEDORValue : String;
+    function GetOldDC_PROVEEDORValue : String;
+    function GetOldCUENTA_PROVEEDORValue : String;
     function GetOldFECHA_ALTAValue : DateTime;
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
@@ -108,6 +112,10 @@ type
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
     property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
+    property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
+    property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
+    property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
+    property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
@@ -268,6 +276,30 @@ type
     function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
     procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
     procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetENTIDAD_PROVEEDORValue: String; virtual;
+    function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldENTIDAD_PROVEEDORValue: String; virtual;
+    function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetSUCURSAL_PROVEEDORValue: String; virtual;
+    function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
+    function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetDC_PROVEEDORValue: String; virtual;
+    function GetDC_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldDC_PROVEEDORValue: String; virtual;
+    function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_PROVEEDORValue: String; virtual;
+    function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldCUENTA_PROVEEDORValue: String; virtual;
+    function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
     function GetFECHA_ALTAValue: DateTime; virtual;
     function GetFECHA_ALTAIsNull: Boolean; virtual;
     function GetOldFECHA_ALTAValue: DateTime; virtual;
@@ -388,6 +420,22 @@ type
     property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
     property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
     property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
+    property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
+    property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
+    property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
+    property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
+    property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
+    property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
+    property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
+    property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
+    property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
+    property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
+    property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
+    property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
+    property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
+    property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
+    property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
+    property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
     property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@@ -409,7 +457,7 @@ type
 
   { IRecibosProveedorDelta }
   IRecibosProveedorDelta = interface(IRecibosProveedor)
-  ['{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}']
+  ['{053B97EC-710A-491F-94B5-2A3DC4519D8F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -436,6 +484,10 @@ type
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldNOMBRE_PROVEEDORValue : String;
     function GetOldNIF_CIF_PROVEEDORValue : String;
+    function GetOldENTIDAD_PROVEEDORValue : String;
+    function GetOldSUCURSAL_PROVEEDORValue : String;
+    function GetOldDC_PROVEEDORValue : String;
+    function GetOldCUENTA_PROVEEDORValue : String;
     function GetOldFECHA_ALTAValue : DateTime;
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
@@ -466,6 +518,10 @@ type
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
     property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
+    property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
+    property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
+    property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
+    property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
@@ -626,6 +682,30 @@ type
     function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
     procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
     procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetENTIDAD_PROVEEDORValue: String; virtual;
+    function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldENTIDAD_PROVEEDORValue: String; virtual;
+    function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetSUCURSAL_PROVEEDORValue: String; virtual;
+    function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
+    function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetDC_PROVEEDORValue: String; virtual;
+    function GetDC_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldDC_PROVEEDORValue: String; virtual;
+    function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
+    function GetCUENTA_PROVEEDORValue: String; virtual;
+    function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
+    function GetOldCUENTA_PROVEEDORValue: String; virtual;
+    function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
+    procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
+    procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
     function GetFECHA_ALTAValue: DateTime; virtual;
     function GetFECHA_ALTAIsNull: Boolean; virtual;
     function GetOldFECHA_ALTAValue: DateTime; virtual;
@@ -746,6 +826,22 @@ type
     property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
     property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
     property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
+    property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
+    property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
+    property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
+    property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
+    property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
+    property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
+    property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
+    property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
+    property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
+    property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
+    property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
+    property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
+    property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
+    property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
+    property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
+    property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
     property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@@ -767,7 +863,7 @@ type
 
   { IPagosProveedorDelta }
   IPagosProveedorDelta = interface(IPagosProveedor)
-  ['{E48CD2E0-5DD4-41AF-97DE-F945B013E452}']
+  ['{3BC45D98-D47D-4921-BB34-44DE99F785F2}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -1765,6 +1861,130 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null;
 end;
 
+function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := Null;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := Null;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := Null;
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
+end;
+
+function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := Null;
+end;
+
 function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA];
@@ -2645,6 +2865,130 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null;
 end;
 
+function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := Null;
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := Null;
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := Null;
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := Null;
+end;
+
 function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA];

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas

@@ -96,7 +96,7 @@ uses
   schRecibosClienteClient_Intf, uIEditorRemesasCliente, uIEditorRemesaCliente,
   Dialogs, uDataModuleRemesasCliente, uDataModuleUsuarios, uDAInterfaces,
   uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
-  uBizRecibosCliente, Variants, uRemesasClienteReportController;
+  uBizRecibosCliente, Variants, uRemesasClienteReportController, uIntegerListUtils;
 
 { TRemesasClienteController }
 
@@ -585,11 +585,11 @@ end;
 procedure TRemesasClienteController.Preview(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
 var
   AReportController : IRemesasClienteReportController;
-  ID_Remesas: TStringList;
+  ID_Remesas: TIntegerList;
 
 begin
   AReportController := TRemesasClienteReportController.Create;
-  ID_Remesas := TStringList.Create;
+  ID_Remesas := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -600,31 +600,31 @@ begin
        First;
        while not EOF do
        begin
-         ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
+         ID_Remesas.Add(ARemesaCliente.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
+     ID_Remesas.Add(ARemesaCliente.ID);
 
-    AReportController.Preview(ID_Remesas.CommaText);
+    AReportController.Preview(ID_Remesas);
 
   finally
     AReportController := NIL;
-    ID_Remesas.Free;
+    FreeANDNil(ID_Remesas);
   end;
 end;
 
 procedure TRemesasClienteController.Print(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
 var
   AReportController : IRemesasClienteReportController;
-  ID_Remesas: TStringList;
+  ID_Remesas: TIntegerList;
 
 begin
   AReportController := TRemesasClienteReportController.Create;
-   ID_Remesas := TStringList.Create;
+   ID_Remesas := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -635,22 +635,21 @@ begin
        First;
        while not EOF do
        begin
-         ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
+         ID_Remesas.Add(ARemesaCliente.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
+     ID_Remesas.Add(ARemesaCliente.ID);
 
-    AReportController.Print(ID_Remesas.CommaText);
+    AReportController.Print(ID_Remesas);
 
   finally
     AReportController := NIL;
-    ID_Remesas.Free;
+    FreeAndNil(ID_Remesas);
   end;
 end;
 
 end.
-

Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas

@@ -4,13 +4,13 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRemesasClienteReport,
-  uBizRemesasCliente;
+  uBizRemesasCliente, uIntegerListUtils;
 
 type
   IRemesasClienteReportController = interface
   ['{EA6EAD10-E07B-45A9-9B5E-0D560E2B92DF}']
-    procedure Preview(const ID : String);
+    procedure Preview(const ListaID : TIntegerList);
-    procedure Print(const ID : String);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
   TRemesasClienteReportController = class(TInterfacedObject, IRemesasClienteReportController)
@@ -21,8 +21,8 @@ type
     constructor Create;
     destructor Destroy; override;
 
-    procedure Preview(const ID : String);
+    procedure Preview(const ListaID : TIntegerList);
-    procedure Print(const ID : String);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
 
@@ -52,7 +52,7 @@ begin
   inherited;
 end;
 
-procedure TRemesasClienteReportController.Preview(const ID : String);
+procedure TRemesasClienteReportController.Preview(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorRemesasClientePreview;
@@ -61,7 +61,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(ID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
       if Assigned(AEditor) then
@@ -80,7 +80,7 @@ begin
   end;
 end;
 
-procedure TRemesasClienteReportController.Print(const ID : String);
+procedure TRemesasClienteReportController.Print(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorRemesasClientePreview;
@@ -89,7 +89,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(ID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas

@@ -9,7 +9,7 @@ uses
   uDADesigntimeCall, uDataModuleBase,
   uIDataModuleRemesasCliente, uIDataModuleRemesasClienteReport, uBizRemesasCliente,
   uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
-  uDAMemDataTable;
+  uDAMemDataTable, uIntegerListUtils;
 
 type
   TDataModuleRemesasCliente = class(TDataModuleBase, IDataModuleRemesasCliente, IDataModuleRemesasClienteReport)
@@ -31,7 +31,7 @@ type
     function NewItem : IBizRemesaCliente;
 
     // Report
-    function GetReport(const ID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
 
     function GetAnosItems : TStringList;    
   end;
@@ -57,9 +57,16 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleRemesasCliente.GetReport(const ID: String): Binary;
+function TDataModuleRemesasCliente.GetReport(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-//  Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(ID);
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(AParam)
+  finally
+    FreeANDNIL(AParam);
+  end;
 end;
 
 function TDataModuleRemesasCliente.NewItem: IBizRemesaCliente;

Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasClienteReport.pas

@@ -3,12 +3,12 @@ unit uIDataModuleRemesasClienteReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleRemesasClienteReport = interface
   ['{6BFFFC92-D3E0-465C-8259-645B9FE9E446}']
-    function GetReport(const ID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation

Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schRemesasClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -81,7 +81,7 @@ type
   end;
 
   { TListaAnosRemesasDataTableRules }
-  TListaAnosRemesasDataTableRules = class(TDADataTableRules, IListaAnosRemesas)
+  TListaAnosRemesasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRemesas)
   private
   protected
     { Property getters and setters }
@@ -224,7 +224,7 @@ type
   end;
 
   { TRemesasClienteDataTableRules }
-  TRemesasClienteDataTableRules = class(TDADataTableRules, IRemesasCliente)
+  TRemesasClienteDataTableRules = class(TIntfObjectDADataTableRules, IRemesasCliente)
   private
   protected
     { Property getters and setters }

Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas

@@ -31,6 +31,9 @@ type
       const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
+
+    { IsrvRemesasCliente methods }
+    function GenerateReport(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -39,8 +42,7 @@ implementation
 uses
   {Generated:} FactuGES_Invk, uDataModuleServer,
   uDatabaseUtils, schRemesasClienteClient_Intf, uRestriccionesUsuarioUtils,
-  uBizRemesasClienteServer,
+  uBizRemesasClienteServer, uRptRemesasCliente_Server,
-//  uRptRemesasCliente_Server,
   Dialogs;
 
 procedure Create_srvRemesasCliente(out anInstance : IUnknown);
@@ -77,6 +79,19 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
+function TsrvRemesasCliente.GenerateReport(
+  const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptRemesasCliente;
+begin
+  AReportGenerator := TRptRemesasCliente.Create(nil);
+  try
+    Result := AReportGenerator.GenerarRemesa(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
 initialization
   TROClassFactory.Create('srvRemesasCliente', Create_srvRemesasCliente, TsrvRemesasCliente_Invoker);
 

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas

@@ -96,7 +96,7 @@ uses
   schRecibosProveedorClient_Intf, uIEditorRemesasProveedor, uIEditorRemesaProveedor,
   Dialogs, uDataModuleRemesasProveedor, uDataModuleUsuarios, uDAInterfaces,
   uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
-  uBizRecibosProveedor, Variants, uRemesasProveedorReportController;
+  uBizRecibosProveedor, Variants, uRemesasProveedorReportController, uIntegerListUtils;
 
 { TRemesasProveedorController }
 
@@ -588,11 +588,11 @@ end;
 procedure TRemesasProveedorController.Preview(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
 var
   AReportController : IRemesasProveedorReportController;
-  ID_Remesas: TStringList;
+  ID_Remesas: TIntegerList;
 
 begin
   AReportController := TRemesasProveedorReportController.Create;
-  ID_Remesas := TStringList.Create;
+  ID_Remesas := TIntegerList.Create;
 
   try
 
@@ -604,31 +604,31 @@ begin
        First;
        while not EOF do
        begin
-         ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+         ID_Remesas.Add(ARemesaProveedor.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+     ID_Remesas.Add(ARemesaProveedor.ID);
 
-    AReportController.Preview(ID_Remesas.CommaText);
+    AReportController.Preview(ID_Remesas);
 
   finally
     AReportController := NIL;
-    ID_Remesas.Free;
+    FreeAndNil(ID_Remesas);
   end;
 end;
 
 procedure TRemesasProveedorController.Print(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
 var
   AReportController : IRemesasProveedorReportController;
-  ID_Remesas: TStringList;
+  ID_Remesas: TIntegerList;
 
 begin
   AReportController := TRemesasProveedorReportController.Create;
-  ID_Remesas := TStringList.Create;
+  ID_Remesas := TIntegerList.Create;
 
   try
 
@@ -640,20 +640,20 @@ begin
        First;
        while not EOF do
        begin
-         ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+         ID_Remesas.Add(ARemesaProveedor.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
+     ID_Remesas.Add(ARemesaProveedor.ID);
 
-    AReportController.Print(ID_Remesas.CommaText);
+    AReportController.Print(ID_Remesas);
 
   finally
     AReportController := NIL;
-    ID_Remesas.Free;
+    FreeAndNil(ID_Remesas);
   end;
 end;
 

Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas

@@ -4,13 +4,13 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRemesasProveedorReport,
-  uBizRemesasProveedor;
+  uBizRemesasProveedor, uIntegerListUtils;
 
 type
   IRemesasProveedorReportController = interface
   ['{A89AAA05-19AD-4455-BAF6-8A5373D15FE7}']
-    procedure Preview(const ID : String);
+    procedure Preview(const ListaID : TIntegerList);
-    procedure Print(const ID : String);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
   TRemesasProveedorReportController = class(TInterfacedObject, IRemesasProveedorReportController)
@@ -21,8 +21,8 @@ type
     constructor Create;
     destructor Destroy; override;
 
-    procedure Preview(const ID : String);
+    procedure Preview(const ListaID : TIntegerList);
-    procedure Print(const ID : String);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
 
@@ -52,7 +52,7 @@ begin
   inherited;
 end;
 
-procedure TRemesasProveedorReportController.Preview(const ID : String);
+procedure TRemesasProveedorReportController.Preview(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorRemesasProveedorPreview;
@@ -61,7 +61,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(ID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
       if Assigned(AEditor) then
@@ -80,7 +80,7 @@ begin
   end;
 end;
 
-procedure TRemesasProveedorReportController.Print(const ID : String);
+procedure TRemesasProveedorReportController.Print(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorRemesasProveedorPreview;
@@ -89,7 +89,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(ID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas

@@ -9,7 +9,7 @@ uses
   uDADesigntimeCall, uDataModuleBase,
   uIDataModuleRemesasProveedor, uIDataModuleRemesasProveedorReport, uBizRemesasProveedor,
   uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
-  uDAMemDataTable;
+  uDAMemDataTable, uIntegerListUtils;
 
 type
   TDataModuleRemesasProveedor = class(TDataModuleBase, IDataModuleRemesasProveedor, IDataModuleRemesasProveedorReport)
@@ -31,7 +31,7 @@ type
     function NewItem : IBizRemesaProveedor;
 
     // Report
-    function GetReport(const ID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
 
     function GetAnosItems : TStringList;    
   end;
@@ -58,9 +58,16 @@ begin
 end;
 
 
-function TDataModuleRemesasProveedor.GetReport(const ID: String): Binary;
+function TDataModuleRemesasProveedor.GetReport(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-//  Result := (RORemoteService as IsrvRemesasProveedor).GenerateReport(ID);
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvRemesasProveedor).GenerateReport(AParam)
+  finally
+    FreeANDNIL(AParam);
+  end;
 end;
 
 function TDataModuleRemesasProveedor.NewItem: IBizRemesaProveedor;

Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas

@@ -3,12 +3,12 @@ unit uIDataModuleRemesasProveedorReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleRemesasProveedorReport = interface
   ['{7A2C1A03-51EB-4F7F-937F-660B31EE18B2}']
-    function GetReport(const ID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation

Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas

@@ -31,6 +31,9 @@ type
       const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
+
+    { IsrvRemesasProveedor methods }
+    function GenerateReport(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -39,7 +42,7 @@ implementation
 uses
   {Generated:} FactuGES_Invk, uDataModuleServer,
   uDatabaseUtils, schRemesasProveedorClient_Intf, uRestriccionesUsuarioUtils,
-  uBizRemesasProveedorServer, // uRptRemesasProveedor_Server,
+  uBizRemesasProveedorServer, uRptRemesasProveedor_Server,
   Dialogs;
 
 procedure Create_srvRemesasProveedor(out anInstance : IUnknown);
@@ -76,6 +79,19 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
+function TsrvRemesasProveedor.GenerateReport(
+  const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptRemesasProveedor;
+begin
+  AReportGenerator := TRptRemesasProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarRemesa(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
 initialization
   TROClassFactory.Create('srvRemesasProveedor', Create_srvRemesasProveedor, TsrvRemesasProveedor_Invoker);
 

Source/Servicios/FactuGES_Intf.pas

@@ -470,6 +470,7 @@ type
   { IsrvRemesasCliente }
   IsrvRemesasCliente = interface(IDataAbstractService)
     ['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}']
+    function GenerateReport(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvRemesasCliente }
@@ -482,11 +483,13 @@ type
   protected
     function __GetInterfaceName:string; override;
 
+    function GenerateReport(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvRemesasProveedor }
   IsrvRemesasProveedor = interface(IDataAbstractService)
     ['{6540A037-9847-4650-89BB-7B349C6004DF}']
+    function GenerateReport(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvRemesasProveedor }
@@ -499,6 +502,7 @@ type
   protected
     function __GetInterfaceName:string; override;
 
+    function GenerateReport(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvFacturasCliente }
@@ -527,6 +531,8 @@ type
   { IsrvFacturasProveedor }
   IsrvFacturasProveedor = interface(IDataAbstractService)
     ['{7655160C-7023-452E-BB0E-C97E29B915E7}']
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvFacturasProveedor }
@@ -539,6 +545,8 @@ type
   protected
     function __GetInterfaceName:string; override;
 
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvPresupuestosCliente }
@@ -592,10 +600,12 @@ type
   { IsrvAlbaranesCliente }
   IsrvAlbaranesCliente = interface(IDataAbstractService)
     ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
-    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                            const VerIncidencias: Boolean): Binary;
     function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
     function GenerarInformeEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                                 const VerIncidencias: Boolean): Binary;
   end;
 
   { CosrvAlbaranesCliente }
@@ -608,10 +618,12 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                            const VerIncidencias: Boolean): Binary;
     function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
     function GenerarInformeEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                                 const VerIncidencias: Boolean): Binary;
   end;
 
   { IsrvAlbaranesProveedor }
@@ -1668,11 +1680,30 @@ begin
   result := TsrvRemesasCliente_Proxy.Create(aMessage, aTransportChannel);
 end;
 
+{ TsrvRemesasCliente_Proxy }
+
 function TsrvRemesasCliente_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvRemesasCliente';
 end;
 
+function TsrvRemesasCliente_Proxy.GenerateReport(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvRemesasProveedor }
 
 class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor;
@@ -1680,11 +1711,30 @@ begin
   result := TsrvRemesasProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
+{ TsrvRemesasProveedor_Proxy }
+
 function TsrvRemesasProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvRemesasProveedor';
 end;
 
+function TsrvRemesasProveedor_Proxy.GenerateReport(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvFacturasCliente }
 
 class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
@@ -1761,11 +1811,47 @@ begin
   result := TsrvFacturasProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
+{ TsrvFacturasProveedor_Proxy }
+
 function TsrvFacturasProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvFacturasProveedor';
 end;
 
+function TsrvFacturasProveedor_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TsrvFacturasProveedor_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvPresupuestosCliente }
 
 class function CosrvPresupuestosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestosCliente;
@@ -1936,12 +2022,17 @@ begin
   result := 'srvAlbaranesCliente';
 end;
 
-function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
+function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                                                   const VerIncidencias: Boolean): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Write('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
+    __Message.Write('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
+    __Message.Write('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1988,12 +2079,17 @@ begin
   end
 end;
 
-function TsrvAlbaranesCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+function TsrvAlbaranesCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                                                        const VerIncidencias: Boolean): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Write('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
+    __Message.Write('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
+    __Message.Write('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -152,6 +152,7 @@ type
   public
     constructor Create; override;
   published
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker)
@@ -160,6 +161,7 @@ type
   public
     constructor Create; override;
   published
+    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker)
@@ -179,6 +181,8 @@ type
   public
     constructor Create; override;
   published
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvPresupuestosCliente_Invoker = class(TDataAbstractService_Invoker)
@@ -784,6 +788,36 @@ begin
   FAbstract := False;
 end;
 
+procedure TsrvRemesasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvRemesasProveedor_Invoker }
 
 constructor TsrvRemesasProveedor_Invoker.Create;
@@ -792,6 +826,36 @@ begin
   FAbstract := False;
 end;
 
+procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReport(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvFacturasCliente_Invoker }
 
 constructor TsrvFacturasCliente_Invoker.Create;
@@ -904,6 +968,66 @@ begin
   FAbstract := False;
 end;
 
+procedure TsrvFacturasProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvFacturasProveedor).GenerarInforme(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GenerarInformeResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TsrvFacturasProveedor_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvFacturasProveedor).GenerarInformeEnPDF(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GenerarInformeEnPDFResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvPresupuestosCliente_Invoker }
 
 constructor TsrvPresupuestosCliente_Invoker.Create;
@@ -1151,9 +1275,14 @@ begin
 end;
 
 procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                            const VerIncidencias: Boolean): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
+  VerPrecios: Boolean;
+  VerRefProveedor: Boolean;
+  VerObservaciones: Boolean;
+  VerIncidencias: Boolean;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -1161,8 +1290,12 @@ begin
   lResult := nil;
   try
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Read('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
+    __Message.Read('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
+    __Message.Read('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
 
-    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -1239,9 +1372,14 @@ begin
 end;
 
 procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean; 
+                                 const VerIncidencias: Boolean): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
+  VerPrecios: Boolean;
+  VerRefProveedor: Boolean;
+  VerObservaciones: Boolean;
+  VerIncidencias: Boolean;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -1249,8 +1387,12 @@ begin
   lResult := nil;
   try
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Read('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
+    __Message.Read('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
+    __Message.Read('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
 
-    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEnPDF(ListaID);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEnPDF(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEnPDFResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);