Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cambio informes abeto

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@143 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2019-10-13 17:03:09 +00:00
parent d646dc5273
commit 12201f81c1
50 changed files with 461 additions and 459 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Iconos/logo-graden.jpg
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 28 KiB

After

Width:  |  Height:  |  Size: 46 KiB

4
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InfRemesaCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeIVAClientes.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeIVAClientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeIVAProveedores.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeIVAProveedoresDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasClientePendientes.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasProveedorDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

40
Source/Informes/1/InformeListadoFacturasRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

40
Source/Informes/1/InformeListadoFacturasRecibosProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosCliPendientes.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosProvPendientes.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosProvPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosProveedor.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/1/InformeListadoRecibosProveedorDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

98
Source/Informes/2/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

127
Source/Informes/2/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

116
Source/Informes/2/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

131
Source/Informes/2/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

82
Source/Informes/2/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/InformeListadoFacturasRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

16
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -100,10 +100,10 @@ type
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente); procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -181,10 +181,10 @@ type
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente); procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1159,7 +1159,7 @@ begin
end; end;
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
@ -1186,7 +1186,7 @@ begin
else else
ID_Presupuestos.Add(APresupuesto.ID); ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales); AReportController.Preview(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo);
finally finally
AReportController := NIL; AReportController := NIL;
FreeAndNil(ID_Presupuestos); FreeAndNil(ID_Presupuestos);
@ -1194,7 +1194,7 @@ begin
end; end;
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true; procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var var
AReportController : IPresupuestosClienteReportController; AReportController : IPresupuestosClienteReportController;
@ -1220,7 +1220,7 @@ begin
else else
ID_Presupuestos.Add(APresupuesto.ID); ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales); AReportController.Print(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
View File

@ -11,10 +11,10 @@ type
IPresupuestosClienteReportController = interface(IControllerBase) IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}'] ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -28,10 +28,10 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -88,7 +88,7 @@ begin
end; end;
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var var
AStream: Binary; AStream: Binary;
@ -98,7 +98,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales); AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo);
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -123,7 +123,7 @@ begin
end; end;
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean; procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False); const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var var
AStream: Binary; AStream: Binary;
@ -133,7 +133,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales); AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo);
try try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

12
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -52,10 +52,10 @@ type
// Report // Report
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean; function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean; function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
@ -83,7 +83,7 @@ begin
end; end;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean; function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
@ -91,21 +91,21 @@ begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;
end; end;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean; function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales) Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;

4
Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
View File

@ -9,10 +9,10 @@ type
IDataModulePresupuestosClienteReport = interface IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}'] ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean; function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean; function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean;
const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False; const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirTotalesCapitulo: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary; const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
end; end;

14
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -95,6 +95,7 @@ type
FVerLogotipo : Boolean; FVerLogotipo : Boolean;
FVerPrecios: Boolean; FVerPrecios: Boolean;
FVerTotales: Boolean; FVerTotales: Boolean;
FVerTotalesCapitulo: Boolean;
procedure _GenerarPresupuesto(const AID : Integer); procedure _GenerarPresupuesto(const AID : Integer);
@ -105,8 +106,8 @@ type
procedure IniciarParametrosInforme; procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
public public
function GenerarPresupuesto(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary; function GenerarPresupuesto(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True; const VerTotalesCapitulo: Boolean = true): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary; function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True; const VerTotalesCapitulo: Boolean = true): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
@ -154,7 +155,7 @@ begin
end; end;
end; end;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary; function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True; const VerTotalesCapitulo: Boolean = true): Binary;
var var
i: Integer; i: Integer;
begin begin
@ -164,6 +165,7 @@ begin
FVerLogotipo := VerLogotipo; FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios; FVerPrecios := VerPrecios;
FVerTotales := VerTotales; FVerTotales := VerTotales;
FVerTotalesCapitulo := VerTotalesCapitulo;
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
@ -494,7 +496,7 @@ begin
end; end;
end; end;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary; function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True; const VerTotalesCapitulo: Boolean = true): Binary;
var var
i: Integer; i: Integer;
begin begin
@ -504,7 +506,8 @@ begin
FVerLogotipo := VerLogotipo; FVerLogotipo := VerLogotipo;
FVerPrecios := VerPrecios; FVerPrecios := VerPrecios;
FVerTotales := VerTotales; FVerTotales := VerTotales;
FVerTotalesCapitulo := VerTotalesCapitulo;
//Vamos generando todos y cada uno de los presupuestos recibidos //Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i]); _GenerarPresupuesto(ListaID.Items[i]);
@ -560,6 +563,7 @@ begin
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo; frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.Variables.Variables['VerPrecios'] := FVerPrecios; frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
frxReport.Variables.Variables['VerTotales'] := FVerTotales; frxReport.Variables.Variables['VerTotales'] := FVerTotales;
frxReport.Variables.Variables['VerTotalesCapitulo'] := FVerTotalesCapitulo;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);

12
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -34,8 +34,8 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvPresupuestosCliente methods } { IsrvPresupuestosCliente methods }
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean; const VerTotalesCapitulo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean; const VerTotalesCapitulo: Boolean): Binary;
end; end;
implementation implementation
@ -79,25 +79,25 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean; const VerTotalesCapitulo: Boolean): Binary;
var var
AReportGenerator : TRptPresupuestosCliente; AReportGenerator : TRptPresupuestosCliente;
begin begin
AReportGenerator := TRptPresupuestosCliente.Create(nil); AReportGenerator := TRptPresupuestosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarPresupuesto(ListaID, VerLogotipo, VerPrecios, VerTotales); Result := AReportGenerator.GenerarPresupuesto(ListaID, VerLogotipo, VerPrecios, VerTotales, VerTotalesCapitulo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean; const VerTotalesCapitulo: Boolean): Binary;
var var
AReportGenerator : TRptPresupuestosCliente; AReportGenerator : TRptPresupuestosCliente;
begin begin
AReportGenerator := TRptPresupuestosCliente.Create(nil); AReportGenerator := TRptPresupuestosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerLogotipo, VerPrecios, VerTotales); Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerLogotipo, VerPrecios, VerTotales, VerTotalesCapitulo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

13
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.dfm
View File

@ -60,22 +60,21 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
end end
object cbVerRefProveedor: TCheckBox object cbVerTotales: TCheckBox
AlignWithMargins = True AlignWithMargins = True
Left = 50 Left = 50
Top = 121 Top = 75
Width = 441 Width = 441
Height = 17 Height = 17
Caption = 'Mostrar las referencias de proveedor de los conceptos' Caption = 'Mostrar importes totales del presupuesto'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 1 TabOrder = 1
Visible = False
end end
object cbVerIncidencias: TCheckBox object cbVerIncidencias: TCheckBox
AlignWithMargins = True AlignWithMargins = True
Left = 50 Left = 50
Top = 75 Top = 121
Width = 441 Width = 441
Height = 17 Height = 17
Caption = 'Mostrar las incidencias del albar'#225'n' Caption = 'Mostrar las incidencias del albar'#225'n'
@ -107,13 +106,13 @@ inherited fDialogOpcionesImpresionPresupuestosCliente: TfDialogOpcionesImpresion
State = cbChecked State = cbChecked
TabOrder = 4 TabOrder = 4
end end
object cbVerTotales: TCheckBox object cbVerTotalesCapitulos: TCheckBox
AlignWithMargins = True AlignWithMargins = True
Left = 50 Left = 50
Top = 52 Top = 52
Width = 415 Width = 415
Height = 17 Height = 17
Caption = 'Mostrar importes totales' Caption = 'Mostrar importes totales de los cap'#237'tulos'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 5 TabOrder = 5

17
Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas
View File

@ -9,22 +9,22 @@ uses
type type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase) TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
cbVerPrecios: TCheckBox; cbVerPrecios: TCheckBox;
cbVerRefProveedor: TCheckBox; cbVerTotales: TCheckBox;
cbVerIncidencias: TCheckBox; cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox; cbVerObservaciones: TCheckBox;
cbVerLogotipo: TCheckBox; cbVerLogotipo: TCheckBox;
cbVerTotales: TCheckBox; cbVerTotalesCapitulos: TCheckBox;
procedure actAceptarExecute(Sender: TObject); procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject);
end; end;
function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean; function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerTotalesCapitulos : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation implementation
{$R *.dfm} {$R *.dfm}
function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean; function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerTotalesCapitulos : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var var
AEditor : TfDialogOpcionesImpresionPresupuestosCliente; AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin begin
@ -33,7 +33,7 @@ begin
AEditor.cbVerLogotipo.Checked := AVerLogotipo; AEditor.cbVerLogotipo.Checked := AVerLogotipo;
AEditor.cbVerPrecios.Checked := AVerPrecios; AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerTotales.Checked := AVerTotales; AEditor.cbVerTotales.Checked := AVerTotales;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor; AEditor.cbVerTotalesCapitulos.Checked := AVerTotalesCapitulos;
AEditor.cbVerObservaciones.Checked := AVerObservaciones; AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias; AEditor.cbVerIncidencias.Checked := AVerIncidencias;
@ -41,13 +41,14 @@ begin
Result := (AEditor.ShowModal = mrOk); Result := (AEditor.ShowModal = mrOk);
if Result then if Result then
begin begin
AVerLogotipo := AEditor.cbVerLogotipo.Checked; AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerPrecios := AEditor.cbVerPrecios.Checked; AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerTotales := AEditor.cbVerTotales.Checked; AVerTotales := AEditor.cbVerTotales.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked; AVerTotalesCapitulos := AEditor.cbVerTotalesCapitulos.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked; AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked; AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end; end;
finally finally
AEditor.Release; AEditor.Release;
end; end;

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -440,7 +440,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 989 ExplicitWidth = 989
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 753 ExplicitWidth = 869
end end
inherited edtPrecioPunto: TcxDBCurrencyEdit inherited edtPrecioPunto: TcxDBCurrencyEdit
DataBinding.DataSource = frViewPresupuestoCliente1.DADataSource DataBinding.DataSource = frViewPresupuestoCliente1.DADataSource

16
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -342,7 +342,7 @@ var
FVerLogotipo: Boolean; FVerLogotipo: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirTotales : Boolean; FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean; FImprimirTotalesCapitulos : Boolean;
FImprimirObservaciones: Boolean; FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean; FImprimirIncidencias: Boolean;
@ -351,13 +351,13 @@ begin
FVerLogotipo := True; FVerLogotipo := True;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirTotales := True; FImprimirTotales := True;
FImprimirRefProveedor := False; FImprimirTotalesCapitulos := True;
FImprimirObservaciones := False; FImprimirObservaciones := False;
FImprimirIncidencias := False; FImprimirIncidencias := False;
if not Modified then if not Modified then
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(FPresupuesto, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias); FController.Print(FPresupuesto, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias);
end; end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@ -436,7 +436,7 @@ var
FVerLogotipo: Boolean; FVerLogotipo: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirTotales : Boolean; FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean; FImprimirTotalesCapitulos : Boolean;
FImprimirObservaciones: Boolean; FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean; FImprimirIncidencias: Boolean;
@ -446,13 +446,13 @@ begin
FVerLogotipo := True; FVerLogotipo := True;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirTotales := True; FImprimirTotales := True;
FImprimirRefProveedor := False; FImprimirTotalesCapitulos := True;
FImprimirObservaciones := False; FImprimirObservaciones := False;
FImprimirIncidencias := False; FImprimirIncidencias := False;
if not Modified then if not Modified then
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(FPresupuesto, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias); FController.Preview(FPresupuesto, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias);
end; end;
function TfEditorPresupuestoCliente.PuedoImprimir: Boolean; function TfEditorPresupuestoCliente.PuedoImprimir: Boolean;

16
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -494,7 +494,7 @@ var
FVerLogotipo: Boolean; FVerLogotipo: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirTotales : Boolean; FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean; FImprimirTotalesCapitulos : Boolean;
FImprimirObservaciones: Boolean; FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean; FImprimirIncidencias: Boolean;
@ -504,7 +504,7 @@ begin
FVerLogotipo := True; FVerLogotipo := True;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirTotales := True; FImprimirTotales := True;
FImprimirRefProveedor := False; FImprimirTotalesCapitulos := True;
FImprimirObservaciones := False; FImprimirObservaciones := False;
FImprimirIncidencias := False; FImprimirIncidencias := False;
@ -534,8 +534,8 @@ begin
if Assigned(APresupuestos) then if Assigned(APresupuestos) then
begin begin
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(APresupuestos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias); FController.Print(APresupuestos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias);
end; end;
end; end;
end; end;
@ -583,7 +583,7 @@ var
FVerLogotipo: Boolean; FVerLogotipo: Boolean;
FImprimirPrecios : Boolean; FImprimirPrecios : Boolean;
FImprimirTotales : Boolean; FImprimirTotales : Boolean;
FImprimirRefProveedor : Boolean; FImprimirTotalesCapitulos : Boolean;
FImprimirObservaciones: Boolean; FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean; FImprimirIncidencias: Boolean;
@ -593,7 +593,7 @@ begin
FVerLogotipo := True; FVerLogotipo := True;
FImprimirPrecios := False; FImprimirPrecios := False;
FImprimirTotales := True; FImprimirTotales := True;
FImprimirRefProveedor := False; FImprimirTotalesCapitulos := True;
FImprimirObservaciones := False; FImprimirObservaciones := False;
FImprimirIncidencias := False; FImprimirIncidencias := False;
@ -624,8 +624,8 @@ begin
if Assigned(APresupuestos) then if Assigned(APresupuestos) then
begin begin
if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then if ElegirOpcionesImpresionPresupuestoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(APresupuestos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias); FController.Preview(APresupuestos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirTotalesCapitulos, FImprimirObservaciones, FImprimirIncidencias);
end; end;
end; end;
end; end;

4
Source/Servicios/FactuGES.RODL
View File

@ -346,6 +346,8 @@
</Parameter> </Parameter>
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" > <Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerTotalesCapitulo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEnPDF" UID="{16270F10-DFBD-469A-A401-033B4CBA4381}"> <Operation Name="GenerarInformeEnPDF" UID="{16270F10-DFBD-469A-A401-033B4CBA4381}">
@ -360,6 +362,8 @@
</Parameter> </Parameter>
<Parameter Name="VerTotales" DataType="Boolean" Flag="In" > <Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerTotalesCapitulo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
</Operations> </Operations>

20
Source/Servicios/FactuGES_Intf.pas
View File

@ -556,8 +556,10 @@ type
{ IsrvPresupuestosCliente } { IsrvPresupuestosCliente }
IsrvPresupuestosCliente = interface(IDataAbstractService) IsrvPresupuestosCliente = interface(IDataAbstractService)
['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}'] ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; const VerTotalesCapitulo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
const VerTotalesCapitulo: Boolean): Binary;
end; end;
{ CosrvPresupuestosCliente } { CosrvPresupuestosCliente }
@ -570,8 +572,10 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; const VerTotalesCapitulo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
const VerTotalesCapitulo: Boolean): Binary;
end; end;
{ IsrvPedidosProveedor } { IsrvPedidosProveedor }
@ -1906,7 +1910,8 @@ begin
result := 'srvPresupuestosCliente'; result := 'srvPresupuestosCliente';
end; end;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
const VerTotalesCapitulo: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
@ -1915,6 +1920,7 @@ begin
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []); __Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Write('VerTotalesCapitulo', TypeInfo(Boolean), VerTotalesCapitulo, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -1926,7 +1932,8 @@ begin
end end
end; end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
const VerTotalesCapitulo: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
@ -1935,6 +1942,7 @@ begin
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []); __Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Write('VerTotalesCapitulo', TypeInfo(Boolean), VerTotalesCapitulo, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

14
Source/Servicios/FactuGES_Invk.pas
View File

@ -1010,12 +1010,14 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; } { function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
const VerTotalesCapitulo: Boolean): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean; VerLogotipo: Boolean;
VerPrecios: Boolean; VerPrecios: Boolean;
VerTotales: Boolean; VerTotales: Boolean;
VerTotalesCapitulo: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1026,8 +1028,9 @@ begin
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []); __Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Read('VerTotalesCapitulo', TypeInfo(Boolean), VerTotalesCapitulo, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerLogotipo, VerPrecios, VerTotales); lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerLogotipo, VerPrecios, VerTotales, VerTotalesCapitulo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1046,12 +1049,14 @@ begin
end; end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary; } { function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean;
const VerTotalesCapitulo: Boolean): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean; VerLogotipo: Boolean;
VerPrecios: Boolean; VerPrecios: Boolean;
VerTotales: Boolean; VerTotales: Boolean;
VerTotalesCapitulo: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1062,8 +1067,9 @@ begin
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []); __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []); __Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
__Message.Read('VerTotalesCapitulo', TypeInfo(Boolean), VerTotalesCapitulo, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo, VerPrecios, VerTotales); lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo, VerPrecios, VerTotales, VerTotalesCapitulo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.