Arreglo de replicador para los campos nuevos que han ido surgiendo, proveedores ya pueden ser acreedores, subida 2.1.9
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@208 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
d5a96f6870
commit
2410031393
140
Database/Procedures.txt
Normal file
140
Database/Procedures.txt
Normal file
@ -0,0 +1,140 @@
|
||||
delete from new_table;
|
||||
CREATE TABLE NEW_TABLE (
|
||||
ID INTEGER,
|
||||
SS INTEGER);
|
||||
|
||||
|
||||
CREATE PROCEDURE PROC_CREATE_SUBCUENTAS_CLI
|
||||
as
|
||||
declare variable id_cliente integer;
|
||||
declare variable ref_cliente varchar(255);
|
||||
declare variable id_subcuenta integer;
|
||||
declare variable nombre_cliente varchar(255);
|
||||
declare variable id_subcuenta_inser integer;
|
||||
begin
|
||||
|
||||
|
||||
for select GEN_ID(gen_cont_subcuentas_id, 1), contactos.ID, '430' || coalesce(empresas_tiendas.codigo_contable, '00') || substr(contactos.REFERENCIA,6,12),
|
||||
contactos.nombre
|
||||
from contactos
|
||||
left join contactos_categorias on (contactos_categorias.id_contacto = contactos.id)
|
||||
left join empresas_tiendas on (empresas_tiendas.id = contactos.id_tienda)
|
||||
where contactos_categorias.id_categoria = 1 /*solo clientes*/
|
||||
order by contactos.ID
|
||||
into :id_subcuenta_inser, :id_cliente, :ref_cliente, :nombre_cliente do
|
||||
begin
|
||||
id_subcuenta = null;
|
||||
select cont_subcuentas.ID
|
||||
from cont_subcuentas
|
||||
where cont_subcuentas.ID_CONTACTO = :id_cliente
|
||||
into :id_subcuenta;
|
||||
|
||||
if (id_subcuenta is null) then
|
||||
begin
|
||||
insert into new_table (id, ss)
|
||||
values (:id_cliente, 0);
|
||||
|
||||
insert into CONT_SUBCUENTAS (ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, ID_CUENTA, ID_CONTACTO)
|
||||
values (:id_subcuenta_inser, :ref_cliente, 'Cuenta cliente: ' || :nombre_cliente, 3, 1434, :id_cliente);
|
||||
|
||||
update clientes_datos
|
||||
set ignorar_contabilidad = 0,
|
||||
tiene_subcuenta = 1
|
||||
where id_cliente = :id_cliente;
|
||||
end
|
||||
else
|
||||
begin
|
||||
insert into new_table (id, ss)
|
||||
values (:id_cliente, 1);
|
||||
|
||||
update cont_subcuentas
|
||||
set ref_subcuenta = :ref_cliente
|
||||
where cont_subcuentas.ID = :id_subcuenta;
|
||||
|
||||
update clientes_datos
|
||||
set ignorar_contabilidad = 0,
|
||||
tiene_subcuenta = 1
|
||||
where id_cliente = :id_cliente;
|
||||
end
|
||||
end
|
||||
|
||||
suspend;
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
select ref_subcuenta, count(id)
|
||||
from cont_subcuentas
|
||||
group by ref_subcuenta
|
||||
|
||||
//mas de 3
|
||||
|
||||
select cont_subcuentas.id_ejercicio, cont_subcuentas.ID, cont_subcuentas.ref_subcuenta, cont_subcuentas.descripcion, cont_subcuentas.ID_CONTACTO
|
||||
from cont_subcuentas
|
||||
where cont_subcuentas.ref_subcuenta = '4300000000'
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
CREATE PROCEDURE PROC_CREATE_SUBCUENTAS_PRO
|
||||
as
|
||||
declare variable id_proveedor integer;
|
||||
declare variable ref_proveedor varchar(255);
|
||||
declare variable id_subcuenta integer;
|
||||
declare variable nombre_proveedor varchar(255);
|
||||
declare variable id_subcuenta_inser integer;
|
||||
begin
|
||||
|
||||
|
||||
for select GEN_ID(gen_cont_subcuentas_id, 1), contactos.ID, '400' || coalesce(empresas_tiendas.codigo_contable, '00') || substr(contactos.REFERENCIA,6,12),
|
||||
contactos.nombre
|
||||
from contactos
|
||||
left join contactos_categorias on (contactos_categorias.id_contacto = contactos.id)
|
||||
left join empresas_tiendas on (empresas_tiendas.id = contactos.id_tienda)
|
||||
where contactos_categorias.id_categoria = 2 /*solo proveedores*/
|
||||
order by contactos.ID
|
||||
into :id_subcuenta_inser, :id_proveedor, :ref_proveedor, :nombre_proveedor do
|
||||
begin
|
||||
id_subcuenta = null;
|
||||
select cont_subcuentas.ID
|
||||
from cont_subcuentas
|
||||
where cont_subcuentas.ID_CONTACTO = :id_proveedor
|
||||
into :id_subcuenta;
|
||||
|
||||
if (id_subcuenta is null) then
|
||||
begin
|
||||
insert into new_table (id, ss)
|
||||
values (:id_proveedor, 0);
|
||||
|
||||
insert into CONT_SUBCUENTAS (ID, REF_SUBCUENTA, DESCRIPCION, ID_EJERCICIO, ID_CUENTA, ID_CONTACTO)
|
||||
values (:id_subcuenta_inser, :ref_proveedor, 'Cuenta proveedor: ' || :nombre_proveedor, 3, 1434, :id_proveedor);
|
||||
|
||||
update proveedores_datos
|
||||
set ignorar_contabilidad = 0,
|
||||
tiene_subcuenta = 1,
|
||||
es_Acreedor = 0
|
||||
where id_proveedor = :id_proveedor;
|
||||
end
|
||||
else
|
||||
begin
|
||||
insert into new_table (id, ss)
|
||||
values (:id_proveedor, 1);
|
||||
|
||||
update cont_subcuentas
|
||||
set ref_subcuenta = :ref_proveedor
|
||||
where cont_subcuentas.ID = :id_subcuenta;
|
||||
|
||||
update proveedores_datos
|
||||
set ignorar_contabilidad = 0,
|
||||
tiene_subcuenta = 1,
|
||||
es_Acreedor = 0
|
||||
where id_proveedor = :id_proveedor;
|
||||
end
|
||||
end
|
||||
|
||||
suspend;
|
||||
end
|
||||
|
||||
@ -1198,7 +1198,8 @@ CREATE TABLE PROVEEDORES_DATOS (
|
||||
HOMOLOGADO SMALLINT,
|
||||
IGNORAR_CONTABILIDAD TIPO_ID,
|
||||
TIENE_SUBCUENTA TIPO_ID,
|
||||
NOMBRE_COMERCIAL VARCHAR(255)
|
||||
NOMBRE_COMERCIAL VARCHAR(255),
|
||||
ES_ACREEDOR SMALLINT
|
||||
);
|
||||
|
||||
CREATE TABLE PROVEEDORES_GRUPOS (
|
||||
@ -1864,7 +1865,8 @@ CREATE VIEW V_PROVEEDORES(
|
||||
CERTIFICACION,
|
||||
IGNORAR_CONTABILIDAD,
|
||||
TIENE_SUBCUENTA,
|
||||
NOMBRE_COMERCIAL)
|
||||
NOMBRE_COMERCIAL,
|
||||
ES_ACREEDOR)
|
||||
AS
|
||||
SELECT
|
||||
V_CONTACTOS.ID,
|
||||
@ -1904,7 +1906,8 @@ SELECT
|
||||
PROVEEDORES_DATOS.CERTIFICACION,
|
||||
PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD,
|
||||
PROVEEDORES_DATOS.TIENE_SUBCUENTA,
|
||||
PROVEEDORES_DATOS.NOMBRE_COMERCIAL
|
||||
PROVEEDORES_DATOS.NOMBRE_COMERCIAL,
|
||||
PROVEEDORES_DATOS.ES_ACREEDOR
|
||||
FROM
|
||||
PROVEEDORES_DATOS
|
||||
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
|
||||
|
||||
@ -85,12 +85,12 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (5
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (58, 1, 'CATEGORIAS', 'U', 'UPDATE CATEGORIAS SET ID=?,CATEGORIA=? WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (59, 1, 'CATEGORIAS', 'D', 'DELETE FROM CATEGORIAS WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (60, 1, 'CLIENTES_DATOS', 'S', 'SELECT ID_CLIENTE,BLOQUEADO,CODIGO_ASIGNADO,DESCUENTO,GRUPO_CLIENTE,ID_AGENTE,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,MOTIVO_BLOQUEO,NOMBRE_COMERCIAL,PROCEDENCIA_CLIENTE,RECARGO_EQUIVALENCIA,REGIMEN_IVA', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (61, 1, 'CLIENTES_DATOS', 'S', ',TIENDA_WEB,VENCIMIENTO_FACTURAS FROM CLIENTES_DATOS', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (61, 1, 'CLIENTES_DATOS', 'S', ',TIENDA_WEB,VENCIMIENTO_FACTURAS,TIENE_SUBCUENTA FROM CLIENTES_DATOS', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (62, 1, 'CLIENTES_DATOS', 'S', ' WHERE ID_CLIENTE=?', 3);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (63, 1, 'CLIENTES_DATOS', 'I', 'INSERT INTO CLIENTES_DATOS (ID_CLIENTE,BLOQUEADO,CODIGO_ASIGNADO,DESCUENTO,GRUPO_CLIENTE,ID_AGENTE,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,MOTIVO_BLOQUEO,NOMBRE_COMERCIAL,PROCEDENCIA_CLIENTE,RECARGO_EQUIVALENCIA', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (64, 1, 'CLIENTES_DATOS', 'I', ',REGIMEN_IVA,TIENDA_WEB,VENCIMIENTO_FACTURAS ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (64, 1, 'CLIENTES_DATOS', 'I', ',REGIMEN_IVA,TIENDA_WEB,VENCIMIENTO_FACTURAS,TIENE_SUBCUENTA ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (65, 1, 'CLIENTES_DATOS', 'U', 'UPDATE CLIENTES_DATOS SET ID_CLIENTE=?,BLOQUEADO=?,CODIGO_ASIGNADO=?,DESCUENTO=?,GRUPO_CLIENTE=?,ID_AGENTE=?,ID_FORMA_PAGO=?,ID_TIPO_IVA=?,IGNORAR_CONTABILIDAD=?,MOTIVO_BLOQUEO=?,NOMBRE_COMERCIAL=?,PROCEDENCIA_CLIENTE=?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (66, 1, 'CLIENTES_DATOS', 'U', ',RECARGO_EQUIVALENCIA=?,REGIMEN_IVA=?,TIENDA_WEB=?,VENCIMIENTO_FACTURAS =? WHERE ID_CLIENTE=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (66, 1, 'CLIENTES_DATOS', 'U', ',RECARGO_EQUIVALENCIA=?,REGIMEN_IVA=?,TIENDA_WEB=?,VENCIMIENTO_FACTURAS =?,TIENE_SUBCUENTA=? WHERE ID_CLIENTE=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (67, 1, 'CLIENTES_DATOS', 'D', 'DELETE FROM CLIENTES_DATOS WHERE ID_CLIENTE=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (68, 1, 'CLIENTES_DTOS_PROVEEDORES', 'S', 'SELECT ID,DESCUENTO,ID_CLIENTE,ID_PROVEEDOR FROM CLIENTES_DTOS_PROVEEDORES', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (69, 1, 'CLIENTES_DTOS_PROVEEDORES', 'S', ' WHERE ID=?', 2);
|
||||
@ -175,17 +175,17 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (1
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (148, 1, 'CONTACTOS_DATOS_BANCO', 'I', 'INSERT INTO CONTACTOS_DATOS_BANCO (ID,CUENTA,DC,ENTIDAD,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,SUCURSAL,TITULAR) VALUES (?,?,?,?,?,?,?,?,?)', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (149, 1, 'CONTACTOS_DATOS_BANCO', 'U', 'UPDATE CONTACTOS_DATOS_BANCO SET ID=?,CUENTA=?,DC=?,ENTIDAD=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,SUCURSAL=?,TITULAR=? WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (150, 1, 'CONTACTOS_DATOS_BANCO', 'D', 'DELETE FROM CONTACTOS_DATOS_BANCO WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (151, 1, 'CONTACTOS_DIRECCIONES', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO FROM CONTACTOS_DIRECCIONES', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (151, 1, 'CONTACTOS_DIRECCIONES', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO FROM CONTACTOS_DIRECCIONES,NIF_CIF', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (152, 1, 'CONTACTOS_DIRECCIONES', 'S', ' WHERE ID=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (153, 1, 'CONTACTOS_DIRECCIONES', 'I', 'INSERT INTO CONTACTOS_DIRECCIONES (ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO) VALUES (?,?,?,?,?,?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (153, 1, 'CONTACTOS_DIRECCIONES', 'I', 'INSERT INTO CONTACTOS_DIRECCIONES (ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO,NIF_CIF) VALUES (?,?,?,?,?,?,?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (154, 1, 'CONTACTOS_DIRECCIONES', 'I', ',?,?,?,?,?,?,?,?,?,?)', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (155, 1, 'CONTACTOS_DIRECCIONES', 'U', 'UPDATE CONTACTOS_DIRECCIONES SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,MOVIL=?,NOMBRE=?,NOTAS=?,PERSONA_CONTACTO=?,POBLACION=?,PORTE=?,PROVINCIA=?,TELEFONO=?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (156, 1, 'CONTACTOS_DIRECCIONES', 'U', ' WHERE ID=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (155, 1, 'CONTACTOS_DIRECCIONES', 'U', 'UPDATE CONTACTOS_DIRECCIONES SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,MOVIL=?,NOMBRE=?,NOTAS=?,PERSONA_CONTACTO=?,POBLACION=?,PORTE=?,PROVINCIA=?,TELEFONO=?,', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (156, 1, 'CONTACTOS_DIRECCIONES', 'U', 'NIF_CIF=? WHERE ID=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (157, 1, 'CONTACTOS_DIRECCIONES', 'D', 'DELETE FROM CONTACTOS_DIRECCIONES WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (158, 1, 'EMPLEADOS_DATOS', 'S', 'SELECT ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO FROM EMPLEADOS_DATOS', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (158, 1, 'EMPLEADOS_DATOS', 'S', 'SELECT ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO,COMISION FROM EMPLEADOS_DATOS', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (159, 1, 'EMPLEADOS_DATOS', 'S', ' WHERE ID_EMPLEADO=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (160, 1, 'EMPLEADOS_DATOS', 'I', 'INSERT INTO EMPLEADOS_DATOS (ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO) VALUES (?,?,?,?,?,?,?,?,?)', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (161, 1, 'EMPLEADOS_DATOS', 'U', 'UPDATE EMPLEADOS_DATOS SET ID_EMPLEADO=?,CATEGORIA=?,EXPERIENCIA=?,FECHA_ALTA_EMPRESA=?,FECHA_NACIMIENTO=?,FORMACION_BASE=?,FORMACION_COMPLE=?,FORMACION_RECIBIDA=?,ID_USUARIO=? WHERE ID_EMPLEADO=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (160, 1, 'EMPLEADOS_DATOS', 'I', 'INSERT INTO EMPLEADOS_DATOS (ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO,COMISION) VALUES (?,?,?,?,?,?,?,?,?,?)', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (161, 1, 'EMPLEADOS_DATOS', 'U', 'UPDATE EMPLEADOS_DATOS SET ID_EMPLEADO=?,CATEGORIA=?,EXPERIENCIA=?,FECHA_ALTA_EMPRESA=?,FECHA_NACIMIENTO=?,FORMACION_BASE=?,FORMACION_COMPLE=?,FORMACION_RECIBIDA=?,ID_USUARIO=?,COMISION=? WHERE ID_EMPLEADO=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (162, 1, 'EMPLEADOS_DATOS', 'D', 'DELETE FROM EMPLEADOS_DATOS WHERE ID_EMPLEADO=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (163, 1, 'EMPLEADOS_GRUPOS', 'S', 'SELECT ID,DESCRIPCION FROM EMPLEADOS_GRUPOS', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (164, 1, 'EMPLEADOS_GRUPOS', 'S', ' WHERE ID=?', 2);
|
||||
@ -233,14 +233,14 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (2
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (207, 1, 'FACTURAS_CLIENTE_DETALLES', 'U', ',VISIBLE=? WHERE ID=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (208, 1, 'FACTURAS_CLIENTE_DETALLES', 'D', 'DELETE FROM FACTURAS_CLIENTE_DETALLES WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (209, 1, 'FACTURAS_PROVEEDOR', 'S', 'SELECT ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALTA,FECHA_FACTURA,FECHA_MODIFICACION,ID_EMPRESA,ID_FORMA_PAGO,ID_PROVEEDOR,ID_TIENDA,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,IMPORTE_DESCUENTO,IMPORTE_IVA', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (210, 1, 'FACTURAS_PROVEEDOR', 'S', ',IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO FROM FACTURAS_PROVEEDOR', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (210, 1, 'FACTURAS_PROVEEDOR', 'S', ',IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO,FECHA_VENCIMIENTO FROM FACTURAS_PROVEEDOR', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (211, 1, 'FACTURAS_PROVEEDOR', 'S', ' WHERE ID=?', 3);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (212, 1, 'FACTURAS_PROVEEDOR', 'I', 'INSERT INTO FACTURAS_PROVEEDOR (ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALTA,FECHA_FACTURA,FECHA_MODIFICACION,ID_EMPRESA,ID_FORMA_PAGO,ID_PROVEEDOR,ID_TIENDA,ID_TIPO_IVA,IGNORAR_CONTABILIDAD', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (213, 1, 'FACTURAS_PROVEEDOR', 'I', ',IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO) VALUES (?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (214, 1, 'FACTURAS_PROVEEDOR', 'I', ',?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 3);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (213, 1, 'FACTURAS_PROVEEDOR', 'I', ',IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_RE,IMPORTE_TOTAL,IVA,NIF_CIF,NOMBRE,OBSERVACIONES,POBLACION,PROVINCIA,RE,RECARGO_EQUIVALENCIA,REFERENCIA,REFERENCIA_PROVEEDOR,USUARIO,FECHA_VENCIMIENTO)', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (214, 1, 'FACTURAS_PROVEEDOR', 'I', ' VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 3);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (215, 1, 'FACTURAS_PROVEEDOR', 'U', 'UPDATE FACTURAS_PROVEEDOR SET ID=?,BASE_IMPONIBLE=?,CALLE=?,CODIGO_POSTAL=?,DESCUENTO=?,FECHA_ALTA=?,FECHA_FACTURA=?,FECHA_MODIFICACION=?,ID_EMPRESA=?,ID_FORMA_PAGO=?,ID_PROVEEDOR=?,ID_TIENDA=?,ID_TIPO_IVA=?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (216, 1, 'FACTURAS_PROVEEDOR', 'U', ',IGNORAR_CONTABILIDAD=?,IMPORTE_DESCUENTO=?,IMPORTE_IVA=?,IMPORTE_NETO=?,IMPORTE_PORTE=?,IMPORTE_RE=?,IMPORTE_TOTAL=?,IVA=?,NIF_CIF=?,NOMBRE=?,OBSERVACIONES=?,POBLACION=?,PROVINCIA=?,RE=?,RECARGO_EQUIVALENCIA=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (217, 1, 'FACTURAS_PROVEEDOR', 'U', ',REFERENCIA=?,REFERENCIA_PROVEEDOR=?,USUARIO=? WHERE ID=?', 3);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (217, 1, 'FACTURAS_PROVEEDOR', 'U', ',REFERENCIA=?,REFERENCIA_PROVEEDOR=?,USUARIO=?,FECHA_VENCIMIENTO=? WHERE ID=?', 3);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (218, 1, 'FACTURAS_PROVEEDOR', 'D', 'DELETE FROM FACTURAS_PROVEEDOR WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (219, 1, 'FACTURAS_PROVEEDOR_DETALLES', 'S', 'SELECT ID,CANTIDAD,CONCEPTO,DESCUENTO,FECHA_ALTA,FECHA_MODIFICACION,ID_ARTICULO,ID_FACTURA,IMPORTE_PORTE,IMPORTE_TOTAL,IMPORTE_UNIDAD,POSICION,TIPO_DETALLE,VISIBLE FROM FACTURAS_PROVEEDOR_DETALLES', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (220, 1, 'FACTURAS_PROVEEDOR_DETALLES', 'S', ' WHERE ID=?', 2);
|
||||
@ -345,12 +345,12 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (3
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (319, 1, 'PRESUPUESTOS_CLIENTE_DETALLES', 'U', 'UPDATE PRESUPUESTOS_CLIENTE_DETALLES SET ID=?,CANTIDAD=?,CONCEPTO=?,DESCUENTO=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_ARTICULO=?,ID_PRESUPUESTO=?,IMPORTE_PORTE=?,IMPORTE_TOTAL=?,IMPORTE_UNIDAD=?,POSICION=?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (320, 1, 'PRESUPUESTOS_CLIENTE_DETALLES', 'U', ',TIPO_DETALLE=?,VISIBLE=? WHERE ID=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (321, 1, 'PRESUPUESTOS_CLIENTE_DETALLES', 'D', 'DELETE FROM PRESUPUESTOS_CLIENTE_DETALLES WHERE ID=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (322, 1, 'PROVEEDORES_DATOS', 'S', 'SELECT ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB FROM PROVEEDORES_DATOS', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (323, 1, 'PROVEEDORES_DATOS', 'S', ' WHERE ID_PROVEEDOR=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (324, 1, 'PROVEEDORES_DATOS', 'I', 'INSERT INTO PROVEEDORES_DATOS (ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (325, 1, 'PROVEEDORES_DATOS', 'I', ') VALUES (?,?,?,?,?,?,?,?,?,?,?,?)', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (322, 1, 'PROVEEDORES_DATOS', 'S', 'SELECT ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB,TIENE_SUBCUENTA,NOMBRE_COMERCIAL', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (323, 1, 'PROVEEDORES_DATOS', 'S', ',ES_ACREEDOR FROM PROVEEDORES_DATOS WHERE ID_PROVEEDOR=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (324, 1, 'PROVEEDORES_DATOS', 'I', 'INSERT INTO PROVEEDORES_DATOS (ID_PROVEEDOR,CERTIFICACION,CODIGO_ASIGNADO,DESCRIPCION_PROVEEDOR,DESCUENTO,GRUPO_PROVEEDOR,HOMOLOGADO,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,REGIMEN_IVA,TIENDA_WEB,TIENE_SUBCUENTA', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (325, 1, 'PROVEEDORES_DATOS', 'I', ',NOMBRE_COMERCIAL,ES_ACREEDOR) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (326, 1, 'PROVEEDORES_DATOS', 'U', 'UPDATE PROVEEDORES_DATOS SET ID_PROVEEDOR=?,CERTIFICACION=?,CODIGO_ASIGNADO=?,DESCRIPCION_PROVEEDOR=?,DESCUENTO=?,GRUPO_PROVEEDOR=?,HOMOLOGADO=?,ID_FORMA_PAGO=?,ID_TIPO_IVA=?,IGNORAR_CONTABILIDAD=?,REGIMEN_IVA=?', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (327, 1, 'PROVEEDORES_DATOS', 'U', ',TIENDA_WEB=? WHERE ID_PROVEEDOR=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (327, 1, 'PROVEEDORES_DATOS', 'U', ',TIENDA_WEB=?,TIENE_SUBCUENTA=?,NOMBRE_COMERCIAL=?,ES_ACREEDOR=? WHERE ID_PROVEEDOR=?', 2);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (328, 1, 'PROVEEDORES_DATOS', 'D', 'DELETE FROM PROVEEDORES_DATOS WHERE ID_PROVEEDOR=?', 0);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (329, 1, 'PROVEEDORES_GRUPOS', 'S', 'SELECT ID,DESCRIPCION FROM PROVEEDORES_GRUPOS', 1);
|
||||
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (330, 1, 'PROVEEDORES_GRUPOS', 'S', ' WHERE ID=?', 2);
|
||||
|
||||
@ -44,34 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<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\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -86,6 +58,47 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
@ -110,44 +123,10 @@
|
||||
<Form>dmBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\adortl.dcp" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\dbrtl.dcp" />
|
||||
<DCCReference Include="Utiles\dclIndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\designide.dcp" />
|
||||
<DCCReference Include="Utiles\dsnap.dcp" />
|
||||
<DCCReference Include="Utiles\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Utiles\IndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\IndyProtocols.dcp" />
|
||||
<DCCReference Include="Utiles\IndySystem.dcp" />
|
||||
<DCCReference Include="Utiles\Jcl.dcp" />
|
||||
<DCCReference Include="Utiles\JclVcl.dcp" />
|
||||
<DCCReference Include="Utiles\JSDialog100.dcp" />
|
||||
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvMMD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvNetD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="Utiles\pckMD5.dcp" />
|
||||
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="Utiles\PluginSDK_D10R.dcp" />
|
||||
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="Utiles\PNG_D10.dcp" />
|
||||
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\rtl.dcp" />
|
||||
<DCCReference Include="Utiles\TB2k_D10.dcp" />
|
||||
<DCCReference Include="Utiles\tbx_d10.dcp" />
|
||||
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
|
||||
<DCCReference Include="Utiles\uCalculosUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDataTableUtils.pas" />
|
||||
@ -162,13 +141,6 @@
|
||||
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="Utiles\vcl.dcp" />
|
||||
<DCCReference Include="Utiles\vclactnband.dcp" />
|
||||
<DCCReference Include="Utiles\vcldb.dcp" />
|
||||
<DCCReference Include="Utiles\vcljpg.dcp" />
|
||||
<DCCReference Include="Utiles\VclSmp.dcp" />
|
||||
<DCCReference Include="Utiles\vclx.dcp" />
|
||||
<DCCReference Include="Utiles\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,1,8,0
|
||||
PRODUCTVERSION 2,1,8,0
|
||||
FILEVERSION 2,1,9,0
|
||||
PRODUCTVERSION 2,1,9,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "2.1.8.0\0"
|
||||
VALUE "FileVersion", "2.1.9.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.1.8.0\0"
|
||||
VALUE "ProductVersion", "2.1.9.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -21,6 +21,7 @@ uses
|
||||
const
|
||||
REFERENCIA_CLIENTES = 430;
|
||||
REFERENCIA_PROVEEDORES = 400;
|
||||
REFERENCIA_ACREEDORES = 410;
|
||||
|
||||
type
|
||||
{ TsrvContabilidad }
|
||||
@ -42,7 +43,7 @@ type
|
||||
public
|
||||
function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
|
||||
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
|
||||
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -141,7 +142,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvContabilidad.AnadirSubCuentaProveedor(const ID_CONTACTO, ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
function TsrvContabilidad.AnadirSubCuentaProveedor(const ID_CONTACTO, ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
var
|
||||
AConn : IDAConnection;
|
||||
dsData: IDADataset;
|
||||
@ -161,7 +162,11 @@ begin
|
||||
try
|
||||
try
|
||||
dsData := NIL;
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
|
||||
if ES_ACREEDOR = 1 then
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_ACREEDORES])
|
||||
else
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
|
||||
|
||||
dsData.Active := True;
|
||||
|
||||
if VarIsNull(dsData.FieldValues[0]) then
|
||||
@ -170,10 +175,18 @@ begin
|
||||
NumCuenta := dsData.FieldValues[0];
|
||||
Inc(NumCuenta);
|
||||
RefSubCuenta := format('%.7d', [NumCuenta]);
|
||||
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefSubCuenta;
|
||||
|
||||
if ES_ACREEDOR = 1 then
|
||||
RefSubCuenta := IntToStr(REFERENCIA_ACREEDORES) + RefSubCuenta
|
||||
else
|
||||
RefSubCuenta := IntToStr(REFERENCIA_PROVEEDORES) + RefSubCuenta;
|
||||
|
||||
dsData := NIL;
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
|
||||
|
||||
if ES_ACREEDOR = 1 then
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_ACREEDORES])
|
||||
else
|
||||
dsData := schContabilidad.NewDataset(AConn, 'DarIDCuenta', ['ID_EJERCICIO', 'REFERENCIA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
|
||||
dsData.Active := True;
|
||||
|
||||
if VarIsNull(dsData.FieldValues[0]) then
|
||||
|
||||
@ -32,7 +32,7 @@ inherited fEditorDiario: TfEditorDiario
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 403
|
||||
ExplicitWidth = 543
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 269
|
||||
@ -163,6 +163,12 @@ inherited fEditorDiario: TfEditorDiario
|
||||
inherited actNuevo: TAction
|
||||
ImageIndex = 23
|
||||
end
|
||||
inherited actPrevisualizar: TAction
|
||||
Visible = True
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
Visible = True
|
||||
end
|
||||
inherited actDuplicar: TAction
|
||||
Enabled = False
|
||||
Visible = False
|
||||
|
||||
@ -33,6 +33,8 @@ type
|
||||
procedure EliminarInterno; override;
|
||||
procedure ModificarInterno; override;
|
||||
procedure DuplicarInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
procedure ImprimirInterno; override;
|
||||
|
||||
public
|
||||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||
@ -76,6 +78,11 @@ begin
|
||||
Result := FDiario;
|
||||
end;
|
||||
|
||||
procedure TfEditorDiario.ImprimirInterno;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfEditorDiario.GetController: IAsientosController;
|
||||
begin
|
||||
Result := FController;
|
||||
@ -109,6 +116,11 @@ begin
|
||||
inherited PonerTitulos(FTitulo);
|
||||
end;
|
||||
|
||||
procedure TfEditorDiario.PrevisualizarInterno;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfEditorDiario.SetDiario(const Value: IBizDiario);
|
||||
begin
|
||||
FDiario := Value;
|
||||
|
||||
@ -406,6 +406,10 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,19 +9,19 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_SubCuentasContacto = '{A665876F-88B1-480D-B671-45BF9CE0354E}';
|
||||
RID_Contactos = '{DBF3555C-25B6-4111-B564-08223B7DEDFF}';
|
||||
RID_GruposCliente = '{B8A3C655-7B91-441C-A02D-56D6F4515A73}';
|
||||
RID_DatosBancarios = '{95A679A6-2656-43A4-AD76-B221555120D1}';
|
||||
RID_Clientes = '{B0C7F62A-2118-4C8E-A088-399FB5F4172A}';
|
||||
RID_Proveedores = '{905725EC-B1B7-4EEE-878E-5298DA5A4651}';
|
||||
RID_Empleados = '{CC3BA198-8F62-4919-9635-F6B9A76A6944}';
|
||||
RID_DireccionesContacto = '{25680D30-D90A-4CF6-AF42-3A6607831C93}';
|
||||
RID_ClientesDescuentos = '{760ADCE2-83B9-47D1-ADBE-79EBD056D223}';
|
||||
RID_ProcedenciasCliente = '{AF653A27-737C-46A1-ADAC-34A2572D34C6}';
|
||||
RID_GruposProveedor = '{C9B66220-03F7-4D77-B00D-8ADBC3C50FED}';
|
||||
RID_GruposEmpleado = '{E3EAF37B-5015-4CAD-930B-D54819909607}';
|
||||
RID_Contactos_Refresh = '{E9F852B8-287F-4A82-92EC-0E1BF028802D}';
|
||||
RID_SubCuentasContacto = '{C590CC84-6AC7-4513-8D77-7258F8EB4535}';
|
||||
RID_Contactos = '{B90A91FA-E62F-42FC-A978-194A0DD6A4BD}';
|
||||
RID_GruposCliente = '{3AE7D1E5-3CBB-49C7-A3BC-3E8738099CC0}';
|
||||
RID_DatosBancarios = '{8788C035-B5A3-44D6-83A4-DFCBD4B62098}';
|
||||
RID_Clientes = '{363F240A-531E-4C17-924D-FDA78492B088}';
|
||||
RID_Proveedores = '{47BD57F0-0117-4609-B36E-DE4F8054FE96}';
|
||||
RID_Empleados = '{18570434-D839-4C1D-907E-F266CA08F759}';
|
||||
RID_DireccionesContacto = '{0BCC33E0-DDFB-4718-A63F-66326ACDD55C}';
|
||||
RID_ClientesDescuentos = '{397118E3-6034-4264-B378-A646EE472E09}';
|
||||
RID_ProcedenciasCliente = '{C452DC28-9F89-43A4-A245-CC9C2DF12458}';
|
||||
RID_GruposProveedor = '{93523FFC-C70F-4769-98A6-7E07BEBF14BD}';
|
||||
RID_GruposEmpleado = '{EFC3E233-2239-4D54-A23D-B859102E8AAB}';
|
||||
RID_Contactos_Refresh = '{DAFCE1F7-9449-4170-BA9A-182DFBD2B440}';
|
||||
|
||||
{ Data table names }
|
||||
nme_SubCuentasContacto = 'SubCuentasContacto';
|
||||
@ -259,6 +259,7 @@ const
|
||||
fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
|
||||
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
|
||||
fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
|
||||
fld_ProveedoresES_ACREEDOR = 'ES_ACREEDOR';
|
||||
|
||||
{ Proveedores field indexes }
|
||||
idx_ProveedoresID = 0;
|
||||
@ -299,6 +300,7 @@ const
|
||||
idx_ProveedoresIGNORAR_CONTABILIDAD = 35;
|
||||
idx_ProveedoresTIENE_SUBCUENTA = 36;
|
||||
idx_ProveedoresNOMBRE_COMERCIAL = 37;
|
||||
idx_ProveedoresES_ACREEDOR = 38;
|
||||
|
||||
{ Empleados fields }
|
||||
fld_EmpleadosID = 'ID';
|
||||
@ -495,7 +497,7 @@ const
|
||||
type
|
||||
{ ISubCuentasContacto }
|
||||
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{A265AC9F-4CE6-4C65-9B80-55A01FAD8DE7}']
|
||||
['{3C6FCE2A-1F78-4B2A-9DDE-E49783DB3354}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -590,7 +592,7 @@ type
|
||||
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{B82C612C-9B19-47AC-A153-33F40F1F966C}']
|
||||
['{F6F2F867-4B4A-412F-B4E6-73621D0BDE0A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -913,7 +915,7 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{F20A31CD-092A-4808-8E35-91F913A0404B}']
|
||||
['{A016FE21-06D0-42D0-8080-FA263A898337}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -960,7 +962,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{F7E3B1A8-464E-441D-96F9-2A8ABBAB189F}']
|
||||
['{5FA0CE9B-73F8-490C-9238-2AB1C6B97A82}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1091,7 +1093,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{267B0187-B441-4FC0-BDF7-8E14D73A9112}']
|
||||
['{4B798E26-1BFF-4E85-B130-683F79FF8F6C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1582,7 +1584,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{80234880-B682-4597-90DF-CDD58C95F600}']
|
||||
['{C2FC4275-80D5-469C-8A86-72F71CDE26FD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1735,6 +1737,10 @@ type
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String);
|
||||
function GetNOMBRE_COMERCIALIsNull: Boolean;
|
||||
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
|
||||
function GetES_ACREEDORValue: SmallInt;
|
||||
procedure SetES_ACREEDORValue(const aValue: SmallInt);
|
||||
function GetES_ACREEDORIsNull: Boolean;
|
||||
procedure SetES_ACREEDORIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -1814,6 +1820,8 @@ type
|
||||
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
|
||||
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
||||
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
||||
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
|
||||
property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
|
||||
end;
|
||||
|
||||
{ TProveedoresDataTableRules }
|
||||
@ -1974,6 +1982,10 @@ type
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
||||
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
|
||||
function GetES_ACREEDORValue: SmallInt; virtual;
|
||||
procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
|
||||
function GetES_ACREEDORIsNull: Boolean; virtual;
|
||||
procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -2052,6 +2064,8 @@ type
|
||||
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
|
||||
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
||||
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
||||
property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
|
||||
property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -2061,7 +2075,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{0675CA38-A22F-410D-B6C8-8A3C41629E91}']
|
||||
['{7BE5930F-DFEB-42FF-A1B5-1F208AE7E423}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2480,7 +2494,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{BBD6E216-B44C-4757-837E-2C63DBAB1B87}']
|
||||
['{6D18A60E-F841-46E1-BB6F-FA840C83D1CA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2707,7 +2721,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{92A3F3B0-C9C4-4D4D-A311-93FDDA3C6C0D}']
|
||||
['{6DD4A9BD-5260-47AC-844C-A83424002EA9}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2790,7 +2804,7 @@ type
|
||||
|
||||
{ IProcedenciasCliente }
|
||||
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{52E73E0C-71AE-443B-86D2-9F0DC0D5FDF7}']
|
||||
['{B3F0B2C9-DE6D-4E46-858B-28517AF13733}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2837,7 +2851,7 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{94B8A3A8-8683-43DA-B13A-1E0DBF3901C4}']
|
||||
['{F70EB01C-2913-44ED-A784-1DB30C28CF24}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2884,7 +2898,7 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{B3995733-40B5-4A77-B050-2722DEDEF5E8}']
|
||||
['{07795EB8-F353-4AB7-9956-3F1CEB045506}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2931,7 +2945,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{60A8DD40-4B90-40FA-A22C-2FFF67737F64}']
|
||||
['{7AB51E50-F1FC-460B-B962-2E16691C8DFC}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -5799,6 +5813,27 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresNOMBRE_COMERCIAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TProveedoresDataTableRules.GetES_ACREEDORValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetES_ACREEDORValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TProveedoresDataTableRules.GetES_ACREEDORIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].IsNull;
|
||||
end;
|
||||
|
||||
procedure TProveedoresDataTableRules.SetES_ACREEDORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEmpleadosDataTableRules }
|
||||
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,24 +9,24 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_SubCuentasContactoDelta = '{6520A6E9-3616-416C-BAF2-9F4B13AAF858}';
|
||||
RID_ContactosDelta = '{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}';
|
||||
RID_GruposClienteDelta = '{67072B81-C667-4450-B8E8-9C42A3EE0E3C}';
|
||||
RID_DatosBancariosDelta = '{221A80E1-2A34-4D52-963B-4D8A6E8CB277}';
|
||||
RID_ClientesDelta = '{A4468099-7600-4411-A559-107949CA1601}';
|
||||
RID_ProveedoresDelta = '{0117BBC8-1EBE-40CA-9819-E5990B88B58C}';
|
||||
RID_EmpleadosDelta = '{E6D706EA-9D87-4656-BA13-EFEDD8224652}';
|
||||
RID_DireccionesContactoDelta = '{AA255A88-7186-42B2-A48E-5729B8789BFB}';
|
||||
RID_ClientesDescuentosDelta = '{B4309DDF-8679-46EC-9355-28E776C4AC89}';
|
||||
RID_ProcedenciasClienteDelta = '{A8BEF20C-78CE-47DE-8509-46E9442F07A2}';
|
||||
RID_GruposProveedorDelta = '{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}';
|
||||
RID_GruposEmpleadoDelta = '{37AA7500-1C16-43A6-B55D-869846E760D3}';
|
||||
RID_Contactos_RefreshDelta = '{8150E144-7B4B-45AC-8DC6-B0879134E571}';
|
||||
RID_SubCuentasContactoDelta = '{E8742466-5EA1-44A5-9AE5-DD451737894B}';
|
||||
RID_ContactosDelta = '{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}';
|
||||
RID_GruposClienteDelta = '{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}';
|
||||
RID_DatosBancariosDelta = '{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}';
|
||||
RID_ClientesDelta = '{61AA99B2-A336-4CF4-B737-F7002CAE26A8}';
|
||||
RID_ProveedoresDelta = '{9F1B09AD-D218-4081-9531-51647613FE85}';
|
||||
RID_EmpleadosDelta = '{9E2B39E4-C45A-489E-B91D-8115E398AAE4}';
|
||||
RID_DireccionesContactoDelta = '{3BEFC631-A199-4025-9A4A-535780FC7FB1}';
|
||||
RID_ClientesDescuentosDelta = '{6A749D0D-D126-40CC-856C-A1EA0042B3B2}';
|
||||
RID_ProcedenciasClienteDelta = '{58146E09-69C6-4A3D-9D4E-067BCA148B35}';
|
||||
RID_GruposProveedorDelta = '{1CFF788E-11F9-4CB6-B76F-8486A316784C}';
|
||||
RID_GruposEmpleadoDelta = '{3804414A-7B65-4D1B-AAC1-027A1ED130AE}';
|
||||
RID_Contactos_RefreshDelta = '{D9CC832B-B08B-489C-8562-A79E392C9510}';
|
||||
|
||||
type
|
||||
{ ISubCuentasContactoDelta }
|
||||
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
|
||||
['{6520A6E9-3616-416C-BAF2-9F4B13AAF858}']
|
||||
['{E8742466-5EA1-44A5-9AE5-DD451737894B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREF_SUBCUENTAValue : String;
|
||||
@ -120,7 +120,7 @@ type
|
||||
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{A2B38C37-E3AE-4E22-85F7-E76DE13652AB}']
|
||||
['{E9202FAC-8B98-444B-8CF8-A67FBC3792D7}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -443,7 +443,7 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{67072B81-C667-4450-B8E8-9C42A3EE0E3C}']
|
||||
['{278CCE1C-1F40-43F9-BA7E-0BFCA21BBA4A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -489,7 +489,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{221A80E1-2A34-4D52-963B-4D8A6E8CB277}']
|
||||
['{27FB76DE-2C27-4DEE-AB5A-B66F77A5688E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -619,7 +619,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{A4468099-7600-4411-A559-107949CA1601}']
|
||||
['{61AA99B2-A336-4CF4-B737-F7002CAE26A8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1110,7 +1110,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{0117BBC8-1EBE-40CA-9819-E5990B88B58C}']
|
||||
['{9F1B09AD-D218-4081-9531-51647613FE85}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1150,6 +1150,7 @@ type
|
||||
function GetOldIGNORAR_CONTABILIDADValue : Integer;
|
||||
function GetOldTIENE_SUBCUENTAValue : Integer;
|
||||
function GetOldNOMBRE_COMERCIALValue : String;
|
||||
function GetOldES_ACREEDORValue : SmallInt;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -1190,6 +1191,7 @@ type
|
||||
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
|
||||
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
|
||||
end;
|
||||
|
||||
{ TProveedoresBusinessProcessorRules }
|
||||
@ -1426,6 +1428,12 @@ type
|
||||
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
||||
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
||||
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
|
||||
function GetES_ACREEDORValue: SmallInt; virtual;
|
||||
function GetES_ACREEDORIsNull: Boolean; virtual;
|
||||
function GetOldES_ACREEDORValue: SmallInt; virtual;
|
||||
function GetOldES_ACREEDORIsNull: Boolean; virtual;
|
||||
procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual;
|
||||
procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -1580,6 +1588,10 @@ type
|
||||
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
||||
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
||||
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
|
||||
property ES_ACREEDOR : SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue;
|
||||
property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull;
|
||||
property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue;
|
||||
property OldES_ACREEDORIsNull : Boolean read GetOldES_ACREEDORIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -1589,7 +1601,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{E6D706EA-9D87-4656-BA13-EFEDD8224652}']
|
||||
['{9E2B39E4-C45A-489E-B91D-8115E398AAE4}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -2012,7 +2024,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{AA255A88-7186-42B2-A48E-5729B8789BFB}']
|
||||
['{3BEFC631-A199-4025-9A4A-535780FC7FB1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -2239,7 +2251,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{B4309DDF-8679-46EC-9355-28E776C4AC89}']
|
||||
['{6A749D0D-D126-40CC-856C-A1EA0042B3B2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2321,7 +2333,7 @@ type
|
||||
|
||||
{ IProcedenciasClienteDelta }
|
||||
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
|
||||
['{A8BEF20C-78CE-47DE-8509-46E9442F07A2}']
|
||||
['{58146E09-69C6-4A3D-9D4E-067BCA148B35}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2367,7 +2379,7 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{20FC55C8-45F0-46C4-ABCE-7B7B7F339F9A}']
|
||||
['{1CFF788E-11F9-4CB6-B76F-8486A316784C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2413,7 +2425,7 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{37AA7500-1C16-43A6-B55D-869846E760D3}']
|
||||
['{3804414A-7B65-4D1B-AAC1-027A1ED130AE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
@ -2459,7 +2471,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{8150E144-7B4B-45AC-8DC6-B0879134E571}']
|
||||
['{D9CC832B-B08B-489C-8562-A79E392C9510}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -6521,6 +6533,37 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL] := Null;
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetES_ACREEDORValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetES_ACREEDORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR]);
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetOldES_ACREEDORValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresES_ACREEDOR];
|
||||
end;
|
||||
|
||||
function TProveedoresBusinessProcessorRules.GetOldES_ACREEDORIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresES_ACREEDOR]);
|
||||
end;
|
||||
|
||||
procedure TProveedoresBusinessProcessorRules.SetES_ACREEDORValue(const aValue: SmallInt);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := aValue;
|
||||
end;
|
||||
|
||||
procedure TProveedoresBusinessProcessorRules.SetES_ACREEDORIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TEmpleadosBusinessProcessorRules }
|
||||
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -160,6 +160,10 @@ type
|
||||
function GetTiene_Subcuenta: Integer;
|
||||
procedure SetTiene_Subcuenta(const Value: Integer);
|
||||
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
|
||||
|
||||
function GetEs_Acreedor: Integer;
|
||||
procedure SetEs_Acreedor(const Value: Integer);
|
||||
property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
|
||||
end;
|
||||
|
||||
IBizEmpleado = interface (IBizContacto)
|
||||
@ -347,6 +351,9 @@ type
|
||||
function GetTiene_Subcuenta: Integer;
|
||||
procedure SetTiene_Subcuenta(const Value: Integer);
|
||||
|
||||
function GetEs_Acreedor: Integer;
|
||||
procedure SetEs_Acreedor(const Value: Integer);
|
||||
|
||||
function GetSubCuentas: IBizSubCuentasContacto;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
|
||||
|
||||
@ -367,6 +374,7 @@ type
|
||||
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
|
||||
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
|
||||
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
|
||||
property ES_ACREEDOR: Integer read GetEs_Acreedor write SetEs_Acreedor;
|
||||
end;
|
||||
|
||||
|
||||
@ -742,9 +750,11 @@ begin
|
||||
{$IFDEF CONTABILIDAD}
|
||||
IGNORAR_CONTABILIDAD := 0;
|
||||
TIENE_SUBCUENTA := 0;
|
||||
ES_ACREEDOR := 0;
|
||||
{$ELSE}
|
||||
IGNORAR_CONTABILIDAD := 1;
|
||||
TIENE_SUBCUENTA := 0;
|
||||
ES_ACREEDOR := 0;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
@ -784,6 +794,11 @@ begin
|
||||
result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat;
|
||||
end;
|
||||
|
||||
function TBizProveedor.GetEs_Acreedor: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetCERTIFICACIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue;
|
||||
@ -804,6 +819,11 @@ begin
|
||||
DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetEs_Acreedor(const Value: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsInteger := Value;
|
||||
end;
|
||||
|
||||
procedure TBizProveedor.SetGRUPO_PROVEEDORValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString := aValue;
|
||||
|
||||
@ -125,7 +125,7 @@ var
|
||||
ACommand : IDASQLCommand;
|
||||
|
||||
idProveedor: integer;
|
||||
idTienda: integer;
|
||||
EsAcreedor: integer;
|
||||
idEmpresa: integer;
|
||||
Nombre: string;
|
||||
|
||||
@ -153,6 +153,7 @@ begin
|
||||
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
|
||||
Execute;
|
||||
end;
|
||||
|
||||
@ -163,11 +164,11 @@ begin
|
||||
with TsrvContabilidad.Create(NIL) do
|
||||
try
|
||||
IdProveedor := aChange.NewValueByName[fld_ProveedoresID];
|
||||
IdTienda := aChange.NewValueByName[fld_ProveedoresID_TIENDA];
|
||||
EsAcreedor := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
|
||||
IdEmpresa := aChange.NewValueByName[fld_ProveedoresID_EMPRESA];
|
||||
Nombre := aChange.NewValueByName[fld_ProveedoresNOMBRE];
|
||||
if not TieneCuentaAsociada(IdProveedor, IdEmpresa) then
|
||||
AnadirSubCuentaProveedor(IdProveedor, IdTienda, IdEmpresa, Nombre);
|
||||
AnadirSubCuentaProveedor(IdProveedor, EsAcreedor, IdEmpresa, Nombre);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
@ -186,10 +187,10 @@ var
|
||||
ACommand : IDASQLCommand;
|
||||
|
||||
idProveedor: integer;
|
||||
idTienda: integer;
|
||||
EsAcreedor: integer;
|
||||
idEmpresa: integer;
|
||||
Nombre: string;
|
||||
|
||||
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -214,7 +215,8 @@ begin
|
||||
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
||||
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
|
||||
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL];
|
||||
ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
|
||||
Execute;
|
||||
end;
|
||||
|
||||
@ -225,11 +227,11 @@ begin
|
||||
with TsrvContabilidad.Create(NIL) do
|
||||
try
|
||||
IdProveedor := aChange.NewValueByName[fld_ProveedoresID];
|
||||
IdTienda := aChange.NewValueByName[fld_ProveedoresID_TIENDA];
|
||||
EsAcreedor := aChange.NewValueByName[fld_ProveedoresEs_ACREEDOR];
|
||||
IdEmpresa := aChange.NewValueByName[fld_ProveedoresID_EMPRESA];
|
||||
Nombre := aChange.NewValueByName[fld_ProveedoresNOMBRE];
|
||||
if not TieneCuentaAsociada(IdProveedor, IdEmpresa) then
|
||||
AnadirSubCuentaProveedor(IdProveedor, IdTienda, IdEmpresa, Nombre);
|
||||
AnadirSubCuentaProveedor(IdProveedor, EsAcreedor, IdEmpresa, Nombre);
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
|
||||
@ -1029,6 +1029,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'NOMBRE_COMERCIAL'
|
||||
TableField = 'NOMBRE_COMERCIAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ES_ACREEDOR'
|
||||
TableField = 'ES_ACREEDOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'Proveedores'
|
||||
@ -1249,6 +1253,10 @@ object srvContactos: TsrvContactos
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
DataType = datSmallInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -2934,6 +2942,10 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
@ -2944,11 +2956,11 @@ object srvContactos: TsrvContactos
|
||||
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
|
||||
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
|
||||
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' +
|
||||
'_COMERCIAL)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENT' +
|
||||
'O, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' ' +
|
||||
' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GR' +
|
||||
'UPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA, :NOM' +
|
||||
'BRE_COMERCIAL)'#10
|
||||
'_COMERCIAL, ES_ACREEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_I' +
|
||||
'VA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :I' +
|
||||
'D_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTI' +
|
||||
'FICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SU' +
|
||||
'BCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3032,6 +3044,10 @@ object srvContactos: TsrvContactos
|
||||
Name = 'NOMBRE_COMERCIAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ES_ACREEDOR'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_PROVEEDOR'
|
||||
Value = ''
|
||||
@ -3049,8 +3065,8 @@ object srvContactos: TsrvContactos
|
||||
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
|
||||
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
|
||||
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' +
|
||||
#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL'#10' WHERE'#10' (ID_PROVEE' +
|
||||
'DOR = :OLD_ID_PROVEEDOR)'#10
|
||||
#10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ES_ACREEDOR = :ES' +
|
||||
'_ACREEDOR'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -55,6 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 642
|
||||
Height = 489
|
||||
ActivePage = PagContabilidad
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 489
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -248,6 +249,12 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
end
|
||||
inherited eNombreComercial: TcxDBTextEdit
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 192
|
||||
Width = 192
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
@ -272,12 +279,6 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited eNombreComercial: TcxDBTextEdit
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 192
|
||||
Width = 192
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -414,18 +415,6 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 634
|
||||
ExplicitWidth = 634
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -481,6 +470,24 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
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
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -14,7 +14,7 @@ uses
|
||||
cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
||||
dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos,
|
||||
uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega,
|
||||
uDAInterfaces, uViewSubCuentaContacto;
|
||||
uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls;
|
||||
|
||||
type
|
||||
TfEditorProveedor = class(TfEditorContacto, IEditorProveedor)
|
||||
@ -26,6 +26,7 @@ type
|
||||
actGruposProveedor: TAction;
|
||||
PagContabilidad: TTabSheet;
|
||||
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
|
||||
rdTipoSubcuenta: TDBRadioGroup;
|
||||
procedure actGruposProveedorExecute(Sender: TObject);
|
||||
protected
|
||||
procedure GuardarInterno; override;
|
||||
@ -88,6 +89,8 @@ begin
|
||||
else
|
||||
(Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False);
|
||||
|
||||
(Contacto as IBizProveedor).ES_ACREEDOR := StrToInt(rdTipoSubcuenta.Value);
|
||||
|
||||
//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
|
||||
if not Contacto.EsNuevo
|
||||
@ -122,6 +125,9 @@ begin
|
||||
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||||
frViewProveedorDatosComerciales1.Contacto := Contacto;
|
||||
frViewSubCuentaContacto1.Contacto := Contacto;
|
||||
|
||||
if Contacto.EsNuevo then
|
||||
rdTipoSubcuenta.ItemIndex := 0;
|
||||
end
|
||||
else
|
||||
begin
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
Width = 680
|
||||
Height = 305
|
||||
Width = 577
|
||||
Height = 143
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
OnCreate = CustomViewCreate
|
||||
@ -10,8 +10,8 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
object layoutApunte: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 680
|
||||
Height = 305
|
||||
Width = 577
|
||||
Height = 143
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
@ -19,8 +19,8 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
680
|
||||
305)
|
||||
577
|
||||
143)
|
||||
object eRefSubCuenta: TcxDBTextEdit
|
||||
Left = 93
|
||||
Top = 37
|
||||
@ -42,7 +42,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
Width = 346
|
||||
end
|
||||
object BitBtn3: TBitBtn
|
||||
Left = 338
|
||||
Left = 235
|
||||
Top = 37
|
||||
Width = 110
|
||||
Height = 25
|
||||
@ -106,7 +106,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
Width = 265
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 454
|
||||
Left = 351
|
||||
Top = 37
|
||||
Width = 120
|
||||
Height = 25
|
||||
@ -150,7 +150,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
|
||||
E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 580
|
||||
Left = 477
|
||||
Top = 37
|
||||
Width = 90
|
||||
Height = 25
|
||||
|
||||
@ -419,7 +419,7 @@
|
||||
</Parameter>
|
||||
<Parameter Name="ID_CONTACTO" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ID_TIENDA" DataType="Integer" Flag="In" >
|
||||
<Parameter Name="ES_ACREEDOR" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
<Parameter Name="ID_EMPRESA" DataType="Integer" Flag="In" >
|
||||
</Parameter>
|
||||
|
||||
@ -615,7 +615,7 @@ type
|
||||
['{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}']
|
||||
function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
|
||||
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
|
||||
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
end;
|
||||
|
||||
{ CosrvContabilidad }
|
||||
@ -630,7 +630,7 @@ type
|
||||
|
||||
function TieneCuentaAsociada(const ID_CONTACTO: Integer; const ID_EMPRESA: Integer): Boolean;
|
||||
function AnadirSubCuentaCliente(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const CLIENTE: String): Boolean;
|
||||
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
end;
|
||||
|
||||
{ IsrvUnidadesMedida }
|
||||
@ -1648,12 +1648,12 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvContabilidad_Proxy.AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
function TsrvContabilidad_Proxy.AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean;
|
||||
begin
|
||||
try
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'AnadirSubCuentaProveedor');
|
||||
__Message.Write('ID_CONTACTO', TypeInfo(Integer), ID_CONTACTO, []);
|
||||
__Message.Write('ID_TIENDA', TypeInfo(Integer), ID_TIENDA, []);
|
||||
__Message.Write('ES_ACREEDOR', TypeInfo(Integer), ES_ACREEDOR, []);
|
||||
__Message.Write('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []);
|
||||
__Message.Write('PROVEEDOR', TypeInfo(String), PROVEEDOR, []);
|
||||
__Message.Finalize;
|
||||
|
||||
@ -828,21 +828,21 @@ begin
|
||||
end;
|
||||
|
||||
procedure TsrvContabilidad_Invoker.Invoke_AnadirSubCuentaProveedor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ID_TIENDA: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; }
|
||||
{ function AnadirSubCuentaProveedor(const ID_CONTACTO: Integer; const ES_ACREEDOR: Integer; const ID_EMPRESA: Integer; const PROVEEDOR: String): Boolean; }
|
||||
var
|
||||
ID_CONTACTO: Integer;
|
||||
ID_TIENDA: Integer;
|
||||
ES_ACREEDOR: Integer;
|
||||
ID_EMPRESA: Integer;
|
||||
PROVEEDOR: String;
|
||||
lResult: Boolean;
|
||||
begin
|
||||
try
|
||||
__Message.Read('ID_CONTACTO', TypeInfo(Integer), ID_CONTACTO, []);
|
||||
__Message.Read('ID_TIENDA', TypeInfo(Integer), ID_TIENDA, []);
|
||||
__Message.Read('ES_ACREEDOR', TypeInfo(Integer), ES_ACREEDOR, []);
|
||||
__Message.Read('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []);
|
||||
__Message.Read('PROVEEDOR', TypeInfo(String), PROVEEDOR, []);
|
||||
|
||||
lResult := (__Instance as IsrvContabilidad).AnadirSubCuentaProveedor(ID_CONTACTO, ID_TIENDA, ID_EMPRESA, PROVEEDOR);
|
||||
lResult := (__Instance as IsrvContabilidad).AnadirSubCuentaProveedor(ID_CONTACTO, ES_ACREEDOR, ID_EMPRESA, PROVEEDOR);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContabilidad', 'AnadirSubCuentaProveedorResponse');
|
||||
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -114,12 +114,12 @@ uses
|
||||
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_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',
|
||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de abril de 2008 14:43</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de abril de 2008 20:40</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 2,1,8,0
|
||||
PRODUCTVERSION 2,1,8,0
|
||||
FILEVERSION 2,1,9,0
|
||||
PRODUCTVERSION 2,1,9,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "2.1.8.0\0"
|
||||
VALUE "FileVersion", "2.1.9.0\0"
|
||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||
VALUE "ProductVersion", "2.1.8.0\0"
|
||||
VALUE "CompileDate", "jueves, 10 de abril de 2008 14:55\0"
|
||||
VALUE "ProductVersion", "2.1.9.0\0"
|
||||
VALUE "CompileDate", "martes, 15 de abril de 2008 11:15\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user