Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso en profundidad de multiempresa para los apartados de proveedores, además de otros arreglos varios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@333 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-19 18:22:26 +00:00
parent cdb8667491
commit 5ef41c4336
37 changed files with 890 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
Database/scripts/factuges.sql
View File

@ -2391,46 +2391,46 @@ SELECT FACTURAS_CLIENTE.ID,
/* Create view: V_FACTURAS_PROVEEDOR*/ /* Create view: V_FACTURAS_PROVEEDOR*/
CREATE VIEW V_FACTURAS_PROVEEDOR( CREATE VIEW V_FACTURAS_PROVEEDOR(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
TIPO, TIPO,
REFERENCIA_PROVEEDOR, REFERENCIA_PROVEEDOR,
FECHA_FACTURA, FECHA_FACTURA,
FECHA_VENCIMIENTO, FECHA_VENCIMIENTO,
SITUACION, SITUACION,
BASE_IMPONIBLE, BASE_IMPONIBLE,
DESCUENTO, DESCUENTO,
IMPORTE_DESCUENTO, IMPORTE_DESCUENTO,
IVA, IVA,
IMPORTE_IVA, IMPORTE_IVA,
RE, RE,
IMPORTE_RE, IMPORTE_RE,
IMPORTE_TOTAL, IMPORTE_TOTAL,
OBSERVACIONES, OBSERVACIONES,
ID_PROVEEDOR, ID_PROVEEDOR,
NOMBRE_PROVEEDOR, NOMBRE_PROVEEDOR,
NOMBRE_COMERCIAL_PROVEEDOR, NOMBRE_COMERCIAL_PROVEEDOR,
NIF_CIF, NIF_CIF,
NOMBRE, NOMBRE,
CALLE, CALLE,
POBLACION, POBLACION,
PROVINCIA, PROVINCIA,
CODIGO_POSTAL, CODIGO_POSTAL,
FECHA_ALTA, FECHA_ALTA,
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_FORMA_PAGO, ID_FORMA_PAGO,
RECARGO_EQUIVALENCIA, RECARGO_EQUIVALENCIA,
ID_TIPO_IVA, ID_TIPO_IVA,
IMPORTE_NETO, IMPORTE_NETO,
IMPORTE_PORTE, IMPORTE_PORTE,
IGNORAR_CONTABILIDAD, IGNORAR_CONTABILIDAD,
ID_TIENDA, ID_TIENDA,
TIENDA, TIENDA,
ID_SUBCUENTA, ID_SUBCUENTA,
SUBCUENTA) SUBCUENTA)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
FACTURAS_PROVEEDOR.REFERENCIA, FACTURAS_PROVEEDOR.REFERENCIA,
@ -2474,11 +2474,14 @@ SELECT FACTURAS_PROVEEDOR.ID,
FROM V_FAC_PRO_SITUACION FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
INNER JOIN CONTACTOS ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR) LEFT JOIN CONTACTOS
INNER JOIN PROVEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN EMPRESAS_TIENDAS LEFT JOIN EMPRESAS_TIENDAS
ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA) ON (EMPRESAS_TIENDAS.ID = FACTURAS_PROVEEDOR.ID_TIENDA)
LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID); LEFT JOIN V_CONT_FAC_PRO_COMPRAS ON (V_CONT_FAC_PRO_COMPRAS.ID_FACTURA = FACTURAS_PROVEEDOR.ID);
/* Create view: V_COMISIONES */ /* Create view: V_COMISIONES */
CREATE VIEW V_COMISIONES( CREATE VIEW V_COMISIONES(

45
Database/scripts/factuges_sysdata.sql
View File

@ -55,17 +55,17 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION)
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (6, 1, NULL, 'REF_REMESAS_CLIENTE', 'RCLI/00009', 'Ref. remesas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (6, 1, NULL, 'REF_REMESAS_CLIENTE', 'RCLI/00009', 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (7, 1, NULL, 'REF_COMISIONES', '00001', 'Ref. liquidaciones de comision'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (7, 1, NULL, 'REF_COMISIONES', '00001', 'Ref. liquidaciones de comision');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (8, 1, 0, 'REF_FACTURAS_PROVEEDOR', 'FPAC08/000000', 'Ref. facturas de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (8, 1, 0, 'REF_FACTURAS_PROVEEDOR', 'FPAC08/000000', 'Ref. facturas de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (46, 1, 3, 'REF_PROVEEDOR', 'PAB/000000', 'Ref. proveedor Abeto'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (46, NULL, 3, 'REF_PROVEEDOR', 'PAB/000000', 'Ref. proveedor Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (11, 1, NULL, 'REF_REMESAS_PROVEEDOR', 'RPRO/00001', 'Ref. remesas de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (11, 1, NULL, 'REF_REMESAS_PROVEEDOR', 'RPRO/00001', 'Ref. remesas de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (32, 1, 1, 'REF_CLIENTE', 'CLI/007000', 'Ref. clientes Alcalá'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (32, NULL, 1, 'REF_CLIENTE', 'CLI/007000', 'Ref. clientes Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (33, 1, 2, 'REF_CLIENTE', 'VCL/007000', 'Ref. clientes Valdebernardo'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (33, NULL, 2, 'REF_CLIENTE', 'VCL/007000', 'Ref. clientes Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (15, 1, 1, 'REF_RECIBOS_CLIENTE', 'RAL/00000049', 'Ref. recibos de cliente Alcalá'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (15, 1, 1, 'REF_RECIBOS_CLIENTE', 'RAL/00000049', 'Ref. recibos de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 1, 0, 'REF_RECIBOS_PROVEEDOR', 'RPAC/00000000', 'Ref. recibos de proveedor General'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 1, 0, 'REF_RECIBOS_PROVEEDOR', 'RPAC/00000000', 'Ref. recibos de proveedor General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 1, 2, 'REF_FACTURAS_CLIENTE', 'FVA08/000008', 'Ref. facturas de cliente Valdebernardo'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 1, 2, 'REF_FACTURAS_CLIENTE', 'FVA08/000008', 'Ref. facturas de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (18, 1, 3, 'REF_FACTURAS_CLIENTE', 'FAB08/000000', 'Ref. facturas de cliente Abeto'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (18, 1, 3, 'REF_FACTURAS_CLIENTE', 'FAB08/000000', 'Ref. facturas de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (35, 1, 0, 'REF_CLIENTE', 'CAC/000000', 'Ref. cliente General'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (35, NULL, 0, 'REF_CLIENTE', 'CAC/000000', 'Ref. cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (23, 1, 1, 'REF_FACTURAS_PROVEEDOR', 'FPAL08/000109', 'Ref. facturas de proveedor Alcalá'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (23, 1, 1, 'REF_FACTURAS_PROVEEDOR', 'FPAL08/000109', 'Ref. facturas de proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (34, 1, 3, 'REF_CLIENTE', 'CAB/000000', 'Ref. cliente Abeto'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (34, NULL, 3, 'REF_CLIENTE', 'CAB/000000', 'Ref. cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (19, 1, 0, 'REF_FACTURAS_CLIENTE', 'FAC08/000000', 'Ref. facturas de cliente General'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (19, 1, 0, 'REF_FACTURAS_CLIENTE', 'FAC08/000000', 'Ref. facturas de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (24, 1, 2, 'REF_FACTURAS_PROVEEDOR', 'FPVA08/000000', 'Ref. facturas de proveedor Valdebernardo '); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (24, 1, 2, 'REF_FACTURAS_PROVEEDOR', 'FPVA08/000000', 'Ref. facturas de proveedor Valdebernardo ');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (25, 1, 3, 'REF_FACTURAS_PROVEEDOR', 'FPAB08/000000', 'Ref. facturas de proveedor Abeto'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (25, 1, 3, 'REF_FACTURAS_PROVEEDOR', 'FPAB08/000000', 'Ref. facturas de proveedor Abeto');
@ -75,13 +75,42 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION)
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (29, 1, 1, 'REF_RECIBOS_PROVEEDOR', 'RPAL/00000000', 'Ref. recibos de proveedor Alcalá'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (29, 1, 1, 'REF_RECIBOS_PROVEEDOR', 'RPAL/00000000', 'Ref. recibos de proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (30, 1, 2, 'REF_RECIBOS_PROVEEDOR', 'RPVA/00000000', 'Ref. recibos de proveedor Valdebernardo'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (30, 1, 2, 'REF_RECIBOS_PROVEEDOR', 'RPVA/00000000', 'Ref. recibos de proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (31, 1, 3, 'REF_RECIBOS_PROVEEDOR', 'RPAB/00000000', 'Ref. recibos de proveedor Valdebernardo'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (31, 1, 3, 'REF_RECIBOS_PROVEEDOR', 'RPAB/00000000', 'Ref. recibos de proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (38, 1, 1, 'REF_PROVEEDOR', 'PRO/001000', 'Ref. proveedor Alcalá'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (38, NULL, 1, 'REF_PROVEEDOR', 'PRO/001000', 'Ref. proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (37, 1, 2, 'REF_PROVEEDOR', 'VPR/001000', 'Ref. proveedor Valdebernardo'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (37, NULL, 2, 'REF_PROVEEDOR', 'VPR/001000', 'Ref. proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (36, 1, 0, 'REF_PROVEEDOR', 'PAC/000000', 'Ref. proveedor General'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (36, NULL, 0, 'REF_PROVEEDOR', 'PAC/000000', 'Ref. proveedor General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (42, 1, 3, 'REF_PRESUPUESTOS_CLIENTE', 'PRAB08/00000', 'Ref. presupuesto de cliente Abeto'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (42, 1, 3, 'REF_PRESUPUESTOS_CLIENTE', 'PRAB08/00000', 'Ref. presupuesto de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (43, 1, 1, 'REF_ALBARANES_CLIENTE', 'AAL/000000', 'Ref. albaranes de cliente Alcalá'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (43, 1, 1, 'REF_ALBARANES_CLIENTE', 'AAL/000000', 'Ref. albaranes de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (44, 1, 2, 'REF_ALBARANES_CLIENTE', 'AVA/000000', 'Ref. albaranes de cliente Valdebernardo'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (44, 1, 2, 'REF_ALBARANES_CLIENTE', 'AVA/000000', 'Ref. albaranes de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (45, 1, 3, 'REF_ALBARANES_CLIENTE', 'AAB/000000', 'Ref. albaranes de cliente Abeto'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (45, 1, 3, 'REF_ALBARANES_CLIENTE', 'AAB/000000', 'Ref. albaranes de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (46, 2, 1, 'REF_FACTURAS_CLIENTE', 'BFAL08/00000', 'Ref. facturas de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (47, 2, 2, 'REF_PRESUPUESTOS_CLIENTE', 'BPRVA08/0000', 'Ref. presupuesto de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (48, 2, 0, 'REF_PRESUPUESTOS_CLIENTE', 'BPRAC08/0000', 'Ref. presupuesto de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (49, 2, 0, 'REF_ALBARANES_CLIENTE', 'BAAC/00000', 'Ref. albaranes de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (50, 2, 1, 'REF_PRESUPUESTOS_CLIENTE', 'BPRAL08/0000', 'Ref. presupuesto de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (51, 2, NULL, 'REF_REMESAS_CLIENTE', 'RCLI/00000', 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (52, 2, NULL, 'REF_COMISIONES', 'B/00000', 'Ref. liquidaciones de comision');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (53, 2, 0, 'REF_FACTURAS_PROVEEDOR', 'BFPAC08/00000', 'Ref. facturas de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (54, 2, NULL, 'REF_REMESAS_PROVEEDOR', 'BRPRO/0000', 'Ref. remesas de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (55, 2, 1, 'REF_RECIBOS_CLIENTE', 'BRAL/0000049', 'Ref. recibos de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (56, 2, 0, 'REF_RECIBOS_PROVEEDOR', 'BRPAC/0000000', 'Ref. recibos de proveedor General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (57, 2, 2, 'REF_FACTURAS_CLIENTE', 'BFVA08/00000', 'Ref. facturas de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (58, 2, 3, 'REF_FACTURAS_CLIENTE', 'BFAB08/00000', 'Ref. facturas de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (59, 2, 1, 'REF_FACTURAS_PROVEEDOR', 'BFPAL08/00000', 'Ref. facturas de proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (60, 2, 0, 'REF_FACTURAS_CLIENTE', 'BFAC08/00000', 'Ref. facturas de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (61, 2, 2, 'REF_FACTURAS_PROVEEDOR', 'BFPVA08/00000', 'Ref. facturas de proveedor Valdebernardo ');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (62, 2, 3, 'REF_FACTURAS_PROVEEDOR', 'BFPAB08/00000', 'Ref. facturas de proveedor Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (63, 2, 0, 'REF_RECIBOS_CLIENTE', 'BRAC/0000000', 'Ref. recibos de cliente General');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (64, 2, 2, 'REF_RECIBOS_CLIENTE', 'BRVA/0000000', 'Ref. recibos de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (65, 2, 3, 'REF_RECIBOS_CLIENTE', 'BRAB/0000000', 'Ref. recibos de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (66, 2, 1, 'REF_RECIBOS_PROVEEDOR', 'BRPAL/0000000', 'Ref. recibos de proveedor Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (67, 2, 2, 'REF_RECIBOS_PROVEEDOR', 'BRPVA/0000000', 'Ref. recibos de proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (68, 2, 3, 'REF_RECIBOS_PROVEEDOR', 'BRPAB/0000000', 'Ref. recibos de proveedor Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (69, 2, 3, 'REF_PRESUPUESTOS_CLIENTE', 'BPRAB08/0000', 'Ref. presupuesto de cliente Abeto');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (70, 2, 1, 'REF_ALBARANES_CLIENTE', 'BAAL/00000', 'Ref. albaranes de cliente Alcalá');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (71, 2, 2, 'REF_ALBARANES_CLIENTE', 'BAVA/00000', 'Ref. albaranes de cliente Valdebernardo');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCION) VALUES (72, 2, 3, 'REF_ALBARANES_CLIENTE', 'BAAB/00000', 'Ref. albaranes de cliente Abeto');
COMMIT WORK; COMMIT WORK;

4
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -183,7 +183,9 @@ begin
begin begin
Aux.DataTable.Active := True; Aux.DataTable.Active := True;
if not Aux.IsEmpty then if not Aux.IsEmpty then
FEjercicioActivo := Aux; FEjercicioActivo := Aux
else
FEjercicioActivo := Nil;
end; end;
finally finally
AEjerciciosController := Nil; AEjerciciosController := Nil;

21
Source/Base/Base.dproj
View File

@ -44,6 +44,27 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

2
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -572,7 +572,7 @@ begin
ASubCuenta.DataTable.Active := False; ASubCuenta.DataTable.Active := False;
if not Assigned(AppFactuGES.EjercicioActivo) then if not Assigned(AppFactuGES.EjercicioActivo) then
raise Exception.Create('No se ha definido ningún ejercicio activo'); raise Exception.Create('No se ha definido ningún ejercicio activo');
// Filtrar los SubCuentas actuales por SubCuenta activo // Filtrar los SubCuentas actuales por SubCuenta activo
with ASubCuenta.DataTable.DynamicWhere do with ASubCuenta.DataTable.DynamicWhere do

8
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm
View File

@ -35,14 +35,18 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 376 Width = 376
end end
@ -54,6 +58,10 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas
Properties.ValueUnchecked = 0 Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 203 Width = 203
end end

74
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
View File

@ -76,8 +76,20 @@ end;
procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject); procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
cbSubCuentas.Properties.OnValidate := cbCajaBancoPropertiesValidate; if Assigned(AppFactuGES.EjercicioActivo) then
eContabilizar.Properties.OnEditValueChanged := eContabilizarPropertiesEditValueChanged; begin
cbSubCuentas.Enabled := True;
eContabilizar.Enabled := True;
cbSubCuentas.Properties.OnValidate := cbCajaBancoPropertiesValidate;
eContabilizar.Properties.OnEditValueChanged := eContabilizarPropertiesEditValueChanged;
end
else
begin
cbSubCuentas.Enabled := False;
eContabilizar.Enabled := False;
cbSubCuentas.Properties.OnValidate := Nil;
eContabilizar.Properties.OnEditValueChanged := Nil;
end;
end; end;
procedure TfrViewListaSubcuentas.eContabilizarPropertiesEditValueChanged(Sender: TObject); procedure TfrViewListaSubcuentas.eContabilizarPropertiesEditValueChanged(Sender: TObject);
@ -90,14 +102,16 @@ procedure TfrViewListaSubcuentas.ElegirSubCuenta(const AIdSubCuenta: Integer);
var var
i : integer; i : integer;
begin begin
for i := 0 to FListaSubCuentas.Count-1 do //Si no hay ejercicio activo se desactivará la funcionalidad de contabilidad
begin if Assigned(AppFactuGES.EjercicioActivo) then
if FListaSubCuentas.ValueFromIndex[i] = IntToStr(AIdSubCuenta) then for i := 0 to FListaSubCuentas.Count-1 do
begin begin
cbSubCuentas.Text := FListaSubCuentas.Names[i]; if FListaSubCuentas.ValueFromIndex[i] = IntToStr(AIdSubCuenta) then
Break; begin
end; cbSubCuentas.Text := FListaSubCuentas.Names[i];
end; Break;
end;
end;
end; end;
function TfrViewListaSubcuentas.getIDCajaBanco: Integer; function TfrViewListaSubcuentas.getIDCajaBanco: Integer;
@ -131,27 +145,31 @@ var
begin begin
FTipoSubCuenta := Value; FTipoSubCuenta := Value;
with TSubCuentasController.create do //Si no hay ejercicio activo se desactivará la funcionalidad de contabilidad
if Assigned(AppFactuGES.EjercicioActivo) then
begin begin
with TSubCuentasController.create do
FListaSubCuentas := DarLista(FTipoSubCuenta);
with cbSubCuentas.Properties.Items do
begin begin
BeginUpdate;
try
Clear;
for i := 0 to FListaSubCuentas.Count - 1 do
Add(FListaSubCuentas.Names[i]);
finally
EndUpdate;
end;
end;
Free;
end;
//Ponemos la primera por defecto FListaSubCuentas := DarLista(FTipoSubCuenta);
cbSubCuentas.ItemIndex := 0; with cbSubCuentas.Properties.Items do
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor begin
BeginUpdate;
try
Clear;
for i := 0 to FListaSubCuentas.Count - 1 do
Add(FListaSubCuentas.Names[i]);
finally
EndUpdate;
end;
end;
Free;
end;
//Ponemos la primera por defecto
cbSubCuentas.ItemIndex := 0;
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
end;
end; end;
end. end.

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

@ -658,13 +658,12 @@ begin
RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA); REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA);
{$IFDEF CONTABILIDAD} //CONTABILIDAD
IGNORAR_CONTABILIDAD := 0; if Assigned(AppFactuGES.EjercicioActivo) then
TIENE_SUBCUENTA := 0; IGNORAR_CONTABILIDAD := 0
{$ELSE} else
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0; TIENE_SUBCUENTA := 0;
{$ENDIF}
AFormaPagoController := TFormasPagoController.Create; AFormaPagoController := TFormasPagoController.Create;
try try
@ -743,15 +742,13 @@ begin
ID_CATEGORIA := CATEGORIA_PROVEEDOR; ID_CATEGORIA := CATEGORIA_PROVEEDOR;
REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA); REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Proveedores.RegimenIVA', PROVEEDOR_REGIMEN_IVA);
{$IFDEF CONTABILIDAD} //CONTABILIDAD
IGNORAR_CONTABILIDAD := 0; if Assigned(AppFactuGES.EjercicioActivo) then
TIENE_SUBCUENTA := 0; IGNORAR_CONTABILIDAD := 0
ES_ACREEDOR := 0; else
{$ELSE}
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0; TIENE_SUBCUENTA := 0;
ES_ACREEDOR := 0; ES_ACREEDOR := 0;
{$ENDIF}
AFormaPagoController := TFormasPagoController.Create; AFormaPagoController := TFormasPagoController.Create;
try try

4
Source/Modulos/Contactos/Model/uBizContactosServer.pas
View File

@ -241,7 +241,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA) Result := AReferenciasService.DarNuevaReferencia(ATipo, -1, ID_TIENDA)
end; end;
function TBizContactosServer._IncrementarReferenciaInterna( function TBizContactosServer._IncrementarReferenciaInterna(
@ -255,7 +255,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA) Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, -1, ID_TIENDA)
end; end;
initialization initialization

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

@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 890 Width = 890
Height = 544 Height = 544
ActivePage = pagDatosComerciales ActivePage = pagContabilidad
ExplicitWidth = 890 ExplicitWidth = 890
ExplicitHeight = 544 ExplicitHeight = 544
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -113,18 +113,30 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 243 Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 270 Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 336 ExplicitWidth = 336
Width = 336 Width = 336
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 297 Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
@ -132,11 +144,19 @@ inherited fEditorCliente: TfEditorCliente
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 504 Left = 504
Top = 270 Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 504 ExplicitLeft = 504
ExplicitTop = 270 ExplicitTop = 270
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 426 Top = 426
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 426 ExplicitTop = 426
ExplicitWidth = 838 ExplicitWidth = 838
ExplicitHeight = 74 ExplicitHeight = 74
@ -145,36 +165,60 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eNombreComercial: TcxDBTextEdit inherited eNombreComercial: TcxDBTextEdit
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 348 Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 538 ExplicitWidth = 538
Width = 538 Width = 538
end end
inherited cbGrupoCliente: TcxDBComboBox inherited cbGrupoCliente: TcxDBComboBox
Top = 138 Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Top = 375 Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375 ExplicitTop = 375
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
end end
inherited cbProcedenciaCliente: TcxDBComboBox inherited cbProcedenciaCliente: TcxDBComboBox
Top = 165 Top = 165
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
@ -182,6 +226,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 683 Left = 683
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 177 ExplicitWidth = 177
@ -190,6 +238,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 683 Left = 683
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 177 ExplicitWidth = 177
@ -198,6 +250,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 683 Left = 683
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 177 ExplicitWidth = 177
@ -206,6 +262,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 683 Left = 683
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 177 ExplicitWidth = 177
@ -213,6 +273,10 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
@ -220,6 +284,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 289 Left = 289
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 289 ExplicitLeft = 289
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 271 ExplicitWidth = 271
@ -229,6 +297,10 @@ inherited fEditorCliente: TfEditorCliente
Left = 683 Left = 683
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 148 ExplicitWidth = 148
@ -238,6 +310,10 @@ inherited fEditorCliente: TfEditorCliente
Left = 683 Left = 683
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 148 ExplicitWidth = 148
@ -246,6 +322,10 @@ inherited fEditorCliente: TfEditorCliente
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 683 Left = 683
Top = 217 Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 683 ExplicitLeft = 683
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
@ -253,12 +333,20 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 104 ExplicitWidth = 104
Width = 104 Width = 104
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 216 Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 428 ExplicitWidth = 428
Width = 428 Width = 428
@ -270,6 +358,10 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 270 ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 229 ExplicitWidth = 229
Width = 229 Width = 229
end end
@ -295,20 +387,42 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882 ExplicitWidth = 882
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 345 ExplicitWidth = 345
Width = 345 Width = 345
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 542 Left = 542
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 542 ExplicitLeft = 542
ExplicitWidth = 318 ExplicitWidth = 318
Width = 318 Width = 318
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 622 ExplicitWidth = 622
Width = 622 Width = 622
end end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 743 ExplicitWidth = 743
Width = 743 Width = 743
end end
@ -354,6 +468,10 @@ inherited fEditorCliente: TfEditorCliente
inherited eDiasVencimiento: TcxDBSpinEdit inherited eDiasVencimiento: TcxDBSpinEdit
Left = 696 Left = 696
Top = 62 Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 696 ExplicitLeft = 696
ExplicitTop = 62 ExplicitTop = 62
ExplicitWidth = 160 ExplicitWidth = 160
@ -361,18 +479,30 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 427 ExplicitWidth = 427
Width = 427 Width = 427
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 289 ExplicitWidth = 289
Width = 289 Width = 289
@ -385,6 +515,10 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 289 ExplicitWidth = 289
Width = 289 Width = 289
@ -439,18 +573,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 882 Width = 882
ExplicitWidth = 882 ExplicitWidth = 882
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -527,6 +649,10 @@ inherited fEditorCliente: TfEditorCliente
882 882
516) 516)
inherited eRefSubCuenta: TcxDBTextEdit inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 441 ExplicitWidth = 441
Width = 441 Width = 441
end end
@ -535,6 +661,10 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 540 ExplicitLeft = 540
end end
inherited eSubCuenta: TcxDBTextEdit inherited eSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 779 ExplicitWidth = 779
Width = 779 Width = 779
end end
@ -548,9 +678,16 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited cbIgnorarContabilidad: TcxDBCheckBox inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewCliente1.dsContacto DataBinding.DataSource = frViewCliente1.dsContacto
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 862 ExplicitWidth = 862
Width = 862 Width = 862
end end
inherited rdTipoSubcuenta: TDBRadioGroup
Visible = False
end
end end
end end
end end

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

@ -86,7 +86,6 @@ procedure TfEditorCliente.FormShow(Sender: TObject);
begin begin
inherited; inherited;
pgPaginas.ActivePageIndex := 0; pgPaginas.ActivePageIndex := 0;
end; end;
procedure TfEditorCliente.GuardarInterno; procedure TfEditorCliente.GuardarInterno;

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

@ -55,6 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 642 Width = 642
Height = 489 Height = 489
ActivePage = PagContabilidad
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 489 ExplicitHeight = 489
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -102,18 +103,30 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 243 Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 270 Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 175 ExplicitWidth = 175
Width = 175 Width = 175
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 297 Top = 297
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 267 ExplicitWidth = 267
Width = 267 Width = 267
@ -121,11 +134,19 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 310 Left = 310
Top = 270 Top = 270
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 310 ExplicitLeft = 310
ExplicitTop = 270 ExplicitTop = 270
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 426 Top = 426
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 426 ExplicitTop = 426
ExplicitWidth = 580 ExplicitWidth = 580
ExplicitHeight = 56 ExplicitHeight = 56
@ -134,30 +155,50 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cxDBCheckBox2: TcxDBCheckBox inherited cxDBCheckBox2: TcxDBCheckBox
Top = 348 Top = 348
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 326 ExplicitWidth = 326
Width = 326 Width = 326
end end
inherited eCertificaciones: TcxDBTextEdit inherited eCertificaciones: TcxDBTextEdit
Top = 375 Top = 375
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 375 ExplicitTop = 375
ExplicitWidth = 227 ExplicitWidth = 227
Width = 227 Width = 227
end end
inherited cbGrupoProveedor: TcxDBComboBox inherited cbGrupoProveedor: TcxDBComboBox
Top = 165 Top = 165
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165 ExplicitTop = 165
ExplicitWidth = 227 ExplicitWidth = 227
Width = 227 Width = 227
end end
inherited eDescripcionProveedor: TcxDBTextEdit inherited eDescripcionProveedor: TcxDBTextEdit
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
end end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 138 Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 221 ExplicitWidth = 221
Width = 221 Width = 221
@ -165,6 +206,10 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 489 Left = 489
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
@ -173,6 +218,10 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 489 Left = 489
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
@ -181,14 +230,32 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 489 Left = 489
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eNombreComercial: TcxDBTextEdit
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 192
Width = 192
end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 489 Left = 489
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
@ -196,6 +263,10 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
@ -203,21 +274,23 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 216 Left = 216
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 216 ExplicitLeft = 216
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 254 ExplicitWidth = 254
Width = 254 Width = 254
end end
inherited eNombreComercial: TcxDBTextEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 192
Width = 192
end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 489 Left = 489
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
@ -227,6 +300,10 @@ inherited fEditorProveedor: TfEditorProveedor
Left = 489 Left = 489
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
@ -235,6 +312,10 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 489 Left = 489
Top = 217 Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 489 ExplicitLeft = 489
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
@ -242,12 +323,20 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 100 ExplicitWidth = 100
Width = 100 Width = 100
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 216 Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
@ -263,6 +352,10 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 290 Width = 290
ExplicitWidth = 290 ExplicitWidth = 290
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 250 ExplicitWidth = 250
Width = 250 Width = 250
end end
@ -284,20 +377,42 @@ inherited fEditorProveedor: TfEditorProveedor
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 634 ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 323 Left = 323
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 323 ExplicitLeft = 323
ExplicitWidth = 270 ExplicitWidth = 270
Width = 270 Width = 270
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 242 ExplicitWidth = 242
Width = 242 Width = 242
end end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 363 ExplicitWidth = 363
Width = 363 Width = 363
end end
@ -337,12 +452,20 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -355,6 +478,10 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -368,6 +495,10 @@ inherited fEditorProveedor: TfEditorProveedor
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Left = 456 Left = 456
Top = 62 Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 456 ExplicitLeft = 456
ExplicitTop = 62 ExplicitTop = 62
ExplicitWidth = 73 ExplicitWidth = 73
@ -404,18 +535,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 634 Width = 634
ExplicitWidth = 634 ExplicitWidth = 634
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -445,6 +564,10 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 634 ExplicitWidth = 634
ExplicitHeight = 461 ExplicitHeight = 461
inherited eRefSubCuenta: TcxDBTextEdit inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 346 ExplicitWidth = 346
Width = 346 Width = 346
end end
@ -453,6 +576,10 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitLeft = 292 ExplicitLeft = 292
end end
inherited eSubCuenta: TcxDBTextEdit inherited eSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 265 ExplicitWidth = 265
Width = 265 Width = 265
end end
@ -466,29 +593,19 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cbIgnorarContabilidad: TcxDBCheckBox inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewProveedor1.dsContacto DataBinding.DataSource = frViewProveedor1.dsContacto
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 300 ExplicitWidth = 300
Width = 300 Width = 300
end end
inherited rdTipoSubcuenta: TDBRadioGroup
DataField = 'ES_ACREEDOR'
DataSource = dsDataTable
end
end end
end end
object rdTipoSubcuenta: TDBRadioGroup
Left = 93
Top = 111
Width = 212
Height = 58
Caption = 'Tipo subcuenta'
Columns = 2
DataField = 'ES_ACREEDOR'
DataSource = dsDataTable
Items.Strings = (
'Proveedor'
'Acreedor')
ParentBackground = True
TabOrder = 1
Values.Strings = (
'0'
'1')
end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

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

@ -26,7 +26,6 @@ type
actGruposProveedor: TAction; actGruposProveedor: TAction;
PagContabilidad: TTabSheet; PagContabilidad: TTabSheet;
frViewSubCuentaContacto1: TfrViewSubCuentaContacto; frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
rdTipoSubcuenta: TDBRadioGroup;
procedure actGruposProveedorExecute(Sender: TObject); procedure actGruposProveedorExecute(Sender: TObject);
protected protected
procedure GuardarInterno; override; procedure GuardarInterno; override;
@ -90,7 +89,7 @@ begin
(Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False); (Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False);
(Contacto as IBizProveedor).Edit; (Contacto as IBizProveedor).Edit;
(Contacto as IBizProveedor).ES_ACREEDOR := StrToInt(rdTipoSubcuenta.Value); (Contacto as IBizProveedor).ES_ACREEDOR := StrToInt(frViewSubCuentaContacto1.rdTipoSubcuenta.Value);
//Evitamos que cada vez que se añada un proveedor te pregunta por defecto se crea y punto. //Evitamos que cada vez que se añada un proveedor te pregunta por defecto se crea y punto.
//Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente //Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente
@ -128,7 +127,7 @@ begin
frViewSubCuentaContacto1.Contacto := Contacto; frViewSubCuentaContacto1.Contacto := Contacto;
if Contacto.EsNuevo then if Contacto.EsNuevo then
rdTipoSubcuenta.ItemIndex := 0; frViewSubCuentaContacto1.rdTipoSubcuenta.ItemIndex := 0;
end end
else else
begin begin

39
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
View File

@ -5,6 +5,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
AutoSize = True AutoSize = True
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
object layoutApunte: TdxLayoutControl object layoutApunte: TdxLayoutControl
@ -17,8 +18,6 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 577
ExplicitHeight = 143
DesignSize = ( DesignSize = (
451 451
304) 304)
@ -36,9 +35,13 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 346 Width = 346
end end
@ -100,9 +103,13 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 265 Width = 265
end end
@ -174,15 +181,36 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 300 Width = 300
end end
object rdTipoSubcuenta: TDBRadioGroup
Left = 10
Top = 95
Width = 212
Height = 58
Caption = 'Tipo subcuenta'
Columns = 2
DataSource = DADataSource
Items.Strings = (
'Proveedor'
'Acreedor')
ParentBackground = True
TabOrder = 6
Values.Strings = (
'0'
'1')
end
object layoutApunteGroup_Root: TdxLayoutGroup object layoutApunteGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -237,6 +265,13 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Control = eSubCuenta Control = eSubCuenta
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object layoutApunteItem7: TdxLayoutItem
AutoAligns = [aaVertical]
ShowCaption = False
Control = rdTipoSubcuenta
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end end
end end
end end

39
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas
View File

@ -43,6 +43,8 @@ type
cbIgnorarContabilidad: TcxDBCheckBox; cbIgnorarContabilidad: TcxDBCheckBox;
layoutApunteGroup2: TdxLayoutGroup; layoutApunteGroup2: TdxLayoutGroup;
SmallImages: TPngImageList; SmallImages: TPngImageList;
layoutApunteItem7: TdxLayoutItem;
rdTipoSubcuenta: TDBRadioGroup;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirSubCuentaExecute(Sender: TObject); procedure actElegirSubCuentaExecute(Sender: TObject);
@ -52,12 +54,13 @@ type
procedure actElegirSubCuentaUpdate(Sender: TObject); procedure actElegirSubCuentaUpdate(Sender: TObject);
procedure actAnadirSubcuentaUpdate(Sender: TObject); procedure actAnadirSubcuentaUpdate(Sender: TObject);
procedure actVerSubcuentaUpdate(Sender: TObject); procedure actVerSubcuentaUpdate(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
protected protected
FController : ISubcuentasController; FController : ISubcuentasController;
FContacto: IBizContacto; FContacto: IBizContacto;
function GetContacto: IBizContacto; function GetContacto: IBizContacto;
procedure SetContacto(const Value: IBizContacto); procedure SetContacto(const Value: IBizContacto);
public public
property Contacto: IBizContacto read GetContacto write SetContacto; property Contacto: IBizContacto read GetContacto write SetContacto;
end; end;
@ -65,6 +68,7 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uFactuGes_App;
{ TfrViewSubCuenta } { TfrViewSubCuenta }
@ -153,18 +157,37 @@ begin
inherited; inherited;
end; end;
procedure TfrViewSubCuentaContacto.CustomViewShow(Sender: TObject);
begin
inherited;
//Solo se activará la vista de contabilidad si existe un ejercicio activo
if Assigned(AppFactuGES.EjercicioActivo) then
begin
layoutApunte.Enabled := True;
actLista.State := asNormal;
cbIgnorarContabilidad.Enabled := True;
BitBtn1.Enabled := True;
BitBtn2.Enabled := True;
BitBtn3.Enabled := True;
rdTipoSubcuenta.Enabled := True;
end
else
begin
layoutApunte.Enabled := False;
actLista.State := asSuspended;
cbIgnorarContabilidad.Enabled := False;
BitBtn1.Enabled := False;
BitBtn2.Enabled := False;
BitBtn3.Enabled := False;
rdTipoSubcuenta.Enabled := False;
end;
end;
function TfrViewSubCuentaContacto.GetContacto: IBizContacto; function TfrViewSubCuentaContacto.GetContacto: IBizContacto;
begin begin
Result := FContacto; Result := FContacto;
end; end;
{
procedure TfrViewApunte.SetController(const Value: IApuntesController);
begin
FController := Value;
end;
}
procedure TfrViewSubCuentaContacto.SetContacto(const Value: IBizContacto); procedure TfrViewSubCuentaContacto.SetContacto(const Value: IBizContacto);
begin begin
FContacto := Value; FContacto := Value;

3
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -147,11 +147,13 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Name = 'NOMBRE_PROVEEDOR' Name = 'NOMBRE_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
end end
item item
Name = 'NOMBRE_COMERCIAL_PROVEEDOR' Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
@ -165,6 +167,7 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datString DataType = datString
Size = 100 Size = 100
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_NOMBRE' DictionaryEntry = 'FacturasProveedor_NOMBRE'
end end
item item

14
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schFacturasProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedor = '{C1A41E2D-D6D0-4C5E-81A9-721D4AFFE1F4}'; RID_FacturasProveedor = '{0EF26853-CA11-423C-A717-4B46C60A1D1B}';
RID_FacturasProveedor_Detalles = '{30413551-703B-40FA-8212-2B1312AF4F45}'; RID_FacturasProveedor_Detalles = '{55ADC035-4592-4CDA-968B-F19217917CD1}';
{ Data table names } { Data table names }
nme_FacturasProveedor = 'FacturasProveedor'; nme_FacturasProveedor = 'FacturasProveedor';
@ -133,7 +133,7 @@ const
type type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{4BDA0973-DD80-4CEF-AEA6-34D91B8A485F}'] ['{83594315-B925-4468-8505-380368A507A6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -374,7 +374,7 @@ type
end; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor) TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -624,7 +624,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{A98F227B-0E99-4F1B-9D14-57E3B766C981}'] ['{D0DDC85A-B7D6-4471-8F74-08884C18C78C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -716,7 +716,7 @@ type
end; end;
{ TFacturasProveedor_DetallesDataTableRules } { TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles) TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

8
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_FacturasProveedorDelta = '{FC1B803A-C284-40C6-B1DB-9CBB0EFFA393}'; RID_FacturasProveedorDelta = '{0F97D038-E9E1-454B-9E40-B4E22FA5BDDE}';
RID_FacturasProveedor_DetallesDelta = '{6277ABDB-ACDE-4763-AAE1-E74B4A1BA48E}'; RID_FacturasProveedor_DetallesDelta = '{2DA1017B-00B9-4125-B47A-1D65D934DFE7}';
type type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{FC1B803A-C284-40C6-B1DB-9CBB0EFFA393}'] ['{0F97D038-E9E1-454B-9E40-B4E22FA5BDDE}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -506,7 +506,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{6277ABDB-ACDE-4763-AAE1-E74B4A1BA48E}'] ['{2DA1017B-00B9-4125-B47A-1D65D934DFE7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;

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

@ -266,7 +266,12 @@ begin
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
ID_TIENDA := AppFactuGES.TiendaActiva.ID; ID_TIENDA := AppFactuGES.TiendaActiva.ID;
TIENDA := AppFactuGES.TiendaActiva.NOMBRE; TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
IGNORAR_CONTABILIDAD := 0;
//CONTABILIDAD
if Assigned(AppFactuGES.EjercicioActivo) then
IGNORAR_CONTABILIDAD := 0
else
IGNORAR_CONTABILIDAD := 1;
end; end;
procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField); procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField);

6
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

@ -282,11 +282,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'NOMBRE_PROVEEDOR' Name = 'NOMBRE_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
end end
item item
Name = 'NOMBRE_COMERCIAL_PROVEEDOR' Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
@ -298,6 +300,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
ServerAutoRefresh = True
DictionaryEntry = 'FacturasProveedor_NOMBRE' DictionaryEntry = 'FacturasProveedor_NOMBRE'
end end
item item
@ -1275,6 +1278,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datString DataType = datString
Size = 100 Size = 100
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
ServerAutoRefresh = True
end end
item item
Name = 'FacturasProveedor_CALLE' Name = 'FacturasProveedor_CALLE'
@ -1472,7 +1476,7 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DeleteCommandName = 'Delete_FacturasProveedor' DeleteCommandName = 'Delete_FacturasProveedor'
UpdateCommandName = 'Update_FacturasProveedor' UpdateCommandName = 'Update_FacturasProveedor'
ReferencedDataset = 'FacturasProveedor' ReferencedDataset = 'FacturasProveedor'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 280 Left = 280
Top = 16 Top = 16

BIN
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.res
View File

Binary file not shown.

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

@ -71,6 +71,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 740 Width = 740
Height = 342 Height = 342
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
@ -106,18 +107,36 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
732 732
314) 314)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
end end
inherited edtFecha: TcxDBDateEdit inherited edtFecha: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 671 ExplicitWidth = 671
ExplicitHeight = 170
Height = 170
Width = 671 Width = 671
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 53 ExplicitWidth = 53
Width = 53 Width = 53
end end
@ -126,6 +145,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 183 ExplicitLeft = 183
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
end end
@ -134,13 +157,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 293 ExplicitWidth = 293
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 293 Width = 293
ExplicitWidth = 293
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 232 ExplicitWidth = 232
Width = 232 Width = 232
end end
end end
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
end end
@ -158,31 +190,55 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141 ExplicitWidth = 141
Width = 141 Width = 141
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 258 Left = 258
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 258 ExplicitLeft = 258
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -190,6 +246,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitLeft = 142 ExplicitLeft = 142
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 259 ExplicitWidth = 259
Width = 259 Width = 259
end end
@ -317,12 +377,20 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 732 ExplicitWidth = 732
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Left = 92 Left = 92
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitWidth = 407 ExplicitWidth = 407
Width = 407 Width = 407
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 505 Left = 505
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 505 ExplicitLeft = 505
ExplicitWidth = 217 ExplicitWidth = 217
Width = 217 Width = 217
@ -390,7 +458,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Top = 131 Top = 131
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 207 ExplicitWidth = 207
Width = 207 Width = 207
@ -398,7 +470,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 581 Left = 581
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581 ExplicitLeft = 581
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 143 ExplicitWidth = 143
@ -407,7 +483,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 511 Left = 511
Top = 131 Top = 131
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 511 ExplicitLeft = 511
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 213 ExplicitWidth = 213
@ -416,20 +496,32 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Top = 131 Top = 131
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 510 Left = 510
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 510 ExplicitLeft = 510
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 510 Left = 510
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 510 ExplicitLeft = 510
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 214 ExplicitWidth = 214
@ -439,14 +531,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 510 Left = 510
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 510 ExplicitLeft = 510
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 581 Left = 581
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 581 ExplicitLeft = 581
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 143 ExplicitWidth = 143
@ -454,7 +554,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 278 ExplicitWidth = 278
Width = 278 Width = 278
@ -463,7 +567,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Top = 158 Top = 158
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
OnEditing = frViewTotales1ePorteEditing OnEditing = frViewTotales1ePorteEditing
ExplicitTop = 158 ExplicitTop = 158
ExplicitWidth = 278 ExplicitWidth = 278
@ -473,6 +581,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Top = 57 Top = 57
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk Style.Color = clInfoBk
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 140 ExplicitWidth = 140
Width = 140 Width = 140
@ -487,6 +599,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 84 Top = 84
Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 278 ExplicitWidth = 278
Width = 278 Width = 278

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -433,8 +433,8 @@ begin
end; end;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD; frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA); frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
{$ENDIF} {$ENDIF}
end end

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

@ -78,6 +78,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Caption = 'Proveedor' Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE_PROVEEDOR' DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
end end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
Caption = 'Nombre comercial'
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
DataBinding.FieldName = 'NIF_CIF' DataBinding.FieldName = 'NIF_CIF'
Visible = False Visible = False
@ -149,9 +153,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False Visible = False
end end
object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_COMERCIAL'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'
@ -175,15 +176,27 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 531 Width = 531
ExplicitWidth = 531 ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 434 ExplicitWidth = 434
Width = 434 Width = 434
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 130 ExplicitWidth = 130
Width = 130 Width = 130
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 234 Left = 234
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 234 ExplicitLeft = 234
ExplicitWidth = 287 ExplicitWidth = 287
Width = 287 Width = 287

3
Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
View File

@ -371,6 +371,7 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 9 Size = 9
ServerAutoRefresh = True
DictionaryEntry = 'RecibosProveedor_SITUACION' DictionaryEntry = 'RecibosProveedor_SITUACION'
end end
item item
@ -453,6 +454,7 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
Alignment = taRightJustify Alignment = taRightJustify
ServerAutoRefresh = True
DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL' DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
end end
item item
@ -471,6 +473,7 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR' DisplayLabel = 'RecibosProveedor_NOMBRE_PROVEEDOR'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
end end
item item

20
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schRecibosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProv = '{E2472472-0602-480F-B0B3-4A244220F39B}'; RID_RecibosCompensadosProv = '{A4D4F8FA-E771-4944-8F36-16B6A52DF602}';
RID_RecibosProveedor = '{F9A79E58-48A5-498C-879C-A227E869D2F7}'; RID_RecibosProveedor = '{3B0F5C4B-BA5A-4503-9B85-D3F31A9B204E}';
RID_PagosProveedor = '{B7B59894-9E45-461C-87FE-0B7C6F770A6F}'; RID_PagosProveedor = '{F079C5BF-44B6-4E92-98E8-EE630E2A27C9}';
{ Data table names } { Data table names }
nme_RecibosCompensadosProv = 'RecibosCompensadosProv'; nme_RecibosCompensadosProv = 'RecibosCompensadosProv';
@ -211,7 +211,7 @@ const
type type
{ IRecibosCompensadosProv } { IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable) IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{DD89E7A5-C9AE-42DB-B722-15E108E9A89E}'] ['{8CDC61D9-4223-4C3D-8DE2-93F8140FE4BC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -447,7 +447,7 @@ type
end; end;
{ TRecibosCompensadosProvDataTableRules } { TRecibosCompensadosProvDataTableRules }
TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv) TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -690,7 +690,7 @@ type
{ IRecibosProveedor } { IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable) IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{E2ED1264-BBB0-4DB5-89AC-C62CBEA6E7CB}'] ['{A3089684-8FDA-44D5-A5B2-3327D4894A6F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -926,7 +926,7 @@ type
end; end;
{ TRecibosProveedorDataTableRules } { TRecibosProveedorDataTableRules }
TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor) TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1169,7 +1169,7 @@ type
{ IPagosProveedor } { IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable) IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{5A522745-E1FA-45A1-BB4E-A5875022F5F3}'] ['{1C8D1CBD-87BA-47CF-ADDA-ECDF8BAF5F4E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1255,7 +1255,7 @@ type
end; end;
{ TPagosProveedorDataTableRules } { TPagosProveedorDataTableRules }
TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor) TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

12
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_RecibosCompensadosProvDelta = '{D05965BE-7A62-4E86-A945-847A4E347F75}'; RID_RecibosCompensadosProvDelta = '{E95FB3AF-C9FA-4D99-89BD-57C6A4876A41}';
RID_RecibosProveedorDelta = '{54B83AC6-612E-4184-9293-1216286F261E}'; RID_RecibosProveedorDelta = '{33917437-C0D3-47D1-B9D6-4F5690CA0B91}';
RID_PagosProveedorDelta = '{2BDCF56A-4D48-45E2-87B9-F1D0E3E35738}'; RID_PagosProveedorDelta = '{A624BF64-9338-42F1-A371-05E83CD550D8}';
type type
{ IRecibosCompensadosProvDelta } { IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv) IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{D05965BE-7A62-4E86-A945-847A4E347F75}'] ['{E95FB3AF-C9FA-4D99-89BD-57C6A4876A41}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -494,7 +494,7 @@ type
{ IRecibosProveedorDelta } { IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor) IRecibosProveedorDelta = interface(IRecibosProveedor)
['{54B83AC6-612E-4184-9293-1216286F261E}'] ['{33917437-C0D3-47D1-B9D6-4F5690CA0B91}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer; function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -972,7 +972,7 @@ type
{ IPagosProveedorDelta } { IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor) IPagosProveedorDelta = interface(IPagosProveedor)
['{2BDCF56A-4D48-45E2-87B9-F1D0E3E35738}'] ['{A624BF64-9338-42F1-A371-05E83CD550D8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer; function GetOldID_RECIBOValue : Integer;

8
Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
View File

@ -551,6 +551,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 9 Size = 9
ServerAutoRefresh = True
DictionaryEntry = 'RecibosProveedor_SITUACION' DictionaryEntry = 'RecibosProveedor_SITUACION'
end end
item item
@ -626,6 +627,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
ServerAutoRefresh = True
DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL' DictionaryEntry = 'RecibosProveedor_IMPORTE_TOTAL'
end end
item item
@ -642,6 +644,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'NOMBRE_PROVEEDOR' Name = 'NOMBRE_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR' DictionaryEntry = 'RecibosProveedor_NOMBRE_PROVEEDOR'
end end
item item
@ -1420,7 +1423,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DeleteCommandName = 'Delete_RecibosProveedor' DeleteCommandName = 'Delete_RecibosProveedor'
UpdateCommandName = 'Update_RecibosProveedor' UpdateCommandName = 'Update_RecibosProveedor'
ReferencedDataset = 'RecibosProveedor' ReferencedDataset = 'RecibosProveedor'
ProcessorOptions = [poPrepareCommands] ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly UpdateMode = updWhereKeyOnly
Left = 192 Left = 192
Top = 24 Top = 24
@ -1435,6 +1438,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
Name = 'RecibosProveedor_NOMBRE_PROVEEDOR' Name = 'RecibosProveedor_NOMBRE_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
ServerAutoRefresh = True
end end
item item
Name = 'RecibosProveedor_NIF_CIF_PROVEEDOR' Name = 'RecibosProveedor_NIF_CIF_PROVEEDOR'
@ -1550,6 +1554,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datString DataType = datString
Size = 9 Size = 9
DisplayLabel = 'SITUACION' DisplayLabel = 'SITUACION'
ServerAutoRefresh = True
end end
item item
Name = 'RecibosProveedor_ID_FACTURA' Name = 'RecibosProveedor_ID_FACTURA'
@ -1595,6 +1600,7 @@ object srvRecibosProveedor: TsrvRecibosProveedor
DataType = datCurrency DataType = datCurrency
DisplayLabel = 'IMPORTE_TOTAL' DisplayLabel = 'IMPORTE_TOTAL'
Alignment = taRightJustify Alignment = taRightJustify
ServerAutoRefresh = True
end end
item item
Name = 'RecibosProveedor_FECHA_FACTURA' Name = 'RecibosProveedor_FECHA_FACTURA'

BIN
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res
View File

Binary file not shown.

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

@ -58,8 +58,6 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
ExplicitTop = 248
ExplicitWidth = 409
object bAceptar: TButton object bAceptar: TButton
Left = 38 Left = 38
Top = 8 Top = 8
@ -96,10 +94,18 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
ExplicitTop = 80 ExplicitTop = 80
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
end end

12
Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas
View File

@ -43,7 +43,7 @@ implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uDialogUtils; uses uDialogUtils, uFactuGES_App;
procedure TfEditorFechaPagoProveedor.DeshabilitarContabilidad; procedure TfEditorFechaPagoProveedor.DeshabilitarContabilidad;
begin begin
@ -92,6 +92,16 @@ begin
{$ELSE} {$ELSE}
frViewListaSubCuentas1.Visible := false; frViewListaSubCuentas1.Visible := false;
{$ENDIF} {$ENDIF}
//Contabilidad
if Assigned(AppFactuGES.EjercicioActivo) then
begin
frViewListaSubcuentas1.eContabilizar.Checked := False;
end
else
begin
frViewListaSubcuentas1.eContabilizar.Checked := True;
end;
end; end;
function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime; function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;

78
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -176,34 +176,64 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitWidth = 685 ExplicitWidth = 685
ExplicitHeight = 210 ExplicitHeight = 210
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 164 ExplicitWidth = 164
Width = 164 Width = 164
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 419 Left = 419
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 419 ExplicitLeft = 419
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end
inherited cbCuentaBancaria: TcxDBLookupComboBox inherited cbCuentaBancaria: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 39 ExplicitWidth = 39
Width = 39 Width = 39
end end
inherited cbTipo: TcxDBImageComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited frViewListaSubcuentas1: TfrViewListaSubcuentas inherited frViewListaSubcuentas1: TfrViewListaSubcuentas
Width = 453 Width = 453
ExplicitWidth = 453 ExplicitWidth = 453
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 453 Width = 453
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 424 Left = 424
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 424 ExplicitLeft = 424
ExplicitWidth = 203 ExplicitWidth = 203
Width = 203 Width = 203
@ -272,7 +302,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 163 Left = 163
Top = 111 Top = 111
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 163 ExplicitLeft = 163
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 93 ExplicitWidth = 93
@ -282,7 +316,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 530 Left = 530
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 530 ExplicitLeft = 530
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 137 ExplicitWidth = 137
@ -291,7 +329,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 460 Left = 460
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 460 ExplicitLeft = 460
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 137 ExplicitWidth = 137
@ -301,7 +343,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92 Left = 92
Top = 111 Top = 111
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 111 ExplicitTop = 111
end end
@ -309,7 +355,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 459 Left = 459
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459 ExplicitLeft = 459
ExplicitTop = 37 ExplicitTop = 37
end end
@ -317,7 +367,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 459 Left = 459
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459 ExplicitLeft = 459
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 92 ExplicitWidth = 92
@ -327,7 +381,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 459 Left = 459
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 459 ExplicitLeft = 459
ExplicitTop = 64 ExplicitTop = 64
end end
@ -335,7 +393,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 530 Left = 530
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 530 ExplicitLeft = 530
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 56 ExplicitWidth = 56
@ -345,7 +407,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92 Left = 92
Top = 10 Top = 10
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 10 ExplicitTop = 10
ExplicitWidth = 147 ExplicitWidth = 147
@ -355,7 +421,11 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92 Left = 92
Top = 138 Top = 138
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 147 ExplicitWidth = 147
@ -365,6 +435,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92 Left = 92
Top = 37 Top = 37
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 37 ExplicitTop = 37
ExplicitWidth = 81 ExplicitWidth = 81
@ -380,6 +454,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 92 Left = 92
Top = 64 Top = 64
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 92 ExplicitLeft = 92
ExplicitTop = 64 ExplicitTop = 64
ExplicitWidth = 219 ExplicitWidth = 219

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

@ -1,22 +1,25 @@
inherited frViewRemesaProveedor: TfrViewRemesaProveedor inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Width = 451 Width = 485
Height = 304 Height = 230
Align = alClient Align = alClient
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
object dxLayoutControlRemesaProveedor: TdxLayoutControl object dxLayoutControlRemesaProveedor: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 485
Height = 304 Height = 230
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 485
304) 230)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 110 Left = 110
Top = 30 Top = 30
@ -30,13 +33,17 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 164 Width = 164
end end
@ -51,17 +58,21 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 108 Width = 108
end end
object edtFechaRemesa: TcxDBDateEdit object edtFechaRemesa: TcxDBDateEdit
Left = 311 Left = 328
Top = 30 Top = 30
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_REMESA' DataBinding.DataField = 'FECHA_REMESA'
@ -72,13 +83,17 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 170 Width = 170
end end
@ -103,14 +118,18 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 39 Width = 39
end end
@ -125,22 +144,26 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 319 Width = 319
end end
inline frViewListaSubcuentas1: TfrViewListaSubcuentas inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 22 Left = 22
Top = 162 Top = 162
Width = 453 Width = 407
Height = 69 Height = 45
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -151,16 +174,24 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 407
ExplicitHeight = 45
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 407
ExplicitWidth = 407
inherited cbSubCuentas: TcxComboBox inherited cbSubCuentas: TcxComboBox
ExplicitWidth = 376 Style.LookAndFeel.SkinName = ''
Width = 376 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited eContabilizar: TcxCheckBox inherited eContabilizar: TcxCheckBox
Left = 276 Left = 299
ExplicitLeft = 276 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 203 StyleDisabled.LookAndFeel.SkinName = ''
Width = 203 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 299
end end
end end
end end

9
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas
View File

@ -121,6 +121,15 @@ begin
dxlcCuentaContable.Visible := false; dxlcCuentaContable.Visible := false;
{$ENDIF} {$ENDIF}
//Contabilidad
if Assigned(AppFactuGES.EjercicioActivo) then
begin
frViewListaSubcuentas1.eContabilizar.Checked := False;
end
else
begin
frViewListaSubcuentas1.eContabilizar.Checked := True;
end;
end; end;
function TfrViewRemesaProveedor.GetController: IRemesasProveedorController; function TfrViewRemesaProveedor.GetController: IRemesasProveedorController;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -99,14 +99,10 @@ uses
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas', schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas', uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas', uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas', uBizAsientosServer in '..\Modulos\Contabilidad\Model\uBizAsientosServer.pas',
schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas', schContabilidadClient_Intf in '..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas',
schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas', schContabilidadServer_Intf in '..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas',
@ -131,7 +127,11 @@ uses
uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas', uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas',
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService}, srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule}, uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule}; uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.4.0\0" VALUE "FileVersion", "2.2.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.4.0\0" VALUE "ProductVersion", "2.2.4.0\0"
VALUE "CompileDate", "lunes, 17 de noviembre de 2008 17:12\0" VALUE "CompileDate", "miércoles, 19 de noviembre de 2008 17:04\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"