Se añade firma de David en empresa Azacan,

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1126 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,1,1,0
+FILEVERSION 2,1,2,0
-PRODUCTVERSION 2,1,1,0
+PRODUCTVERSION 2,1,2,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.1.1.0\0"
+              VALUE "FileVersion", "2.1.2.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.1.1.0\0"
+              VALUE "ProductVersion", "2.1.2.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas

@@ -287,6 +287,16 @@ begin
       end;
     end;
 
+    //Solo para la empresa de azacan se debe elegir uno u otra firma
+    //esto es un poco parche pero bueno
+    if (tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger = 3) then
+    begin
+      if (FVerSello = 1) then
+          ReplaceBookmark('Firma2', '')
+      else
+          ReplaceBookmark('Firma1', '');
+    end;
+
     if not EsCadenaVacia(FieldByName('MEMORIA').AsString) then
     begin
       Texto := FieldByName('MEMORIA').AsString;

Source/Modulos/Presupuestos de cliente/Views/Copia de uDialogOpcionesImpresionPresupuestosCliente.pas

@@ -0,0 +1,79 @@
+unit uDialogOpcionesImpresionPresupuestosCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses;
+
+type
+  TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
+    Image1: TImage;
+    Image2: TImage;
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+    procedure Image1DblClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Image2DblClick(Sender: TObject);
+  private
+    FVerSello: Integer;
+  end;
+
+  function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
+
+implementation
+
+{$R *.dfm}
+
+function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
+var
+  AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
+begin
+  AEditor := TfDialogOpcionesImpresionPresupuestosCliente.Create(NIL);
+  try
+    Result := (AEditor.ShowModal = mrOk);
+    if Result then
+    begin
+      AVerSello := AEditor.FVerSello;
+    end;
+  finally
+    AEditor.Release;
+  end;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosCliente.actAceptarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosCliente.actCancelarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrCancel;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosCliente.FormCreate(
+  Sender: TObject);
+begin
+  inherited;
+  FVerSello := 1;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick(
+  Sender: TObject);
+begin
+  inherited;
+  FVerSello := 1;
+  actAceptar.Execute;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosCliente.Image2DblClick(
+  Sender: TObject);
+begin
+  inherited;
+  FVerSello := 2;
+  actAceptar.Execute;
+end;
+
+end.

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk

@@ -70,6 +70,7 @@ contains
   uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame},
   uEditorVariarPrecios in 'uEditorVariarPrecios.pas' {fEditorVariarPrecios},
   uDialogListaPresupuestosEnvioEMail in 'uDialogListaPresupuestosEnvioEMail.pas' {fDialogListaPresupuestosEnvioEMail},
-  uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente};
+  uDialogOpcionesImpresionPresupuestosCliente in 'uDialogOpcionesImpresionPresupuestosCliente.pas' {fDialogOpcionesImpresionPresupuestosCliente},
+  uDialogOpcionesImpresionPresupuestosClienteAzacan in 'uDialogOpcionesImpresionPresupuestosClienteAzacan.pas' {fDialogOpcionesImpresionPresupuestosClienteAzacan};
 
 end.

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -74,7 +74,12 @@
     <DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas">
       <Form>fDialogListaPresupuestosEnvioEMail</Form>
     </DCCReference>
-    <DCCReference Include="uDialogOpcionesImpresionPresupuestosCliente.pas" />
+    <DCCReference Include="uDialogOpcionesImpresionPresupuestosCliente.pas">
+      <Form>fDialogOpcionesImpresionPresupuestosCliente</Form>
+    </DCCReference>
+    <DCCReference Include="uDialogOpcionesImpresionPresupuestosClienteAzacan.pas">
+      <Form>fDialogOpcionesImpresionPresupuestosClienteAzaca</Form>
+    </DCCReference>
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
       <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>

Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosClienteAzacan.pas

@@ -0,0 +1,80 @@
+unit uDialogOpcionesImpresionPresupuestosClienteAzacan;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses;
+
+type
+  TfDialogOpcionesImpresionPresupuestosClienteAzacan = class(TfDialogBase)
+    Image1: TImage;
+    Image2: TImage;
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+    procedure Image1DblClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Image2DblClick(Sender: TObject);
+  private
+    FVerSello: Integer;
+  end;
+
+  function ElegirOpcionesImpresionPresupuestoClienteAzacan(var AVerSello : Integer): Boolean;
+
+
+implementation
+
+{$R *.dfm}
+
+function ElegirOpcionesImpresionPresupuestoClienteAzacan(var AVerSello : Integer): Boolean;
+var
+  AEditor : TfDialogOpcionesImpresionPresupuestosClienteAzacan;
+begin
+  AEditor := TfDialogOpcionesImpresionPresupuestosClienteAzacan.Create(NIL);
+  try
+    Result := (AEditor.ShowModal = mrOk);
+    if Result then
+    begin
+      AVerSello := AEditor.FVerSello;
+    end;
+  finally
+    AEditor.Release;
+  end;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.actAceptarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.actCancelarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrCancel;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.FormCreate(
+  Sender: TObject);
+begin
+  inherited;
+  FVerSello := 1;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.Image1DblClick(
+  Sender: TObject);
+begin
+  inherited;
+  FVerSello := 1;
+  actAceptar.Execute;
+end;
+
+procedure TfDialogOpcionesImpresionPresupuestosClienteAzacan.Image2DblClick(
+  Sender: TObject);
+begin
+  inherited;
+  FVerSello := 2;
+  actAceptar.Execute;
+end;
+
+end.

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -185,6 +185,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
         Left = 0
         Top = 0
@@ -214,94 +218,93 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           inherited ToolButton4: TToolButton
             Left = 278
             Top = 0
-            Wrap = True
             ExplicitLeft = 278
             ExplicitTop = 0
           end
           inherited ToolButton14: TToolButton
-            Left = 0
+            Left = 334
-            Wrap = False
+            Top = 0
-            ExplicitLeft = 0
-          end
-          inherited FontName: TJvFontComboBox
-            Left = 65
-            Top = 22
-            ExplicitTop = 22
-          end
-          inherited FontSize: TEdit
-            Top = 22
-            Width = 200
-            ExplicitTop = 22
-            ExplicitWidth = 200
-          end
-          inherited UpDown1: TUpDown
-            Left = 345
-            Top = 22
-            ExplicitLeft = 345
-            ExplicitTop = 22
-          end
-          inherited ToolButton13: TToolButton
-            Left = 362
-            Top = 22
-            ExplicitLeft = 362
-            ExplicitTop = 22
-          end
-          inherited ToolButton6: TToolButton
-            Left = 370
-            Top = 22
-            ExplicitLeft = 370
-            ExplicitTop = 22
-          end
-          inherited ToolButton7: TToolButton
-            Left = 436
-            Top = 22
-            ExplicitLeft = 436
-            ExplicitTop = 22
-          end
-          inherited ToolButton8: TToolButton
-            Left = 503
-            Top = 22
-            ExplicitLeft = 503
-            ExplicitTop = 22
-          end
-          inherited ToolButton12: TToolButton
-            Left = 0
-            Top = 22
             Wrap = True
-            ExplicitLeft = 0
+            ExplicitLeft = 334
-            ExplicitTop = 22
+            ExplicitTop = 0
-            ExplicitHeight = 27
           end
           inherited ToolButton9: TToolButton
             Left = 0
-            Top = 49
             ExplicitLeft = 0
-            ExplicitTop = 49
           end
-          inherited ToolButton10: TToolButton
+          inherited FontName: TJvFontComboBox
             Left = 145
-            Top = 49
             ExplicitLeft = 145
-            ExplicitTop = 49
+          end
+          inherited UpDown1: TUpDown
+            Left = 290
+            ExplicitLeft = 290
+          end
+          inherited ToolButton13: TToolButton
+            Left = 307
+            Wrap = False
+            ExplicitLeft = 307
+            ExplicitHeight = 22
+          end
+          inherited ToolButton6: TToolButton
+            Left = 315
+            Top = 22
+            ExplicitLeft = 315
+            ExplicitTop = 22
+          end
+          inherited FontSize: TEdit
+            Left = 381
+            Top = 22
+            Width = 200
+            ExplicitLeft = 381
+            ExplicitTop = 22
+            ExplicitWidth = 200
+          end
+          inherited ToolButton7: TToolButton
+            Left = 581
+            Top = 22
+            ExplicitLeft = 581
+            ExplicitTop = 22
           end
           inherited ToolButton11: TToolButton
-            Left = 270
+            Left = 648
-            Top = 49
+            Top = 22
-            ExplicitLeft = 270
+            ExplicitLeft = 648
-            ExplicitTop = 49
+            ExplicitTop = 22
+          end
+          inherited ToolButton12: TToolButton
+            Left = 789
+            Top = 22
+            Wrap = False
+            ExplicitLeft = 789
+            ExplicitTop = 22
+            ExplicitHeight = 22
+          end
+          inherited ToolButton10: TToolButton
+            Left = 797
+            Top = 22
+            ExplicitLeft = 797
+            ExplicitTop = 22
+          end
+          inherited ToolButton8: TToolButton
+            Left = 922
+            Top = 22
+            ExplicitLeft = 922
+            ExplicitTop = 22
           end
         end
         inherited cxGrid: TcxGrid
-          Top = 99
+          Top = 72
           Width = 750
-          Height = 239
+          Height = 266
           ExplicitTop = 77
           ExplicitWidth = 750
           ExplicitHeight = 239
         end
         inherited TBXDock1: TTBXDock
-          Top = 73
+          Top = 46
           Width = 750
+          ExplicitTop = 73
           ExplicitWidth = 750
           inherited TBXToolbar1: TTBXToolbar
             ExplicitWidth = 750
@@ -322,6 +325,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       Caption = 'Portada'
       ImageIndex = 3
       OnShow = pagPortadaShow
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Panel1: TPanel
         Left = 0
         Top = 0
@@ -454,6 +461,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       Caption = 'Memoria'
       ImageIndex = 4
       OnShow = pagMemoriaShow
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Panel2: TPanel
         Left = 0
         Top = 0
@@ -756,6 +767,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
@@ -1090,6 +1105,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         ExplicitLeft = 21
         ExplicitTop = 29
         ExplicitWidth = 277
+        ExplicitHeight = 0
         Width = 277
       end
       inherited eDescripcionBonificacion: TcxDBTextEdit

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas

@@ -110,7 +110,7 @@ implementation
 uses
   uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
   uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils,
-  uDialogOpcionesImpresionPresupuestosCliente;
+  uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan;
 
 {$R *.dfm}
 
@@ -312,6 +312,11 @@ begin
      //solo para empresa Tecsitel
      bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
+  if (AppFactuGES.EmpresaActiva.ID = 3) then
+     //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
+     //solo para empresa Azacan
+     bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
+
   if bPrevisualizar and Assigned(FPresupuesto) then
      if not Modified then
         FController.Print(FPresupuesto, False, AVerSello);
@@ -385,6 +390,11 @@ begin
      //solo para empresa Tecsitel
      bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
+  if (AppFactuGES.EmpresaActiva.ID = 3) then
+     //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
+     //solo para empresa Azacan
+     bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
+
   if bPrevisualizar and Assigned(FPresupuesto) then
      if not Modified then
         FController.Preview(FPresupuesto, False, AVerSello);

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm

@@ -2,6 +2,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -104,6 +104,7 @@ uses
   cxControls, uDataModulePresupuestosCliente, uDataModuleUsuarios, uFactuGES_App,
   uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
   uDBSelectionListUtils, uGridStatusUtils, uDialogOpcionesImpresionPresupuestosCliente,
+  uDialogOpcionesImpresionPresupuestosClienteAzacan,
   uGenerarFacturasCliPreCliUtils, uEditorFechaDecision,
 //  uBizAlbaranesCliente, uAlbaranesClienteController,
 //  uFacturasClienteController, uBizFacturasCliente,
@@ -239,6 +240,12 @@ begin
      if not ElegirOpcionesImpresionPresupuestoCliente(AVerSello) then
         exit;
 
+  //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
+  //solo para empresa Azacan
+  if (AppFactuGES.EmpresaActiva.ID = 3) then
+     if not ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello) then
+        exit;
+
   if ViewGrid.NumSeleccionados = 1 then
     FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
 //    FController.EnviarPresupuestoPorEMail(FPresupuestos)
@@ -546,6 +553,11 @@ begin
                        //solo para empresa Tecsitel
                        bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
+                    if (AppFactuGES.EmpresaActiva.ID = 3) then
+                       //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
+                       //solo para empresa Azacan
+                       bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
+
                     if bPrevisualizar and Assigned(APresupuestos) then
                        FController.Print(APresupuestos, AllItems, AVerSello);
                 end;
@@ -623,6 +635,11 @@ begin
                        //solo para empresa Tecsitel
                        bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
+                    if (AppFactuGES.EmpresaActiva.ID = 3) then
+                       //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
+                       //solo para empresa Azacan
+                       bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
+
                     if bPrevisualizar and Assigned(APresupuestos) then
                        FController.Preview(APresupuestos, AllItems, AVerSello);
                 end;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm

@@ -1,7 +1,5 @@
 inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview
   Caption = 'Previsualizar el pedidos proveedor'
-  ExplicitWidth = 320
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas

@@ -25,7 +25,7 @@ implementation
 
 uses
   uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils,
-  uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente;
+  uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente, uDialogOpcionesImpresionPresupuestosClienteAzacan;
 
 procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObject);
 var
@@ -46,6 +46,11 @@ begin
      //solo para empresa Tecsitel
       bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);
 
+  if (AppFactuGES.EmpresaActiva.ID = 3) then
+     //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
+     //solo para empresa Azacan
+      bPrevisualizar := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);
+
   if bPrevisualizar then
      for I := 0 to ListaID.Count - 1 do
          if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 20 de agosto de 2015 17:07</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 11 de febrero de 2016 11:43</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,1,1,0
+FILEVERSION 2,1,2,0
-PRODUCTVERSION 2,1,1,0
+PRODUCTVERSION 2,1,2,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.1.1.0\0"
+              VALUE "FileVersion", "2.1.2.0\0"
               VALUE "ProductName", "FactuGES Servidor\0"
-              VALUE "ProductVersion", "2.1.1.0\0"
+              VALUE "ProductVersion", "2.1.2.0\0"
-              VALUE "CompileDate", "jueves, 11 de febrero de 2016 11:43\0"
+              VALUE "CompileDate", "jueves, 03 de marzo de 2016 13:10\0"
          END
     END
     BLOCK "VarFileInfo"