diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 5829136..47eb33e 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Database/RodaxSoftware.FactuGES.Database.proj b/Database/RodaxSoftware.FactuGES.Database.proj new file mode 100644 index 0000000..ec710b5 --- /dev/null +++ b/Database/RodaxSoftware.FactuGES.Database.proj @@ -0,0 +1,106 @@ + + + + + %22 + + + + sysdba + masterkey + localhost + false + $(MSBuildProjectDirectory)\Scripts + $(MSBuildProjectDirectory)\..\Tools + $(MSBuildProjectDirectory)\..\Output + $(ToolsFolder)\ISQL\isql.exe + Debug + + + + $(CodeOutputFolder)\Debug\Database + + + $(CodeOutputFolder)\Release\Database + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Database/scripts/config.xml b/Database/scripts/config.xml new file mode 100644 index 0000000..eabf3fa --- /dev/null +++ b/Database/scripts/config.xml @@ -0,0 +1,13 @@ + + + 3 + 3 + TRUE + TRUE + General + CONTADO + IVA18 + General + CONTADO + IVA18 + diff --git a/Database/scripts/factuges_sysdata.sql b/Database/scripts/factuges_sysdata.sql index e0a2337..523a036 100644 --- a/Database/scripts/factuges_sysdata.sql +++ b/Database/scripts/factuges_sysdata.sql @@ -2,15 +2,15 @@ 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, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL) VALUES (1, 'B85033132', 'Abeto Design S.L.', 'Abeto Design S.L.', 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', '91 5331800', NULL, NULL, NULL, '91 5331809', 'tienda@abetodesign.com', NULL, 'www.abetodesign.com', NULL, NULL, NULL, 'Administrador', NULL, ''); -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, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL) VALUES (2, 'BXXXXXXXX', 'Graden S.L.', 'Graden S.L.', 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 'Administrador', NULL, ''); -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, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO, REGISTRO_MERCANTIL) VALUES (3, Null, 'Abeto', 'Abeto', Null, Null, Null, Null, Null, NULL, NULL, NULL, Null, Null, NULL, Null, NULL, NULL, NULL, 'Administrador', NULL, ''); +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 (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; -INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (1, 1, 'Armarios y Puertas', 'Madrid', 'Madrid', '28003', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, '01'); -INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (2, 2, 'Cocinas y Baños', 'Madrid', 'Madrid', '28003', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, '02'); -INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (3, 3, NULL, NULL, NULL, NULL, NULL, 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, NULL, '03'); +INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (1, 1, 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', NULL, 'Armarios y Puertas', NULL, NULL, NULL, NULL, NULL, NULL, '01'); +INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (2, 2, 'Plaza San Juan de la Cruz, 8', 'Madrid', 'Madrid', '28003', NULL, 'Cocinas y Baños', NULL, NULL, NULL, NULL, NULL, NULL, '02'); +INSERT INTO EMPRESAS_TIENDAS (ID, ID_EMPRESA, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, PERSONA_CONTACTO, NOMBRE, TELEFONO, MOVIL, FAX, EMAIL, FECHA_ALTA, FECHA_MODIFICACION, CODIGO_CONTABLE) VALUES (3, 3, NULL, NULL, NULL, NULL, NULL, 'Abeto', NULL, NULL, NULL, NULL, NULL, NULL, '03'); SET GENERATOR GEN_EMPRESAS_TIENDAS_ID TO 4; COMMIT WORK; @@ -21,10 +21,50 @@ INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (4, 'INSTALADOR'); SET GENERATOR GEN_CATEGORIAS_ID TO 5; COMMIT WORK; +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (2, 'FORMA_PAGO_COCINA', '5', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (3, 'PLAZOS_ENTREGA_COCINA', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (4, 'OBSERVACIONES_COCINA', 'Queda excluido de este contrato cualquier tipo de trabajo de fontaneria, albañileria, o conexion de aparatos.', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (5, 'CONDICIONES_COCINA', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (6, 'FORMA_PAGO_ARMARIO', '6', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (7, 'PLAZOS_ENTREGA_ARMARIO', '30-35 días', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (8, 'OBSERVACIONES_ARMARIO', 'Incluye transporte e instalación.', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (9, 'CONDICIONES_ARMARIO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (10, 'FORMA_PAGO_BANO', '7', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (11, 'PLAZOS_ENTREGA_BANO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (12, 'OBSERVACIONES_BANO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (13, 'CONDICIONES_BANO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (14, 'FORMA_PAGO_ELECTRODOMESTICO', '8', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (15, 'PLAZOS_ENTREGA_ELECTRODOMESTICO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (16, 'OBSERVACIONES_ELECTRODOMESTICO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (17, 'CONDICIONES_ELECTRODOMESTICO', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (18, 'FORMA_PAGO_VARIOS', '9', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (19, 'PLAZOS_ENTREGA_VARIOS', '35 - 40 dias', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (20, 'OBSERVACIONES_VARIOS', 'Incluye transporte e instalación.', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (21, 'CONDICIONES_VARIOS', '', NULL); +INSERT INTO CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA) VALUES (22, 'RUTA_DOCUMENTOS', 'C:\Codigo\Output\Debug\Servidor\DOCUMENTOS', NULL); +SET GENERATOR GEN_CONFIGURACION_ID TO 23; +COMMIT WORK; + INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (1, 'CONTADO', 'CONTADO', NULL, NULL, NULL, NULL, NULL); INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (2, 'A30', 'A 30 DIAS', NULL, NULL, NULL, NULL, NULL); INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (3, 'A306090', 'A 30 60 90 DIAS', NULL, NULL, NULL, NULL, NULL); -SET GENERATOR GEN_FORMAS_PAGO_ID TO 4; +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (5, '30-60-10 Cocinas', '30% a la firma del contrato +60% a la entrega del material. +10% a la finalizacion de la obra.', NULL, NULL, NULL, NULL, NULL); +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (6, '40-60 Armarios', '40% a la firma del contrato. +60% a la finalizacion del montaje. +El pago se efectuara al instalador.', NULL, NULL, NULL, NULL, NULL); +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (7, '35-65 Baño', '35% a la firma del contrato +65% a la finalizacion montaje', NULL, NULL, NULL, NULL, NULL); +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (8, '30-70 Electrodomesticos', '30% a la firma de la propuesta +Resto a la entrega de los aparatos + +Nota: Estos precios son con I.V.A. incluido', NULL, NULL, NULL, NULL, NULL); +INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (9, '45-55 Varios', '45% a la firma del contrato +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; COMMIT WORK; INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (1, 1, 0, 100); @@ -32,21 +72,32 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (3, 3, 30, 33.3300018310547); INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (4, 3, 60, 33.3300018310547); INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (5, 3, 90, 33.3300018310547); -SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 6; +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (7, 5, 1, 30); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (8, 5, 20, 60); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (9, 5, 30, 10); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (10, 6, 1, 40); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (11, 6, 35, 60); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (12, 7, 1, 35); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (13, 7, 20, 65); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (14, 8, 1, 30); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (15, 8, 20, 70); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (16, 9, 1, 45); +INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (17, 9, 35, 55); +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'); 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, 0, '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 (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, 0, '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 (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, 0, '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 (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, 0, '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 (14, 1, 1, 'REF_ALBARANES_CLIENTE', 'AAL12/000001', 'Ref. Albaranes de cliente Armarios y Puertas'); @@ -85,14 +136,12 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) 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, 'IVA16', 'IVA16', 16, 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 (3, 'IVA7', 'IVA7', 7, 1); +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 (4, 'EXENTO', 'EXTRANJERO', 0, 0); SET GENERATOR GEN_TIPOS_IVA_ID TO 5; COMMIT WORK; diff --git a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas index 16fd050..9f4ccf8 100644 --- a/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas @@ -25,6 +25,7 @@ type function ToStringList(AEmpresa : IBizEmpresa) : TStringList; function DarListaTiendas(AEmpresa : IBizEmpresa): TStringList; + function DarTiendaEmpresa(AEmpresa : IBizEmpresa; const num: Integer): IBizEmpresaTienda; function DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda; function GetTiendasController : ITiendasEmpresaController; @@ -61,6 +62,7 @@ type function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual; function DarListaTiendas(AEmpresa : IBizEmpresa): TStringList; + function DarTiendaEmpresa(AEmpresa : IBizEmpresa; const num: Integer): IBizEmpresaTienda; function DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda; function DarListaFormasPago: TStringList; function DarListaTiposIVA: TStringList; @@ -182,6 +184,19 @@ begin end; end; +function TEmpresasController.DarTiendaEmpresa(AEmpresa: IBizEmpresa; const num: Integer): IBizEmpresaTienda; +//Esta función nos devuelve la tienda con numero de orden num (el orden de las tiendas será por id) +var + AListaTiendas: TStringList; +begin + Result := Nil; + AListaTiendas := DarListaTiendas(AEmpresa); + //Siempre nos dara en la lista de tiendas la opción Todas que evitamos + if (AListaTiendas.Count > 1) then + Result := FTiendasController.Buscar(StrToInt(AListaTiendas.ValueFromIndex[num+1])); + FreeAndNil(AListaTiendas); +end; + function TEmpresasController.DarTiendaUsuario(AEmpresa: IBizEmpresa; const ID_USUARIO: Integer): IBizEmpresaTienda; var AIDTienda : Integer; diff --git a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm index ee6b704..4751447 100644 --- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm +++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm @@ -87,7 +87,7 @@ inherited fEditorEmpresa: TfEditorEmpresa inherited pgPaginas: TPageControl Width = 668 Height = 423 - ExplicitTop = 109 + ActivePage = pagDatosBancarios ExplicitWidth = 668 ExplicitHeight = 423 inherited pagGeneral: TTabSheet @@ -160,95 +160,95 @@ inherited fEditorEmpresa: TfEditorEmpresa Width = 100 end inherited eCodigoPostal: TcxDBTextEdit - Left = 351 + Left = 354 Top = 270 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 351 + ExplicitLeft = 354 ExplicitTop = 270 end inherited ePaginaWeb: TcxDBTextEdit - Left = 539 + Left = 542 Top = 216 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 216 ExplicitWidth = 165 Width = 165 end inherited eMailParticular: TcxDBTextEdit - Left = 539 + Left = 542 Top = 189 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 189 ExplicitWidth = 165 Width = 165 end inherited eMailTrabajo: TcxDBTextEdit - Left = 539 + Left = 542 Top = 162 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 162 ExplicitWidth = 129 Width = 129 end inherited eTlfParticular: TcxDBTextEdit - Left = 539 + Left = 542 Top = 57 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 57 ExplicitWidth = 91 Width = 91 end inherited eTlfTrabajo: TcxDBTextEdit - Left = 539 + Left = 542 Top = 30 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 30 ExplicitWidth = 127 Width = 127 end inherited eTlfMovil: TcxDBTextEdit - Left = 539 + Left = 542 Top = 84 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 84 ExplicitWidth = 155 Width = 155 end inherited eFax: TcxDBTextEdit - Left = 539 + Left = 542 Top = 111 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 539 + ExplicitLeft = 542 ExplicitTop = 111 ExplicitWidth = 121 Width = 121 @@ -284,13 +284,13 @@ inherited fEditorEmpresa: TfEditorEmpresa Width = 76 end inherited cxDBImage1: TcxDBImage - Left = 444 + Left = 447 Top = 267 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 444 + ExplicitLeft = 447 ExplicitTop = 267 ExplicitWidth = 140 ExplicitHeight = 100 @@ -326,6 +326,8 @@ inherited fEditorEmpresa: TfEditorEmpresa ExplicitHeight = 150 inherited memObservaciones: TcxDBMemo DataBinding.DataSource = frViewEmpresa1.DADataSource + ExplicitWidth = 397 + ExplicitHeight = 31 Height = 150 Width = 521 end @@ -388,7 +390,9 @@ inherited fEditorEmpresa: TfEditorEmpresa end object pagTiendas: TTabSheet Caption = 'Tiendas' + Enabled = False ImageIndex = 2 + TabVisible = False inline frViewTiendas1: TfrViewTiendas Left = 0 Top = 0 @@ -409,7 +413,7 @@ inherited fEditorEmpresa: TfEditorEmpresa Width = 660 Height = 370 ExplicitWidth = 660 - ExplicitHeight = 400 + ExplicitHeight = 370 inherited cxGridView: TcxGridDBTableView inherited cxGridViewCODIGO_CONTABLE: TcxGridDBColumn VisibleForCustomization = False @@ -419,18 +423,6 @@ inherited fEditorEmpresa: TfEditorEmpresa inherited ToolBar1: TToolBar Width = 660 ExplicitWidth = 660 - 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 diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index 2a155d3..05c7a0a 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -267,7 +267,10 @@ begin //Nos devuelve el id de la tienda a la que pertenece el vendedor que tiene asignado //el usuario con el que ha accedido a la aplicación. //Esto funciona mientras la relación sea 1 a 1, cuando sea 1 a n (un usuario pertenece a varios vendedores deja de funcionar) - FTiendaActiva := EmpresasController.DarTiendaUsuario(EmpresaActiva, UsuarioActivo.ID); +// FTiendaActiva := EmpresasController.DarTiendaUsuario(EmpresaActiva, UsuarioActivo.ID); + + FTiendaActiva := EmpresasController.DarTiendaEmpresa(EmpresaActiva, 0); + Assert(Assigned(FTiendaActiva)); diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index ff4974b..3371ae6 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -40,7 +40,7 @@ begin LoadModule('RecibosCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl'); - LoadModule('Comisiones_plugin.bpl'); +// LoadModule('Comisiones_plugin.bpl'); {$IFDEF PEDIDOSPROVEEDOR} LoadModule('PedidosProveedor_plugin.bpl'); diff --git a/Source/FactuGES.inc b/Source/FactuGES.inc index 72603a0..61f3c7e 100644 --- a/Source/FactuGES.inc +++ b/Source/FactuGES.inc @@ -1,4 +1,4 @@ {$DEFINE MULTIEMPRESA} {DEFINE ALMACEN} {DEFINE PEDIDOSPROVEEDOR} -{$DEFINE CONTABILIDAD} \ No newline at end of file +{DEFINE CONTABILIDAD} \ No newline at end of file diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 547af96..470b504 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339..8b251f3 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm index a681b19..efb1165 100644 --- a/Source/GUIBase/uEditorGridBase.dfm +++ b/Source/GUIBase/uEditorGridBase.dfm @@ -30,7 +30,7 @@ inherited fEditorGridBase: TfEditorGridBase DockPos = 0 DragHandleStyle = dhDouble TabOrder = 1 - ExplicitWidth = 543 + ExplicitWidth = 457 inherited TBXItem29: TTBXItem Visible = False end @@ -243,6 +243,8 @@ inherited fEditorGridBase: TfEditorGridBase object actExportarExcel: TAction Category = 'Archivo' Caption = 'Exportar a fichero Excel...' + Enabled = False + Visible = False OnExecute = actExportarExcelExecute OnUpdate = actExportarExcelUpdate end diff --git a/Source/Lib/ApplicationBase.dcp b/Source/Lib/ApplicationBase.dcp index 4a6f5d9..ebd8089 100644 Binary files a/Source/Lib/ApplicationBase.dcp and b/Source/Lib/ApplicationBase.dcp differ diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp index 0bd1a3f..de05af4 100644 Binary files a/Source/Lib/Base.dcp and b/Source/Lib/Base.dcp differ diff --git a/Source/Lib/GUIBase.dcp b/Source/Lib/GUIBase.dcp index cff9e80..1ed6821 100644 Binary files a/Source/Lib/GUIBase.dcp and b/Source/Lib/GUIBase.dcp differ diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm index 05ff8da..ca863c7 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm @@ -98,7 +98,9 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos Width = 68 end inherited cxGridViewDESCUENTO: TcxGridDBColumn + Visible = False HeaderAlignmentHorz = taRightJustify + VisibleForCustomization = False Width = 29 end inherited cxGridViewIMPORTENETO: TcxGridDBColumn diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index 4880207..2a93cde 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -54,6 +54,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils, @@ -67,21 +68,30 @@ function TClientesController.Buscar(const ID: Integer): IBizContacto; begin Result := (FDataModule as IDataModuleClientes).GetItem(ID); FiltrarEmpresa(Result); + +{$IFDEF CONTABILIDAD} FiltrarEjercicio(Result); +{$ENDIF} end; function TClientesController.BuscarTodos: IBizContacto; begin Result := (FDataModule as IDataModuleClientes).GetItems; FiltrarEmpresa(Result); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} end; function TClientesController.BuscarTodosTiendaWeb: IBizCliente; begin Result := (FDataModule as IDataModuleClientes).GetItemsTiendaWeb; FiltrarEmpresa(Result); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} end; constructor TClientesController.Create; @@ -251,7 +261,11 @@ var begin AContacto := (FDataModule as IDataModuleClientes).NewItem; FiltrarEmpresa(AContacto); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} + AContacto.DataTable.Active := True; AContacto.Insert; Result := AContacto; diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index a535df8..aa984d3 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -46,6 +46,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils, @@ -59,21 +60,30 @@ function TProveedoresController.Buscar(const ID: Integer): IBizContacto; begin Result := (FDataModule as IDataModuleProveedores).GetItem(ID); FiltrarEmpresa(Result); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} end; function TProveedoresController.BuscarTodos: IBizContacto; begin Result := (FDataModule as IDataModuleProveedores).GetItems; FiltrarEmpresa(Result); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} end; function TProveedoresController.BuscarTodosTiendaWeb: IBizProveedor; begin Result := (FDataModule as IDataModuleProveedores).GetItemsTiendaWeb; FiltrarEmpresa(Result); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} end; constructor TProveedoresController.Create; @@ -212,7 +222,11 @@ var begin AContacto := (FDataModule as IDataModuleProveedores).NewItem; FiltrarEmpresa(AContacto); - FiltrarEjercicio(Result); + +{$IFDEF CONTABILIDAD} + FiltrarEjercicio(Result); +{$ENDIF} + AContacto.DataTable.Active := True; AContacto.Insert; Result := AContacto; diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index 120d9ce..a301dcb 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -26,6 +26,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses uDataModuleServer, uDAClasses, srvContabilidad_Impl, @@ -85,7 +86,7 @@ begin if not AContabilidadService.TieneCuentaAsociada(AIDCliente, dsData.FieldValues[0]) then begin - //Por cada ino de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo + //Por cada una de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo while not dsData.EOF do begin AContabilidadService.AnadirSubCuentaCliente(AIDCliente, AIDTienda, dsData.FieldValues[0], ANombre); @@ -186,13 +187,14 @@ begin Execute; end; - + {$IFDEF CONTABILIDAD} //En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) and (aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] = 0) then begin CrearCuentaContable(aChange); end; + {$ENDIF} finally ACommand := NIL; @@ -239,12 +241,14 @@ begin Execute; end; + {$IFDEF CONTABILIDAD} //En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) and (aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] = 0) then begin CrearCuentaContable(aChange); end; + {$ENDIF} finally ACommand := NIL; diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 2391692..3f2e8a2 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas @@ -26,6 +26,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses uDataModuleServer, uDAClasses, srvContabilidad_Impl, @@ -185,12 +186,15 @@ begin Execute; end; + {$IFDEF CONTABILIDAD} //En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado if (aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] = 0) and (aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] = 0) then begin CrearCuentaContable(aChange); end; + {$ENDIF} + finally ACommand := NIL; end; @@ -236,12 +240,14 @@ begin Execute; end; + {$IFDEF CONTABILIDAD} //En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) and (aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] = 0) then begin CrearCuentaContable(aChange); end; + {$ENDIF} finally ACommand := NIL; diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm index 573910b..e0a9a56 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm @@ -286,12 +286,16 @@ object PluginContactos: TPluginContactos end object actGruposCliente: TAction Caption = 'Grupos de cliente' + Enabled = False ImageIndex = 5 + Visible = False OnExecute = actGruposClienteExecute end object actGruposProveedor: TAction Caption = 'Grupos de proveedor' + Enabled = False ImageIndex = 5 + Visible = False OnExecute = actGruposProveedorExecute end object actProcedenciasCliente: TAction diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index a035001..f84744f 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -47,40 +47,40 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm index da4c39e..67181a1 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm @@ -52,7 +52,6 @@ inherited fEditorCliente: TfEditorCliente Width = 896 ExplicitWidth = 896 inherited tbxMain: TTBXToolbar - ExplicitWidth = 446 object TBXItem7: TTBXItem [7] Action = actGruposCliente DisplayMode = nbdmImageAndText @@ -71,6 +70,7 @@ inherited fEditorCliente: TfEditorCliente inherited pgPaginas: TPageControl Width = 890 Height = 514 + ActivePage = pagDatosBancarios ExplicitTop = 109 ExplicitWidth = 890 ExplicitHeight = 514 @@ -379,62 +379,44 @@ inherited fEditorCliente: TfEditorCliente end end end - inherited pagDatosBancarios: TTabSheet - ExplicitWidth = 882 - ExplicitHeight = 486 - inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios + object pagDirecciones: TTabSheet [1] + Caption = 'Direcciones' + ImageIndex = 1 + inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega + Left = 0 + Top = 0 Width = 882 Height = 486 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False ExplicitWidth = 882 ExplicitHeight = 486 - inherited dxLayoutControl1: TdxLayoutControl + inherited cxGrid: TcxGrid Width = 882 - LookAndFeel = dxLayoutOfficeLookAndFeel + Height = 461 ExplicitWidth = 882 - inherited eEntidad: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 345 - Width = 345 - end - inherited eSucursal: TcxDBTextEdit - Left = 542 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 542 - ExplicitWidth = 318 - Width = 318 - end - inherited eCuenta: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 622 - Width = 622 - end - inherited eDC: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - end - inherited eTitular: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 743 - Width = 743 + ExplicitHeight = 461 + inherited cxGridView: TcxGridDBTableView + inherited cxGridViewID: TcxGridDBColumn + SortIndex = 0 + SortOrder = soAscending + end end end + inherited ToolBar1: TToolBar + Width = 882 + ExplicitWidth = 882 + end end end - inherited pagPersonal: TTabSheet + inherited pagPersonal: TTabSheet [2] ExplicitWidth = 882 ExplicitHeight = 486 inherited frViewPersonalContacto1: TfrViewPersonalContacto @@ -466,7 +448,7 @@ inherited fEditorCliente: TfEditorCliente end end end - object pagDatosComerciales: TTabSheet + object pagDatosComerciales: TTabSheet [3] Caption = 'Datos comerciales' ImageIndex = 4 inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales @@ -591,51 +573,57 @@ inherited fEditorCliente: TfEditorCliente end end end - object pagDirecciones: TTabSheet - Caption = 'Direcciones' - ImageIndex = 1 - inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega - Left = 0 - Top = 0 + inherited pagDatosBancarios: TTabSheet [4] + ExplicitWidth = 882 + ExplicitHeight = 486 + inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios Width = 882 Height = 486 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False ExplicitWidth = 882 ExplicitHeight = 486 - inherited cxGrid: TcxGrid + inherited dxLayoutControl1: TdxLayoutControl Width = 882 - Height = 461 + LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 882 - ExplicitHeight = 491 - inherited cxGridView: TcxGridDBTableView - inherited cxGridViewID: TcxGridDBColumn - SortIndex = 0 - SortOrder = soAscending - end + inherited eEntidad: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 345 + Width = 345 end - end - inherited ToolBar1: TToolBar - Width = 882 - ExplicitWidth = 882 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 + inherited eSucursal: TcxDBTextEdit + Left = 542 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 542 + ExplicitWidth = 318 + Width = 318 end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 + inherited eCuenta: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 622 + Width = 622 end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 + inherited eDC: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 + inherited eTitular: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 743 + Width = 743 end end end @@ -664,7 +652,7 @@ inherited fEditorCliente: TfEditorCliente Width = 882 Height = 461 ExplicitWidth = 882 - ExplicitHeight = 491 + ExplicitHeight = 461 end inherited ToolBar1: TToolBar Width = 882 @@ -1286,7 +1274,9 @@ inherited fEditorCliente: TfEditorCliente object actGruposCliente: TAction Category = 'Acciones' Caption = 'Grupos de cliente' + Enabled = False ImageIndex = 21 + Visible = False OnExecute = actGruposClienteExecute end end diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.dfm b/Source/Modulos/Contactos/Views/uEditorClientes.dfm index c38db74..8aa729a 100644 --- a/Source/Modulos/Contactos/Views/uEditorClientes.dfm +++ b/Source/Modulos/Contactos/Views/uEditorClientes.dfm @@ -84,6 +84,8 @@ inherited fEditorClientes: TfEditorClientes inherited cxGrid: TcxGrid Width = 786 Height = 270 + ExplicitWidth = 786 + ExplicitHeight = 270 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -102,15 +104,27 @@ inherited fEditorClientes: TfEditorClientes Width = 786 ExplicitWidth = 786 inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 457 Width = 457 end inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 240 Width = 240 end inherited edtFechaFinFiltro: TcxDateEdit Left = 564 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 564 ExplicitWidth = 121 Width = 121 diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.pas b/Source/Modulos/Contactos/Views/uEditorClientes.pas index 36bdd6d..16d90ce 100644 --- a/Source/Modulos/Contactos/Views/uEditorClientes.pas +++ b/Source/Modulos/Contactos/Views/uEditorClientes.pas @@ -24,7 +24,7 @@ type procedure actGruposClienteExecute(Sender: TObject); protected procedure ImprimirInterno; override; - procedure PrevisualizarInterno; override; + procedure PrevisualizarInterno; override; procedure EliminarInterno; override; public constructor Create(AOwner: TComponent); override; @@ -120,6 +120,9 @@ var AClientes: IBizCliente; AllItems: Boolean; begin + inherited; +//Desactivamos la impresion de etiquetas +{ AClientes := Nil; AllItems := False; @@ -153,6 +156,7 @@ begin end; end; end; +} end; procedure TfEditorClientes.PonerTitulos(const ATitulo: string); @@ -169,6 +173,9 @@ var AClientes: IBizCliente; AllItems: Boolean; begin + inherited; +//Desactivamos la impresion de etiquetas +{ AClientes := Nil; AllItems := False; @@ -202,6 +209,7 @@ begin end; end; end; +} end; end. diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm index 357b021..b46aee5 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm @@ -10,6 +10,9 @@ inherited fEditorContactos: TfEditorContactos Caption = 'Lista de contactos' end inherited TBXDock: TTBXDock + inherited tbxMain: TTBXToolbar + ExplicitWidth = 543 + end inherited tbxFiltro: TTBXToolbar ExplicitWidth = 269 inherited tbxEditFiltro: TTBXEditItem diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index e16538a..f850e7d 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -61,7 +61,7 @@ inherited fEditorProveedor: TfEditorProveedor inherited pgPaginas: TPageControl Width = 642 Height = 459 - ActivePage = pagGeneral + ActivePage = pagDatosBancarios ExplicitTop = 109 ExplicitWidth = 642 ExplicitHeight = 459 @@ -348,62 +348,38 @@ inherited fEditorProveedor: TfEditorProveedor end end end - inherited pagDatosBancarios: TTabSheet - ExplicitWidth = 634 - ExplicitHeight = 431 - inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios + object pagDirecciones: TTabSheet [1] + Caption = 'Direcciones' + ImageIndex = 3 + inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega + Left = 0 + Top = 0 Width = 634 Height = 431 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False ExplicitWidth = 634 ExplicitHeight = 431 - inherited dxLayoutControl1: TdxLayoutControl + inherited cxGrid: TcxGrid + Width = 634 + Height = 406 + ExplicitWidth = 634 + ExplicitHeight = 406 + end + inherited ToolBar1: TToolBar Width = 634 - LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 634 - inherited eEntidad: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 114 - Width = 114 - end - inherited eSucursal: TcxDBTextEdit - Left = 323 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 323 - ExplicitWidth = 270 - Width = 270 - end - inherited eCuenta: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 242 - Width = 242 - end - inherited eDC: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - end - inherited eTitular: TcxDBTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 363 - Width = 363 - end end end end - inherited pagPersonal: TTabSheet + inherited pagPersonal: TTabSheet [2] ExplicitWidth = 634 ExplicitHeight = 431 inherited frViewPersonalContacto1: TfrViewPersonalContacto @@ -435,7 +411,7 @@ inherited fEditorProveedor: TfEditorProveedor end end end - object pagDatosComerciales: TTabSheet + object pagDatosComerciales: TTabSheet [3] Caption = 'Datos comerciales' ImageIndex = 2 inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales @@ -557,45 +533,57 @@ inherited fEditorProveedor: TfEditorProveedor end end end - object pagDirecciones: TTabSheet - Caption = 'Direcciones' - ImageIndex = 3 - inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega - Left = 0 - Top = 0 + inherited pagDatosBancarios: TTabSheet [4] + ExplicitWidth = 634 + ExplicitHeight = 431 + inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios Width = 634 Height = 431 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - ParentFont = False - TabOrder = 0 - ReadOnly = False ExplicitWidth = 634 ExplicitHeight = 431 - inherited cxGrid: TcxGrid + inherited dxLayoutControl1: TdxLayoutControl Width = 634 - Height = 406 + LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 634 - ExplicitHeight = 436 - end - inherited ToolBar1: TToolBar - Width = 634 - ExplicitWidth = 634 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 + inherited eEntidad: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 114 + Width = 114 end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 + inherited eSucursal: TcxDBTextEdit + Left = 323 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 323 + ExplicitWidth = 270 + Width = 270 end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 + inherited eCuenta: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 242 + Width = 242 end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 + inherited eDC: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end + inherited eTitular: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 363 + Width = 363 end end end diff --git a/Source/Modulos/Contactos/Views/uEditorProveedores.dfm b/Source/Modulos/Contactos/Views/uEditorProveedores.dfm index 69e5cc1..554da2a 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedores.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedores.dfm @@ -1,6 +1,5 @@ inherited fEditorProveedores: TfEditorProveedores Caption = 'fEditorProveedores' - ExplicitWidth = 551 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -41,6 +40,7 @@ inherited fEditorProveedores: TfEditorProveedores end inherited TBXDock: TTBXDock inherited tbxMain: TTBXToolbar + ExplicitWidth = 543 inherited TBXItem2: TTBXItem Images = SmallImages end @@ -80,6 +80,14 @@ inherited fEditorProveedores: TfEditorProveedores Visible = False VisibleForCustomization = False end + inherited cxGridViewTIENDA: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end + inherited cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -91,15 +99,27 @@ inherited fEditorProveedores: TfEditorProveedores Width = 543 ExplicitWidth = 543 inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 460 Width = 460 end inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 207 Width = 207 end inherited edtFechaFinFiltro: TcxDateEdit Left = 323 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 323 ExplicitWidth = 201 Width = 201 diff --git a/Source/Modulos/Contactos/Views/uEditorProveedores.pas b/Source/Modulos/Contactos/Views/uEditorProveedores.pas index c3f7309..c69520c 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedores.pas +++ b/Source/Modulos/Contactos/Views/uEditorProveedores.pas @@ -99,6 +99,9 @@ var AProveedores: IBizProveedor; AllItems: Boolean; begin + inherited; +//Desactivamos la impresion de etiquetas +{ AProveedores := Nil; AllItems := False; @@ -132,6 +135,7 @@ begin end; end; end; +} end; procedure TfEditorProveedores.PonerTitulos(const ATitulo: string); @@ -148,6 +152,9 @@ var AProveedores: IBizProveedor; AllItems: Boolean; begin + inherited; +//Desactivamos la impresion de etiquetas +{ AProveedores := Nil; AllItems := False; @@ -181,6 +188,7 @@ begin end; end; end; +} end; end. diff --git a/Source/Modulos/Contactos/Views/uViewCliente.dfm b/Source/Modulos/Contactos/Views/uViewCliente.dfm index 02b2c55..675bf22 100644 --- a/Source/Modulos/Contactos/Views/uViewCliente.dfm +++ b/Source/Modulos/Contactos/Views/uViewCliente.dfm @@ -9,18 +9,18 @@ inherited frViewCliente: TfrViewCliente Width = 646 Height = 563 ExplicitWidth = 646 - ExplicitHeight = 609 + ExplicitHeight = 563 inherited PngSpeedButton1: TPngSpeedButton - Left = 601 - ExplicitLeft = 601 + Left = 584 + ExplicitLeft = 584 end inherited PngSpeedButton2: TPngSpeedButton - Left = 601 - ExplicitLeft = 601 + Left = 584 + ExplicitLeft = 584 end inherited PngSpeedButton3: TPngSpeedButton - Left = 601 - ExplicitLeft = 601 + Left = 584 + ExplicitLeft = 584 end inherited eCalle: TcxDBTextEdit Left = 132 @@ -62,24 +62,24 @@ inherited frViewCliente: TfrViewCliente Width = 213 end inherited eCodigoPostal: TcxDBTextEdit - Left = 268 + Left = 259 Top = 247 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 9 - ExplicitLeft = 268 + ExplicitLeft = 259 ExplicitTop = 247 end inherited eTlfParticular: TcxDBTextEdit - Left = 449 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 15 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 233 Width = 233 end @@ -88,6 +88,7 @@ inherited frViewCliente: TfrViewCliente Top = 82 DataBinding.DataField = 'NOMBRE_COMERCIAL' DataBinding.DataSource = dsContacto + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow @@ -140,6 +141,7 @@ inherited frViewCliente: TfrViewCliente Top = 136 DataBinding.DataField = 'GRUPO_CLIENTE' DataBinding.DataSource = dsContacto + Enabled = False Properties.ImmediatePost = True Properties.OnInitPopup = cbGrupoClientePropertiesInitPopup Properties.OnValidate = cbGrupoClientePropertiesValidate @@ -191,6 +193,7 @@ inherited frViewCliente: TfrViewCliente Top = 109 DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataSource = dsContacto + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow @@ -239,35 +242,35 @@ inherited frViewCliente: TfrViewCliente Width = 211 end inherited eTlfTrabajo: TcxDBTextEdit - Left = 449 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 14 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 233 Width = 233 end inherited eTlfMovil: TcxDBTextEdit - Left = 449 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 16 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 233 Width = 233 end inherited eFax: TcxDBTextEdit - Left = 449 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 17 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 233 Width = 233 end @@ -282,47 +285,47 @@ inherited frViewCliente: TfrViewCliente Width = 135 end inherited eNIFCIF: TcxDBTextEdit - Left = 247 + Left = 242 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 247 + ExplicitLeft = 242 ExplicitWidth = 59 Width = 59 end inherited eMailTrabajo: TcxDBHyperLinkEdit - Left = 449 + Left = 440 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 18 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 204 Width = 204 end inherited eMailParticular: TcxDBHyperLinkEdit - Left = 449 + Left = 440 Properties.Prefix = 'mailto:' Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 19 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 204 Width = 204 end inherited ePaginaWeb: TcxDBHyperLinkEdit - Left = 449 + Left = 440 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 20 - ExplicitLeft = 449 + ExplicitLeft = 440 ExplicitWidth = 204 Width = 204 end @@ -350,11 +353,12 @@ inherited frViewCliente: TfrViewCliente Width = 256 end inherited frViewTienda1: TfrViewTienda - Left = 354 + Left = 345 Width = 270 AutoSize = True + Enabled = False TabOrder = 21 - ExplicitLeft = 354 + ExplicitLeft = 345 ExplicitWidth = 270 inherited dxLayoutControl1: TdxLayoutControl Width = 270 @@ -379,6 +383,8 @@ inherited frViewCliente: TfrViewCliente ExplicitHeight = 127 inherited memObservaciones: TcxDBMemo DataBinding.DataSource = dsContacto + ExplicitWidth = 585 + ExplicitHeight = 127 Height = 127 Width = 585 end @@ -390,11 +396,14 @@ inherited frViewCliente: TfrViewCliente inherited dxLayoutControlContactoGroup1: TdxLayoutGroup object dxLayoutControlContactoItem24: TdxLayoutItem Caption = 'Nombre comercial:' + Enabled = False + Visible = False Control = eNombreComercial ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem22: TdxLayoutItem Caption = 'C'#243'digo de proveedor:' + Enabled = False Visible = False Control = eCodigoAsignado ControlOptions.ShowBorder = False @@ -403,6 +412,8 @@ inherited frViewCliente: TfrViewCliente AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Grupo de cliente:' + Enabled = False + Visible = False Control = cbGrupoCliente ControlOptions.ShowBorder = False end @@ -436,6 +447,8 @@ inherited frViewCliente: TfrViewCliente inherited dxLayoutControlContactoGroup6: TdxLayoutGroup inherited dxLayoutControlContactoGroup100: TdxLayoutGroup Caption = 'El cliente pertenece a la tienda' + Enabled = False + Visible = False end end end diff --git a/Source/Modulos/Contactos/Views/uViewClientes.dfm b/Source/Modulos/Contactos/Views/uViewClientes.dfm index af54edc..38c3868 100644 --- a/Source/Modulos/Contactos/Views/uViewClientes.dfm +++ b/Source/Modulos/Contactos/Views/uViewClientes.dfm @@ -45,8 +45,14 @@ inherited frViewClientes: TfrViewClientes VisibleForCustomization = False Width = 22 end + inherited cxGridViewTIENDA: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [6] DataBinding.FieldName = 'NOMBRE_COMERCIAL' + Visible = False + VisibleForCustomization = False Width = 164 end object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [8] diff --git a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm index b17fcef..209de27 100644 --- a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm +++ b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm @@ -1,26 +1,22 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos - ExplicitWidth = 547 - ExplicitHeight = 411 + Height = 416 inherited Panel1: TPanel - Width = 537 - ExplicitTop = 49 - ExplicitWidth = 537 + ExplicitWidth = 424 inherited Label3: TLabel - Width = 166 + Width = 429 Caption = 'Configuraci'#243'n para clientes' ExplicitWidth = 166 end end inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel - Width = 547 LabelCaption = 'Configuraci'#243'n para contactos' - ExplicitWidth = 547 + ExplicitWidth = 434 end object Panel3: TPanel AlignWithMargins = True Left = 5 Top = 68 - Width = 537 + Width = 441 Height = 133 Margins.Left = 5 Margins.Top = 0 @@ -30,6 +26,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos BevelOuter = bvNone ParentColor = True TabOrder = 2 + ExplicitWidth = 424 object Label1: TLabel Left = 17 Top = 36 @@ -64,7 +61,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos Width = 168 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 0 end object cbRegimenIVA: TComboBox @@ -73,7 +70,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos Width = 168 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 1 end object bFormasPago: TButton @@ -100,7 +97,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos Width = 168 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 4 end end @@ -108,7 +105,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos AlignWithMargins = True Left = 5 Top = 223 - Width = 424 + Width = 441 Height = 130 Margins.Left = 5 Margins.Top = 0 @@ -118,7 +115,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos BevelOuter = bvNone ParentColor = True TabOrder = 3 - ExplicitWidth = 537 + ExplicitWidth = 424 object Label7: TLabel Left = 17 Top = 37 @@ -153,7 +150,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos Width = 168 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 0 end object cbRegimenIVAProv: TComboBox @@ -162,7 +159,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos Width = 168 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 1 end object Button1: TButton @@ -189,7 +186,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos Width = 168 Height = 21 Style = csDropDownList - ItemHeight = 0 + ItemHeight = 13 TabOrder = 4 end end @@ -197,7 +194,7 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos AlignWithMargins = True Left = 5 Top = 201 - Width = 424 + Width = 441 Height = 22 Margins.Left = 5 Margins.Top = 0 @@ -221,16 +218,15 @@ inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos ParentBackground = False ParentFont = False TabOrder = 4 - ExplicitLeft = -1 - ExplicitTop = 239 - ExplicitWidth = 537 + ExplicitWidth = 424 object Label6: TLabel Left = 6 Top = 4 - Width = 196 + Width = 429 Height = 14 Align = alTop Caption = 'Configuraci'#243'n para proveedores' + ExplicitWidth = 196 end end end diff --git a/Source/Modulos/Contactos/Views/uViewProveedor.dfm b/Source/Modulos/Contactos/Views/uViewProveedor.dfm index 428b20b..d6a0623 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedor.dfm @@ -25,6 +25,10 @@ inherited frViewProveedor: TfrViewProveedor inherited eCalle: TcxDBTextEdit Left = 138 Top = 220 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 7 ExplicitLeft = 138 ExplicitTop = 220 @@ -34,6 +38,10 @@ inherited frViewProveedor: TfrViewProveedor inherited cbProvincia: TcxDBComboBox Left = 138 Top = 247 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 8 ExplicitLeft = 138 ExplicitTop = 247 @@ -43,6 +51,10 @@ inherited frViewProveedor: TfrViewProveedor inherited cbPoblacion: TcxDBComboBox Left = 138 Top = 274 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 10 ExplicitLeft = 138 ExplicitTop = 274 @@ -52,12 +64,20 @@ inherited frViewProveedor: TfrViewProveedor inherited eCodigoPostal: TcxDBTextEdit Left = 271 Top = 247 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 9 ExplicitLeft = 271 ExplicitTop = 247 end inherited eTlfParticular: TcxDBTextEdit Left = 452 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 15 ExplicitLeft = 452 ExplicitWidth = 91 @@ -69,6 +89,7 @@ inherited frViewProveedor: TfrViewProveedor Caption = 'El proveedor est'#225' homologado' DataBinding.DataField = 'HOMOLOGADO' DataBinding.DataSource = dsContacto + Enabled = False Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 @@ -92,6 +113,7 @@ inherited frViewProveedor: TfrViewProveedor Top = 385 DataBinding.DataField = 'CERTIFICACION' DataBinding.DataSource = dsContacto + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False @@ -111,6 +133,7 @@ inherited frViewProveedor: TfrViewProveedor Top = 163 DataBinding.DataField = 'GRUPO_PROVEEDOR' DataBinding.DataSource = dsContacto + Enabled = False Properties.ImmediatePost = True Properties.OnInitPopup = cbGrupoProveedorPropertiesInitPopup Properties.OnValidate = cbGrupoProveedorPropertiesValidate @@ -154,6 +177,7 @@ inherited frViewProveedor: TfrViewProveedor Top = 136 DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataSource = dsContacto + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False @@ -170,6 +194,10 @@ inherited frViewProveedor: TfrViewProveedor end inherited eTlfTrabajo: TcxDBTextEdit Left = 452 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 14 ExplicitLeft = 452 ExplicitWidth = 127 @@ -177,6 +205,10 @@ inherited frViewProveedor: TfrViewProveedor end inherited eTlfMovil: TcxDBTextEdit Left = 452 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 16 ExplicitLeft = 452 ExplicitWidth = 155 @@ -184,6 +216,10 @@ inherited frViewProveedor: TfrViewProveedor end inherited eFax: TcxDBTextEdit Left = 452 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 17 ExplicitLeft = 452 ExplicitWidth = 121 @@ -191,12 +227,20 @@ inherited frViewProveedor: TfrViewProveedor end inherited eNombre: TcxDBTextEdit Left = 138 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 138 ExplicitWidth = 221 Width = 221 end inherited eNIFCIF: TcxDBTextEdit Left = 211 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 211 ExplicitWidth = 205 Width = 205 @@ -204,6 +248,10 @@ inherited frViewProveedor: TfrViewProveedor inherited eMailTrabajo: TcxDBHyperLinkEdit Left = 452 Properties.Prefix = 'mailto:' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 18 ExplicitLeft = 452 ExplicitWidth = 133 @@ -214,6 +262,7 @@ inherited frViewProveedor: TfrViewProveedor Top = 82 DataBinding.DataField = 'NOMBRE_COMERCIAL' DataBinding.DataSource = dsContacto + Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = clWindow @@ -232,6 +281,10 @@ inherited frViewProveedor: TfrViewProveedor inherited eMailParticular: TcxDBHyperLinkEdit Left = 452 Properties.Prefix = 'mailto:' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 19 ExplicitLeft = 452 ExplicitWidth = 133 @@ -239,6 +292,10 @@ inherited frViewProveedor: TfrViewProveedor end inherited ePaginaWeb: TcxDBHyperLinkEdit Left = 452 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 20 ExplicitLeft = 452 ExplicitWidth = 133 @@ -246,6 +303,10 @@ inherited frViewProveedor: TfrViewProveedor end inherited eReferencia: TcxDBTextEdit Left = 138 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 138 ExplicitWidth = 38 Width = 38 @@ -253,6 +314,10 @@ inherited frViewProveedor: TfrViewProveedor inherited ePersonaContacto: TcxDBTextEdit Left = 138 Top = 301 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' TabOrder = 11 ExplicitLeft = 138 ExplicitTop = 301 @@ -262,24 +327,32 @@ inherited frViewProveedor: TfrViewProveedor inherited frViewTienda1: TfrViewTienda Left = 357 Width = 451 + Enabled = False TabOrder = 21 ExplicitLeft = 357 ExplicitWidth = 451 inherited dxLayoutControl1: TdxLayoutControl Width = 451 inherited cbTienda: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 376 Width = 376 end end end inherited frViewObservaciones1: TfrViewObservaciones + Top = 442 Width = 521 Height = 228 TabOrder = 22 + ExplicitTop = 442 ExplicitWidth = 521 ExplicitHeight = 228 inherited memObservaciones: TcxDBMemo + DataBinding.DataSource = dsContacto Height = 228 Width = 521 end @@ -290,6 +363,8 @@ inherited frViewProveedor: TfrViewProveedor inherited dxLayoutControlContactoGroup1: TdxLayoutGroup object dxLayoutControlContactoItem27: TdxLayoutItem Caption = 'Nombre comercial:' + Enabled = False + Visible = False Control = eNombreComercial ControlOptions.ShowBorder = False end @@ -300,18 +375,22 @@ inherited frViewProveedor: TfrViewProveedor end object dxLayoutControlContactoItem24: TdxLayoutItem Caption = 'C'#243'digo de cliente:' + Enabled = False Visible = False Control = eCodigoAsignado ControlOptions.ShowBorder = False end object dxLayoutControlContactoItem20: TdxLayoutItem Caption = 'Grupo de proveedor' + Enabled = False + Visible = False Control = cbGrupoProveedor ControlOptions.ShowBorder = False end end object dxLayoutControlContactoGroup14: TdxLayoutGroup Caption = 'Homologaci'#243'n' + Enabled = False Visible = False object dxLayoutControlContactoItem22: TdxLayoutItem Caption = 'El proveedor est'#225' homologado' @@ -329,6 +408,8 @@ inherited frViewProveedor: TfrViewProveedor inherited dxLayoutControlContactoGroup6: TdxLayoutGroup inherited dxLayoutControlContactoGroup100: TdxLayoutGroup Caption = 'El proveedor pertenece a la tienda' + Enabled = False + Visible = False end end end diff --git a/Source/Modulos/Contactos/Views/uViewProveedores.dfm b/Source/Modulos/Contactos/Views/uViewProveedores.dfm index 8e652da..19d0af8 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedores.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedores.dfm @@ -49,15 +49,27 @@ inherited frViewProveedores: TfrViewProveedores Width = 483 ExplicitWidth = 483 inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 386 Width = 386 end inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 130 Width = 130 end inherited edtFechaFinFiltro: TcxDateEdit Left = 234 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 234 ExplicitWidth = 239 Width = 239 diff --git a/Source/Modulos/Contactos/Views/uViewProveedores.pas b/Source/Modulos/Contactos/Views/uViewProveedores.pas index ec39986..c178727 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedores.pas +++ b/Source/Modulos/Contactos/Views/uViewProveedores.pas @@ -12,7 +12,7 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxImageComboBox, - uDAInterfaces; + uDAInterfaces, uCustomView, uViewBase; type IViewProveedores = interface(IViewContactos) diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 704f847..8436ff6 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -144,7 +144,7 @@ uses uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente, uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente, - schContactosClient_Intf, uContratosClienteReportController, + schContactosClient_Intf, uContratosClienteReportController, uFormasPagoController, uBizFormasPago, uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils, uIEditorContratosClienteBeneficios, uPresupuestosClienteController, uConfiguracionController, uBizDetallesPresupuestoCliente; @@ -731,14 +731,22 @@ begin RecuperarCliente(AContrato); end; -procedure TContratosClienteController.RellenarValoresDefecto( - AContrato: IBizContratoCliente; ATipo: TEnumTiposContrato); +procedure TContratosClienteController.RellenarValoresDefecto(AContrato: IBizContratoCliente; ATipo: TEnumTiposContrato); +var + AFormasPago : IBizFormaPago; + AFormasPagoController : IFormasPagoController; begin + AFormasPagoController := TFormasPagoController.Create; + case ATipo of teCocina: begin AContrato.TIPO_CONTRATO := CTE_COCINA; - AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); + AContrato.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); + AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO); + AFormasPago.Open; + AContrato.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_C, 'MUEBLES DE COCINA ', False, AContrato.Detalles); @@ -748,6 +756,11 @@ begin teArmario: begin AContrato.TIPO_CONTRATO := CTE_ARMARIO; + AContrato.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); + AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO); + AFormasPago.Open; + AContrato.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); @@ -757,6 +770,11 @@ begin teBano: begin AContrato.TIPO_CONTRATO := CTE_BANO; + AContrato.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); + AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO); + AFormasPago.Open; + AContrato.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO)); @@ -766,6 +784,11 @@ begin teElectrodomestico: begin AContrato.TIPO_CONTRATO := CTE_ELECTRODOMESTICO; + AContrato.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); + AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO); + AFormasPago.Open; + AContrato.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); @@ -774,16 +797,23 @@ begin teVarios: begin AContrato.TIPO_CONTRATO := CTE_VARIOS; + AContrato.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); + AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO); + AFormasPago.Open; + AContrato.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + AContrato.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); AContrato.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS)); AContrato.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS)); (Self.DetallesController as IDetallesContratoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, AContrato.Detalles); end; end; + + AFormasPago:= Nil; + AFormasPagoController := Nil; end; -procedure TContratosClienteController.RecuperarCliente( - AContrato: IBizContratoCliente); +procedure TContratosClienteController.RecuperarCliente(AContrato: IBizContratoCliente); begin AContrato._Cliente := (FClienteController.Buscar(AContrato.ID_Cliente) as IBizCliente); end; diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas index eb07e12..0cd3fd7 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas @@ -345,8 +345,8 @@ begin TELEFONO := FCliente.TELEFONO_1; MOVIL := FCliente.MOVIL_1; - if FCliente.ID_FORMA_PAGO > 0 then - ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; +// if FCliente.ID_FORMA_PAGO > 0 then +// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; if FCliente.ID_TIPO_IVA > 0 then ID_TIPO_IVA := FCliente.ID_TIPO_IVA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm index 3a05409..939d4cc 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm @@ -90,7 +90,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente end object cbFormaPago: TcxDBLookupComboBox Left = 104 - Top = 109 + Top = 166 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -115,16 +115,16 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 + TabOrder = 5 Width = 122 end object bFormasPago: TButton Left = 215 - Top = 109 + Top = 166 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' - TabOrder = 5 + TabOrder = 6 OnClick = bFormasPagoClick end object cbSituacion: TcxDBImageComboBox @@ -253,7 +253,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente end object cbVendedor: TcxDBLookupComboBox Left = 104 - Top = 136 + Top = 109 DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -278,7 +278,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 6 + TabOrder = 4 Width = 27 end object cbTipoContrato: TcxDBComboBox @@ -355,42 +355,36 @@ inherited frViewContratoCliente: TfrViewContratoCliente Control = cbSituacion ControlOptions.ShowBorder = False end - object dxLayoutControl1Group5: TdxLayoutGroup - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group9: TdxLayoutGroup - ShowCaption = False - Visible = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item4: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Forma de pago:' - Control = cbFormaPago - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item5: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - ShowCaption = False - Control = bFormasPago - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Item11: TdxLayoutItem - Caption = 'Vendedor:' - Control = cbVendedor - ControlOptions.ShowBorder = False - end + object dxLayoutControl1Item11: TdxLayoutItem + Caption = 'Vendedor:' + Control = cbVendedor + ControlOptions.ShowBorder = False end end object dxLayoutControl1Group6: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Forma de pago' + object dxLayoutControl1Group9: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item4: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Forma de pago:' + Control = cbFormaPago + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item5: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = bFormasPago + ControlOptions.ShowBorder = False + end + end object dxLayoutControl1Item8: TdxLayoutItem AutoAligns = [aaHorizontal] AlignVert = avClient diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas index fd027e1..9ee5d48 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas @@ -43,7 +43,6 @@ type cbFormaPago: TcxDBLookupComboBox; dxLayoutControl1Item5: TdxLayoutItem; bFormasPago: TButton; - dxLayoutControl1Group5: TdxLayoutGroup; dsFormaPago: TDADataSource; cbSituacion: TcxDBImageComboBox; dxLayoutControl1Item10: TdxLayoutItem; diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 995c592..62d2429 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -3,6 +3,7 @@ unit uFacturasClienteController; interface + uses Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente, uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente, @@ -120,6 +121,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses Windows, uDateUtils, uNumUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf, @@ -567,7 +569,7 @@ begin FECHA_FACTURA := DateOf(Now); ID_COMISION_LIQUIDADA := 0; - //CONTABILIDAD +{$IFDEF CONTABILIDAD} ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO; ASIENTO_PUNTEADO := -1; @@ -577,6 +579,8 @@ begin IGNORAR_CONTABILIDAD := 1; ESTADO_EJERCICIO := ''; end; +{$ENDIF} + end; Result.Post; @@ -636,6 +640,7 @@ begin end; } +{$IFDEF CONTABILIDAD} if (AFactura.IGNORAR_CONTABILIDAD = 0) then begin if (AppFactuGES.EjercicioActivo.ESTADO = CTE_CERRADO) then @@ -644,6 +649,7 @@ begin if ((AFactura.Cliente.SubCuentas.ID < 1) or (AFactura.Cliente.SubCuentas.ID_EJERCICIO <> AppFactuGES.EjercicioActivo.ID)) then raise Exception.Create('Para que la factura pueda pasar la parte contable es necesario que el cliente tenga asignada una subcuenta'); end; +{$ENDIF} //En caso de ser un Abono no podra tener un importe total positivo if (AFactura.TIPO = CTE_TIPO_ABONO) then diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 8c9fb7b..d712d86 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -96,6 +96,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, @@ -265,11 +266,13 @@ begin ID_TIENDA := AppFactuGES.TiendaActiva.ID; TIENDA := AppFactuGES.TiendaActiva.NOMBRE; - //CONTABILIDAD +{$IFDEF CONTABILIDAD} if Assigned(AppFactuGES.EjercicioActivo) then IGNORAR_CONTABILIDAD := 0 else IGNORAR_CONTABILIDAD := 1; +{$ENDIF} + end; procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 3f3b7e0..c383a03 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -262,6 +262,10 @@ 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 @@ -282,97 +286,56 @@ 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 = 570 - Top = 0 - ExplicitLeft = 570 - ExplicitTop = 0 + Left = 236 + ExplicitLeft = 236 end inherited ToolButton13: TToolButton - Left = 587 - Top = 0 - ExplicitLeft = 587 - ExplicitTop = 0 + Left = 253 + ExplicitLeft = 253 end inherited ToolButton6: TToolButton - Left = 595 - Top = 0 - ExplicitLeft = 595 - ExplicitTop = 0 + Left = 261 + ExplicitLeft = 261 end inherited ToolButton7: TToolButton - Left = 629 - Top = 0 - ExplicitLeft = 629 - ExplicitTop = 0 + Left = 295 + ExplicitLeft = 295 end inherited ToolButton8: TToolButton - Left = 663 - Top = 0 - ExplicitLeft = 663 - ExplicitTop = 0 + Left = 329 + ExplicitLeft = 329 end inherited ToolButton12: TToolButton - Left = 697 - Top = 0 - ExplicitLeft = 697 - ExplicitTop = 0 + Left = 363 + ExplicitLeft = 363 end inherited ToolButton9: TToolButton - Left = 705 - Top = 0 - ExplicitLeft = 705 - ExplicitTop = 0 + Left = 371 + ExplicitLeft = 371 end inherited ToolButton10: TToolButton - Left = 739 - Top = 0 - ExplicitLeft = 739 - ExplicitTop = 0 + Left = 405 + ExplicitLeft = 405 end inherited ToolButton11: TToolButton - Left = 773 - Top = 0 - ExplicitLeft = 773 - ExplicitTop = 0 + Left = 439 + ExplicitLeft = 439 end end inherited cxGrid: TcxGrid - Top = 50 Width = 846 - Height = 290 + Height = 268 ExplicitTop = 50 ExplicitWidth = 846 ExplicitHeight = 290 end inherited TBXDock1: TTBXDock - Top = 24 Width = 846 ExplicitTop = 24 ExplicitWidth = 846 @@ -434,10 +397,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 860 TabOrder = 5 ExplicitWidth = 860 - inherited lbComentario: TLabel - Width = 850 - Height = 25 - end end inline frViewTotales1: TfrViewTotales [5] Left = 0 @@ -644,11 +603,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Visible = False end end - inherited dxLayoutControl1Group8: TdxLayoutGroup - inherited dxLayoutControl1Item7: TdxLayoutItem - Visible = True - end - end end end end diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 926b377..b6c15bc 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -105,8 +105,10 @@ begin ViewFacturaCliente := frViewFacturaCliente1; FTiposIVAController := TTiposIVAController.Create; - //CONTABILIDAD +{$IFDEF CONTABILIDAD} frViewListaSubcuentas1.TipoSubCuenta := tVentas; +{$ENDIF} + end; procedure TfEditorFacturaCliente.CustomEditorClose(Sender: TObject; diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 4b9c141..71e40a8 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -131,6 +131,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasProveedorClient_Intf, @@ -621,7 +622,7 @@ begin SITUACION := CTE_PENDIENTE; //Una factura nueva debe estar pendiente FECHA_FACTURA := DateOf(Now); - //CONTABILIDAD +{$IFDEF CONTABILIDAD} ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO; ASIENTO_PUNTEADO := -1; @@ -631,6 +632,8 @@ begin IGNORAR_CONTABILIDAD := 1; ESTADO_EJERCICIO := ''; end; +{$ENDIF} + end; Result.Post; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index 58a7c29..6daa19e 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -100,6 +100,7 @@ type end; implementation +{$INCLUDE ..\..\..\FactuGES.inc} uses SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, @@ -290,11 +291,13 @@ begin ID_TIENDA := AppFactuGES.TiendaActiva.ID; TIENDA := AppFactuGES.TiendaActiva.NOMBRE; - //CONTABILIDAD +{$IFDEF CONTABILIDAD} if Assigned(AppFactuGES.EjercicioActivo) then IGNORAR_CONTABILIDAD := 0 else IGNORAR_CONTABILIDAD := 1; +{$ENDIF} + end; procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm index 62d17e3..7ae4340 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm @@ -208,6 +208,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor ExplicitHeight = 228 inherited memObservaciones: TcxDBMemo DataBinding.DataSource = frViewFacturaProveedor1.DADataSource + ExplicitWidth = 671 + ExplicitHeight = 20 Height = 228 Width = 671 end @@ -218,10 +220,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor Left = 0 Top = 0 @@ -340,18 +338,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited ToolBar1: TToolBar Width = 732 ExplicitWidth = 732 - 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 @@ -625,6 +611,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor inherited PnlComentario: TPanel [5] Width = 746 ExplicitWidth = 746 + inherited lbComentario: TLabel + Width = 736 + Height = 25 + end end inherited EditorActionList: TActionList [9] Left = 8 diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index caf53af..dc4512b 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -102,8 +102,10 @@ begin ViewFacturaProveedor := frViewFacturaProveedor1; FTiposIVAController := TTiposIVAController.Create; - //CONTABILIDAD +{$IFDEF CONTABILIDAD} frViewListaSubcuentas1.TipoSubCuenta := tCompras; +{$ENDIF} + end; procedure TfEditorFacturaProveedor.CustomEditorClose(Sender: TObject; diff --git a/Source/Modulos/Formas de pago/Views/FormasPago_view.dproj b/Source/Modulos/Formas de pago/Views/FormasPago_view.dproj index c1baf6b..316d599 100644 --- a/Source/Modulos/Formas de pago/Views/FormasPago_view.dproj +++ b/Source/Modulos/Formas de pago/Views/FormasPago_view.dproj @@ -41,25 +41,26 @@ Delphi.Personality Package -FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0FormasPago_view.dpk +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0FormasPago_view.dpk MainSource - - - - - - - + + + + + + +
fEditorFormaPago
fEditorFormasPago
+ TfEditorFormasPago diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm index b774ef8..186aa91 100644 --- a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm +++ b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm @@ -5,8 +5,8 @@ object fEditorFormaPago: TfEditorFormaPago BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Forma de pago' - ClientHeight = 352 - ClientWidth = 404 + ClientHeight = 448 + ClientWidth = 408 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -39,7 +39,7 @@ object fEditorFormaPago: TfEditorFormaPago Shape = bsBottomLine end object Label2: TLabel - Left = 62 + Left = 32 Top = 43 Width = 55 Height = 13 @@ -47,7 +47,7 @@ object fEditorFormaPago: TfEditorFormaPago Caption = 'Referencia:' end object Label3: TLabel - Left = 58 + Left = 28 Top = 71 Width = 59 Height = 13 @@ -56,7 +56,7 @@ object fEditorFormaPago: TfEditorFormaPago end object Label11: TLabel Left = 16 - Top = 112 + Top = 209 Width = 91 Height = 13 Caption = 'Plazos del pago' @@ -69,83 +69,84 @@ object fEditorFormaPago: TfEditorFormaPago end object Bevel3: TBevel Left = 113 - Top = 112 + Top = 209 Width = 272 Height = 10 Shape = bsBottomLine end object Bevel4: TBevel Left = 8 - Top = 290 + Top = 387 Width = 388 Height = 10 Shape = bsBottomLine end object JvEnterAsTab1: TJvEnterAsTab Left = 137 - Top = 306 + Top = 403 Width = 28 Height = 28 end + object eDescripcion: TDBMemo + Left = 93 + Top = 67 + Width = 292 + Height = 136 + Color = clInfoBk + DataField = 'DESCRIPCION' + DataSource = dsFormaPago + ScrollBars = ssVertical + TabOrder = 6 + end object bAceptar: TButton Left = 234 - Top = 314 + Top = 411 Width = 75 Height = 23 Action = actAceptar - TabOrder = 5 + TabOrder = 4 end object bCancelar: TButton Left = 319 - Top = 314 + Top = 411 Width = 75 Height = 23 Action = actCancelar Cancel = True - TabOrder = 6 + TabOrder = 5 end object eReferencia: TDBEdit - Left = 123 + Left = 93 Top = 40 - Width = 118 + Width = 148 Height = 21 Color = clInfoBk DataField = 'REFERENCIA' DataSource = dsFormaPago TabOrder = 0 end - object eDescripcion: TDBEdit - Left = 123 - Top = 68 - Width = 262 - Height = 21 - Color = clInfoBk - DataField = 'DESCRIPCION' - DataSource = dsFormaPago - TabOrder = 1 - end object bAnadir: TButton Left = 290 - Top = 134 + Top = 231 Width = 95 Height = 23 Action = actAnadir - TabOrder = 3 + TabOrder = 2 end object bEliminar: TButton Left = 290 - Top = 163 + Top = 260 Width = 95 Height = 23 Action = actEliminar - TabOrder = 4 + TabOrder = 3 end object ListaFormasPago: TcxGrid Left = 32 - Top = 134 + Top = 231 Width = 252 Height = 150 - TabOrder = 2 + TabOrder = 1 LookAndFeel.Kind = lfStandard LookAndFeel.NativeStyle = True object ListaFormasPagoDBTableView1: TcxGridDBTableView @@ -185,7 +186,7 @@ object fEditorFormaPago: TfEditorFormaPago end object ActionList1: TActionList Left = 88 - Top = 300 + Top = 397 object actAnadir: TAction Caption = '&A'#241'adir' OnExecute = actAnadirExecute @@ -214,10 +215,10 @@ object fEditorFormaPago: TfEditorFormaPago end object dsFormaPago: TDADataSource Left = 48 - Top = 300 + Top = 397 end object dsPlazos: TDADataSource Left = 8 - Top = 300 + Top = 397 end end diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas index 242236f..6f1606d 100644 --- a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas +++ b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas @@ -49,7 +49,6 @@ type actCerrar: TAction; actModificar: TAction; eReferencia: TDBEdit; - eDescripcion: TDBEdit; dsPlazos: TDADataSource; Label1: TLabel; Bevel1: TBevel; @@ -66,6 +65,7 @@ type ListaFormasPago: TcxGrid; ListaFormasPagoDBTableView1NUM_DIAS: TcxGridDBColumn; ListaFormasPagoDBTableView1PORCENTAJE: TcxGridDBColumn; + eDescripcion: TDBMemo; procedure FormShow(Sender: TObject); procedure actAnadirExecute(Sender: TObject); diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dfm b/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dfm index cd908f9..b7d24a5 100644 --- a/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dfm +++ b/Source/Modulos/Formas de pago/Views/uEditorFormasPago.dfm @@ -94,15 +94,15 @@ object fEditorFormasPago: TfEditorFormasPago Expanded = False FieldName = 'REFERENCIA' Title.Caption = 'Referencia' - Width = 110 + Width = 269 Visible = True end item Expanded = False FieldName = 'DESCRIPCION' Title.Caption = 'Descripci'#243'n' - Width = 154 - Visible = True + Width = -1 + Visible = False end> end end diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index 96c94b4..a29bbf0 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -185,7 +185,7 @@ uses uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uConfiguracionController, schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente, uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente, - schContactosClient_Intf, uPresupuestosClienteReportController, + schContactosClient_Intf, uPresupuestosClienteReportController, uFormasPagoController, uBizFormasPago, uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils; { TPresupuestosClienteController } @@ -763,9 +763,7 @@ begin if not Assigned(APresupuesto) then raise Exception.Create ('Presupuesto no asignado (EsModificable)'); - //Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE); - - Result := True; + Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE) OR (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_ANULADO); end; procedure TPresupuestosClienteController.RecalcularImportes( @@ -881,12 +879,21 @@ begin end; procedure TPresupuestosClienteController.RellenarValoresDefecto(APresupuesto: IBizPresupuestoCliente; ATipo: TEnumTiposPresupuesto); +var + AFormasPago : IBizFormaPago; + AFormasPagoController : IFormasPagoController; begin + AFormasPagoController := TFormasPagoController.Create; + case ATipo of teCocina: begin APresupuesto.TIPO_PRESUPUESTO := CTE_COCINA; - APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); + APresupuesto.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA)); + AFormasPago := AFormasPagoController.Buscar(APresupuesto.ID_FORMA_PAGO); + AFormasPago.Open; + APresupuesto.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_C_VACIO, 'MUEBLES DE COCINA ', False, APresupuesto.Detalles); @@ -896,7 +903,11 @@ begin teArmario: begin APresupuesto.TIPO_PRESUPUESTO := CTE_ARMARIO; - APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); + APresupuesto.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO)); + AFormasPago := AFormasPagoController.Buscar(APresupuesto.ID_FORMA_PAGO); + AFormasPago.Open; + APresupuesto.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_AF, 'FRENTE DE ARMARIO Nº ', False, APresupuesto.Detalles); @@ -905,7 +916,11 @@ begin teBano: begin APresupuesto.TIPO_PRESUPUESTO := CTE_BANO; - APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); + APresupuesto.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_BANO)); + AFormasPago := AFormasPagoController.Buscar(APresupuesto.ID_FORMA_PAGO); + AFormasPago.Open; + APresupuesto.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_BANO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_BANO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_B, 'MUEBLE DE BAÑO Nº ', False, APresupuesto.Detalles); @@ -914,7 +929,11 @@ begin teElectrodomestico: begin APresupuesto.TIPO_PRESUPUESTO := CTE_ELECTRODOMESTICO; - APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); + APresupuesto.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_ELECTRODOMESTICO)); + AFormasPago := AFormasPagoController.Buscar(APresupuesto.ID_FORMA_PAGO); + AFormasPago.Open; + APresupuesto.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ELECTRODOMESTICO)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_ELECTRODOMESTICO)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_E, 'ELECTRODOMÉSTICOS ', False, APresupuesto.Detalles); @@ -922,12 +941,19 @@ begin teVarios: begin APresupuesto.TIPO_PRESUPUESTO := CTE_VARIOS; - APresupuesto.FORMA_PAGO.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); + APresupuesto.ID_FORMA_PAGO := StrToInt(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_FORMA_PAGO_VARIOS)); + AFormasPago := AFormasPagoController.Buscar(APresupuesto.ID_FORMA_PAGO); + AFormasPago.Open; + APresupuesto.FORMA_PAGO.Add(AFormasPago.DESCRIPCION); + APresupuesto.PLAZO_ENTREGA.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_VARIOS)); APresupuesto.OBSERVACIONES.Add(AppFactuGES.Configuracion.GetSettingAsString(teBD, CTE_OBSERVACIONES_VARIOS)); (Self.DetallesController as IDetallesPresupuestoClienteController).AnadirCapitulo(TIPO_CAPITULO_V, 'VARIOS ', False, APresupuesto.Detalles); end; end; + + AFormasPago:= Nil; + AFormasPagoController := Nil; end; procedure TPresupuestosClienteController.FiltrarEmpresa(APresupuesto: IBizPresupuestoCliente); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index e055912..d682fb5 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -260,7 +260,7 @@ procedure TBizPresupuestoCliente.IniciarValoresPresupuestoNuevo; begin ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; USUARIO := AppFactuGES.UsuarioActivo.UserName; - ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; +// ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; FECHA_PRESUPUESTO := DateOf(Date); @@ -333,8 +333,9 @@ begin DataTable.Edit; ID_CLIENTE := FCliente.ID; - if FCliente.ID_FORMA_PAGO > 0 then - ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; +// La forma de pago se establece desde el tipo de documento y aunque cambie de cliente no se cambia la formade pago +// if FCliente.ID_FORMA_PAGO > 0 then +// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; // En acana la ficha de cliente no tiene descuento aplicado por defecto // DESCUENTO := FCliente.DESCUENTO; diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj index ba38bcb..08bfaf8 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -49,30 +49,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorAsignarDescuento
 @@ -101,7 +105,7 @@ -
frViewPresupuestoCliente
+
frViewConfiguracionDocArmario
TFrame @@ -152,10 +156,6 @@
frViewTotalesPresupuesto
TFrame - - - -