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;
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);
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);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -181,10 +181,10 @@ type
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
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);
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);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1159,7 +1159,7 @@ begin
end;
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);
var
AReportController : IPresupuestosClienteReportController;
@ -1186,7 +1186,7 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
AReportController.Preview(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo);
finally
AReportController := NIL;
FreeAndNil(ID_Presupuestos);
@ -1194,7 +1194,7 @@ begin
end;
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);
var
AReportController : IPresupuestosClienteReportController;
@ -1220,7 +1220,7 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
AReportController.Print(ID_Presupuestos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo);
finally
AReportController := NIL;

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

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

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

@ -52,10 +52,10 @@ type
// Report
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;
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;
function GetAnosItems : TStringList;
@ -83,7 +83,7 @@ begin
end;
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;
var
AParam : TIntegerArray;
@ -91,21 +91,21 @@ begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo)
finally
FreeANDNIL(AParam)
end;
end;
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;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo, VerImprimirPrecios, VerImprimirTotales, VerImprimirTotalesCapitulo)
finally
FreeANDNIL(AParam)
end;

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

@ -9,10 +9,10 @@ type
IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
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;
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;
end;

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

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

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

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

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

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

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

@ -9,22 +9,22 @@ uses
type
TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
cbVerPrecios: TCheckBox;
cbVerRefProveedor: TCheckBox;
cbVerTotales: TCheckBox;
cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox;
cbVerLogotipo: TCheckBox;
cbVerTotales: TCheckBox;
cbVerTotalesCapitulos: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
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
{$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
AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin
@ -33,7 +33,7 @@ begin
AEditor.cbVerLogotipo.Checked := AVerLogotipo;
AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerTotales.Checked := AVerTotales;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerTotalesCapitulos.Checked := AVerTotalesCapitulos;
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
@ -41,13 +41,14 @@ begin
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerLogotipo := AEditor.cbVerLogotipo.Checked;
AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerTotales := AEditor.cbVerTotales.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerTotales := AEditor.cbVerTotales.Checked;
AVerTotalesCapitulos := AEditor.cbVerTotalesCapitulos.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end;
finally
AEditor.Release;
end;

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

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

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

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

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

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

4
Source/Servicios/FactuGES.RODL
View File

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

20
Source/Servicios/FactuGES_Intf.pas
View File

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

14
Source/Servicios/FactuGES_Invk.pas
View File

@ -1010,12 +1010,14 @@ begin
end;
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
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
VerTotalesCapitulo: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1026,8 +1028,9 @@ begin
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__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.Write('Result', TypeInfo(Binary), lResult, []);
@ -1046,12 +1049,14 @@ begin
end;
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
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
VerPrecios: Boolean;
VerTotales: Boolean;
VerTotalesCapitulo: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1062,8 +1067,9 @@ begin
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__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.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.