Se adaptan los informes para que se puedan generar con logo o sin logo según indique el usuario

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@31 0a814768-cfdd-9c42-8d01-223fcc10da9d

Factuges.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
 MinorVer=2
-Release=2
+Release=3
 Build=0
 Debug=0
 PreRelease=0
@@ -126,7 +126,7 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.2.2.0
+FileVersion=3.2.3.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=

Informes/InformeAlbaranCliente.pas

@@ -38,6 +38,7 @@ type
     TablaDetallesAlbaranes: TIBQuery;
   private
     FCodigo : Variant;
+    FConLogo: Boolean;
   protected
     procedure PrepararConsultas; override;
   public
@@ -50,15 +51,23 @@ var
   dmInformeAlbaranCliente: TdmInformeAlbaranCliente;
 
 implementation
-
 {$R *.dfm}
 
+uses Literales, Mensajes;
+
 { TdmInformeFacturaProforma }
 
 constructor TdmInformeAlbaranCliente.Create(AOwner: TComponent);
 begin
   inherited;
-  FNombreInforme := 'InformeAlbaranCliente.frf';
+
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
+  if FConLogo then
+    FNombreInforme := 'InformeAlbaranCliente(Con logo).frf'
+  else
+    FNombreInforme := 'InformeAlbaranCliente.frf';
+
+
 end;
 
 procedure TdmInformeAlbaranCliente.PrepararConsultas;

Informes/InformeContratoCliente.pas

@@ -26,6 +26,7 @@ type
     FCodigoContrato : Variant;
     FEntidad: TRdxEntidad;
     FDocumento : TDocumento;
+    FConLogo: Boolean;
     procedure SetEntidad(const Value: TRdxEntidad);
   protected
     procedure PrepararInforme; override;
@@ -47,13 +48,14 @@ implementation
 {$R *.dfm}
 
 uses
-  StrFunc, Constantes, ComCtrls;
+  Literales, Mensajes, StrFunc, Constantes, ComCtrls;
 
 { TdmInformeContratoCliente }
 
 constructor TdmInformeContratoCliente.Create(AOwner: TComponent);
 begin
   inherited;
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);  
   FDocumento := TDocumento.Create('MCOCINA');
 end;
 
@@ -194,18 +196,30 @@ begin
   end;
 end;
 
-procedure TdmInformeContratoCliente.SetEntidad(
+procedure TdmInformeContratoCliente.SetEntidad(const Value: TRdxEntidad);
-  const Value: TRdxEntidad);
 begin
   if FEntidad = Value then
     Exit;
+
   FEntidad := Value;
   case FEntidad of
-    entContratoCocina  : FNombreInforme := 'ContratoCocina.frf';
+    entContratoCocina  : if FConLogo then
-    entContratoBano    : FNombreInforme := 'ContratoBano.frf';
+                            FNombreInforme := 'ContratoCocina(Con logo).frf'
-    entContratoArmarios : FNombreInforme := 'ContratoArmarios.frf';
+                         else
+                            FNombreInforme := 'ContratoCocina.frf';
+    entContratoBano    : if FConLogo then
+                            FNombreInforme := 'ContratoBano(Con logo).frf'
+                         else
+                            FNombreInforme := 'ContratoBano.frf';
+    entContratoArmarios : if FConLogo then
+                             FNombreInforme := 'ContratoArmarios(Con logo).frf'
+                          else
+                             FNombreInforme := 'ContratoArmarios.frf';
   else
-    FNombreInforme := 'ContratoCliente.frf';
+    if FConLogo then
+       FNombreInforme := 'ContratoCliente(Con logo).frf'
+    else
+       FNombreInforme := 'ContratoCliente.frf';
   end;
 end;
 

Informes/InformeFacturaCliente.pas

@@ -15,6 +15,7 @@ type
     TablaDetallesFacturas: TIBQuery;
   private
     FCodigoFactura : Variant;
+    FConLogo: Boolean;
   protected
     procedure RellenarCabecera(Band: TfrBand); override;
     procedure PrepararConsultas; override;
@@ -32,14 +33,19 @@ implementation
 {$R *.dfm}
 
 uses
-  TablaFacturasCliente, StrFunc, Constantes, BaseDatos, TablaEmpresas;
+  Mensajes, Literales, TablaFacturasCliente, StrFunc, Constantes, BaseDatos, TablaEmpresas;
 
 { TdmInformeFacturaCliente }
 
 constructor TdmInformeFacturaCliente.Create(AOwner: TComponent);
 begin
   inherited;
-  FNombreInforme := 'FacturaCliente.frf';
+  
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
+  if FConLogo then
+    FNombreInforme := 'FacturaCliente(Con logo).frf'
+  else
+    FNombreInforme := 'FacturaCliente.frf';
 end;
 
 procedure TdmInformeFacturaCliente.PrepararConsultas;

Informes/InformePresupuestoCliente.pas

@@ -24,6 +24,7 @@ type
   private
     FCodigoPresupuesto : Variant;
     FEntidad: TRdxEntidad;
+    FConLogo: Boolean;
     procedure SetEntidad(const Value: TRdxEntidad);
   protected
     procedure RellenarCabecera(Band: TfrBand); override;
@@ -45,14 +46,14 @@ implementation
 {$R *.dfm}
 
 uses
-  StrFunc, Constantes, ShellAPI, Mensajes;
+  Literales, StrFunc, Constantes, ShellAPI, Mensajes;
 
 { TdmInformePresupuestoCliente }
 
 constructor TdmInformePresupuestoCliente.Create(AOwner: TComponent);
 begin
   inherited;
-  //FNombreInforme := 'PresupuestoCliente.frf';
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
 end;
 
 procedure TdmInformePresupuestoCliente.ImprimirFinanciacion;
@@ -203,18 +204,30 @@ begin
   end;
 end;
 
-procedure TdmInformePresupuestoCliente.SetEntidad(
+procedure TdmInformePresupuestoCliente.SetEntidad(const Value: TRdxEntidad);
-  const Value: TRdxEntidad);
 begin
   if FEntidad = Value then
-    Exit;
+     Exit;
+
   FEntidad := Value;
   case FEntidad of
-    entPresupuestoCocina  : FNombreInforme := 'PresupuestoCocina.frf';
+    entPresupuestoCocina  : if FConLogo then
-    entPresupuestoBano    : FNombreInforme := 'PresupuestoBano.frf';
+                               FNombreInforme := 'PresupuestoCocina(Con logo).frf'
-    entPresupuestoArmarios : FNombreInforme := 'PresupuestoArmarios.frf';
+                            else
+                               FNombreInforme := 'PresupuestoCocina.frf';
+    entPresupuestoBano    : if FConLogo then
+                               FNombreInforme := 'PresupuestoBano(Con logo).frf'
+                            else
+                               FNombreInforme := 'PresupuestoBano.frf';
+    entPresupuestoArmarios : if FConLogo then
+                               FNombreInforme := 'PresupuestoArmarios(Con logo).frf'
+                             else
+                               FNombreInforme := 'PresupuestoArmarios.frf';
   else
-    FNombreInforme := 'PresupuestoCliente.frf';
+    if FConLogo then
+      FNombreInforme := 'PresupuestoCliente(Con logo).frf'
+    else
+      FNombreInforme := 'PresupuestoCliente.frf';
   end;
 end;
 

Libreria/Literales.pas

@@ -382,6 +382,9 @@ resourcestring
   msgInfTri0 = 'No ha sido asignada la lista de tipos de operación al informe';
   msgInfTri1 = 'Existen más tipos de operacion que los iniciales 14!';
 
+//Informes
+  msgConLogo = '¿Desea imprimir el documento con logotipo?';
+
 implementation
 
 end.