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

Se adaptan informes a abeto design, falta repaso de informes globales y por empresas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@12 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2011-11-23 16:45:58 +00:00
parent 882f759fe3
commit 85066a87b0
42 changed files with 401 additions and 255 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

96
Source/Base/Base.dproj
View File

@ -65,55 +65,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de proveedor\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frx11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\frxe11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\fs11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

16
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -42,8 +42,8 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente; function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente; function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -136,8 +136,8 @@ type
DoPost: Boolean = True) : Boolean; DoPost: Boolean = True) : Boolean;
procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente); procedure EnviarAlbaranPorEMail(AAlbaran : IBizAlbaranCliente);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false); procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean); procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1002,7 +1002,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false); procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
@ -1030,7 +1030,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
AReportController.Preview(ID_Albaranes); AReportController.Preview(ID_Albaranes, VerLogotipo);
finally finally
AReportController := NIL; AReportController := NIL;
@ -1038,7 +1038,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false); procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var var
AReportController : IAlbaranesClienteReportController; AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList; ID_Albaranes: TIntegerList;
@ -1064,7 +1064,7 @@ begin
else else
ID_Albaranes.Add(AAlbaran.ID); ID_Albaranes.Add(AAlbaran.ID);
AReportController.Print(ID_Albaranes); AReportController.Print(ID_Albaranes, VerLogotipo);
finally finally
AReportController := NIL; AReportController := NIL;

21
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -10,8 +10,8 @@ uses
type type
IAlbaranesClienteReportController = interface(IControllerBase) IAlbaranesClienteReportController = interface(IControllerBase)
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}'] ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
@ -26,8 +26,8 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean); procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
@ -113,8 +113,7 @@ begin
end; end;
end; end;
function TAlbaranesClienteReportController.ExportToPDF(const AID: Integer; function TAlbaranesClienteReportController.ExportToPDF(const AID: Integer; const AFileName: String): Boolean;
const AFileName: String): Boolean;
var var
AStream: Binary; AStream: Binary;
begin begin
@ -124,7 +123,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPDFAlbaran(AID); AStream := FDataModule.GetRptPDFAlbaran(AID, True);
try try
AStream.SaveToFile(AFileName); AStream.SaveToFile(AFileName);
Result := True; Result := True;
@ -136,14 +135,14 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList); procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetRptAlbaranes(AListaID); AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -164,7 +163,7 @@ begin
end; end;
end; end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList); procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorAlbaranesClientePreview; AEditor : IEditorAlbaranesClientePreview;
@ -173,7 +172,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptAlbaranes(AListaID); AStream := FDataModule.GetRptAlbaranes(AListaID, VerLogotipo);
try try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor); CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

13
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -37,9 +37,9 @@ type
function NewItem : IBizAlbaranCliente; function NewItem : IBizAlbaranCliente;
// Report // Report
function GetRptAlbaranes(const ListaID: TIntegerList): Binary; function GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer): Binary; function GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation
@ -63,27 +63,26 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList): Binary; function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := ListaID.ToIntegerArray; AParam := ListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam); Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo);
finally finally
FreeAndNil(AParam); FreeAndNil(AParam);
end; end;
end; end;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran( function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer; const VerLogotipo: Boolean): Binary;
const AID: Integer): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam); Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerLogotipo);
finally finally
FreeAndNil(AParam); FreeAndNil(AParam);
end; end;

4
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

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

19
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -36,11 +36,12 @@ type
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;
FVerLogotipo: Boolean;
//Genera cada uno de los albaranes a imprimir //Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const ID: Integer); procedure _GenerarAlbaran(const ID: Integer);
public public
function GenerarAlbaran(const ListaID : TIntegerArray): Binary; function GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary; function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary; function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
end; end;
@ -71,11 +72,14 @@ begin
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
end; end;
function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray): Binary; function TRptAlbaranesCliente.GenerarAlbaran(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//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
_GenerarAlbaran(ListaID.Items[i]); _GenerarAlbaran(ListaID.Items[i]);
@ -83,13 +87,15 @@ begin
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
end; end;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF( function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
const ListaID: TIntegerArray): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//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
_GenerarAlbaran(ListaID.Items[i]); _GenerarAlbaran(ListaID.Items[i]);
@ -119,7 +125,8 @@ begin
raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran)); raise Exception.Create (('Error Servidor: _GenerarAlbaran, no encuentra informe' + rptInfAlbaran));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.ReportOptions.Name := 'Albarán de cliente ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

7
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -32,7 +32,7 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvAlbaranesCliente methods } { IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -81,14 +81,13 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvAlbaranesCliente.GenerarInforme( function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
const ListaID: TIntegerArray): Binary;
var var
AReportGenerator : TRptAlbaranesCliente; AReportGenerator : TRptAlbaranesCliente;
begin begin
AReportGenerator := TRptAlbaranesCliente.Create(nil); AReportGenerator := TRptAlbaranesCliente.Create(nil);
try try
Result := AReportGenerator.GenerarAlbaran(ListaID); Result := AReportGenerator.GenerarAlbaran(ListaID, VerLogotipo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -360,6 +360,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 11 Top = 11
Enabled = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 11 ExplicitTop = 11
@ -406,6 +407,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False Visible = False
end end

12
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -223,9 +223,13 @@ begin
end; end;
procedure TfEditorAlbaranCliente.ImprimirInterno; procedure TfEditorAlbaranCliente.ImprimirInterno;
var
AVerLogotipo: Boolean;
begin begin
inherited; inherited;
FController.Print(FAlbaran); AVerLogotipo := True;
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(FAlbaran, False, AVerLogotipo);
end; end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject); procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -306,9 +310,13 @@ begin
end; end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno; procedure TfEditorAlbaranCliente.PrevisualizarInterno;
var
AVerLogotipo: Boolean;
begin begin
inherited; inherited;
FController.Preview(FAlbaran); AVerLogotipo := True;
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(FAlbaran, False, AVerLogotipo);
end; end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad; procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

1
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente' Caption = 'Lista de albaranes de cliente'
ClientWidth = 583 ClientWidth = 583
ExplicitWidth = 591 ExplicitWidth = 591
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

16
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -387,10 +387,11 @@ var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente; AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean; AllItems: Boolean;
AVerLogotipo: Boolean;
begin begin
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
AVerLogotipo := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -417,7 +418,10 @@ begin
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
FController.Print(AAlbaranes, AllItems); begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(AAlbaranes, AllItems, AVerLogotipo);
end;
end; end;
end; end;
end; end;
@ -485,9 +489,12 @@ var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente; AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean; AllItems: Boolean;
AVerLogotipo: Boolean;
begin begin
AAlbaranes := Nil; AAlbaranes := Nil;
AllItems := False; AllItems := False;
AVerLogotipo := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -514,7 +521,10 @@ begin
AAlbaranes := Albaranes; AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
FController.Preview(AAlbaranes, AllItems); begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(AAlbaranes, AllItems, AVerLogotipo);
end;
end; end;
end; end;
end; end;

10
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -100,8 +100,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 442 Width = 442
Height = 221 Height = 221
ExplicitWidth = 452 ExplicitWidth = 442
ExplicitHeight = 226 ExplicitHeight = 221
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
@ -458,6 +458,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataField = 'REFERENCIA_CLIENTE'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -507,6 +508,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Top = 224 Top = 224
Width = 373 Width = 373
Height = 41 Height = 41
Enabled = False
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -572,6 +574,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Item23: TdxLayoutItem object dxLayoutControl1Item23: TdxLayoutItem
Caption = 'Ref. cliente:' Caption = 'Ref. cliente:'
Enabled = False
Visible = False
Control = eRefCliente Control = eRefCliente
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -641,6 +645,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Group17: TdxLayoutGroup object dxLayoutControl1Group17: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda' Caption = 'El albar'#225'n pertenece a la tienda'
Enabled = False
Visible = False
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'New Item' Caption = 'New Item'
ShowCaption = False ShowCaption = False

18
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -63,6 +63,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewTIENDA: TcxGridDBColumn object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda' Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA' DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
@ -171,17 +173,21 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
object cxGridLevelPendientes: TcxGridLevel object cxGridLevelPendientes: TcxGridLevel
Caption = 'Pendientes' Caption = 'Pendientes'
Visible = False
end end
object cxGridLevelEnviados: TcxGridLevel object cxGridLevelEnviados: TcxGridLevel
Caption = 'Enviados' Caption = 'Enviados'
Visible = False
end end
object cxGridLevelServidos: TcxGridLevel object cxGridLevelServidos: TcxGridLevel
Caption = 'Servidos' Caption = 'Servidos'
Visible = False
end end
object cxGridLevelProximosAEnviar: TcxGridLevel object cxGridLevelProximosAEnviar: TcxGridLevel
Caption = 'Pasados de fecha' Caption = 'Pasados de fecha'
Options.DetailFrameColor = clNone Options.DetailFrameColor = clNone
Options.DetailFrameWidth = 0 Options.DetailFrameWidth = 0
Visible = False
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -193,15 +199,27 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 596 Width = 596
ExplicitWidth = 596 ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 499 ExplicitWidth = 499
Width = 499 Width = 499
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 251 Left = 251
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 251 ExplicitLeft = 251
ExplicitWidth = 335 ExplicitWidth = 335
Width = 335 Width = 335

16
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -54,8 +54,8 @@ type
function EsModificable(AContrato : IBizContratoCliente): Boolean; function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean; function EsEliminable(AContrato : IBizContratoCliente): Boolean;
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente); procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -126,8 +126,8 @@ type
function EsModificable(AContrato : IBizContratoCliente): Boolean; function EsModificable(AContrato : IBizContratoCliente): Boolean;
function EsEliminable(AContrato : IBizContratoCliente): Boolean; function EsEliminable(AContrato : IBizContratoCliente): Boolean;
procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente); procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
@ -967,7 +967,7 @@ begin
Result := AContrato; Result := AContrato;
end; end;
procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false); procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var var
AReportController : IContratosClienteReportController; AReportController : IContratosClienteReportController;
ID_Contratos: TIntegerList; ID_Contratos: TIntegerList;
@ -993,14 +993,14 @@ begin
else else
ID_Contratos.Add(AContrato.ID); ID_Contratos.Add(AContrato.ID);
AReportController.Preview(ID_Contratos); AReportController.Preview(ID_Contratos, VerLogotipo);
finally finally
AReportController := NIL; AReportController := NIL;
FreeAndNil(ID_Contratos); FreeAndNil(ID_Contratos);
end; end;
end; end;
procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false); procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var var
AReportController : IContratosClienteReportController; AReportController : IContratosClienteReportController;
ID_Contratos: TIntegerList; ID_Contratos: TIntegerList;
@ -1025,7 +1025,7 @@ begin
else else
ID_Contratos.Add(AContrato.ID); ID_Contratos.Add(AContrato.ID);
AReportController.Print(ID_Contratos); AReportController.Print(ID_Contratos, VerLogotipo);
finally finally
AReportController := NIL; AReportController := NIL;

25
Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas
View File

@ -10,8 +10,8 @@ uses
type type
IContratosClienteReportController = interface(IControllerBase) IContratosClienteReportController = interface(IControllerBase)
['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}'] ['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}']
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -23,8 +23,8 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end; end;
@ -83,7 +83,7 @@ begin
} }
end; end;
procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList); procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorContratosClientePreview; AEditor : IEditorContratosClientePreview;
@ -92,7 +92,7 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptContratos(AListaID); AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo);
try try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor); CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -116,16 +116,16 @@ begin
end; end;
end; end;
procedure TContratosClienteReportController.Print(const AListaID : TIntegerList); procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
{var var
AStream: Binary; AStream: Binary;
AEditor : IEditorContratosClientePreview;} AEditor : IEditorContratosClientePreview;
begin begin
{ AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetRptPresupuestos(AListaID); AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo);
try try
CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor); CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -133,7 +133,7 @@ begin
try try
AEditor.Controller := Self; AEditor.Controller := Self;
AEditor.ListaID := AListaID; AEditor.ListaID := AListaID;
AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE; AEditor.Title := 'Contrato - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Print; AEditor.Print;
finally finally
@ -147,7 +147,6 @@ begin
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
}
end; end;
end. end.

13
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
View File

@ -49,8 +49,8 @@ type
function NewItem : IBizContratoCliente; function NewItem : IBizContratoCliente;
// Report // Report
function GetRptContratos(const AListaID: TIntegerList): Binary; function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptPDFContrato(const AID: Integer): Binary; function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
function GetAnosItems : TStringList; function GetAnosItems : TStringList;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios; function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
@ -77,27 +77,26 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleContratosCliente.GetRptPDFContrato( function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
const AID: Integer): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := TIntegerArray.Create; AParam := TIntegerArray.Create;
try try
AParam.Add(AID); AParam.Add(AID);
Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam) Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, VerLogotipo)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;
end; end;
function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList): Binary; function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam) Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, VerLogotipo)
finally finally
FreeANDNIL(AParam) FreeANDNIL(AParam)
end; end;

4
Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas
View File

@ -8,8 +8,8 @@ uses
type type
IDataModuleContratosClienteReport = interface IDataModuleContratosClienteReport = interface
['{6AB7469B-842A-413E-AF33-9506477A9666}'] ['{6AB7469B-842A-413E-AF33-9506477A9666}']
function GetRptContratos(const AListaID: TIntegerList): Binary; function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
function GetRptPDFContrato(const AID: Integer): Binary; function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation

2
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -1010,7 +1010,6 @@ object RptContratosCliente: TRptContratosCliente
Top = 128 Top = 128
end end
object IBDatabase1: TIBDatabase object IBDatabase1: TIBDatabase
Connected = True
DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB' DatabaseName = 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB'
Params.Strings = ( Params.Strings = (
'user_name=sysdba' 'user_name=sysdba'
@ -1022,7 +1021,6 @@ object RptContratosCliente: TRptContratosCliente
Top = 296 Top = 296
end end
object IBTransaction1: TIBTransaction object IBTransaction1: TIBTransaction
Active = True
Left = 48 Left = 48
Top = 352 Top = 352
end end

22
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -82,6 +82,7 @@ type
FListaNombresClientes: TStringList; FListaNombresClientes: TStringList;
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
FVerLogotipo : Boolean;
procedure _GenerarContrato(const AID : Integer); procedure _GenerarContrato(const AID : Integer);
@ -90,10 +91,10 @@ type
function _GenerarInforme(const TipoInforme: String): Binary; function _GenerarInforme(const TipoInforme: String): Binary;
procedure IniciarParametrosInforme; procedure IniciarParametrosInforme;
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
public public
function GenerarContrato(const ListaID : TIntegerArray): Binary; function GenerarContrato(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarContratoEnPDF(const ListaID : TIntegerArray): Binary; function GenerarContratoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary;
function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end; end;
@ -141,12 +142,15 @@ begin
end; end;
end; end;
function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray): Binary; function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
try try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//Vamos generando todos y cada uno de los Contratos recibidos //Vamos generando todos y cada uno de los Contratos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarContrato(ListaID.Items[i]); _GenerarContrato(ListaID.Items[i]);
@ -478,12 +482,15 @@ begin
end; end;
end; end;
function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray): Binary; function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
try try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//Vamos generando todos y cada uno de los Contratos recibidos //Vamos generando todos y cada uno de los Contratos recibidos
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarContrato(ListaID.Items[i]); _GenerarContrato(ListaID.Items[i]);
@ -519,7 +526,7 @@ begin
tbl_Cabecera.Active := False; tbl_Cabecera.Active := False;
tbl_Capitulos.Active := False; tbl_Capitulos.Active := False;
tbl_Detalles.Active := False; tbl_Detalles.Active := False;
tbl_Condiciones.Active := False; tbl_Condiciones.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := AID; tbl_Cabecera.ParamByName('ID').AsInteger := AID;
tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID; tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID;
@ -531,13 +538,14 @@ begin
tbl_Cabecera.Active := True; tbl_Cabecera.Active := True;
tbl_Capitulos.Active := True; tbl_Capitulos.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Condiciones.Active := True; tbl_Condiciones.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarContrato, no encuentra informe ' + rptInforme)); raise Exception.Create (('Error Servidor: _GenerarContrato, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);

12
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas
View File

@ -33,8 +33,8 @@ type
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);
protected protected
{ IsrvContratosCliente methods } { IsrvContratosCliente methods }
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation
@ -77,25 +77,25 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary; function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
var var
AReportGenerator : TRptContratosCliente; AReportGenerator : TRptContratosCliente;
begin begin
AReportGenerator := TRptContratosCliente.Create(nil); AReportGenerator := TRptContratosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarContrato(ListaID); Result := AReportGenerator.GenerarContrato(ListaID, VerLogotipo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;
end; end;
function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
var var
AReportGenerator : TRptContratosCliente; AReportGenerator : TRptContratosCliente;
begin begin
AReportGenerator := TRptContratosCliente.Create(nil); AReportGenerator := TRptContratosCliente.Create(nil);
try try
Result := AReportGenerator.GenerarContratoEnPDF(ListaID); Result := AReportGenerator.GenerarContratoEnPDF(ListaID, VerLogotipo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

79
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -187,10 +187,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -224,59 +220,82 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 34 Left = 34
ExplicitLeft = 34 ExplicitLeft = 368
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 179 Left = 513
Top = 0
Width = 74 Width = 74
ExplicitLeft = 179 ExplicitLeft = 513
ExplicitTop = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 253 Left = 587
ExplicitLeft = 253 Top = 0
ExplicitLeft = 587
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 270 Left = 604
ExplicitLeft = 270 Top = 0
ExplicitLeft = 604
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 278 Left = 612
ExplicitLeft = 278 Top = 0
ExplicitLeft = 612
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 312 Left = 646
ExplicitLeft = 312 Top = 0
ExplicitLeft = 646
ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 346 Left = 680
ExplicitLeft = 346 Top = 0
ExplicitLeft = 680
ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 380 Left = 714
ExplicitLeft = 380 Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 388 Left = 722
ExplicitLeft = 388 Top = 0
ExplicitLeft = 722
ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 422 Left = 756
ExplicitLeft = 422 Top = 0
ExplicitLeft = 756
ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 456 Left = 790
ExplicitLeft = 456 Top = 0
ExplicitLeft = 790
ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50
Width = 831 Width = 831
Height = 170 Height = 192
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 834 ExplicitWidth = 834
ExplicitHeight = 273 ExplicitHeight = 273
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24
Width = 831 Width = 831
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 834 ExplicitWidth = 834
@ -295,10 +314,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -375,6 +390,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 845 Width = 845
ExplicitWidth = 845 ExplicitWidth = 845
inherited lbComentario: TLabel
Width = 835
Height = 25
end
end end
inline frViewTotales1: TfrViewTotales [5] inline frViewTotales1: TfrViewTotales [5]
Left = 0 Left = 0

17
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

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

2
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -124,7 +124,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
Width = 805 Width = 805
ExplicitWidth = 805 ExplicitWidth = 805
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 775 ExplicitWidth = 632
object TBXSubmenuItem3: TTBXSubmenuItem [0] object TBXSubmenuItem3: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText

16
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -475,9 +475,12 @@ var
Respuesta : Integer; Respuesta : Integer;
AContratos: IBizContratoCliente; AContratos: IBizContratoCliente;
AllItems: Boolean; AllItems: Boolean;
AVerLogotipo: Boolean;
begin begin
AContratos := Nil; AContratos := Nil;
AllItems := False; AllItems := False;
AVerLogotipo := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -504,7 +507,10 @@ begin
AContratos := Contratos; AContratos := Contratos;
if Assigned(AContratos) then if Assigned(AContratos) then
FController.Print(AContratos, AllItems); begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(AContratos, AllItems, AVerLogotipo);
end;
end; end;
end; end;
end; end;
@ -548,9 +554,12 @@ var
Respuesta : Integer; Respuesta : Integer;
AContratos: IBizContratoCliente; AContratos: IBizContratoCliente;
AllItems: Boolean; AllItems: Boolean;
AVerLogotipo: Boolean;
begin begin
AContratos := Nil; AContratos := Nil;
AllItems := False; AllItems := False;
AVerLogotipo := True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -577,7 +586,10 @@ begin
AContratos := Contratos; AContratos := Contratos;
if Assigned(AContratos) then if Assigned(AContratos) then
FController.Preview(AContratos, AllItems); begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(AContratos, AllItems, AVerLogotipo);
end;
end; end;
end; end;
end; end;

16
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -39,8 +39,8 @@ type
function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente; function Duplicar(AFactura: IBizFacturaCliente): IBizFacturaCliente;
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente; function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
@ -102,8 +102,8 @@ type
function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente; function GenerarAbono(AFactura: IBizFacturaCliente): IBizFacturaCliente;
procedure RecuperarCliente(AFactura : IBizFacturaCliente); procedure RecuperarCliente(AFactura : IBizFacturaCliente);
procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Preview(AFactura : IBizFacturaCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false); procedure Print(AFactura : IBizFacturaCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
procedure RecalcularImportes(AFactura: IBizFacturaCliente); procedure RecalcularImportes(AFactura: IBizFacturaCliente);
function EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean; function EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
@ -1082,7 +1082,7 @@ begin
Result := AFactura; Result := AFactura;
end; end;
procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false); procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var var
AReportController : IFacturasClienteReportController; AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList; ID_Facturas: TIntegerList;
@ -1109,7 +1109,7 @@ begin
else else
ID_Facturas.Add(AFactura.ID); ID_Facturas.Add(AFactura.ID);
AReportController.Preview(ID_Facturas); AReportController.Preview(ID_Facturas, VerLogotipo);
finally finally
AReportController := NIL; AReportController := NIL;
@ -1117,7 +1117,7 @@ begin
end; end;
end; end;
procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false); procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
var var
AReportController : IFacturasClienteReportController; AReportController : IFacturasClienteReportController;
ID_Facturas: TIntegerList; ID_Facturas: TIntegerList;
@ -1144,7 +1144,7 @@ begin
else else
ID_Facturas.Add(AFactura.ID); ID_Facturas.Add(AFactura.ID);
AReportController.Print(ID_Facturas); AReportController.Print(ID_Facturas, VerLogotipo);
finally finally
AReportController := NIL; AReportController := NIL;

16
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
View File

@ -10,8 +10,8 @@ uses
type type
IFacturasClienteReportController = interface(IControllerBase) IFacturasClienteReportController = interface(IControllerBase)
['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}'] ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
end; end;
TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController) TFacturasClienteReportController = class(TControllerBase, IFacturasClienteReportController)
@ -22,8 +22,8 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList); procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
procedure Print(const AListaID : TIntegerList); procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
end; end;
@ -54,14 +54,14 @@ begin
inherited; inherited;
end; end;
procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList); procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorFacturasClientePreview; AEditor : IEditorFacturasClientePreview;
begin begin
AEditor := NIL; AEditor := NIL;
AStream := FDataModule.GetReport(AListaID); AStream := FDataModule.GetReport(AListaID, VerLogotipo);
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then
@ -79,7 +79,7 @@ begin
end; end;
end; end;
procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList); procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
var var
AStream: Binary; AStream: Binary;
AEditor : IEditorFacturasClientePreview; AEditor : IEditorFacturasClientePreview;
@ -87,7 +87,7 @@ begin
AEditor := NIL; AEditor := NIL;
ShowHourglassCursor; ShowHourglassCursor;
try try
AStream := FDataModule.GetReport(AListaID); AStream := FDataModule.GetReport(AListaID, VerLogotipo);
try try
CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor); CreateEditor('EditorFacturasClientePreview', IEditorFacturasClientePreview, AEditor);
if Assigned(AEditor) then if Assigned(AEditor) then

6
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
View File

@ -33,7 +33,7 @@ type
function NewItem : IBizFacturaCliente; function NewItem : IBizFacturaCliente;
// Report // Report
function GetReport(const AListaID: TIntegerList): Binary; function GetReport(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation
@ -52,13 +52,13 @@ begin
RORemoteService.Message := dmConexion.Message; RORemoteService.Message := dmConexion.Message;
end; end;
function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList): Binary; function TDataModuleFacturasCliente.GetReport(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
var var
AParam : TIntegerArray; AParam : TIntegerArray;
begin begin
AParam := AListaID.ToIntegerArray; AParam := AListaID.ToIntegerArray;
try try
Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam); Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AParam, VerLogotipo);
finally finally
FreeANDNIL(AParam); FreeANDNIL(AParam);
end; end;

2
Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
View File

@ -8,7 +8,7 @@ uses
type type
IDataModuleFacturasClienteReport = interface IDataModuleFacturasClienteReport = interface
['{F498AC70-AA38-4C06-B301-85A4AC0B210B}'] ['{F498AC70-AA38-4C06-B301-85A4AC0B210B}']
function GetReport(const AListaID: TIntegerList): Binary; function GetReport(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation

11
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -50,6 +50,7 @@ type
FListaNombresClientes : TStringList; FListaNombresClientes : TStringList;
FImporteMinimo: Currency; FImporteMinimo: Currency;
FDesglosado : Boolean; FDesglosado : Boolean;
FVerLogotipo: Boolean;
//Genera cada uno de los albaranes a imprimir //Genera cada uno de los albaranes a imprimir
procedure _GenerarFactura(const ID: integer); overload; procedure _GenerarFactura(const ID: integer); overload;
@ -61,7 +62,7 @@ type
procedure RecuperarNombresClientes; procedure RecuperarNombresClientes;
public public
function GenerarFactura(const ListaID : TIntegerArray): Binary; overload; function GenerarFactura(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary; overload;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -104,12 +105,15 @@ begin
FreeANDNIL(FListaNombresClientes); FreeANDNIL(FListaNombresClientes);
end; end;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray): Binary; function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary;
var var
i: Integer; i: Integer;
begin begin
Result := Binary.Create; Result := Binary.Create;
try try
//Inicializamos parametros
FVerLogotipo := VerLogotipo;
//Vamos generando todos y cada una de las facturas recibidas //Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]); _GenerarFactura(ListaID.Items[i]);
@ -616,7 +620,8 @@ begin
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente)); raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
frxReport.LoadFromFile(AInforme, True); frxReport.LoadFromFile(AInforme, True);
frxReport.ReportOptions.Name := 'Factura ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
frxReport.ReportOptions.Name := 'Factura ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

6
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -35,7 +35,7 @@ type
private private
protected protected
{ IsrvFacturasCliente methods } { IsrvFacturasCliente methods }
function GenerateReport(const FacturaID: TIntegerArray): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation
@ -77,13 +77,13 @@ begin
ConnectionName := dmServer.ConnectionName; ConnectionName := dmServer.ConnectionName;
end; end;
function TsrvFacturasCliente.GenerateReport(const FacturaID: TIntegerArray): Binary; function TsrvFacturasCliente.GenerateReport(const FacturaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarFactura(FacturaID); Result := AReportGenerator.GenerarFactura(FacturaID, VerLogotipo);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -245,6 +245,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitHeight = 228 ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitWidth = 785
ExplicitHeight = 20
Height = 228 Height = 228
Width = 521 Width = 521
end end

12
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -306,9 +306,13 @@ begin
end; end;
procedure TfEditorFacturaCliente.ImprimirInterno; procedure TfEditorFacturaCliente.ImprimirInterno;
var
AVerLogotipo: Boolean;
begin begin
inherited; inherited;
FController.Print(FFactura); AVerLogotipo:= True;
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(FFactura, False, aVerLogotipo);
end; end;
procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject); procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject);
@ -410,9 +414,13 @@ begin
end; end;
procedure TfEditorFacturaCliente.PrevisualizarInterno; procedure TfEditorFacturaCliente.PrevisualizarInterno;
var
AVerLogotipo: Boolean;
begin begin
inherited; inherited;
FController.Preview(FFactura); AverLogotipo:= True;
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(FFactura, False, AVerLogotipo);
end; end;
procedure TfEditorFacturaCliente.RecalcularPortePorUnidad; procedure TfEditorFacturaCliente.RecalcularPortePorUnidad;

6
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 640 ExplicitWidth = 632
object TBXSubmenuItem2: TTBXSubmenuItem [0] object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -200,12 +200,16 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 144
Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 301
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 301
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end

14
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -294,9 +294,11 @@ var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
AVerLogotipo: Boolean;
begin begin
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
AVerLogotipo:= True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -323,7 +325,10 @@ begin
AFacturas := Facturas; AFacturas := Facturas;
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems); begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(AFacturas, AllItems, AVerLogotipo);
end;
end; end;
end; end;
end; end;
@ -401,9 +406,11 @@ var
Respuesta : Integer; Respuesta : Integer;
AFacturas: IBizFacturaCliente; AFacturas: IBizFacturaCliente;
AllItems: Boolean; AllItems: Boolean;
AVerLogotipo: Boolean;
begin begin
AFacturas := Nil; AFacturas := Nil;
AllItems := False; AllItems := False;
AVerLogotipo:= True;
if MultiSelect and Assigned(ViewGrid) then if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1); AllItems := (ViewGrid.NumSeleccionados > 1);
@ -430,7 +437,10 @@ begin
AFacturas := Facturas; AFacturas := Facturas;
if Assigned(AFacturas) then if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems); begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(AFacturas, AllItems, AVerLogotipo);
end;
end; end;
end; end;
end; end;

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

@ -516,7 +516,7 @@ begin
if Assigned(APresupuestos) then if Assigned(APresupuestos) then
begin begin
AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES); AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Print(APresupuestos, AllItems, AVerLogotipo); FController.Print(APresupuestos, AllItems, AVerLogotipo);
end; end;
end; end;
@ -594,7 +594,7 @@ begin
if Assigned(APresupuestos) then if Assigned(APresupuestos) then
begin begin
AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES); AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
FController.Preview(APresupuestos, AllItems, AVerLogotipo); FController.Preview(APresupuestos, AllItems, AVerLogotipo);
end; end;
end; end;

8
Source/Servicios/FactuGES.RODL
View File

@ -276,6 +276,8 @@
</Parameter> </Parameter>
<Parameter Name="FacturaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="FacturaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
</Operations> </Operations>
@ -352,6 +354,8 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}"> <Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
@ -875,6 +879,8 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeEnPDF" UID="{BFA4B911-5DE4-44DF-BB65-1A37D64AF78E}"> <Operation Name="GenerarInformeEnPDF" UID="{BFA4B911-5DE4-44DF-BB65-1A37D64AF78E}">
@ -883,6 +889,8 @@
</Parameter> </Parameter>
<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" > <Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
</Operations> </Operations>

28
Source/Servicios/FactuGES_Intf.pas
View File

@ -510,7 +510,7 @@ type
{ IsrvFacturasCliente } { IsrvFacturasCliente }
IsrvFacturasCliente = interface(IDataAbstractService) IsrvFacturasCliente = interface(IDataAbstractService)
['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}'] ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
function GenerateReport(const FacturaID: TIntegerArray): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end; end;
{ CosrvFacturasCliente } { CosrvFacturasCliente }
@ -523,7 +523,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerateReport(const FacturaID: TIntegerArray): Binary; function GenerateReport(const FacturaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end; end;
{ IsrvFacturasProveedor } { IsrvFacturasProveedor }
@ -588,7 +588,7 @@ type
{ IsrvAlbaranesCliente } { IsrvAlbaranesCliente }
IsrvAlbaranesCliente = interface(IDataAbstractService) IsrvAlbaranesCliente = interface(IDataAbstractService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}'] ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -602,7 +602,7 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
end; end;
@ -849,8 +849,8 @@ type
{ IsrvContratosCliente } { IsrvContratosCliente }
IsrvContratosCliente = interface(IDataAbstractService) IsrvContratosCliente = interface(IDataAbstractService)
['{ADBF1627-F507-4A0F-818E-38BAE28579B6}'] ['{ADBF1627-F507-4A0F-818E-38BAE28579B6}']
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end; end;
{ CosrvContratosCliente } { CosrvContratosCliente }
@ -863,8 +863,8 @@ type
protected protected
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary; function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
end; end;
implementation implementation
@ -1755,12 +1755,13 @@ begin
result := 'srvFacturasCliente'; result := 'srvFacturasCliente';
end; end;
function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: TIntegerArray): Binary; function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []); __Message.Write('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -1898,12 +1899,13 @@ begin
result := 'srvAlbaranesCliente'; result := 'srvAlbaranesCliente';
end; end;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary; function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -2681,12 +2683,13 @@ begin
result := 'srvContratosCliente'; result := 'srvContratosCliente';
end; end;
function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary; function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -2698,12 +2701,13 @@ begin
end end
end; end;
function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary;
begin begin
try try
result := nil; result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);

24
Source/Servicios/FactuGES_Invk.pas
View File

@ -849,9 +849,10 @@ begin
end; end;
procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const FacturaID: TIntegerArray): Binary; } { function GenerateReport(const FacturaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
var var
FacturaID: FactuGES_Intf.TIntegerArray; FacturaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -859,8 +860,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []); __Message.Read('FacturaID', TypeInfo(FactuGES_Intf.TIntegerArray), FacturaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID); lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID, VerLogotipo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1031,9 +1033,10 @@ begin
end; end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; } { function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; }
var var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1041,8 +1044,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID); lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerLogotipo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -2142,9 +2146,10 @@ begin
end; end;
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvContratosCliente_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 var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -2152,8 +2157,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID); lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, VerLogotipo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -2172,9 +2178,10 @@ begin
end; end;
procedure TsrvContratosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvContratosCliente_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 var
ListaID: FactuGES_Intf.TIntegerArray; ListaID: FactuGES_Intf.TIntegerArray;
VerLogotipo: Boolean;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -2182,8 +2189,9 @@ begin
lResult := nil; lResult := nil;
try try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID); lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeEnPDFResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __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.