diff --git a/Source/Modulos/Albaranes de cliente/Controller/View/uIEditorAlbaranesClientePreview.pas b/Source/Modulos/Albaranes de cliente/Controller/View/uIEditorAlbaranesClientePreview.pas index 310583f..2a76f61 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/View/uIEditorAlbaranesClientePreview.pas +++ b/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; diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas index 42c957f..8e0ea5e 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas +++ b/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 Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); + procedure Preview(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 Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); + procedure Preview(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; diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas index 89c75a4..7b7d5b4 100644 --- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas +++ b/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 Print(const AListaID : TIntegerList); + procedure Preview(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 Print(const AListaID : TIntegerList); + procedure Preview(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; diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas index 02f9e31..7070be4 100644 --- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas @@ -36,12 +36,16 @@ 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; + function GetAnosItems : TStringList; end; implementation @@ -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( - const AID: Integer): Binary; +function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; + 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; diff --git a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas index 5e95c8c..b17810c 100644 --- a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas +++ b/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; diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas index 4d1a9d9..47e5666 100644 --- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas +++ b/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( - const ListaID: TIntegerArray): Binary; +function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID : 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 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 - dsMaster: IDADataset; - dsDetail: IDADataset; - AStream: TMemoryStream;} +var + AInforme: Variant; + 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]); - dsDetail := schReport.NewDataset(FConnection, ds_InformeDetallesEtiquetas, ['ID_ALBARAN'], [AID], False); + tbl_Cabecera.Active := False; + tbl_Detalles.Active := False; - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE); + tbl_Cabecera.ParamByName('ID').AsInteger := AID; + tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID; - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE); + tbl_Cabecera.Active := True; + tbl_Detalles.Active := 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; + FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; -} end; end. diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas index 56044c1..0936bba 100644 --- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas +++ b/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( - const ListaID: TIntegerArray): Binary; +function TsrvAlbaranesCliente.GenerarInformeEnPDF(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.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 -// AReportGenerator : TRptAlbaranesCliente; +var + 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; diff --git a/Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas new file mode 100644 index 0000000..f9b00f0 --- /dev/null +++ b/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. diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index a7af5e6..d3e6610 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/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; diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas index 970f44b..61cfa17 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas +++ b/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; diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas index 97b1850..5a0caef 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas +++ b/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. diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 69cd041..fe6e526 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -614,8 +614,8 @@ begin REFERENCIA := ''; ID_PEDIDO := 0; ID_FACTURA := 0; - ID_ALBARAN := 0; - REFERENCIA_ALBARAN := ''; +// ID_ALBARAN := 0; +// REFERENCIA_ALBARAN := ''; end; Result.Post; finally diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas index 63d7928..96f7c3f 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas +++ b/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_AlbaranesProveedor = '{70F52AD0-4120-42C8-B8C9-002C650CD667}'; - RID_AlbaranesProveedor_Detalles = '{858DC56E-F6E9-4CBD-A42B-4D4C1B386F17}'; + RID_ListaAnosAlbaranes = '{67FE3121-0CE7-44D8-ACA8-DD41FC61C261}'; + RID_AlbaranesProveedor = '{35158E6A-D01B-419D-A2EA-50F406DE673F}'; + 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_AlbaranesProveedorREFERENCIA_ALBARAN = 'REFERENCIA_ALBARAN'; + fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS'; + 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_AlbaranesProveedorTIPO_ALMACEN = 11; - idx_AlbaranesProveedorNOMBRE_ALMACEN = 12; - idx_AlbaranesProveedorID_PEDIDO = 13; - idx_AlbaranesProveedorREF_PED_PROVEEDOR = 14; - idx_AlbaranesProveedorID_FACTURA = 15; - idx_AlbaranesProveedorREF_FACTURA = 16; - idx_AlbaranesProveedorREF_FACTURA_PROV = 17; - idx_AlbaranesProveedorCALLE = 18; - idx_AlbaranesProveedorCODIGO_POSTAL = 19; - idx_AlbaranesProveedorPOBLACION = 20; - idx_AlbaranesProveedorPROVINCIA = 21; - idx_AlbaranesProveedorPERSONA_CONTACTO = 22; - idx_AlbaranesProveedorTELEFONO = 23; - idx_AlbaranesProveedorIMPORTE_NETO = 24; - idx_AlbaranesProveedorIMPORTE_PORTE = 25; - idx_AlbaranesProveedorDESCUENTO = 26; - idx_AlbaranesProveedorIMPORTE_DESCUENTO = 27; - idx_AlbaranesProveedorBASE_IMPONIBLE = 28; - idx_AlbaranesProveedorIVA = 29; - idx_AlbaranesProveedorIMPORTE_IVA = 30; - idx_AlbaranesProveedorIMPORTE_TOTAL = 31; - idx_AlbaranesProveedorOBSERVACIONES = 32; - idx_AlbaranesProveedorINCIDENCIAS = 33; - idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 34; - idx_AlbaranesProveedorFECHA_ALTA = 35; - idx_AlbaranesProveedorFECHA_MODIFICACION = 36; - idx_AlbaranesProveedorUSUARIO = 37; - idx_AlbaranesProveedorID_FORMA_PAGO = 38; - idx_AlbaranesProveedorID_ALBARAN = 39; - idx_AlbaranesProveedorREFERENCIA_ALBARAN = 40; + idx_AlbaranesProveedorID_ALBARAN_DEV = 10; + idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 11; + idx_AlbaranesProveedorID_FAC_ALB_DEV = 12; + idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 13; + idx_AlbaranesProveedorID_ALMACEN = 14; + idx_AlbaranesProveedorTIPO_ALMACEN = 15; + idx_AlbaranesProveedorNOMBRE_ALMACEN = 16; + idx_AlbaranesProveedorID_PEDIDO = 17; + idx_AlbaranesProveedorREF_PED_PROVEEDOR = 18; + idx_AlbaranesProveedorID_FACTURA = 19; + idx_AlbaranesProveedorREF_FACTURA = 20; + idx_AlbaranesProveedorREF_FACTURA_PROV = 21; + idx_AlbaranesProveedorCALLE = 22; + idx_AlbaranesProveedorCODIGO_POSTAL = 23; + idx_AlbaranesProveedorPOBLACION = 24; + idx_AlbaranesProveedorPROVINCIA = 25; + idx_AlbaranesProveedorPERSONA_CONTACTO = 26; + idx_AlbaranesProveedorTELEFONO = 27; + idx_AlbaranesProveedorIMPORTE_NETO = 28; + idx_AlbaranesProveedorIMPORTE_PORTE = 29; + idx_AlbaranesProveedorDESCUENTO = 30; + idx_AlbaranesProveedorIMPORTE_DESCUENTO = 31; + idx_AlbaranesProveedorBASE_IMPONIBLE = 32; + idx_AlbaranesProveedorIVA = 33; + idx_AlbaranesProveedorIMPORTE_IVA = 34; + idx_AlbaranesProveedorIMPORTE_TOTAL = 35; + idx_AlbaranesProveedorOBSERVACIONES = 36; + idx_AlbaranesProveedorINCIDENCIAS = 37; + idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 38; + idx_AlbaranesProveedorFECHA_ALTA = 39; + 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; - procedure SetID_ALBARANValue(const aValue: Integer); - function GetID_ALBARANIsNull: Boolean; - procedure SetID_ALBARANIsNull(const aValue: Boolean); - function GetREFERENCIA_ALBARANValue: String; - procedure SetREFERENCIA_ALBARANValue(const aValue: String); - function GetREFERENCIA_ALBARANIsNull: Boolean; - procedure SetREFERENCIA_ALBARANIsNull(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 } @@ -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 ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; - property REFERENCIA_ALBARAN: String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue; - property REFERENCIA_ALBARANIsNull: Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull; + 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; { 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; - procedure SetID_ALBARANValue(const aValue: Integer); virtual; - function GetID_ALBARANIsNull: Boolean; virtual; - procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_ALBARANValue: String; virtual; - procedure SetREFERENCIA_ALBARANValue(const aValue: String); virtual; - function GetREFERENCIA_ALBARANIsNull: Boolean; virtual; - procedure SetREFERENCIA_ALBARANIsNull(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; @@ -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 ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; - property REFERENCIA_ALBARAN: String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue; - property REFERENCIA_ALBARANIsNull: Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull; + 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; @@ -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; diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas index 8865111..11b0d0c 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas +++ b/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_AlbaranesProveedorDelta = '{0FC3D2BC-B9A2-4FBA-A4DA-65522DD5B4D3}'; - RID_AlbaranesProveedor_DetallesDelta = '{A6A5E64F-495A-4C33-B6BF-EE78BEF1ECAD}'; + RID_ListaAnosAlbaranesDelta = '{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}'; + RID_AlbaranesProveedorDelta = '{E1D5D564-4E1B-40E7-836F-99DEF018E818}'; + 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 GetOldREFERENCIA_ALBARANValue : String; + function GetOldNUM_COPIASValue : SmallInt; + 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 OldREFERENCIA_ALBARAN : String read GetOldREFERENCIA_ALBARANValue; + property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue; + 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 GetID_ALBARANIsNull: Boolean; virtual; - function GetOldID_ALBARANValue: Integer; virtual; - function GetOldID_ALBARANIsNull: Boolean; virtual; - procedure SetID_ALBARANValue(const aValue: Integer); virtual; - procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual; - function GetREFERENCIA_ALBARANValue: String; virtual; - function GetREFERENCIA_ALBARANIsNull: Boolean; virtual; - function GetOldREFERENCIA_ALBARANValue: String; virtual; - function GetOldREFERENCIA_ALBARANIsNull: Boolean; virtual; - procedure SetREFERENCIA_ALBARANValue(const aValue: String); virtual; - procedure SetREFERENCIA_ALBARANIsNull(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; @@ -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 ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull; - property OldID_ALBARAN : Integer read GetOldID_ALBARANValue; - property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull; - property REFERENCIA_ALBARAN : String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue; - property REFERENCIA_ALBARANIsNull : Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull; - property OldREFERENCIA_ALBARAN : String read GetOldREFERENCIA_ALBARANValue; - property OldREFERENCIA_ALBARANIsNull : Boolean read GetOldREFERENCIA_ALBARANIsNull; + 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; @@ -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; diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas index a9251c5..db44918 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas +++ b/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 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index cc49556..c0fd43d 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/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 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index 697cc42..124e405 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/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; diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 82ad53d..1c4d6f4 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/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 + //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.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; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 999bf9f..eee835d 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/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; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index 92e7bfe..a7b3735 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/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; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 56f16c4..6ffd866 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas index 6922539..cd01e44 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas +++ b/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 Print(const AFacturaID : String); + procedure Preview(const AListaID : TIntegerList); + 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 Print(const AFacturaID : String); + procedure Preview(const AListaID : TIntegerList); + 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 diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas index 3362ed3..39af7f8 100644 --- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas +++ b/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,15 +29,17 @@ 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; + function GetAnosItems : TStringList; end; implementation @@ -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; diff --git a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedorReport.pas b/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedorReport.pas index 8194f39..2e928ec 100644 --- a/Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedorReport.pas +++ b/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 diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index ad6ffa6..e7784c6 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/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; diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas index bfde10a..6d95fbc 100644 --- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas +++ b/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; -// uRptFacturasProveedor_Server; + uRestriccionesUsuarioUtils, uBizFacturasProveedorServer, + 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); diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 49b85b4..9563481 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/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; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas index cec76e4..d92688a 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas +++ b/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 diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas index 7670cc1..b642c5a 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas +++ b/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_PedidosProveedor = '{FB6CB8F5-5944-469C-848F-C2B228E6115F}'; - RID_PedidosProveedor_Detalles = '{BB197BA1-5EB9-416C-A7DD-1B8C3097AE72}'; - RID_PedidosProveedor_Articulos_Pendientes = '{D8031329-D44D-436D-90CC-28FFBF9B3485}'; + RID_ListaAnosPedidos = '{F7F27923-FB30-40B2-8F05-6B9563D17395}'; + RID_PedidosProveedor = '{8C858277-77F8-4D71-A60F-8003348A72AA}'; + RID_PedidosProveedor_Detalles = '{5C63501F-5ADE-45AD-B72C-52E7EA7EE819}'; + 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); diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas index a1a250d..255d028 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas +++ b/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_PedidosProveedorDelta = '{D1505641-F1C6-4565-823C-F14DC964DDC6}'; - RID_PedidosProveedor_DetallesDelta = '{E1572661-F1D9-4902-A018-60E27BF71613}'; - RID_PedidosProveedor_Articulos_PendientesDelta = '{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}'; + RID_ListaAnosPedidosDelta = '{ED73D976-2DA8-409E-9A56-827BAB200193}'; + RID_PedidosProveedorDelta = '{1A2AA90B-29E8-4944-9082-7CFEDEC9E9A0}'; + RID_PedidosProveedor_DetallesDelta = '{EE10E854-7C9C-4EFB-9C85-BFFF777218EA}'; + 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); diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas index 304548a..1405005 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas +++ b/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 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas index e0405ff..3586498 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas +++ b/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 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index 30e8d6b..f7af707 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/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 diff --git a/Source/Modulos/Pedidos de cliente/Controller/View/uIEditorPedidosClientePreview.pas b/Source/Modulos/Pedidos de cliente/Controller/View/uIEditorPedidosClientePreview.pas index c3f9bb8..99746a9 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/View/uIEditorPedidosClientePreview.pas +++ b/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; diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas index 2f414ba..41f394c 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas +++ b/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) diff --git a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas b/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas index 7207e81..bf52e83 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas +++ b/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.VerRefProveedor := VerRefProveedor; + AEditor.VerPrecios := VerPrecios; + 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 diff --git a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas b/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas index 39d3d19..9b7d7a0 100644 --- a/Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas +++ b/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 diff --git a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas b/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas index 2217be3..6ee4ca2 100644 --- a/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas +++ b/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; - - //, uRptPedidosCliente_Server; + uBizPedidosClienteServer, 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 -// AReportGenerator : TRptPedidosCliente; +var + 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 -// AReportGenerator : TRptPedidosCliente; +var + AReportGenerator : TRptPedidosCliente; begin -{ AReportGenerator := TRptPedidosCliente.Create(nil); + AReportGenerator := TRptPedidosCliente.Create(nil); try Result := AReportGenerator.GenerarPedidoEnPDF(ListaID, ImprimirPrecio, ImprimirRefProveedor); finally FreeAndNIL(AReportGenerator); end; -} end; initialization diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas index d983bee..de88ecb 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas +++ b/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 - FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefCliente); + if ElegirOpcionesImpresionPedidoCliente(FImprimirPrecios, FImprimirRefProveedor) then + FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefProveedor); end; procedure TfEditorPedidoCliente.RecalcularPortePorUnidad; diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.pas new file mode 100644 index 0000000..206d498 --- /dev/null +++ b/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. diff --git a/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas b/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas index c3d0fc6..de80a6a 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas +++ b/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; diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas index f0f7913..5fc7d6d 100644 --- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas +++ b/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 } diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas index 5c753e7..fba144b 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas +++ b/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_RecibosCompensadosProv = '{9EAB41F6-5853-4683-A0E3-F66C12232C03}'; - RID_RecibosProveedor = '{2344F4F7-8139-44E1-B225-3E581F4B9FB2}'; - RID_PagosProveedor = '{873FD5ED-817D-4AF3-81CF-5D3290B15090}'; + RID_ListaAnosRecibos = '{86E71826-275E-4A5A-863D-B21956A3AED2}'; + RID_RecibosCompensadosProv = '{80E7A05A-0220-4E61-8D3F-A98F1141A621}'; + RID_RecibosProveedor = '{520C0FD8-98B8-40E4-9BED-4E40C9D0ADF4}'; + 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_RecibosCompensadosProvFECHA_MODIFICACION = 26; - idx_RecibosCompensadosProvUSUARIO = 27; + idx_RecibosCompensadosProvENTIDAD_PROVEEDOR = 25; + idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 26; + 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_RecibosProveedorFECHA_MODIFICACION = 26; - idx_RecibosProveedorUSUARIO = 27; + idx_RecibosProveedorENTIDAD_PROVEEDOR = 25; + idx_RecibosProveedorSUCURSAL_PROVEEDOR = 26; + 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; diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas index 50f8a45..de1e42d 100644 --- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas +++ b/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_RecibosCompensadosProvDelta = '{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}'; - RID_RecibosProveedorDelta = '{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}'; - RID_PagosProveedorDelta = '{E48CD2E0-5DD4-41AF-97DE-F945B013E452}'; + RID_ListaAnosRecibosDelta = '{CEF05DC1-6B9E-474B-8A65-DA95A612D89E}'; + RID_RecibosCompensadosProvDelta = '{19410887-89F2-4DA4-B652-CC673A904159}'; + RID_RecibosProveedorDelta = '{053B97EC-710A-491F-94B5-2A3DC4519D8F}'; + 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]; diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index 9c84dc6..37ceed8 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/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. - \ No newline at end of file diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas index 0d2c902..8b4f31a 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas +++ b/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 Print(const ID : String); + procedure Preview(const ListaID : TIntegerList); + 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 Print(const ID : String); + procedure Preview(const ListaID : TIntegerList); + 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 diff --git a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas index 9166770..9842f39 100644 --- a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas +++ b/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; @@ -41,7 +41,7 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataTableUtils, cxControls, uDataModuleConexion, + FactuGES_Intf, uDataTableUtils, cxControls, uDataModuleConexion, schRemesasClienteClient_Intf, Dialogs; { TdmRemesasCliente } @@ -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; diff --git a/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasClienteReport.pas b/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasClienteReport.pas index 53389c0..d792400 100644 --- a/Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasClienteReport.pas +++ b/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 diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas index 82b8b61..578957d 100644 --- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas +++ b/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 } diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas index 25f34b9..3c586c5 100644 --- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas +++ b/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, -// uRptRemesasCliente_Server, + uBizRemesasClienteServer, 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); diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index a5d1463..4eff286 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/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; diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas index 3aafe00..76f95c3 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas +++ b/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 Print(const ID : String); + procedure Preview(const ListaID : TIntegerList); + 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 Print(const ID : String); + procedure Preview(const ListaID : TIntegerList); + 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 diff --git a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas index e6aaa8e..7071a18 100644 --- a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas +++ b/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; diff --git a/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas b/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas index 728a02c..662a03c 100644 --- a/Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas +++ b/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 diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas index 2937539..90e0fe7 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas +++ b/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); diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index c0ee3be..f4b44a3 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/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); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 5dc98df..a1f4087 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/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, []);