Nueva version

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

Source/Base/Utiles/uStringsUtils.pas

@@ -6,6 +6,7 @@ uses
   Classes;
 
 const
+  DISPLAY_EUROS4_ESPECIAL = '###0.00## €;-###0.00## €;';
   DISPLAY_EUROS4 = '#,0.0000 €';
   DISPLAY_EUROS2 = '#,0.00 €';
   DISPLAY_PORCENTAJE = '#,0.00%';  

Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.pas

@@ -225,13 +225,13 @@ begin
 
         if ImprimirPrecio
         and (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then
-          Cell(iRowCount, 4).Range.Text := FormatFloat(DISPLAY_EUROS4, FieldByName('IMPORTE_UNIDAD').AsFloat)
+          Cell(iRowCount, 4).Range.Text := FormatFloat(DISPLAY_EUROS4_ESPECIAL, FieldByName('IMPORTE_UNIDAD').AsFloat)
         else
           Cell(iRowCount, 4).Range.Text := '';
 
         if ImprimirPrecio
         and (FieldByName('IMPORTE_TOTAL').AsFloat <> 0) then
-          Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS4, FieldByName('IMPORTE_TOTAL').AsFloat)
+          Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS4_ESPECIAL, FieldByName('IMPORTE_TOTAL').AsFloat)
         else
           Cell(iRowCount, 5).Range.Text := '';
 

Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas

@@ -427,10 +427,10 @@ begin
 
           Cell(iRowCount, 3).Range.Text := AText + ' ' + FieldByName('UNIDAD_MEDIDA').AsString;
           if FieldByName('IMPORTE_UNIDAD').AsFloat <> 0 then
-            Cell(iRowCount, 4).Range.Text := FormatFloat(DISPLAY_EUROS4, FieldByName('IMPORTE_UNIDAD').AsFloat);
+            Cell(iRowCount, 4).Range.Text := FormatFloat(DISPLAY_EUROS4_ESPECIAL, FieldByName('IMPORTE_UNIDAD').AsFloat);
 
           if FieldByName('IMPORTE_TOTAL').AsFloat <> 0 then
-            Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS4, FieldByName('IMPORTE_TOTAL').AsFloat);
+            Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS4_ESPECIAL, FieldByName('IMPORTE_TOTAL').AsFloat);
 
           TotalCapitulo := TotalCapitulo + FieldByName('IMPORTE_TOTAL').AsFloat;
         end;

Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm

@@ -1651,7 +1651,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
     PrintOptions.Printer = 'Por defecto'
     PrintOptions.PrintOnSheet = 0
     ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 42305.717481620370000000
+    ReportOptions.LastChange = 42759.744943807870000000
     ScriptLanguage = 'PascalScript'
     ScriptText.Strings = (
       ''
@@ -1744,11 +1744,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       ''
       'procedure Page2OnBeforePrint(Sender: TfrxComponent);'
       'begin'
-      '  if (Length(<frxDBCabecera."MEMORIA_TEXTO">) = 0) then'
+      '  if (Length(trim(<frxDBCabecera."MEMORIA">)) = 0) then'
-      '       Page2.Visible := false              '
+      '  begin              '
-      '  else'
+      '       Page2.Visible := False;'
-      '       Page2.Visible := true;      '
+      '       Set('#39'TotalPaginas'#39', (<TotalPaginas> - 1));           '
-      '         '
+      '  end;                 '
       'end;'
       ''
       'procedure Memo45OnBeforePrint(Sender: TfrxComponent);'
@@ -1779,17 +1779,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       '     Set('#39'NumCapitulos'#39', (<NumCapitulos> + 1));'
       'end;'
       ''
-      'procedure Memo47OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '    if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
-      '    begin'
-      
-        '       Memo11.Visible := False;                                 ' +
-        '                                                     '
-      '       Memo47.Visible := False;'
-      '    end                               '
-      'end;'
-      ''
       'procedure Footer2OnBeforePrint(Sender: TfrxComponent);'
       'begin'
       '  if not ((<frxDBCabecera."IMPORTE_BONIFICACION">) > 0) then'
@@ -1805,9 +1794,8 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       
         '    mImporteFinal.Visible := True;                              ' +
         '                                        '
+      '  end'
       'end;'
-      'end;'
-      ''
       ''
       
         'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' +
@@ -1836,20 +1824,6 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       '    frxDBDetallesCANTIDAD.Memo.Add(AText);'
       '  end;              '
       'end;'
-      ''
-      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  if (<VerSello> = 1) then'
-      '  begin'
-      '    Firma1.Visible := True;'
-      '    Firma2.Visible := False;        '
-      '  end'
-      '  else'
-      '  begin'
-      '    Firma1.Visible := False;'
-      '    Firma2.Visible := True;        '
-      '  end;'
-      'end;'
       ''
       
         'procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent)' +
@@ -1866,7 +1840,9 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
         '     Header2.Visible := True;                                   ' +
         '            '
       '     MasterData4.Visible := True;'
-      '     Memo38.Visible := True;'
+      
+        '     Memo38.Visible := True;                                    ' +
+        '                     '
       '  end                 '
       '  else'
       '  begin'
@@ -1876,13 +1852,29 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
       '  end;  '
       'end;'
       ''
-      'procedure Picture4OnBeforePrint(Sender: TfrxComponent);'
+      'procedure Shape3OnBeforePrint(Sender: TfrxComponent);'
       'begin'
-      '  if (<VerISO> = 0) then'
+      '    if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
       '    begin'
+      
+        '       Memo59.Visible := False;                                 ' +
+        '                                                     '
+      '       Memo31.Visible := False;'
+      '    end                               '
+      '  '
+      'end;'
+      ''
+      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
+      'begin'
+      '  if (<VerSello> = 1) then'
+      '  begin'
+      '    Firma1.Visible := True;'
+      '    Firma2.Visible := False;        '
       '  end'
       '  else'
       '  begin'
+      '    Firma1.Visible := False;'
+      '    Firma2.Visible := True;        '
       '  end;'
       'end;'
       ''

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

@@ -185,13 +185,13 @@ begin
 
       if FImportes and
         (FieldByName('IMPORTE_UNIDAD').AsFloat <> 0) then
-        Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS4, FieldByName('IMPORTE_UNIDAD').AsFloat)
+        Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS4_ESPECIAL, FieldByName('IMPORTE_UNIDAD').AsFloat)
       else
         Cell(iContador, 3).Range.Text := '';
 
       if FImportes and
         (FieldByName('IMPORTE_TOTAL').AsFloat <> 0) then
-        Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS4, FieldByName('IMPORTE_TOTAL').AsFloat)
+        Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS4_ESPECIAL, FieldByName('IMPORTE_TOTAL').AsFloat)
       else
         Cell(iContador, 4).Range.Text := '';
 

Source/Servidor/FactuGES_Server.rc

@@ -16,7 +16,7 @@ BEGIN
               VALUE "FileVersion", "2.1.6.0\0"
               VALUE "ProductName", "FactuGES Servidor\0"
               VALUE "ProductVersion", "2.1.6.0\0"
-              VALUE "CompileDate", "lunes, 23 de enero de 2017 16:53\0"
+              VALUE "CompileDate", "viernes, 27 de enero de 2017 17:31\0"
          END
     END
     BLOCK "VarFileInfo"