Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@9 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2011-11-21 17:18:44 +00:00
parent 63a865b1bc
commit 5978cf2acc
45 changed files with 4497 additions and 3086 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

7
Database/RodaxSoftware.FactuGES.Database.proj
View File

@ -27,7 +27,7 @@
<ItemGroup> <ItemGroup>
<Sql Include="$(SqlScriptsFolder)\factuges.sql" /> <Sql Include="$(SqlScriptsFolder)\factuges.sql" />
<Sql Include="$(SqlScriptsFolder)\factuges_sysdata.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" /> <SqlOutput Include="$(OutputPath)\factuges.fdb" />
<SqlReplicador Include="$(SqlScriptsFolder)\replicador.sql" /> <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)" <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)" /> 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)" <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_plan_general_contable_acana.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" /> 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)" <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)"

35
Database/scripts/factuges_sysdata.sql
View File

@ -2,8 +2,9 @@ SET SQL DIALECT 3;
SET NAMES ISO8859_1; 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 (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); 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; SET GENERATOR GEN_EMPRESAS_ID TO 4;
COMMIT WORK; COMMIT WORK;
@ -64,7 +65,8 @@ INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL
55% a la finalizacion de la obra. 55% a la finalizacion de la obra.
FINANCIACION HASTA 12 MESES SIN INTERESES', NULL, NULL, NULL, NULL, NULL); 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; COMMIT WORK;
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (1, 1, 0, 100); 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; SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 18;
COMMIT WORK; 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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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/00002', 'Ref. remesas de cliente');
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 (41, 1, NULL, 'REF_REMESAS_PROVEEDOR', 'RPRO/00001', 'Ref. remesas de proveedor'); 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 (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'); 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; 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 (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 (2, 'IVA4', 'IVA4', 4, 0.5);
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA8', 'IVA8', 8, 1); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA8', 'IVA8', 8, 1);

1586
Database/scripts/factuges_sysdata_plan_general_contable.sql
View File

File diff suppressed because it is too large Load Diff

4102
Database/scripts/factuges_sysdata_plan_general_contable_Abeto.sql Normal file
View File

File diff suppressed because it is too large Load Diff

1282
Database/scripts/factuges_sysdata_plan_general_contable_acana.sql
View File

File diff suppressed because it is too large Load Diff

2
Source/FactuGES.inc
View File

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

56
Source/GUIBase/GUIBase.dproj
View File

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

BIN
Source/Lib/ApplicationBase.dcp
View File

Binary file not shown.

BIN
Source/Lib/Base.dcp
View File

Binary file not shown.

BIN
Source/Lib/GUIBase.dcp
View File

Binary file not shown.

10
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

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

20
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

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

2
Source/Modulos/Contabilidad/Views/uViewCuentas.pas
View File

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

5
Source/Modulos/Contabilidad/Views/uViewDiario.dfm
View File

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

2
Source/Modulos/Contabilidad/Views/uViewDiario.pas
View File

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

16
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

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

1
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

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

3
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

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

15
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

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

3
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

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

16
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -16,6 +16,7 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.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="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
<Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.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" /> <Projects Include="..\Relaciones\Presupuestos de cliente - Contratos de cliente\PreCli_ConCli_relation.dproj" />
@ -211,14 +212,23 @@
<Target Name="PresupuestosCliente_view:Make"> <Target Name="PresupuestosCliente_view:Make">
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

3
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

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

11
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
View File

@ -68,6 +68,8 @@ type
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure frViewClienteContratoButton1Click(Sender: TObject); procedure frViewClienteContratoButton1Click(Sender: TObject);
procedure frViewClienteContratoButton2Click(Sender: TObject); procedure frViewClienteContratoButton2Click(Sender: TObject);
procedure cbFormaPagoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
protected protected
FContrato : IBizContratoCliente; FContrato : IBizContratoCliente;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
@ -92,7 +94,7 @@ implementation
{ TfrViewContratoCliente } { TfrViewContratoCliente }
uses uses
uClientesController, uBizDireccionesContacto, uContratosClienteController; schContratosClienteClient_Intf, uClientesController, uBizDireccionesContacto, uContratosClienteController;
procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@ -102,6 +104,13 @@ begin
FFormasPagoController.VerTodos(FFormasPago); FFormasPagoController.VerTodos(FFormasPago);
end; 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); procedure TfrViewContratoCliente.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;

6
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

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

89
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

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

39
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

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

21
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

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

6
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

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

37
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

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

27
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

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

4
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

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

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

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

6
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -219,8 +219,8 @@ begin
else else
APresupuestos := Self.Presupuestos; 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 // 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 // begin
if not AllItems then if not AllItems then
GenerarContratoCli(APresupuestos.ID) GenerarContratoCli(APresupuestos.ID)
else else
@ -237,7 +237,7 @@ begin
actRefrescar.Execute; actRefrescar.Execute;
if AllItems then if AllItems then
ShowInfoMessage('Se han generado los contratos'); ShowInfoMessage('Se han generado los contratos');
end // end
end; end;
procedure TfEditorPresupuestosCliente.actGenerarContratoUpdate(Sender: TObject); procedure TfEditorPresupuestosCliente.actGenerarContratoUpdate(Sender: TObject);

13
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

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

2
Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
View File

@ -187,7 +187,7 @@ begin
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin
// (ID = :ID) // (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 if IsEmpty then
Expression := Condicion Expression := Condicion

36
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

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

4
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

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

4
Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm
View File

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

36
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

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

31
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
View File

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

4
Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
View File

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

16
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

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

3
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm
View File

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

18
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm
View File

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