Repaso general de todos los modulos para quitar la parte de contabilidad menos en recibos de cliente y proveedor para poder usar solo caja y banco. Esta listo para meterse con los informes.

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@9 93f398dd-4eb6-7a46-baf6-13f46f578da2

Database/RodaxSoftware.FactuGES.Database.proj

@@ -27,7 +27,7 @@
    <ItemGroup>
       <Sql Include="$(SqlScriptsFolder)\factuges.sql" />
       <Sql Include="$(SqlScriptsFolder)\factuges_sysdata.sql" />	  
-      <Sql Include="$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql" />
+      <Sql Include="$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable_Abeto.sql" />
       <SqlOutput Include="$(OutputPath)\factuges.fdb" />
 
 	  <SqlReplicador Include="$(SqlScriptsFolder)\replicador.sql" />
@@ -62,10 +62,7 @@
 		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listapoblaciones.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"   
   		WorkingDirectory="$(OutputPath)" />  
 			
-		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" 
-			WorkingDirectory="$(OutputPath)" />
-
-		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable_acana.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" 
+		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable_Abeto.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" 
 			WorkingDirectory="$(OutputPath)" />
 
 		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_presupuestos.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" 

Database/scripts/factuges_sysdata.sql

@@ -2,8 +2,9 @@ SET SQL DIALECT 3;
 
 SET NAMES ISO8859_1;
 
+
 INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ_PRESUPUESTOS) VALUES (1, 'B85033132', 'ABETO DESIGN S.L.', 'Abeto Design S.L.', 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', '91 533 18 00', NULL, NULL, NULL, '91 533 18 09', 'tienda@abetodesign.com', NULL, 'www.abetodesign.com', NULL, NULL, 'Administrador', 'Insc. en el Reg. Merc. de Madrid, Tomo 6.765, Folio 11, Sección 8,  CIF: B85033132', 1, 1, 1);
-INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ_PRESUPUESTOS) VALUES (2, 'B80646540', 'Graden S.L.', 'Graden S.L.', 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', '91 533 18 00', NULL, NULL, NULL, '91 533 18 09', 'tienda@abetodesign.com', NULL, 'www.abetodesign.com', NULL, NULL, 'Administrador', 'Insc. en el Reg. Merc. de Madrid, Tomo 6.765, Libro 0, Folio 11, Sección 8, Hoja M-448873 CIF: B80646540', 1, 1, 1);
+INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ_PRESUPUESTOS) VALUES (2, 'B80646540', 'Graden S.L.', 'Graden S.L.', 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', '91 533 18 00', NULL, NULL, NULL, '91 533 18 09', 'tienda@abetodesign.com', NULL, 'www.abetodesign.com', NULL, NULL, 'Administrador', 'Insc. en el Reg. Merc. de Madrid, Tomo 6.765, Libro 0, Folio 11, Sección 8, Hoja M-448873 CIF: B80646540', 1, NULL, 1);
 INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ_PRESUPUESTOS) VALUES (3, NULL, 'Abeto', 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 'Administrador', '', NULL, NULL, 1);
 SET GENERATOR GEN_EMPRESAS_ID TO 4;
 COMMIT WORK;
@@ -64,7 +65,8 @@ INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL
 55% a la finalizacion de la obra.
 
 FINANCIACION HASTA 12 MESES SIN INTERESES', NULL, NULL, NULL, NULL, NULL);
-SET GENERATOR GEN_FORMAS_PAGO_ID TO 10;
+INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (11, 'FEC. VENCIMIENTO', 'FECHA VENCIMIENTO', NULL, NULL, NULL, NULL, NULL);
+SET GENERATOR GEN_FORMAS_PAGO_ID TO 12;
 COMMIT WORK;
 
 INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (1, 1, 0, 100);
@@ -86,59 +88,60 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES
 SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 18;
 COMMIT WORK;
 
-INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (1, NULL, 1, 'REF_CLIENTE', 'ACL/000001', 'Ref. Cliente Armarios y Puertas');
+
+/******************************************************************************/
+/****         Generated by IBExpert 2007.05.03 21/11/2011 16:23:42         ****/
+/******************************************************************************/
+
+SET SQL DIALECT 3;
+
+SET NAMES ISO8859_1;
+
+INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (1, NULL, 1, 'REF_CLIENTE', 'ACL/000003', 'Ref. Cliente Armarios y Puertas');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (2, NULL, 2, 'REF_CLIENTE', 'GCL/000001', 'Ref. Cliente Cocinas y Baños');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 3, 'REF_CLIENTE', 'CLI/000001', 'Ref. Cliente General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (4, NULL, 1, 'REF_PROVEEDOR', 'APR/000001', 'Ref. Proveedor Armarios y Puertas');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (5, NULL, 2, 'REF_PROVEEDOR', 'GPR/000001', 'Ref. Proveedor Cocinas y Baños');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (6, NULL, 3, 'REF_PROVEEDOR', 'PRO/000001', 'Ref. Proveedor General');
-INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (7, NULL, 1, 'REF_PRESUPUESTOS_CLIENTE', 'APR12/00001', 'Ref. Presupuesto de cliente Armarios y Puertas');
+INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (7, NULL, 1, 'REF_PRESUPUESTOS_CLIENTE', 'APR12/00007', 'Ref. Presupuesto de cliente Armarios y Puertas');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (8, NULL, 2, 'REF_PRESUPUESTOS_CLIENTE', 'GPR12/00001', 'Ref. Presupuesto de cliente Cocinas y Baños');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (9, NULL, 3, 'REF_PRESUPUESTOS_CLIENTE', 'PRE12/00001', 'Ref. Presupuesto de cliente General');
-INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (10, NULL, 1, 'REF_CONTRATOS_CLIENTE', 'ACO12/00001', 'Ref. Contrato de cliente Armarios y Puertas');
+INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (10, NULL, 1, 'REF_CONTRATOS_CLIENTE', 'ACO12/00003', 'Ref. Contrato de cliente Armarios y Puertas');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (11, NULL, 2, 'REF_CONTRATOS_CLIENTE', 'GCO12/00001', 'Ref. Contrato de cliente Cocinas y Baños');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (12, NULL, 3, 'REF_CONTRATOS_CLIENTE', 'CON12/00001', 'Ref. Contrato de cliente General');
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (13, 1, 0, 'REF_ALBARANES_CLIENTE', 'ALB12/000001', 'Ref. Albaranes de cliente General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (14, 1, 1, 'REF_ALBARANES_CLIENTE', 'AAL12/000001', 'Ref. Albaranes de cliente Armarios y Puertas');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (15, 2, 0, 'REF_ALBARANES_CLIENTE', 'ALB12/000001', 'Ref. Albaranes de cliente General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 2, 1, 'REF_ALBARANES_CLIENTE', 'AAB12/000000', 'Ref. albaranes de cliente Cocinas y Baños');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 3, 0, 'REF_ALBARANES_CLIENTE', 'ALB12/000001', 'Ref. albaranes de cliente General');
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (18, 1, 0, 'REF_FACTURAS_CLIENTE', 'FAC12/000001', 'Ref. facturas de cliente General');
-INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (19, 1, 1, 'REF_FACTURAS_CLIENTE', 'AFA12/000001', 'Ref. facturas de cliente Abeto');
+INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (19, 1, 1, 'REF_FACTURAS_CLIENTE', 'AFA12/000010', 'Ref. facturas de cliente Abeto');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (20, 2, 0, 'REF_FACTURAS_CLIENTE', 'FAC12/000001', 'Ref. facturas de cliente General');
-INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (21, 2, 2, 'REF_FACTURAS_CLIENTE', 'GFA12/000001', 'Ref. facturas de cliente Graden');
+INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (21, 2, 2, 'REF_FACTURAS_CLIENTE', 'GFA12/000002', 'Ref. facturas de cliente Graden');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (22, 3, 0, 'REF_FACTURAS_CLIENTE', 'FAC12/000001', 'Ref. facturas de cliente General');
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (23, 1, 0, 'REF_FACTURAS_PROVEEDOR', 'FAP12/000001', 'Ref. facturas de proveedor General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (24, 1, 1, 'REF_FACTURAS_PROVEEDOR', 'AFP12/000001', 'Ref. facturas de proveedor Abeto');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (25, 2, 0, 'REF_FACTURAS_PROVEEDOR', 'FAP12/000001', 'Ref. facturas de proveedor General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (26, 2, 2, 'REF_FACTURAS_PROVEEDOR', 'GFP12/000001', 'Ref. facturas de proveedor Graden');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (27, 3, 0, 'REF_FACTURAS_PROVEEDOR', 'FAP12/000001', 'Ref. facturas de proveedor General');
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (28, 1, 0, 'REF_RECIBOS_CLIENTE', 'REC/00000001', 'Ref. recibos de cliente General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (29, 1, 1, 'REF_RECIBOS_CLIENTE', 'ARE/00000001', 'Ref. recibos de cliente Abeto');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (30, 2, 0, 'REF_RECIBOS_CLIENTE', 'REC/00000001', 'Ref. recibos de cliente General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (31, 2, 1, 'REF_RECIBOS_CLIENTE', 'GRE/00000001', 'Ref. recibos de cliente Graden');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (32, 3, 0, 'REF_RECIBOS_CLIENTE', 'REC/00000001', 'Ref. recibos de cliente General');
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (33, 1, 0, 'REF_PROVEEDOR', 'REP/00000001', 'Ref. recibos de proveedor General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (34, 1, 1, 'REF_PROVEEDOR', 'ARP/00000001', 'Ref. recibos de proveedor Abeto');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (35, 2, 0, 'REF_PROVEEDOR', 'REP/00000001', 'Ref. recibos de proveedor General');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (36, 2, 1, 'REF_PROVEEDOR', 'GRP/00000001', 'Ref. recibos de proveedor Graden');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (37, 3, 0, 'REF_PROVEEDOR', 'REP/00000001', 'Ref. recibos de proveedor General');
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (38, 1, NULL, 'REF_COMISIONES', '00001', 'Ref. liquidaciones de comision');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (39, 2, NULL, 'REF_COMISIONES', 'B/00001', 'Ref. liquidaciones de comision');
-
-INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (40, 1, NULL, 'REF_REMESAS_CLIENTE', 'RCLI/00001', 'Ref. remesas de cliente');
+INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (40, 1, NULL, 'REF_REMESAS_CLIENTE', 'RCLI/00002', 'Ref. remesas de cliente');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (41, 1, NULL, 'REF_REMESAS_PROVEEDOR', 'RPRO/00001', 'Ref. remesas de proveedor');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (42, 2, NULL, 'REF_REMESAS_CLIENTE', 'RCLI/00001', 'Ref. remesas de cliente');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (43, 2, NULL, 'REF_REMESAS_PROVEEDOR', 'BRPRO/0000', 'Ref. remesas de proveedor');
 COMMIT WORK;
 
-
 INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA18', 'IVA18', 18, 4);
 INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (2, 'IVA4', 'IVA4', 4, 0.5);
 INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA8', 'IVA8', 8, 1);

Source/FactuGES.inc

@@ -1,4 +1,4 @@
 {$DEFINE MULTIEMPRESA}
 {DEFINE ALMACEN}
 {DEFINE PEDIDOSPROVEEDOR}
-{DEFINE CONTABILIDAD}
+{$DEFINE CONTABILIDAD}

Source/GUIBase/GUIBase.dproj

@@ -58,34 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Base.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\tb2k_d10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm

@@ -613,28 +613,36 @@ object PluginContabilidad: TPluginContabilidad
     object actEpigrafes: TAction
       Category = 'Contabilidad'
       Caption = 'Epigrafes'
+      Enabled = False
       ImageIndex = 3
+      Visible = False
       OnExecute = actEpigrafesExecute
       OnUpdate = actEpigrafesUpdate
     end
     object actBalances: TAction
       Category = 'Contabilidad'
       Caption = 'Balances'
+      Enabled = False
       ImageIndex = 5
+      Visible = False
       OnExecute = actBalancesExecute
       OnUpdate = actBalancesUpdate
     end
     object actCuentasEspeciales: TAction
       Category = 'Contabilidad'
       Caption = 'Cuentas especiales'
+      Enabled = False
       ImageIndex = 6
+      Visible = False
       OnExecute = actCuentasEspecialesExecute
       OnUpdate = actCuentasEspecialesUpdate
     end
     object actCuentas: TAction
       Category = 'Contabilidad'
       Caption = 'Cuentas'
+      Enabled = False
       ImageIndex = 2
+      Visible = False
       OnExecute = actCuentasExecute
       OnUpdate = actCuentasUpdate
     end
@@ -648,7 +656,9 @@ object PluginContabilidad: TPluginContabilidad
     object actDiario: TAction
       Category = 'Contabilidad'
       Caption = 'Libro de diario'
+      Enabled = False
       ImageIndex = 0
+      Visible = False
       OnExecute = actDiarioExecute
       OnUpdate = actDiarioUpdate
     end

Source/Modulos/Contabilidad/Views/uEditorDiario.dfm

@@ -2,8 +2,6 @@ inherited fEditorDiario: TfEditorDiario
   Left = 489
   Top = 325
   Caption = 'Libro de diario'
-  ExplicitWidth = 320
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -33,6 +31,9 @@ inherited fEditorDiario: TfEditorDiario
     end
   end
   inherited TBXDock: TTBXDock
+    inherited tbxMain: TTBXToolbar
+      ExplicitWidth = 543
+    end
     inherited tbxFiltro: TTBXToolbar
       ExplicitWidth = 269
       inherited tbxEditFiltro: TTBXEditItem
@@ -47,7 +48,6 @@ inherited fEditorDiario: TfEditorDiario
       DockPos = 275
       Visible = True
       ExplicitLeft = 275
-      ExplicitWidth = 176
       object TBXItem38: TTBXItem
         Action = actPuntear
         DisplayMode = nbdmImageAndText
@@ -110,15 +110,27 @@ inherited fEditorDiario: TfEditorDiario
           Width = 543
           ExplicitWidth = 543
           inherited txtFiltroTodo: TcxTextEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitWidth = 273
             Width = 273
           end
           inherited edtFechaIniFiltro: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitWidth = 121
             Width = 121
           end
           inherited edtFechaFinFiltro: TcxDateEdit
             Left = 337
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 337
             ExplicitWidth = 121
             Width = 121
@@ -179,7 +191,9 @@ inherited fEditorDiario: TfEditorDiario
     object actPuntear: TAction
       Category = 'OperacionesEspeciales'
       Caption = 'Puntear/Despuntear asiento'
+      Enabled = False
       ImageIndex = 24
+      Visible = False
       OnExecute = actPuntearExecute
       OnUpdate = actPuntearUpdate
     end

Source/Modulos/Contabilidad/Views/uViewCuentas.pas

@@ -14,7 +14,7 @@ uses
   dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
   cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
   TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
-  cxImageComboBox, cxTextEdit;
+  cxImageComboBox, cxTextEdit, uCustomView, uViewBase;
 
 type
   IViewCuentas = interface(IViewGrid)

Source/Modulos/Contabilidad/Views/uViewDiario.dfm

@@ -32,6 +32,8 @@ inherited frViewDiario: TfrViewDiario
             ImageIndex = 1
             Value = 1
           end>
+        Visible = False
+        VisibleForCustomization = False
         IsCaptionAssigned = True
       end
       object cxGridViewID_ASIENTO: TcxGridDBColumn
@@ -143,9 +145,6 @@ inherited frViewDiario: TfrViewDiario
       end
     end
   end
-  inherited pnlAgrupaciones: TTBXDockablePanel
-    ExplicitWidth = 554
-  end
   inherited dxComponentPrinter: TdxComponentPrinter
     inherited dxComponentPrinterLink: TdxGridReportLink
       ReportDocument.CreationDate = 38673.842406053240000000

Source/Modulos/Contabilidad/Views/uViewDiario.pas

@@ -14,7 +14,7 @@ uses
   dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
   cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
   TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
-  cxImageComboBox, cxTextEdit, cxCurrencyEdit;
+  cxImageComboBox, cxTextEdit, cxCurrencyEdit, uCustomView, uViewBase;
 
 type
   IViewDiario = interface(IViewGrid)

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -743,11 +743,11 @@ begin
   RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
   REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
 
-  //CONTABILIDAD
-  if Assigned(AppFactuGES.EjercicioActivo) then
-    IGNORAR_CONTABILIDAD := 0
-  else
-    IGNORAR_CONTABILIDAD := 1;
+//CONTABILIDAD
+//  if Assigned(AppFactuGES.EjercicioActivo) then
+//    IGNORAR_CONTABILIDAD := 0
+//  else
+  IGNORAR_CONTABILIDAD := 1;
   TIENE_SUBCUENTA := 0;
 
   ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
@@ -829,9 +829,9 @@ begin
   REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString(teXML, 'Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
 
   //CONTABILIDAD
-  if Assigned(AppFactuGES.EjercicioActivo) then
-    IGNORAR_CONTABILIDAD := 0
-  else
+//  if Assigned(AppFactuGES.EjercicioActivo) then
+//    IGNORAR_CONTABILIDAD := 0
+//  else
     IGNORAR_CONTABILIDAD := 1;
   TIENE_SUBCUENTA := 0;
   ES_ACREEDOR := 0;

Source/Modulos/Contactos/Views/uEditorCliente.dfm

@@ -675,6 +675,7 @@ inherited fEditorCliente: TfEditorCliente
     object pagContabilidad: TTabSheet
       Caption = 'Contabilidad'
       ImageIndex = 5
+      TabVisible = False
       inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
         Left = 0
         Top = 0

Source/Modulos/Contactos/Views/uEditorCliente.pas

@@ -71,7 +71,8 @@ begin
   ViewContacto := frViewCliente1;
 
   {$IFDEF CONTABILIDAD}
-    pagContabilidad.TabVisible := true;
+//    pagContabilidad.TabVisible := true;
+    pagContabilidad.TabVisible := false;
   {$ELSE}
     pagContabilidad.TabVisible := false;
   {$ENDIF}

Source/Modulos/Contactos/Views/uEditorProveedor.dfm

@@ -341,6 +341,8 @@ inherited fEditorProveedor: TfEditorProveedor
             ExplicitHeight = 228
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewProveedor1.dsContacto
+              ExplicitWidth = 573
+              ExplicitHeight = 20
               Height = 228
               Width = 521
             end
@@ -376,6 +378,18 @@ inherited fEditorProveedor: TfEditorProveedor
         inherited ToolBar1: TToolBar
           Width = 634
           ExplicitWidth = 634
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
@@ -591,6 +605,7 @@ inherited fEditorProveedor: TfEditorProveedor
     object PagContabilidad: TTabSheet
       Caption = 'Contabilidad'
       ImageIndex = 4
+      TabVisible = False
       inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
         Left = 0
         Top = 0

Source/Modulos/Contactos/Views/uEditorProveedor.pas

@@ -67,7 +67,8 @@ begin
   ViewContacto := frViewProveedor1;
 
   {$IFDEF CONTABILIDAD}
-    pagContabilidad.TabVisible := true;
+//    pagContabilidad.TabVisible := true;
+    pagContabilidad.TabVisible := false;
   {$ELSE}
     pagContabilidad.TabVisible := false;
   {$ENDIF}

Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj

@@ -16,6 +16,7 @@
     <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
     <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
     <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
     <Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
@@ -211,14 +212,23 @@
   <Target Name="PresupuestosCliente_view:Make">
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasCliente_view">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_view:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_view:Make">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_FacCli_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PreCli_ConCli_relation;PresupuestosCliente_view;FacturasCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_FacCli_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PreCli_ConCli_relation:Clean;PresupuestosCliente_view:Clean;FacturasCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_FacCli_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PreCli_ConCli_relation:Make;PresupuestosCliente_view:Make;FacturasCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm

@@ -93,6 +93,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Top = 166
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
+      Properties.ImmediatePost = True
       Properties.KeyFieldNames = 'ID'
       Properties.ListColumns = <
         item
@@ -102,6 +103,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Properties.ListOptions.ShowHeader = False
       Properties.ListOptions.SyncMode = True
       Properties.ListSource = dsFormaPago
+      Properties.OnValidate = cbFormaPagoPropertiesValidate
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
@@ -344,6 +346,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
               AutoAligns = [aaVertical]
               AlignHorz = ahClient
               Caption = 'Tipo contrato:'
+              Visible = False
               Control = cbTipoContrato
               ControlOptions.ShowBorder = False
             end

Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas

@@ -68,6 +68,8 @@ type
     procedure bFormasPagoClick(Sender: TObject);
     procedure frViewClienteContratoButton1Click(Sender: TObject);
     procedure frViewClienteContratoButton2Click(Sender: TObject);
+    procedure cbFormaPagoPropertiesValidate(Sender: TObject;
+      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
   protected
     FContrato : IBizContratoCliente;
     FFormasPago : IBizFormaPago;
@@ -79,7 +81,7 @@ type
     function GetContrato: IBizContratoCliente;
     procedure SetContrato(const Value: IBizContratoCliente); virtual;
     function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
-    
+
   public
     property Contrato: IBizContratoCliente read GetContrato write SetContrato;
     property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
@@ -92,7 +94,7 @@ implementation
 { TfrViewContratoCliente }
 
 uses
-  uClientesController, uBizDireccionesContacto, uContratosClienteController;
+  schContratosClienteClient_Intf, uClientesController, uBizDireccionesContacto, uContratosClienteController;
 
 
 procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@@ -102,6 +104,13 @@ begin
      FFormasPagoController.VerTodos(FFormasPago);
 end;
 
+procedure TfrViewContratoCliente.cbFormaPagoPropertiesValidate(Sender: TObject;
+  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+begin
+  inherited;
+  Contrato.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := FFormasPago.DESCRIPCION;
+end;
+
 procedure TfrViewContratoCliente.CustomViewCreate(Sender: TObject);
 begin
   inherited;

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -267,9 +267,9 @@ begin
   TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
 
 {$IFDEF CONTABILIDAD}
-  if Assigned(AppFactuGES.EjercicioActivo) then
-    IGNORAR_CONTABILIDAD := 0
-  else
+//  if Assigned(AppFactuGES.EjercicioActivo) then
+//    IGNORAR_CONTABILIDAD := 0
+//  else
     IGNORAR_CONTABILIDAD := 1;
 {$ENDIF}
 

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -81,6 +81,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   inherited pgPaginas: TPageControl
     Width = 854
     Height = 368
+    ActivePage = pagContenido
     OnChanging = pgPaginasChanging
     ExplicitWidth = 854
     ExplicitHeight = 368
@@ -262,10 +263,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
         Left = 0
         Top = 0
@@ -286,56 +283,97 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         ExplicitHeight = 340
         inherited ToolBar1: TToolBar
           Width = 846
+          Height = 24
           ExplicitWidth = 846
+          ExplicitHeight = 24
+          inherited ToolButton4: TToolButton
+            Wrap = False
+          end
+          inherited ToolButton14: TToolButton
+            Left = 334
+            Top = 0
+            ExplicitLeft = 334
+            ExplicitTop = 0
+          end
+          inherited FontName: TJvFontComboBox
+            Left = 368
+            Top = 0
+            ExplicitLeft = 368
+            ExplicitTop = 0
+          end
           inherited FontSize: TEdit
+            Left = 513
+            Top = 0
             Width = 57
+            ExplicitLeft = 513
+            ExplicitTop = 0
             ExplicitWidth = 57
           end
           inherited UpDown1: TUpDown
-            Left = 236
-            ExplicitLeft = 236
+            Left = 570
+            Top = 0
+            ExplicitLeft = 570
+            ExplicitTop = 0
           end
           inherited ToolButton13: TToolButton
-            Left = 253
-            ExplicitLeft = 253
+            Left = 587
+            Top = 0
+            ExplicitLeft = 587
+            ExplicitTop = 0
           end
           inherited ToolButton6: TToolButton
-            Left = 261
-            ExplicitLeft = 261
+            Left = 595
+            Top = 0
+            ExplicitLeft = 595
+            ExplicitTop = 0
           end
           inherited ToolButton7: TToolButton
-            Left = 295
-            ExplicitLeft = 295
+            Left = 629
+            Top = 0
+            ExplicitLeft = 629
+            ExplicitTop = 0
           end
           inherited ToolButton8: TToolButton
-            Left = 329
-            ExplicitLeft = 329
+            Left = 663
+            Top = 0
+            ExplicitLeft = 663
+            ExplicitTop = 0
           end
           inherited ToolButton12: TToolButton
-            Left = 363
-            ExplicitLeft = 363
+            Left = 697
+            Top = 0
+            ExplicitLeft = 697
+            ExplicitTop = 0
           end
           inherited ToolButton9: TToolButton
-            Left = 371
-            ExplicitLeft = 371
+            Left = 705
+            Top = 0
+            ExplicitLeft = 705
+            ExplicitTop = 0
           end
           inherited ToolButton10: TToolButton
-            Left = 405
-            ExplicitLeft = 405
+            Left = 739
+            Top = 0
+            ExplicitLeft = 739
+            ExplicitTop = 0
           end
           inherited ToolButton11: TToolButton
-            Left = 439
-            ExplicitLeft = 439
+            Left = 773
+            Top = 0
+            ExplicitLeft = 773
+            ExplicitTop = 0
           end
         end
         inherited cxGrid: TcxGrid
+          Top = 50
           Width = 846
-          Height = 268
+          Height = 290
           ExplicitTop = 50
           ExplicitWidth = 846
           ExplicitHeight = 290
         end
         inherited TBXDock1: TTBXDock
+          Top = 24
           Width = 846
           ExplicitTop = 24
           ExplicitWidth = 846
@@ -345,6 +383,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     object pagContabilidad: TTabSheet
       Caption = 'Contabilidad'
       ImageIndex = 2
+      TabVisible = False
       inline frViewListaSubcuentas1: TfrViewListaSubcuentas
         Left = 0
         Top = 0
@@ -397,6 +436,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     Width = 860
     TabOrder = 5
     ExplicitWidth = 860
+    inherited lbComentario: TLabel
+      Width = 850
+      Height = 25
+    end
   end
   inline frViewTotales1: TfrViewTotales [5]
     Left = 0

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 937
-  Height = 382
+  Width = 451
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 937
-    Height = 382
+    Width = 451
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      937
-      382)
+      451
+      304)
     object eReferencia: TcxDBTextEdit
       Left = 135
       Top = 30
@@ -98,7 +96,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Width = 78
     end
     object bFormasPago: TButton
-      Left = 336
+      Left = 241
       Top = 108
       Width = 132
       Height = 23
@@ -111,6 +109,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Top = 188
       Width = 351
       Height = 48
+      Enabled = False
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -135,7 +134,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       end
     end
     inline frViewClienteFactura1: TfrViewClienteFactura
-      Left = 496
+      Left = 401
       Top = 30
       Width = 398
       Height = 265
@@ -147,14 +146,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       ParentFont = False
       TabOrder = 7
       ReadOnly = False
-      ExplicitLeft = 496
+      ExplicitLeft = 401
       ExplicitTop = 30
       ExplicitWidth = 398
       ExplicitHeight = 265
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 398
         Height = 265
-        ExplicitWidth = 398
+        ExplicitWidth = 101
         ExplicitHeight = 265
         inherited edtlNombre: TcxDBTextEdit
           ExplicitWidth = 276
@@ -177,12 +176,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 276
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 327
-          ExplicitLeft = 327
+          Left = 192
+          ExplicitLeft = 192
         end
         inherited Button3: TBitBtn
-          Left = 217
-          ExplicitLeft = 217
+          Left = 82
+          ExplicitLeft = 82
         end
         inherited cxDBTextEdit1: TcxDBTextEdit
           ExplicitWidth = 283
@@ -231,7 +230,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       inherited memObservaciones: TcxDBMemo
         DataBinding.DataField = 'OBSERVACIONES'
         DataBinding.DataSource = DADataSource
-        ExplicitHeight = 228
+        ExplicitWidth = 480
+        ExplicitHeight = 20
         Height = 228
       end
     end
@@ -241,6 +241,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Caption = '  No acogida a comisiones'
       DataBinding.DataField = 'SIN_COMISION'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Properties.DisplayChecked = '1'
       Properties.DisplayUnchecked = '0'
       Properties.ImmediatePost = True
@@ -324,6 +325,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           object dxLayoutControl1Group4: TdxLayoutGroup
             AutoAligns = [aaVertical]
             Caption = 'La factura pertenece a la tienda'
+            Enabled = False
+            Visible = False
             object dxLayoutControl1Item3: TdxLayoutItem
               Caption = 'New Item'
               ShowCaption = False
@@ -334,6 +337,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           end
           object dxLayoutControl1Group9: TdxLayoutGroup
             Caption = 'Comisiones'
+            Enabled = False
+            Visible = False
             object dxLayoutControl1Item7: TdxLayoutItem
               ShowCaption = False
               Control = cbRecargoEquivalencia

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -8,7 +8,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     Height = 269
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
-    ExplicitWidth = 531
+    ExplicitWidth = 802
     ExplicitHeight = 269
     inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
@@ -37,6 +37,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       object cxGridViewTIENDA: TcxGridDBColumn
         Caption = 'Tienda'
         DataBinding.FieldName = 'TIENDA'
+        Visible = False
+        VisibleForCustomization = False
       end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
@@ -58,6 +60,7 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         Caption = 'Nombre comercial'
         DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
         Visible = False
+        VisibleForCustomization = False
       end
       object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn
         Caption = 'Cliente'
@@ -170,12 +173,12 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     Width = 802
-    ExplicitWidth = 531
+    ExplicitWidth = 802
     inherited TBXDockablePanel1: TTBXDockablePanel
-      ExplicitWidth = 531
+      ExplicitWidth = 802
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 802
-        ExplicitWidth = 531
+        ExplicitWidth = 802
         inherited txtFiltroTodo: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
@@ -205,10 +208,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 802
-        ExplicitWidth = 531
+        ExplicitWidth = 802
         inherited tbxBotones: TTBXToolbar
           Width = 792
-          ExplicitWidth = 521
+          ExplicitWidth = 792
         end
       end
     end
@@ -217,13 +220,13 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     Top = 371
     Visible = True
     ExplicitTop = 371
-    ExplicitWidth = 531
+    ExplicitWidth = 802
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
       Width = 802
-      ExplicitWidth = 531
+      ExplicitWidth = 802
       inherited TBXToolbar1: TTBXToolbar
         Width = 792
-        ExplicitWidth = 521
+        ExplicitWidth = 792
         object TBXSeparatorItem2: TTBXSeparatorItem
         end
         object TBXItem3: TTBXItem

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas

@@ -292,9 +292,9 @@ begin
   TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
 
 {$IFDEF CONTABILIDAD}
-  if Assigned(AppFactuGES.EjercicioActivo) then
-    IGNORAR_CONTABILIDAD := 0
-  else
+//  if Assigned(AppFactuGES.EjercicioActivo) then
+//    IGNORAR_CONTABILIDAD := 0
+//  else
     IGNORAR_CONTABILIDAD := 1;
 {$ENDIF}
 

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm

@@ -262,40 +262,40 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
             ExplicitWidth = 57
           end
           inherited UpDown1: TUpDown
-            Left = 202
-            ExplicitLeft = 202
+            Left = 218
+            ExplicitLeft = 218
           end
           inherited ToolButton13: TToolButton
-            Left = 219
-            ExplicitLeft = 219
+            Left = 235
+            ExplicitLeft = 235
           end
           inherited ToolButton6: TToolButton
-            Left = 227
-            ExplicitLeft = 227
+            Left = 243
+            ExplicitLeft = 243
           end
           inherited ToolButton7: TToolButton
-            Left = 261
-            ExplicitLeft = 261
+            Left = 277
+            ExplicitLeft = 277
           end
           inherited ToolButton8: TToolButton
-            Left = 295
-            ExplicitLeft = 295
+            Left = 311
+            ExplicitLeft = 311
           end
           inherited ToolButton12: TToolButton
-            Left = 329
-            ExplicitLeft = 329
+            Left = 345
+            ExplicitLeft = 345
           end
           inherited ToolButton9: TToolButton
-            Left = 337
-            ExplicitLeft = 337
+            Left = 353
+            ExplicitLeft = 353
           end
           inherited ToolButton10: TToolButton
-            Left = 371
-            ExplicitLeft = 371
+            Left = 387
+            ExplicitLeft = 387
           end
           inherited ToolButton11: TToolButton
-            Left = 405
-            ExplicitLeft = 405
+            Left = 421
+            ExplicitLeft = 421
           end
         end
         inherited cxGrid: TcxGrid
@@ -344,6 +344,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
     object pagContabilidad: TTabSheet
       Caption = 'Contabilidad'
       ImageIndex = 3
+      TabVisible = False
       inline frViewListaSubcuentas1: TfrViewListaSubcuentas
         Left = 0
         Top = 0

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaProveedor: TfrViewFacturaProveedor
-  Width = 758
-  Height = 521
+  Width = 648
+  Height = 554
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 758
-    Height = 521
+    Width = 648
+    Height = 554
     Align = alClient
     ParentBackground = True
     TabOrder = 0
@@ -20,8 +20,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
     ExplicitWidth = 451
     ExplicitHeight = 304
     DesignSize = (
-      758
-      521)
+      648
+      554)
     object eReferencia: TcxDBTextEdit
       Left = 124
       Top = 30
@@ -97,7 +97,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 169
     end
     object bFormasPago: TButton
-      Left = 264
+      Left = 154
       Top = 135
       Width = 132
       Height = 23
@@ -130,6 +130,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Top = 215
       Width = 320
       Height = 36
+      Enabled = False
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -144,7 +145,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       ExplicitHeight = 36
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 320
-        ExplicitWidth = 320
+        ExplicitWidth = 260
         inherited cbTienda: TcxComboBox
           ExplicitWidth = 376
           Width = 376
@@ -173,7 +174,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 158
     end
     inline frViewProveedorFactura1: TfrViewProveedorFactura
-      Left = 424
+      Left = 314
       Top = 30
       Width = 312
       Height = 260
@@ -185,7 +186,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       ParentFont = False
       TabOrder = 7
       ReadOnly = False
-      ExplicitLeft = 424
+      ExplicitLeft = 314
       ExplicitTop = 30
       ExplicitWidth = 312
       ExplicitHeight = 260
@@ -245,9 +246,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       ReadOnly = False
       ExplicitLeft = 22
       ExplicitTop = 320
+      ExplicitHeight = 228
       inherited memObservaciones: TcxDBMemo
         DataBinding.DataField = 'OBSERVACIONES'
         DataBinding.DataSource = DADataSource
+        ExplicitWidth = 600
+        ExplicitHeight = 20
+        Height = 228
       end
     end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
@@ -314,6 +319,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
           end
           object dxLayoutControl1Group4: TdxLayoutGroup
             Caption = 'La factura pertenece a la tienda'
+            Enabled = False
+            Visible = False
             object dxLayoutControl1Item7: TdxLayoutItem
               Control = frViewTienda1
               ControlOptions.AutoColor = True

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm

@@ -74,6 +74,8 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
       object cxGridViewTIENDA: TcxGridDBColumn
         Caption = 'Tienda'
         DataBinding.FieldName = 'TIENDA'
+        Visible = False
+        VisibleForCustomization = False
       end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
@@ -107,6 +109,8 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
       object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
         Caption = 'Nombre comercial'
         DataBinding.FieldName = 'NOMBRE_COMERCIAL'
+        Visible = False
+        VisibleForCustomization = False
       end
       object cxGridViewNIF_CIF: TcxGridDBColumn
         DataBinding.FieldName = 'NIF_CIF'

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

@@ -124,7 +124,7 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
     Width = 805
     ExplicitWidth = 805
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 775
+      ExplicitWidth = 632
       object TBXSubmenuItem3: TTBXSubmenuItem [0]
         Caption = 'Nuevo'
         DisplayMode = nbdmImageAndText

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

@@ -219,8 +219,8 @@ begin
   else
     APresupuestos := Self.Presupuestos;
 
-  if (Application.MessageBox('¿Está seguro que desea generar el/los contrato/s de los presupuesto/s seleccionado/s?', 'Atención', MB_YESNO) = IDYES) then
-  begin
+//  if (Application.MessageBox('¿Está seguro que desea generar el/los contrato/s de los presupuesto/s seleccionado/s?', 'Atención', MB_YESNO) = IDYES) then
+//  begin
     if not AllItems then
       GenerarContratoCli(APresupuestos.ID)
     else
@@ -237,7 +237,7 @@ begin
     actRefrescar.Execute;
     if AllItems then
        ShowInfoMessage('Se han generado los contratos');
-  end
+//  end
 end;
 
 procedure TfEditorPresupuestosCliente.actGenerarContratoUpdate(Sender: TObject);

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

@@ -230,10 +230,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
         Height = 224
         ExplicitWidth = 320
         ExplicitHeight = 224
-        inherited edtlNombre: TcxDBTextEdit
-          ExplicitWidth = 224
-          Width = 224
-        end
         inherited edtNIFCIF: TcxDBTextEdit
           Left = 328
           ExplicitLeft = 328
@@ -242,10 +238,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Left = 239
           ExplicitLeft = 239
         end
-        inherited edtPersonaContacto: TcxDBTextEdit
-          ExplicitWidth = 283
-          Width = 283
-        end
         inherited edtDireccion: TcxMemo
           ExplicitWidth = 121
           Width = 121
@@ -258,10 +250,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Left = 408
           ExplicitLeft = 408
         end
-        inherited edtTelefonos: TcxTextEdit
-          ExplicitWidth = 363
-          Width = 363
-        end
       end
     end
     object memFormaPago: TcxDBMemo
@@ -396,6 +384,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
               AutoAligns = [aaVertical]
               AlignHorz = ahClient
               Caption = 'Tipo presup.:'
+              Visible = False
               Control = cbTipoPresupuesto
               ControlOptions.ShowBorder = False
             end

Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas

@@ -187,7 +187,7 @@ begin
     with Result.DataTable.DynamicWhere do
     begin
       // (ID = :ID)
-      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(ID, datInteger), dboEqual);
+      Condicion := NewBinaryExpression(NewField('V_RECIBOS_CLIENTE', fld_RecibosClienteID), NewConstant(ID, datInteger), dboEqual);
 
       if IsEmpty then
          Expression := Condicion

Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm

@@ -4,7 +4,7 @@ object fEditorFechaPago: TfEditorFechaPago
   BorderStyle = bsDialog
   Caption = 'Fecha del cobro / devoluci'#243'n'
   ClientHeight = 234
-  ClientWidth = 560
+  ClientWidth = 402
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -46,6 +46,7 @@ object fEditorFechaPago: TfEditorFechaPago
   object eFechaPago: TcxDateEdit
     Left = 121
     Top = 84
+    Properties.ImmediatePost = True
     Properties.OnEditValueChanged = eFechaPagoPropertiesEditValueChanged
     Style.LookAndFeel.Kind = lfStandard
     Style.LookAndFeel.NativeStyle = True
@@ -61,7 +62,7 @@ object fEditorFechaPago: TfEditorFechaPago
   inline frViewListaSubcuentas1: TfrViewListaSubcuentas
     Left = 0
     Top = 143
-    Width = 560
+    Width = 402
     Height = 50
     Align = alBottom
     Font.Charset = DEFAULT_CHARSET
@@ -73,11 +74,11 @@ object fEditorFechaPago: TfEditorFechaPago
     TabOrder = 1
     ReadOnly = False
     ExplicitTop = 143
-    ExplicitWidth = 560
+    ExplicitWidth = 425
     ExplicitHeight = 50
     inherited dxLayoutControl1: TdxLayoutControl
-      Width = 560
-      ExplicitWidth = 560
+      Width = 402
+      ExplicitWidth = 425
       inherited cbSubCuentas: TcxComboBox
         Left = 122
         Style.LookAndFeel.SkinName = ''
@@ -89,12 +90,13 @@ object fEditorFechaPago: TfEditorFechaPago
         Width = 376
       end
       inherited eContabilizar: TcxCheckBox
-        Left = 393
+        Left = 282
+        Enabled = False
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 393
+        ExplicitLeft = 282
         ExplicitWidth = 203
         Width = 203
       end
@@ -102,13 +104,17 @@ object fEditorFechaPago: TfEditorFechaPago
         inherited dxLayoutControl1Item1: TdxLayoutItem
           Caption = '          Caja/Banco:      '
         end
+        inherited dxLayoutControl1Item2: TdxLayoutItem
+          Enabled = False
+          Visible = False
+        end
       end
     end
   end
   object PnlComentario: TPanel
     Left = 0
     Top = 0
-    Width = 560
+    Width = 402
     Height = 45
     Align = alTop
     Alignment = taLeftJustify
@@ -117,27 +123,31 @@ object fEditorFechaPago: TfEditorFechaPago
     ParentBackground = False
     TabOrder = 2
     VerticalAlignment = taAlignTop
+    ExplicitWidth = 425
     object lbComentario: TLabel
       AlignWithMargins = True
       Left = 6
       Top = 4
-      Width = 55
-      Height = 13
+      Width = 392
+      Height = 40
       Margins.Left = 5
       Align = alClient
       Caption = 'Comentario'
       WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
     end
   end
   object Panel1: TPanel
     Left = 0
     Top = 193
-    Width = 560
+    Width = 402
     Height = 41
     Align = alBottom
     TabOrder = 3
+    ExplicitWidth = 425
     object bAceptar: TButton
-      Left = 347
+      Left = 213
       Top = 8
       Width = 75
       Height = 25
@@ -146,7 +156,7 @@ object fEditorFechaPago: TfEditorFechaPago
       TabOrder = 0
     end
     object bCancelar: TButton
-      Left = 445
+      Left = 311
       Top = 8
       Width = 75
       Height = 25

Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas

@@ -182,6 +182,10 @@ begin
     end;
   end;
 
+  // Se cancela la operación
+  if Length(AFechaPago) = 0 then
+     Exit;
+
   FController.AnadirPago(Recibo, AFechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);
 
   //Solo podremos modificar el recibo si esta pendiente o devuelto

Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm

@@ -14,7 +14,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitHeight = 509
     DesignSize = (
       925
       471)
@@ -353,6 +352,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Top = 240
       Width = 327
       Height = 41
+      Enabled = False
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -565,6 +565,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente
         end
         object dxLayoutControl1Group5: TdxLayoutGroup
           Caption = 'El recibo pertenece a la tienda'
+          Enabled = False
+          Visible = False
           object dxLayoutControl1Item18: TdxLayoutItem
             Caption = 'Tienda:'
             Control = frViewTienda1

Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm

@@ -8,8 +8,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
     Height = 317
     RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
-    ExplicitWidth = 531
-    ExplicitHeight = 259
+    ExplicitWidth = 686
+    ExplicitHeight = 317
     inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
@@ -58,7 +58,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       object cxGridViewTIENDA: TcxGridDBColumn
         Caption = 'Tienda'
         DataBinding.FieldName = 'TIENDA'
+        Visible = False
         BestFitMaxWidth = 60
+        VisibleForCustomization = False
       end
       object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
         Caption = 'Compensado'
@@ -214,22 +216,34 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     Width = 686
-    ExplicitWidth = 531
+    ExplicitWidth = 686
     inherited TBXDockablePanel1: TTBXDockablePanel
-      ExplicitWidth = 531
+      ExplicitWidth = 686
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 686
-        ExplicitWidth = 531
+        ExplicitWidth = 686
         inherited txtFiltroTodo: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 434
           Width = 434
         end
         inherited edtFechaIniFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 183
           Width = 183
         end
         inherited edtFechaFinFiltro: TcxDateEdit
           Left = 367
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 367
           ExplicitWidth = 234
           Width = 234
@@ -237,10 +251,10 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 686
-        ExplicitWidth = 531
+        ExplicitWidth = 686
         inherited tbxBotones: TTBXToolbar
           Width = 676
-          ExplicitWidth = 521
+          ExplicitWidth = 676
         end
       end
     end
@@ -248,14 +262,14 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
   inherited pnlAgrupaciones: TTBXDockablePanel
     Top = 419
     Visible = True
-    ExplicitTop = 361
-    ExplicitWidth = 531
+    ExplicitTop = 419
+    ExplicitWidth = 686
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
       Width = 686
-      ExplicitWidth = 531
+      ExplicitWidth = 686
       inherited TBXToolbar1: TTBXToolbar
         Width = 676
-        ExplicitWidth = 521
+        ExplicitWidth = 676
         object TBXSeparatorItem1: TTBXSeparatorItem
         end
         object TBXItem2: TTBXItem

Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm

@@ -4,7 +4,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
   BorderStyle = bsDialog
   Caption = 'Fecha del cobro / devoluci'#243'n'
   ClientHeight = 217
-  ClientWidth = 563
+  ClientWidth = 415
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -61,12 +61,13 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
   object Panel1: TPanel
     Left = 0
     Top = 176
-    Width = 563
+    Width = 415
     Height = 41
     Align = alBottom
     TabOrder = 1
+    ExplicitWidth = 563
     object bAceptar: TButton
-      Left = 368
+      Left = 236
       Top = 6
       Width = 75
       Height = 25
@@ -75,7 +76,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
       TabOrder = 0
     end
     object bCancelar: TButton
-      Left = 459
+      Left = 327
       Top = 6
       Width = 75
       Height = 25
@@ -87,7 +88,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
   inline frViewListaSubcuentas1: TfrViewListaSubcuentas
     Left = 0
     Top = 136
-    Width = 563
+    Width = 415
     Height = 40
     Align = alBottom
     Font.Charset = DEFAULT_CHARSET
@@ -102,7 +103,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
     ExplicitWidth = 563
     ExplicitHeight = 40
     inherited dxLayoutControl1: TdxLayoutControl
-      Width = 563
+      Width = 415
       ExplicitWidth = 563
       inherited cbSubCuentas: TcxComboBox
         Left = 128
@@ -115,12 +116,13 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
         Width = 440
       end
       inherited eContabilizar: TcxCheckBox
-        Left = 410
+        Left = 301
+        Enabled = False
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 410
+        ExplicitLeft = 301
         ExplicitWidth = 203
         Width = 203
       end
@@ -128,13 +130,17 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
         inherited dxLayoutControl1Item1: TdxLayoutItem
           Caption = '          Caja/Banco:        '
         end
+        inherited dxLayoutControl1Item2: TdxLayoutItem
+          Enabled = False
+          Visible = False
+        end
       end
     end
   end
   object PnlComentario: TPanel
     Left = 0
     Top = 0
-    Width = 563
+    Width = 415
     Height = 45
     Align = alTop
     Alignment = taLeftJustify
@@ -143,16 +149,19 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
     ParentBackground = False
     TabOrder = 3
     VerticalAlignment = taAlignTop
+    ExplicitWidth = 563
     object lbComentario: TLabel
       AlignWithMargins = True
       Left = 6
       Top = 4
-      Width = 55
-      Height = 13
+      Width = 405
+      Height = 40
       Margins.Left = 5
       Align = alClient
       Caption = 'Comentario'
       WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
     end
   end
 end

Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm

@@ -14,7 +14,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 811
     DesignSize = (
       858
       524)
@@ -351,6 +350,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Top = 267
       Width = 268
       Height = 41
+      Enabled = False
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clWindowText
       Font.Height = -11
@@ -627,6 +627,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
         end
         object dxLayoutControl1Group3: TdxLayoutGroup
           Caption = 'El recibo pertenece a la tienda'
+          Enabled = False
+          Visible = False
           object dxLayoutControl1Item17: TdxLayoutItem
             Caption = 'Tienda:'
             Control = frViewTienda1

Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm

@@ -178,23 +178,35 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
         Width = 429
         ExplicitWidth = 429
         inherited cbSubCuentas: TcxComboBox
+          Left = 80
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 80
           ExplicitWidth = 376
           Width = 376
         end
         inherited eContabilizar: TcxCheckBox
-          Left = 276
+          Left = 278
+          Enabled = False
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 276
+          ExplicitLeft = 278
           ExplicitWidth = 203
           Width = 203
         end
+        inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+          inherited dxLayoutControl1Item1: TdxLayoutItem
+            Caption = 'Caja / Banco:'
+          end
+          inherited dxLayoutControl1Item2: TdxLayoutItem
+            Enabled = False
+            Visible = False
+          end
+        end
       end
     end
     object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup

Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm

@@ -473,9 +473,8 @@ object srvRemesasProveedor: TsrvRemesasProveedor
     InsertCommandName = 'Insert_RemesasProveedor'
     DeleteCommandName = 'Delete_RemesasProveedor'
     UpdateCommandName = 'Update_RemesasProveedor'
-    RefreshDatasetName = 'RemesasProveedor_Refresh'
     ReferencedDataset = 'RemesasProveedor'
-    ProcessorOptions = [poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 248
     Top = 24

Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm

@@ -15,8 +15,6 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 485
-    ExplicitHeight = 230
     DesignSize = (
       451
       304)
@@ -180,23 +178,35 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
         Width = 407
         ExplicitWidth = 407
         inherited cbSubCuentas: TcxComboBox
+          Left = 80
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 80
           ExplicitWidth = 376
           Width = 376
         end
         inherited eContabilizar: TcxCheckBox
-          Left = 276
+          Left = 278
+          Enabled = False
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 276
+          ExplicitLeft = 278
           ExplicitWidth = 203
           Width = 203
         end
+        inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+          inherited dxLayoutControl1Item1: TdxLayoutItem
+            Caption = 'Caja / Banco:'
+          end
+          inherited dxLayoutControl1Item2: TdxLayoutItem
+            Enabled = False
+            Visible = False
+          end
+        end
       end
     end
     object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup