From 5792ad29d0af972b35ed041be6a4733cd5210b38 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 17 Apr 2009 13:56:14 +0000
Subject: [PATCH] =?UTF-8?q?Se=20a=C3=B1ade=20requisito=20de=20maribel,=20l?=
 =?UTF-8?q?a=20copia=20de=20factura=20nunca=20lleva=20sello?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@942 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Reports/uRptFacturasCliente_Server.dfm    | 182 ++++++++++++++++--
 .../Reports/uRptFacturasCliente_Server.pas    |   1 +
 Source/Servidor/FactuGES_Server.RES           | Bin 23204 -> 23204 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 4 files changed, 170 insertions(+), 15 deletions(-)

diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 136323e8..17eaa570 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm	
@@ -1690,23 +1690,177 @@ object RptFacturasCliente: TRptFacturasCliente
     PreviewOptions.Zoom = 1.000000000000000000
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
-    ReportOptions.CreateDate = 37800.807714351900000000
-    ReportOptions.LastChange = 39840.805247928200000000
+    ReportOptions.CreateDate = 39065.872423495400000000
+    ReportOptions.LastChange = 39920.656640081000000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
-      'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);'
+      ''
+      'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
+      'var'
+      '  Cadena: String;'
       'begin'
-      ' if Engine.FinalPass then'
-      '  begin'
-      '    if (<Page#> = <TotalPages#>) then'
-      '    begin                      '
-      '       mContinua.Visible := False;'
-      '    end                 '
-      '    else'
-      '    begin                '
-      '       mContinua.Visible := True;'
-      '    end               '
-      '  end;               '
+      '{  DatosEmpresa.Lines.Clear;'
+      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
+      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
+      '  if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
+      
+        '       Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
+        '">;'
+      '  DatosEmpresa.Lines.Add(Cadena);'
+      '}'
+      'end;'
+      ''
+      'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '{  NombreEmpresa.Lines.Clear;'
+      '  NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
+      '}'
+      'end;'
+      ''
+      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
+      'var'
+      '  ACadena : String;'
+      'begin'
+      '{  ACadena := '#39#39';'
+      '  DireccionEnvio.Lines.Clear;'
+      '  if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
+      '     ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
+      ''
+      '  if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
+      
+        '     ACadena := ACadena + '#39'  '#39' + <frxDBCabecera."PERSONA_CONTACT' +
+        'O">;'
+      ''
+      '  DireccionEnvio.Lines.Add(ACadena);'
+      '  ACadena := '#39#39';'
+      '  DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
+      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
+      '     ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
+      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
+      '     ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
+      ''
+      '  if (ACadena <> '#39#39') then'
+      '       DireccionEnvio.Lines.Add(ACadena);'
+      ''
+      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
+      '       DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
+      ''
+      '  if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
+      '       DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
+      '}'
+      'end;'
+      ''
+      'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if not Engine.FinalPass then'
+      '     Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
+      ''
+      '  if Engine.FinalPass then'
+      '     Set('#39'Pagina'#39', (<Pagina> + 1));  '
+      'end;'
+      ''
+      'procedure frxReportOnStartReport(Sender: TfrxComponent);'
+      'begin'
+      '  Set('#39'Pagina'#39', 0);'
+      '  Set('#39'TotalPaginas'#39', 0);'
+      '  Set('#39'Capitulo'#39', 0);'
+      '  Set('#39'NumCapitulos'#39', 0);      '
+      'end;'
+      ''
+      'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
+      '        Memo4.Visible := False;  '
+      'end;'
+      ''
+      'procedure Memo22OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if (<frxDBCabecera."DESCUENTO"> = 0) then'
+      '  begin              '
+      '     Subtotal.Text := '#39'Base imponible:'#39';'
+      '     BaseImponible.Text := '#39'Importe total:'#39';         '
+      '     BaseImponible.Font.Style := fsBold;'
+      ''
+      
+        '     ImpBaseImponible.Text := FormatFloat('#39'#,##0.00 '#8364#39', <frxDBCa' +
+        'becera."IMPORTE_TOTAL">);'
+      '     ImpBaseImponible.Font.Style := fsBold;         '
+      '  '
+      '     Descuento.Text := '#39'[<frxDBCabecera."IVA">]% IVA:'#39';'
+      '     ImpDescuento.Text := '#39'[frxDBCabecera."IMPORTE_IVA"]'#39';'
+      '     Memo11.Color := $00CCFFCC;'
+      ''
+      '     if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
+      '     begin                 '
+      '        BaseImponible.Text := '#39'Total certificaci'#243'n:'#39';'
+      
+        '        IVA.Text := FormatFloat('#39'#,##0.00 %'#39',<frxDBCabecera."RET' +
+        'ENCION">) + '#39' Retenci'#243'n:'#39';    '
+      
+        '        ImpIVA.Text := FormatFloat('#39'-#,##0.00 '#8364#39',<frxDBCabecera.' +
+        '"IMPORTE_RETENCION">);'
+      
+        '        ImporteTotal.Text := '#39'TOTAL FACTURA'#39';                   ' +
+        '                                                                ' +
+        '                '
+      
+        '        ImpImporteTotal.Text := FormatFloat('#39'#,##0.00 '#8364#39', (<frxD' +
+        'BCabecera."IMPORTE_TOTAL"> - <frxDBCabecera."IMPORTE_RETENCION">' +
+        '));            '
+      '     end  '
+      '     else'
+      '     begin'
+      '       IVA.Visible := False;'
+      '       ImpIVA.Visible := False;'
+      '       ImporteTotal.Visible := False;'
+      '       ImpImporteTotal.Visible := False;'
+      '       Memo16.Visible := False;  '
+      '       Memo17.Visible := False;'
+      '     end;'
+      '  end'
+      '  else'
+      '  begin              '
+      '    if (<frxDBCabecera."IMPORTE_RETENCION"> > 0) then'
+      '    begin'
+      '      ImporteTotal.Text := '#39'Total certificaci'#243'n:'#39';        '
+      '      Retencion.Visible := True;'
+      '      ImpRetencion.Visible := True;'
+      '      LinRetencion.Visible := True;            '
+      '      TotalFacturaRet.Visible := True;'
+      '      ImpTotalFacturaRet.Visible := True;'
+      '      LinImporteTotalFacturaRet.Visible := True;            '
+      '    end'
+      '  end          '
+      'end;'
+      ''
+      'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  Memo39.Clear;              '
+      '  if (<frxDBCabecera."TIPO"> = '#39'F'#39') then'
+      
+        '     Memo39.Text := '#39'FACTURA'#39'                                   ' +
+        '     '
+      '  else'
+      '     Memo39.Text := '#39'ABONO'#39';        '
+      'end;'
+      ''
+      'procedure Picture4OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if (<VerSello> = 1) then'
+      '     Picture4.Visible := True'
+      '  else'
+      '     Picture4.Visible := False;                '
+      'end;'
+      ''
+      'procedure eCopiaOnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if (<VerCopia> = 1) then'
+      '  begin              '
+      '     eCopia.Visible := True;  '
+      '     Picture4.Visible := False;         '
+      '  end             '
+      '  else'
+      '     eCopia.Visible := False;  '
       'end;'
       ''
       'begin'
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index bf1bdf66..82ad53d1 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas	
@@ -686,6 +686,7 @@ begin
     if VerCopia then
     begin
        frxReport.Variables.Variables['VerCopia'] := 1;
+       frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia       
        frxReport.PrepareReport(False);
     end;
 
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index ed666fab76a963a784bca61e817d2ead642ce402..84b43a7cd8d3020b0f574d22341ab24277690827 100644
GIT binary patch
delta 21
ccmZ3om2t^d#tk7+?1l_h3?>XllcS?N0a6eKd;kCd

delta 21
ccmZ3om2t^d#tk7+>;?>03?>YQlcS?N0a5@4dH?_b

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 50d46d34..1c1ed592 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.7.3.0\0"
               VALUE "ProductVersion", "1.7.3.0\0"
-              VALUE "CompileDate", "viernes, 17 de abril de 2009 10:41\0"
+              VALUE "CompileDate", "viernes, 17 de abril de 2009 11:42\0"
          END
     END
     BLOCK "VarFileInfo"