Se arregla la inserción de una linea en blanco en el campo calidades y condiciones de presupuestos y contratos

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@585 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -746,8 +746,9 @@ begin
   RecuperarCliente(AContrato);
 end;
 
-procedure TContratosClienteController.RellenarValoresDefecto(
+procedure TContratosClienteController.RellenarValoresDefecto(AContrato: IBizContratoCliente; ATipo: TEnumTiposContrato);
-  AContrato: IBizContratoCliente; ATipo: TEnumTiposContrato);
+var
+  ACadena : String;
 begin
   case ATipo of
     teCocina:
@@ -756,8 +757,12 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_COCINA);
-        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA));
+        if (ACadena <> '') then
+           AContrato.CONDICIONES.Add(ACadena);
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA);
+        if (ACadena <> '') then
+           AContrato.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, AContrato.Detalles);
@@ -768,8 +773,12 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO);
-        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
+        if (ACadena <> '') then
+           AContrato.CONDICIONES.Add(ACadena);
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
+        if (ACadena <> '') then
+           AContrato.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, AContrato.Detalles);
       end;
@@ -779,8 +788,12 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_BANO);
-        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO));
+        if (ACadena <> '') then
+           AContrato.CONDICIONES.Add(ACadena);
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO);
+        if (ACadena <> '') then
+           AContrato.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, AContrato.Detalles);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, AContrato.Detalles);
       end;
@@ -790,8 +803,12 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_ELECTRODOMESTICO);
-        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
+        if (ACadena <> '') then
+           AContrato.CONDICIONES.Add(ACadena);
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
+        if (ACadena <> '') then
+           AContrato.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, AContrato.Detalles);
       end;
     teObra:
@@ -800,8 +817,12 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_OBRA));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_OBRA);
-        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
+        if (ACadena <> '') then
+           AContrato.CONDICIONES.Add(ACadena);
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
+        if (ACadena <> '') then
+           AContrato.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, AContrato.Detalles);
       end;
     teVarios:
@@ -810,8 +831,12 @@ begin
         AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
         AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
         AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
-        AContrato.CONDICIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CONDICIONES_VARIOS);
-        AContrato.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS));
+        if (ACadena <> '') then
+           AContrato.CONDICIONES.Add(ACadena);
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS);
+        if (ACadena <> '') then
+           AContrato.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles);
       end;
   end;

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -893,6 +893,8 @@ begin
 end;
 
 procedure TPresupuestosClienteController.RellenarValoresDefecto(APresupuesto: IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto);
+var
+  ACadena : String;
 begin
   case ATipo of
     teCocina:
@@ -901,7 +903,9 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA));
-        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_COCINA);
+        if (ACadena <> '') then       
+           APresupuesto.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'AUMENTO POR ', False, APresupuesto.Detalles);
@@ -913,6 +917,9 @@ begin
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO));
         APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ARMARIO);
+        if (ACadena <> '') then
+           APresupuesto.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AI, 'INTERIOR DE ARMARIO Nº ', False, APresupuesto.Detalles);
       end;
@@ -922,7 +929,9 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO));
-        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO));        
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_BANO);
+        if (ACadena <> '') then
+           APresupuesto.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'IMPORTES ', True, APresupuesto.Detalles);
       end;
@@ -933,6 +942,9 @@ begin
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO));
         APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_ELECTRODOMESTICO);
+        if (ACadena <> '') then
+           APresupuesto.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles);
       end;
     teObra:
@@ -942,6 +954,9 @@ begin
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_OBRA));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_OBRA));
         APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_OBRA);
+        if (ACadena <> '') then
+           APresupuesto.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_O, 'OBRA ', False, APresupuesto.Detalles);
       end;
     teVarios:
@@ -950,7 +965,9 @@ begin
         APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS));
         APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS));
         APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS));
-        APresupuesto.CALIDADES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS));
+        ACadena := AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_CALIDADES_VARIOS);
+        if (ACadena <> '') then
+           APresupuesto.CALIDADES.Add(ACadena);
         (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles);
       end;
   end;

Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas

@@ -277,7 +277,7 @@ begin
 
   Self.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos;
   Self.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos;
-  Self.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsString := AppFactuGES.CalidadesDocumentos;
+//  Self.DataTable.FieldByName(fld_PresupuestosClienteCALIDADES).AsString := AppFactuGES.CalidadesDocumentos;
 
 
   AsignarVendedor;  

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,5,5,0
+FILEVERSION 2,5,6,0
-PRODUCTVERSION 2,5,5,0
+PRODUCTVERSION 2,5,6,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.5.5.0\0"
+              VALUE "FileVersion", "2.5.6.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.5.5.0\0"
+              VALUE "ProductVersion", "2.5.6.0\0"
-              VALUE "CompileDate", "viernes, 22 de noviembre de 2013 18:06\0"
+              VALUE "CompileDate", "miércoles, 05 de febrero de 2014 13:31\0"
          END
     END
     BLOCK "VarFileInfo"