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

Se adpata a abeto el informe de presupuestos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@10 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2011-11-22 18:18:29 +00:00
parent 5978cf2acc
commit 1a19d5835f
21 changed files with 144 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Resources/Iconos/Barras.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.0 KiB

BIN
Resources/Iconos/Titulo2.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 17 KiB

BIN
Resources/Iconos/logoacana.jpg
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 49 KiB

BIN
Resources/Iconos/logotipo abeto design.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 23 KiB

BIN
Resources/Iconos/logotipo abeto pie de hoja.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 340 KiB

59
Source/Informes/InfPresupuestoCliente.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

@ -92,8 +92,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -168,8 +168,8 @@ type
function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean;
function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean;
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente);
function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -1089,7 +1089,7 @@ begin
}
end;
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false);
procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@ -1115,14 +1115,14 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Preview(ID_Presupuestos);
AReportController.Preview(ID_Presupuestos, VerLogotipo);
finally
AReportController := NIL;
FreeAndNil(ID_Presupuestos);
end;
end;
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false);
procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var
AReportController : IPresupuestosClienteReportController;
ID_Presupuestos: TIntegerList;
@ -1147,7 +1147,7 @@ begin
else
ID_Presupuestos.Add(APresupuesto.ID);
AReportController.Print(ID_Presupuestos);
AReportController.Print(ID_Presupuestos, VerLogotipo);
finally
AReportController := NIL;

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

@ -10,8 +10,8 @@ uses
type
IPresupuestosClienteReportController = interface(IControllerBase)
['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
procedure Preview(const AListaID : TIntegerList);
procedure Print(const AListaID : TIntegerList);
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -23,8 +23,8 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList);
procedure Print(const AListaID : TIntegerList);
procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -57,8 +57,7 @@ begin
inherited;
end;
function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer;
const AFileName: String): Boolean;
function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
var
AStream: Binary;
begin
@ -68,7 +67,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPDFPresupuesto(AID);
AStream := FDataModule.GetRptPDFPresupuesto(AID, True);
try
AStream.SaveToFile(AFileName);
Result := True;
@ -80,7 +79,7 @@ begin
end;
end;
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList);
procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
@ -89,7 +88,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID);
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then
@ -113,16 +112,16 @@ begin
end;
end;
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList);
procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var
AStream: Binary;
AEditor : IEditorPresupuestosClientePreview;
begin
AEditor := NIL;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPresupuestos(AListaID);
AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo);
try
CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
if Assigned(AEditor) then

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

@ -51,8 +51,8 @@ type
function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo;
// Report
function GetRptPresupuestos(const AListaID: TIntegerList): Binary;
function GetRptPDFPresupuesto(const AID: Integer): Binary;
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary;
function GetAnosItems : TStringList;
end;
@ -78,27 +78,26 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(
const AID: Integer): Binary;
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo)
finally
FreeANDNIL(AParam)
end;
end;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList): Binary;
function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
var
AParam : TIntegerArray;
begin
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam)
Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo)
finally
FreeANDNIL(AParam)
end;

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

@ -8,8 +8,8 @@ uses
type
IDataModulePresupuestosClienteReport = interface
['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
function GetRptPresupuestos(const AListaID: TIntegerList): Binary;
function GetRptPDFPresupuesto(const AID: Integer): Binary;
function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary;
end;
implementation

2
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -868,7 +868,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40141.552037754600000000
ReportOptions.LastChange = 40869.748848321760000000
ScriptLanguage = 'PascalScript'
ShowProgress = False
StoreInDFM = False

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

@ -92,7 +92,8 @@ type
FListaNombresClientes: TStringList;
FImporteMinimo: Currency;
FDesglosado : Boolean;
FVerLogotipo : Boolean;
procedure _GenerarPresupuesto(const AID : Integer);
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
@ -100,10 +101,10 @@ type
function _GenerarInforme(const TipoInforme: String): Binary;
procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes;
procedure RecuperarNombresClientes;
public
function GenerarPresupuesto(const ListaID : TIntegerArray): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray): Binary;
function GenerarPresupuesto(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: 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;
@ -151,12 +152,15 @@ begin
end;
end;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
var
i: Integer;
begin
Result := Binary.Create;
try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i]);
@ -486,12 +490,15 @@ begin
end;
end;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray): Binary;
function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
var
i: Integer;
begin
Result := Binary.Create;
try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
_GenerarPresupuesto(ListaID.Items[i]);
@ -544,6 +551,7 @@ begin
raise Exception.Create (('Error Servidor: _GenerarPresupuesto, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False);

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

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

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

@ -5,7 +5,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ClientHeight = 676
ClientWidth = 848
OnClose = CustomEditorClose
ExplicitTop = -147
ExplicitWidth = 856
ExplicitHeight = 710
PixelsPerInch = 96
@ -232,57 +231,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitWidth = 58
end
inherited UpDown1: TUpDown
Left = 587
Left = 571
Top = 0
ExplicitLeft = 587
ExplicitLeft = 571
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 604
Left = 588
Top = 0
ExplicitLeft = 604
ExplicitLeft = 588
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 612
Left = 596
Top = 0
ExplicitLeft = 612
ExplicitLeft = 596
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 646
Left = 630
Top = 0
ExplicitLeft = 646
ExplicitLeft = 630
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 680
Left = 664
Top = 0
ExplicitLeft = 680
ExplicitLeft = 664
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 714
Left = 698
Top = 0
ExplicitLeft = 714
ExplicitLeft = 698
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 722
Left = 706
Top = 0
ExplicitLeft = 722
ExplicitLeft = 706
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 756
Left = 740
Top = 0
ExplicitLeft = 756
ExplicitLeft = 740
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 790
Left = 774
Top = 0
ExplicitLeft = 790
ExplicitLeft = 774
ExplicitTop = 0
end
end

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

@ -284,10 +284,16 @@ begin
end;
procedure TfEditorPresupuestoCliente.ImprimirInterno;
var
AVerLogotipo: Boolean;
begin
inherited;
AVerLogotipo := True;
if not Modified then
FController.Print(FPresupuesto);
begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(FPresupuesto, False, AVerLogotipo);
end;
end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
@ -345,10 +351,16 @@ begin
end;
procedure TfEditorPresupuestoCliente.PrevisualizarInterno;
var
AVerLogotipo: Boolean;
begin
inherited;
AVerLogotipo := True;
if not Modified then
FController.Preview(FPresupuesto);
begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(FPresupuesto, False, AVerLogotipo);
end;
end;
function TfEditorPresupuestoCliente.PuedoImprimir: Boolean;

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

@ -484,9 +484,11 @@ var
Respuesta : Integer;
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerLogotipo: Boolean;
begin
APresupuestos := Nil;
AllItems := False;
AVerLogotipo := True;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -513,7 +515,10 @@ begin
APresupuestos := Presupuestos;
if Assigned(APresupuestos) then
FController.Print(APresupuestos, AllItems);
begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(APresupuestos, AllItems, AVerLogotipo);
end;
end;
end;
end;
@ -557,9 +562,11 @@ var
Respuesta : Integer;
APresupuestos: IBizPresupuestoCliente;
AllItems: Boolean;
AVerLogotipo: Boolean;
begin
APresupuestos := Nil;
AllItems := False;
AVerLogotipo := True;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -586,7 +593,10 @@ begin
APresupuestos := Presupuestos;
if Assigned(APresupuestos) then
FController.Preview(APresupuestos, AllItems);
begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(APresupuestos, AllItems, AVerLogotipo);
end;
end;
end;
end;

4
Source/Servicios/FactuGES.RODL
View File

@ -308,6 +308,8 @@
</Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GenerarInformeEnPDF" UID="{16270F10-DFBD-469A-A401-033B4CBA4381}">
@ -316,6 +318,8 @@
</Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>

14
Source/Servicios/FactuGES_Intf.pas
View File

@ -548,8 +548,8 @@ type
{ IsrvPresupuestosCliente }
IsrvPresupuestosCliente = interface(IDataAbstractService)
['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end;
{ CosrvPresupuestosCliente }
@ -562,8 +562,8 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end;
{ IsrvPedidosProveedor }
@ -1817,12 +1817,13 @@ begin
result := 'srvPresupuestosCliente';
end;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1834,12 +1835,13 @@ begin
end
end;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

12
Source/Servicios/FactuGES_Invk.pas
View File

@ -923,9 +923,10 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -933,8 +934,9 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerLogotipo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -953,9 +955,10 @@ begin
end;
procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -963,8 +966,9 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID);
lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.