Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se adaptan los albaranes de cliente para que se puedan relacionar con las oredenes de devolucion y asi ver en la oreden de que albaran procede y si esta facturado o no

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@280 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-09-18 17:39:18 +00:00
parent ec5e7e3b2d
commit 46bb97ed57
45 changed files with 2242 additions and 555 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Database/FACTUGES.FDB
View File

Binary file not shown.

328
Database/Script.txt
View File

@ -1,147 +1,215 @@
DROP VIEW V_PED_PROV_ART_SIN_ALBARAN;
DROP VIEW V_PED_CLI_ART_SIN_ALBARAN;
ALTER TABLE ALBARANES_CLIENTE
ADD ID_ALBARAN_DEV TIPO_ID;
CREATE VIEW V_PED_CLI_ART_SIN_ALBARAN(
ALTER TABLE ALBARANES_PROVEEDOR
ADD ID_ALBARAN_DEV TIPO_ID;
DROP VIEW V_ALBARANES_CLIENTE;
CREATE VIEW V_ALBARANES_CLIENTE(
ID,
ID_PEDIDO,
ID_EMPRESA,
REFERENCIA_PEDIDO,
REFERENCIA_CLI_PEDIDO,
FECHA_PEDIDO,
FECHA_PREVISTA_PEDIDO,
ID_CLIENTE,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IVA,
ID_FORMA_PAGO,
CLIENTE,
ID_ARTICULO,
FAMILIA,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
DESCRIPCION,
CANTIDAD_PEDIDA,
CANTIDAD_RESERVADA,
CANTIDAD_ENVIADA,
CANTIDAD_SERVIDA,
CANTIDAD_PENDIENTE,
PRECIO_COSTE,
DESCUENTO,
PRECION_NETO)
AS
SELECT
V_PED_CLI_ARTICULOS.ID_PEDIDO || 0 || V_PED_CLI_ARTICULOS.ID_ARTICULO as ID, /*Para tener un ID unico sobre el que poder consultar en la sentencia de selección del grid*/
V_PED_CLI_ARTICULOS.ID_PEDIDO,
PEDIDOS_CLIENTE.ID_EMPRESA,
PEDIDOS_CLIENTE.referencia,
PEDIDOS_CLIENTE.referencia_cliente,
PEDIDOS_CLIENTE.fecha_pedido,
PEDIDOS_CLIENTE.fecha_prevista_envio,
PEDIDOS_CLIENTE.id_cliente,
PEDIDOS_CLIENTE.CALLE,
PEDIDOS_CLIENTE.CODIGO_POSTAL,
PEDIDOS_CLIENTE.POBLACION,
PEDIDOS_CLIENTE.PROVINCIA,
PEDIDOS_CLIENTE.PERSONA_CONTACTO,
PEDIDOS_CLIENTE.TELEFONO,
PEDIDOS_CLIENTE.IVA,
PEDIDOS_CLIENTE.ID_FORMA_PAGO,
CONTACTOS.nombre,
V_PED_CLI_ARTICULOS.ID_ARTICULO,
articulos.familia,
articulos.referencia,
articulos.referencia_prov,
articulos.descripcion,
V_PED_CLI_ARTICULOS.CANTIDAD_PEDIDA,
V_PED_CLI_ARTICULOS.CANTIDAD_RESERVADA,
V_PED_CLI_ARTICULOS.CANTIDAD_ENVIADA,
V_PED_CLI_ARTICULOS.CANTIDAD_SERVIDA,
V_PED_CLI_ARTICULOS.CANTIDAD_PENDIENTE,
ARTICULOS.PRECIO_COSTE,
CLIENTES_DTOS_PROVEEDORES.DESCUENTO,
(ARTICULOS.PRECIO_COSTE * CLIENTES_DTOS_PROVEEDORES.DESCUENTO)/100 as PRECIO_NETO
from V_PED_CLI_ARTICULOS
left join PEDIDOS_CLIENTE on (PEDIDOS_CLIENTE.id = V_PED_CLI_ARTICULOS.id_pedido)
left join CONTACTOS on (contactos.id = PEDIDOS_CLIENTE.id_cliente)
left join articulos on (articulos.id = V_PED_CLI_ARTICULOS.ID_ARTICULO)
LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES
ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR)
AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = contactos.id))
where cantidad_pendiente > 0;
CREATE VIEW V_PED_PROV_ART_SIN_ALBARAN(
ID,
REFERENCIA_CLIENTE,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
SITUACION,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
ID_EMPRESA,
REFERENCIA_PEDIDO,
FECHA_PEDIDO,
FECHA_CONFIRMACION,
ID_PROVEEDOR,
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IVA,
ID_FORMA_PAGO,
PROVEEDOR,
ID_ARTICULO,
FAMILIA,
REFERENCIA,
REFERENCIA_PROVEEDOR,
DESCRIPCION,
CANTIDAD_PEDIDA,
CANTIDAD_RECIBIDA,
CANTIDAD_PENDIENTE,
PRECIO_COSTE,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
PRECIO_NETO,
PRECIO_PORTE)
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO,
FECHA_ENVIO,
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS)
AS
SELECT
V_PED_PROV_ARTICULOS.ID_PEDIDO || 0 || V_PED_PROV_ARTICULOS.ID_ARTICULO as ID, /*Para tener un ID unico sobre el que poder consultar en la sentencia de selección del grid*/
V_PED_PROV_ARTICULOS.ID_PEDIDO,
PEDIDOS_PROVEEDOR.ID_EMPRESA,
PEDIDOS_PROVEEDOR.referencia,
PEDIDOS_PROVEEDOR.fecha_pedido,
PEDIDOS_PROVEEDOR.fecha_confirmacion,
PEDIDOS_PROVEEDOR.id_proveedor,
PEDIDOS_PROVEEDOR.CALLE,
PEDIDOS_PROVEEDOR.CODIGO_POSTAL,
PEDIDOS_PROVEEDOR.POBLACION,
PEDIDOS_PROVEEDOR.PROVINCIA,
PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,
PEDIDOS_PROVEEDOR.TELEFONO,
PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
CONTACTOS.nombre,
V_PED_PROV_ARTICULOS.ID_ARTICULO,
articulos.familia,
articulos.referencia,
articulos.referencia_prov,
articulos.descripcion,
V_PED_PROV_ARTICULOS.CANTIDAD_PEDIDA,
V_PED_PROV_ARTICULOS.CANTIDAD_RECIBIDA,
V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE,
ALBARANES_CLIENTE.ID,
ALBARANES_CLIENTE.ID_EMPRESA,
ALBARANES_CLIENTE.ID_CLIENTE,
CLIENTES.NOMBRE,
ALBARANES_CLIENTE.FECHA_ALBARAN,
ALBARANES_CLIENTE.REFERENCIA,
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
ALBARANES_CLIENTE.TIPO,
ALBARANES_CLIENTE.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_CLI_ALB_DEV.REFERENCIA,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_CLIENTE.ID_PEDIDO,
PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
ALBARANES_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
ALBARANES_CLIENTE.CALLE,
ALBARANES_CLIENTE.CODIGO_POSTAL,
ALBARANES_CLIENTE.POBLACION,
ALBARANES_CLIENTE.PROVINCIA,
ALBARANES_CLIENTE.PERSONA_CONTACTO,
ALBARANES_CLIENTE.TELEFONO,
ALBARANES_CLIENTE.IMPORTE_NETO,
ALBARANES_CLIENTE.IMPORTE_PORTE,
ALBARANES_CLIENTE.DESCUENTO,
ALBARANES_CLIENTE.IMPORTE_DESCUENTO,
ALBARANES_CLIENTE.BASE_IMPONIBLE,
ALBARANES_CLIENTE.IVA,
ALBARANES_CLIENTE.IMPORTE_IVA,
ALBARANES_CLIENTE.IMPORTE_TOTAL,
ALBARANES_CLIENTE.OBSERVACIONES,
ALBARANES_CLIENTE.INCIDENCIAS,
ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS,
ALBARANES_CLIENTE.FECHA_ALTA,
ALBARANES_CLIENTE.FECHA_MODIFICACION,
ALBARANES_CLIENTE.USUARIO,
ALBARANES_CLIENTE.ID_FORMA_PAGO,
ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION,
CLIENTES_DATOS.ID_AGENTE,
AGENTES.NOMBRE,
IMPRESIONES.NUM_COPIAS
ARTICULOS.PRECIO_COSTE,
ARTICULOS.DESCUENTO,
ARTICULOS.PRECIO_NETO,
ARTICULOS.PRECIO_PORTE
FROM
ALBARANES_CLIENTE
INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN ALBARANES_CLIENTE ALB_DEV ON (ALB_DEV.ID = ALBARANES_CLIENTE.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_CLIENTE FAC_CLI_ALB_DEV ON (FAC_CLI_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
;
from V_PED_PROV_ARTICULOS
left join PEDIDOS_PROVEEDOR on (PEDIDOS_PROVEEDOR.id = V_PED_PROV_ARTICULOS.id_pedido)
left join CONTACTOS on (contactos.id = PEDIDOS_PROVEEDOR.id_proveedor)
left join articulos on (articulos.id = V_PED_PROV_ARTICULOS.ID_ARTICULO)
where cantidad_pendiente > 0;
DROP VIEW V_ALBARANES_PROVEEDOR;
CREATE VIEW V_ALBARANES_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
ALBARANES_PROVEEDOR.ID_EMPRESA,
ALBARANES_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE,
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
ALBARANES_PROVEEDOR.TIPO,
ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_PROV_ALB_DEV.REFERENCIA,
ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
ALBARANES_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
ALBARANES_PROVEEDOR.CALLE,
ALBARANES_PROVEEDOR.CODIGO_POSTAL,
ALBARANES_PROVEEDOR.POBLACION,
ALBARANES_PROVEEDOR.PROVINCIA,
ALBARANES_PROVEEDOR.PERSONA_CONTACTO,
ALBARANES_PROVEEDOR.TELEFONO,
ALBARANES_PROVEEDOR.IMPORTE_NETO,
ALBARANES_PROVEEDOR.IMPORTE_PORTE,
ALBARANES_PROVEEDOR.DESCUENTO,
ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO,
ALBARANES_PROVEEDOR.BASE_IMPONIBLE,
ALBARANES_PROVEEDOR.IVA,
ALBARANES_PROVEEDOR.IMPORTE_IVA,
ALBARANES_PROVEEDOR.IMPORTE_TOTAL,
ALBARANES_PROVEEDOR.OBSERVACIONES,
ALBARANES_PROVEEDOR.INCIDENCIAS,
ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS,
ALBARANES_PROVEEDOR.FECHA_ALTA,
ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
ALBARANES_PROVEEDOR.USUARIO,
ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
IMPRESIONES.NUM_COPIAS
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
LEFT OUTER JOIN ALBARANES_PROVEEDOR ALB_DEV ON (ALB_DEV.ID = ALBARANES_PROVEEDOR.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_PROVEEDOR FAC_PROV_ALB_DEV ON (FAC_PROV_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'))
;

186
Database/VISTAS.SQL
View File

@ -296,44 +296,48 @@ WHERE
CREATE VIEW V_ALBARANES_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_PROVEEDOR,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PED_PROVEEDOR,
ID_FACTURA,
REF_FACTURA,
REF_FACTURA_PROV,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
NUM_COPIAS)
AS
SELECT
ALBARANES_PROVEEDOR.ID,
ALBARANES_PROVEEDOR.ID_EMPRESA,
@ -343,6 +347,10 @@ SELECT
ALBARANES_PROVEEDOR.REFERENCIA,
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
ALBARANES_PROVEEDOR.TIPO,
ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_PROV_ALB_DEV.REFERENCIA,
ALBARANES_PROVEEDOR.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
ALBARANES_PROVEEDOR.ID_PEDIDO,
@ -375,6 +383,8 @@ SELECT
FROM
ALBARANES_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
LEFT OUTER JOIN ALBARANES_PROVEEDOR ALB_DEV ON (ALB_DEV.ID = ALBARANES_PROVEEDOR.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_PROVEEDOR FAC_PROV_ALB_DEV ON (FAC_PROV_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
@ -996,49 +1006,53 @@ FROM ALBARANES_CLIENTE;
CREATE VIEW V_ALBARANES_CLIENTE(
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_CLIENTE,
TIPO,
SITUACION,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO,
FECHA_ENVIO,
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS)
AS
ID,
ID_EMPRESA,
ID_CLIENTE,
NOMBRE,
FECHA_ALBARAN,
REFERENCIA,
REFERENCIA_CLIENTE,
TIPO,
ID_ALBARAN_DEV,
REFERENCIA_ALB_DEV,
ID_FAC_ALB_DEV,
REFERENCIA_FAC_ALB_DEV,
SITUACION,
ID_ALMACEN,
NOMBRE_ALMACEN,
ID_PEDIDO,
REF_PEDIDO,
ID_FACTURA,
REF_FACTURA,
CALLE,
CODIGO_POSTAL,
POBLACION,
PROVINCIA,
PERSONA_CONTACTO,
TELEFONO,
IMPORTE_NETO,
IMPORTE_PORTE,
DESCUENTO,
IMPORTE_DESCUENTO,
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
IMPORTE_TOTAL,
OBSERVACIONES,
INCIDENCIAS,
INCIDENCIAS_ACTIVAS,
FECHA_ALTA,
FECHA_MODIFICACION,
USUARIO,
ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO,
FECHA_ENVIO,
FECHA_RECEPCION,
ID_AGENTE,
AGENTE,
NUM_COPIAS)
AS
SELECT
ALBARANES_CLIENTE.ID,
ALBARANES_CLIENTE.ID_EMPRESA,
@ -1048,6 +1062,10 @@ SELECT
ALBARANES_CLIENTE.REFERENCIA,
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
ALBARANES_CLIENTE.TIPO,
ALBARANES_CLIENTE.ID_ALBARAN_DEV,
ALB_DEV.REFERENCIA,
ALB_DEV.ID_FACTURA,
FAC_CLI_ALB_DEV.REFERENCIA,
V_ALB_CLI_SITUACION.SITUACION,
ALBARANES_CLIENTE.ID_ALMACEN,
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
@ -1087,13 +1105,15 @@ FROM
ALBARANES_CLIENTE
INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN ALBARANES_CLIENTE ALB_DEV ON (ALB_DEV.ID = ALBARANES_CLIENTE.ID_ALBARAN_DEV)
LEFT OUTER JOIN FACTURAS_CLIENTE FAC_CLI_ALB_DEV ON (FAC_CLI_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'));
LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
;
/*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo).

6
Database/factuges.sql
View File

@ -156,7 +156,8 @@ CREATE TABLE ALBARANES_CLIENTE (
FECHA_RECEPCION DATE,
FECHA_PREVISTA_ENVIO DATE,
REFERENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES,
TIPO VARCHAR(1)
TIPO VARCHAR(1),
ID_ALBARAN_DEV TIPO_ID
);
@ -211,7 +212,8 @@ CREATE TABLE ALBARANES_PROVEEDOR (
IMPORTE_PORTE TIPO_IMPORTE,
REFERENCIA_PROVEEDOR VARCHAR(255),
REF_FACTURA_PROV VARCHAR(255),
TIPO VARCHAR(1)
TIPO VARCHAR(1),
ID_ALBARAN_DEV TIPO_ID
);

6
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Release">6</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,13 +162,13 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.5.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.6.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.5.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.6.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys> <Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 3,0,5,0
PRODUCTVERSION 3,0,5,0
FILEVERSION 3,0,6,0
PRODUCTVERSION 3,0,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,9 +13,9 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.5.0\0"
VALUE "FileVersion", "3.0.6.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductVersion", "3.0.5.0\0"
VALUE "ProductVersion", "3.0.6.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

7
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup
View File

@ -18,14 +18,15 @@
<Projects Name="AlbaranesCliente_model.bpl">Model\AlbaranesCliente_model.bdsproj</Projects>
<Projects Name="AlbaranesCliente_data.bpl">Data\AlbaranesCliente_data.bdsproj</Projects>
<Projects Name="AlbaranesCliente_controller.bpl">Controller\AlbaranesCliente_controller.bdsproj</Projects>
<Projects Name="FacturasCliente_controller.bpl">..\Facturas de cliente\Controller\FacturasCliente_controller.bdsproj</Projects>
<Projects Name="PedCli_AlbCli_relation.bpl">..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.bdsproj</Projects>
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="AlbaranesCliente_view.bpl">Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="AlbaranesCliente_plugin.bpl">Plugin\AlbaranesCliente_plugin.bdsproj</Projects>
<Projects Name="AlbCli_FacCli_relation.bpl">..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="FacturasCliente_view.bpl">..\Facturas de cliente\Views\FacturasCliente_view.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">..\..\Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="FactuGES.exe">..\..\Cliente\FactuGES.bdsproj</Projects>
<Projects Name="PedCli_AlbCli_relation.bpl">..\Relaciones\Pedidos de cliente - Albaranes de cliente\PedCli_AlbCli_relation.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl AlbCli_FacCli_relation.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe PedCli_AlbCli_relation.bpl</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_view.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_controller.bpl PedCli_AlbCli_relation.bpl AlbCli_FacCli_relation.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FactuGES_Server.exe FactuGES.exe</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

31
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -39,6 +39,7 @@ type
procedure DescartarCambios(AAlbaran : IBizAlbaranCliente);
function Existe(const ID: Integer) : Boolean;
function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
function GenerarOrdenDev(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
@ -116,6 +117,7 @@ type
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranCliente);
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranCliente);
function Duplicar(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
function GenerarOrdenDev(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
AAlbaran: IBizAlbaranCliente);
@ -425,7 +427,9 @@ begin
FECHA_PREVISTA_ENVIO := 0;
FECHA_ENVIO := 0;
FECHA_RECEPCION := 0;
REF_FACTURA := '';
ID_FACTURA := 0;
REF_PEDIDO := '';
ID_PEDIDO := 0;
end;
Result.Post;
@ -1038,6 +1042,33 @@ begin
end;
end;
function TAlbaranesClienteController.GenerarOrdenDev(AAlbaran: IBizAlbaranCliente): IBizAlbaranCliente;
var
AOrden : IBizAlbaranCliente;
IdAlbaran: Integer;
begin
if Assigned(AAlbaran) then
begin
IdAlbaran := AAlbaran.ID;
AOrden := Duplicar(AAlbaran);
if Assigned(AOrden) then
begin
if not AOrden.DataTable.Editing then
AOrden.Edit;
AOrden.TIPO := CTE_TIPO_ALBARAN_DEV;
AOrden.ID_ALBARAN_DEV := IdAlbaran;
AOrden.Post;
//Convierte todos los articulos del albaran a negativos por se una orden de devolucion
FDetallesController.CambiarSignoDetalles(AOrden.Detalles);
end;
Ver(AOrden);
end;
end;
function TAlbaranesClienteController.GetClienteController: IClientesController;
begin
Result := FClienteController;

55
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -621,6 +621,61 @@ object DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesCliente_NUM_COPIAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'AlbaranesCliente_ID_ALBARAN_DEV'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesCliente_ID_ALBARAN_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'AlbaranesCliente_ID_FAC_ALB_DEV'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesCliente_ID_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. factura alb. dev.'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False

164
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{DCC75E0A-1413-4F74-8EF2-D5261717689F}';
RID_AlbaranesCliente = '{BD15D29D-2048-44B3-BE79-0485BDB36C8E}';
RID_AlbaranesCliente_Detalles = '{4CA5BC9A-72EA-4187-BD2E-A9EF5BAAF24E}';
RID_AlbaranesCliente_Detalles_Refresh = '{9F94485D-D822-4622-A4C0-30D76050FD48}';
RID_AlbaranesCliente_Refresh = '{2CF53053-8A71-4901-80B3-3527508FD486}';
RID_DarReferencia = '{EB3008DB-9520-42B6-8860-4AAD682CA8B5}';
RID_AlbaranesCliente = '{21D36B32-4BCE-485C-A44A-9A72CC73A57E}';
RID_AlbaranesCliente_Detalles = '{493A3E1F-36BC-42B1-B149-2CFFAE856399}';
RID_AlbaranesCliente_Detalles_Refresh = '{DED95756-45A8-43C5-A74D-314BCED7EEE4}';
RID_AlbaranesCliente_Refresh = '{4A56E94D-34D5-424F-8CDB-8FDF86479EA6}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -71,6 +71,10 @@ const
fld_AlbaranesClienteID_AGENTE = 'ID_AGENTE';
fld_AlbaranesClienteAGENTE = 'AGENTE';
fld_AlbaranesClienteNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesClienteID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
fld_AlbaranesClienteREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesClienteID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
@ -115,6 +119,10 @@ const
idx_AlbaranesClienteID_AGENTE = 39;
idx_AlbaranesClienteAGENTE = 40;
idx_AlbaranesClienteNUM_COPIAS = 41;
idx_AlbaranesClienteID_ALBARAN_DEV = 42;
idx_AlbaranesClienteREFERENCIA_ALB_DEV = 43;
idx_AlbaranesClienteID_FAC_ALB_DEV = 44;
idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV = 45;
{ AlbaranesCliente_Detalles fields }
fld_AlbaranesCliente_DetallesID = 'ID';
@ -227,6 +235,10 @@ const
fld_AlbaranesCliente_RefreshID_AGENTE = 'ID_AGENTE';
fld_AlbaranesCliente_RefreshAGENTE = 'AGENTE';
fld_AlbaranesCliente_RefreshNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesCliente_RefreshID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
{ AlbaranesCliente_Refresh field indexes }
idx_AlbaranesCliente_RefreshID = 0;
@ -271,11 +283,15 @@ const
idx_AlbaranesCliente_RefreshID_AGENTE = 39;
idx_AlbaranesCliente_RefreshAGENTE = 40;
idx_AlbaranesCliente_RefreshNUM_COPIAS = 41;
idx_AlbaranesCliente_RefreshID_ALBARAN_DEV = 42;
idx_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV = 43;
idx_AlbaranesCliente_RefreshID_FAC_ALB_DEV = 44;
idx_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV = 45;
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{569D59FB-01EC-4F5E-B15D-B32F804F2345}']
['{0EBA0952-DA21-4716-941F-6B43CC6545CF}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -304,7 +320,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{121684CB-5C66-4812-9536-EAD43E7D4B71}']
['{BDCF155C-E6B4-4D9F-874B-75667EBCB8AF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -390,6 +406,14 @@ type
procedure SetAGENTEValue(const aValue: String);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetID_ALBARAN_DEVValue: Integer;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
function GetREFERENCIA_ALB_DEVValue: String;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
function GetID_FAC_ALB_DEVValue: Integer;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
{ Properties }
@ -435,6 +459,10 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesClienteDataTableRules }
@ -526,6 +554,14 @@ type
procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -570,6 +606,10 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -579,7 +619,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{0D42AFD8-9D02-42A7-A52E-4BD1087377C2}']
['{0BA1E8DD-4911-4C91-BE56-A5E014DC032E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -692,7 +732,7 @@ type
{ IAlbaranesCliente_Detalles_Refresh }
IAlbaranesCliente_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{370021CC-EFF6-465B-9577-8DD5FFB6F162}']
['{26DDDA1E-6A88-4840-AE9A-6B169D04C411}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -805,7 +845,7 @@ type
{ IAlbaranesCliente_Refresh }
IAlbaranesCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{20F45447-E91C-4B75-9381-526433477CD7}']
['{FE5577F8-543C-4BA4-B52F-BCB1B0D1BF46}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -891,6 +931,14 @@ type
procedure SetAGENTEValue(const aValue: String);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetID_ALBARAN_DEVValue: Integer;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
function GetREFERENCIA_ALB_DEVValue: String;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
function GetID_FAC_ALB_DEVValue: Integer;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
{ Properties }
@ -936,6 +984,10 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesCliente_RefreshDataTableRules }
@ -1027,6 +1079,14 @@ type
procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1071,6 +1131,10 @@ type
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1537,6 +1601,46 @@ begin
DataTable.Fields[idx_AlbaranesClienteNUM_COPIAS].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_ALBARAN_DEV].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_ALBARAN_DEV].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteREFERENCIA_ALB_DEV].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClienteREFERENCIA_ALB_DEV].AsString := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_FAC_ALB_DEV].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_FAC_ALB_DEV].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV].AsString;
end;
procedure TAlbaranesClienteDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesClienteREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
{ TAlbaranesCliente_DetallesDataTableRules }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2295,6 +2399,46 @@ begin
DataTable.Fields[idx_AlbaranesCliente_RefreshNUM_COPIAS].AsInteger := aValue;
end;
function TAlbaranesCliente_RefreshDataTableRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_ALBARAN_DEV].AsInteger;
end;
procedure TAlbaranesCliente_RefreshDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_RefreshID_ALBARAN_DEV].AsInteger := aValue;
end;
function TAlbaranesCliente_RefreshDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV].AsString;
end;
procedure TAlbaranesCliente_RefreshDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV].AsString := aValue;
end;
function TAlbaranesCliente_RefreshDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_RefreshID_FAC_ALB_DEV].AsInteger;
end;
procedure TAlbaranesCliente_RefreshDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesCliente_RefreshID_FAC_ALB_DEV].AsInteger := aValue;
end;
function TAlbaranesCliente_RefreshDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV].AsString;
end;
procedure TAlbaranesCliente_RefreshDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
initialization
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);

196
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{BB048978-E82B-4CB5-9C1D-7107E5F17BB1}';
RID_AlbaranesClienteDelta = '{D5AF214C-6088-4F9D-B3AD-31F0331285DE}';
RID_AlbaranesCliente_DetallesDelta = '{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}';
RID_AlbaranesCliente_RefreshDelta = '{036CCB6F-FFF2-4369-8F75-FE0D068481B6}';
RID_DarReferenciaDelta = '{686A4397-FE20-45D3-9CED-8AF55D9542EB}';
RID_AlbaranesClienteDelta = '{51F248ED-D277-4C06-BAC6-810A28646B1B}';
RID_AlbaranesCliente_DetallesDelta = '{CC2B288D-936A-40AC-8691-DC28A6515213}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{8D8BE999-438B-4A1F-9BFE-D9215AFFE426}';
RID_AlbaranesCliente_RefreshDelta = '{EF94943F-4DE8-49C6-920D-635E8E5783DD}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{BB048978-E82B-4CB5-9C1D-7107E5F17BB1}']
['{686A4397-FE20-45D3-9CED-8AF55D9542EB}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{D5AF214C-6088-4F9D-B3AD-31F0331285DE}']
['{51F248ED-D277-4C06-BAC6-810A28646B1B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -91,6 +91,10 @@ type
function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String;
function GetOldNUM_COPIASValue : Integer;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -135,6 +139,10 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -268,6 +276,18 @@ type
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -354,6 +374,14 @@ type
property OldAGENTE : String read GetOldAGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -363,7 +391,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}']
['{CC2B288D-936A-40AC-8691-DC28A6515213}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -490,7 +518,7 @@ type
{ IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
['{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}']
['{8D8BE999-438B-4A1F-9BFE-D9215AFFE426}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -617,7 +645,7 @@ type
{ IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
['{036CCB6F-FFF2-4369-8F75-FE0D068481B6}']
['{EF94943F-4DE8-49C6-920D-635E8E5783DD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -661,6 +689,10 @@ type
function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String;
function GetOldNUM_COPIASValue : Integer;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -705,6 +737,10 @@ type
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesCliente_RefreshBusinessProcessorRules }
@ -838,6 +874,18 @@ type
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -924,6 +972,14 @@ type
property OldAGENTE : String read GetOldAGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1608,6 +1664,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALBARAN_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_ALBARAN_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALBARAN_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV] := aValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2728,6 +2844,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);

204
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -79,7 +79,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE, NUM_COPIAS'#10' FROM'#10' V_ALBARANES_CLIENTE'
'TE, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV,'#10' ID_FAC_A' +
'LB_DEV, REFERENCIA_FAC_ALB_DEV'#10' FROM'#10' V_ALBARANES_CLIENTE'
StatementType = stSQL
ColumnMappings = <
item
@ -249,6 +250,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'ID_ALBARAN_DEV'
TableField = 'ID_ALBARAN_DEV'
end
item
DatasetField = 'REFERENCIA_ALB_DEV'
TableField = 'REFERENCIA_ALB_DEV'
end
item
DatasetField = 'ID_FAC_ALB_DEV'
TableField = 'ID_FAC_ALB_DEV'
end
item
DatasetField = 'REFERENCIA_FAC_ALB_DEV'
TableField = 'REFERENCIA_FAC_ALB_DEV'
end>
end>
Name = 'AlbaranesCliente'
@ -683,8 +700,49 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesCliente_NUM_COPIAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesCliente_ID_ALBARAN_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesCliente_ID_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
@ -1216,8 +1274,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FEC' +
'HA_ALTA,'#10' FECHA_MODIFICACION, USUARIO, ID_FORMA_PAGO, FECHA_P' +
'REVISTA_ENVIO, FECHA_ENVIO,'#10' FECHA_RECEPCION, ID_AGENTE, AGEN' +
'TE, NUM_COPIAS'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' WHERE V_ALBARANE' +
'S_CLIENTE.ID = :ID'
'TE, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV,'#10' ID_FAC_A' +
'LB_DEV, REFERENCIA_FAC_ALB_DEV'#10' FROM'#10' V_ALBARANES_CLIENTE'#10' ' +
'WHERE V_ALBARANES_CLIENTE.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -1387,6 +1446,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'ID_ALBARAN_DEV'
TableField = 'ID_ALBARAN_DEV'
end
item
DatasetField = 'REFERENCIA_ALB_DEV'
TableField = 'REFERENCIA_ALB_DEV'
end
item
DatasetField = 'ID_FAC_ALB_DEV'
TableField = 'ID_FAC_ALB_DEV'
end
item
DatasetField = 'REFERENCIA_FAC_ALB_DEV'
TableField = 'REFERENCIA_FAC_ALB_DEV'
end>
end>
Name = 'AlbaranesCliente_Refresh'
@ -1830,6 +1905,50 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesCliente_REFERENCIA_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -2409,6 +2528,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -2423,15 +2549,16 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
' IMPORTE_IVA, IMPORTE_TOTAL, '#10' OBSERVACIONES, INCIDENCIAS, I' +
'NCIDENCIAS_ACTIVAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARI' +
'O, ID_FORMA_PAGO,'#10' FECHA_PREVISTA_ENVIO, FECHA_ENVIO, FECHA_' +
'RECEPCION, TIPO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :R' +
'EFERENCIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBARAN, :ID_PEDIDO,' +
' :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACI' +
'ON, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFONO, :BASE_IMPONI' +
'BLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCUENTO, :IMPORTE_D' +
'ESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :OBSERVACION' +
'ES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :FECHA_ALTA, :FECH' +
'A_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION, :TIPO)'
'RECEPCION, TIPO, ID_ALBARAN_DEV)'#10' VALUES'#10' (:ID, :ID_EMPRESA,' +
' :ID_CLIENTE, :REFERENCIA, :REFERENCIA_CLIENTE,'#10' :FECHA_ALBA' +
'RAN, :ID_PEDIDO, :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10' :CODIGO_' +
'POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO, '#10' :TELEFO' +
'NO, :BASE_IMPONIBLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10' :DESCU' +
'ENTO, :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOT' +
'AL, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10' :F' +
'ECHA_ALTA, :FECHA_MODIFICACION, :USUARIO,'#10' :ID_FORMA_PAGO, :' +
'FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION, :TIPO, :ID' +
'_ALBARAN_DEV)'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2680,6 +2807,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
@ -2710,7 +2844,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'ARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' FECHA_' +
'PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO,'#10' FECHA_ENVIO = :FECHA' +
'_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' TIPO = :TIP' +
'O'#10' WHERE'#10' (ID = :OLD_ID)'
'O,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_I' +
'D)'
StatementType = stSQL
ColumnMappings = <>
end>
@ -3301,6 +3436,45 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DisplayWidth = 0
DisplayLabel = 'Agente'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesCliente_NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NUM_COPIAS'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesCliente_ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'AlbaranesCliente_REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'AlbaranesCliente_ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'AlbaranesCliente_REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. factura alb. dev.'
Alignment = taLeftJustify
end>
Left = 48
Top = 152

40
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -181,42 +181,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ToolBar1: TToolBar
Width = 757
ExplicitWidth = 757
inherited UpDown1: TUpDown
Left = 236
ExplicitLeft = 236
end
inherited ToolButton13: TToolButton
Left = 253
ExplicitLeft = 253
end
inherited ToolButton6: TToolButton
Left = 261
ExplicitLeft = 261
end
inherited ToolButton7: TToolButton
Left = 295
ExplicitLeft = 295
end
inherited ToolButton8: TToolButton
Left = 329
ExplicitLeft = 329
end
inherited ToolButton12: TToolButton
Left = 363
ExplicitLeft = 363
end
inherited ToolButton9: TToolButton
Left = 371
ExplicitLeft = 371
end
inherited ToolButton10: TToolButton
Left = 405
ExplicitLeft = 405
end
inherited ToolButton11: TToolButton
Left = 439
ExplicitLeft = 439
end
end
inherited cxGrid: TcxGrid
Width = 757
@ -236,6 +200,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -342,7 +342,7 @@ begin
if Assigned(FController) then
begin
ViewAlbaran.ViewClienteAlbaran.Controller := Controller.ClienteController;
ViewAlbaran.Controller := Controller;
frViewDetallesAlbaranCliente1.Controller := Controller.DetallesController;
end;
end;

32
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -1,16 +1,17 @@
inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente'
ClientWidth = 583
ExplicitWidth = 591
ExplicitHeight = 240
ClientHeight = 449
ClientWidth = 855
ExplicitWidth = 863
ExplicitHeight = 476
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 583
Width = 855
Caption = 'Lista de albaranes de cliente'
ExplicitWidth = 583
inherited Image1: TImage
Left = 556
Left = 828
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -122,19 +123,19 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
end
inherited TBXDock: TTBXDock
Width = 583
Width = 855
ExplicitWidth = 583
inherited tbxMain: TTBXToolbar
ExplicitWidth = 583
ExplicitWidth = 638
object TBXSeparatorItem17: TTBXSeparatorItem [10]
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 583
ExplicitWidth = 855
end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 242
ExplicitWidth = 514
object TBXItem42: TTBXItem
Action = actEnviar
DisplayMode = nbdmImageAndText
@ -145,6 +146,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
object TBXSeparatorItem18: TTBXSeparatorItem
end
object TBXItem39: TTBXItem
Action = actGenerarOrden
DisplayMode = nbdmImageAndText
end
object TBXItem44: TTBXItem
Action = actConfirmarRecepcion
DisplayMode = nbdmImageAndText
@ -162,7 +167,8 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
end
inherited StatusBar: TJvStatusBar
Width = 583
Top = 430
Width = 855
ExplicitWidth = 583
end
inherited EditorActionList: TActionList
@ -213,6 +219,12 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
OnExecute = actGenerarEtiquetasExecute
OnUpdate = actGenerarEtiquetasUpdate
end
object actGenerarOrden: TAction
Category = 'Acciones'
Caption = 'Generar orden dev.'
ImageIndex = 23
OnExecute = actGenerarOrdenExecute
end
end
inherited SmallImages: TPngImageList
PngImages = <

15
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -36,6 +36,8 @@ type
actGenerarEtiquetas: TAction;
TBXItem38: TTBXItem;
JsListaAlbaranesNoEliminados: TJSDialog;
actGenerarOrden: TAction;
TBXItem39: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject);
@ -48,6 +50,7 @@ type
procedure actConfirmarRecepcionUpdate(Sender: TObject);
procedure actGenerarEtiquetasExecute(Sender: TObject);
procedure actGenerarEtiquetasUpdate(Sender: TObject);
procedure actGenerarOrdenExecute(Sender: TObject);
protected
FAlbaranes: IBizAlbaranCliente;
@ -187,6 +190,12 @@ begin
and ViewGrid.esSeleccionCeldaDatos;
end;
procedure TfEditorAlbaranesCliente.actGenerarOrdenExecute(Sender: TObject);
begin
inherited;
FController.GenerarOrdenDev(Albaranes);
end;
procedure TfEditorAlbaranesCliente.actEnviarExecute(Sender: TObject);
var
AInventarioController : IInventarioController;
@ -274,12 +283,12 @@ end;
procedure TfEditorAlbaranesCliente.DuplicarInterno;
var
APedido : IBizAlbaranCliente;
AAlbaran : IBizAlbaranCliente;
begin
inherited;
APedido := FController.Duplicar(Albaranes);
AAlbaran := FController.Duplicar(Albaranes);
try
FController.Ver(APedido);
FController.Ver(AAlbaran);
finally
actRefrescar.Execute;
end;

5
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
View File

@ -1,6 +1,5 @@
inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
Caption = 'Lista de '#243'rdenes de devoluci'#243'n a cliente'
ExplicitHeight = 478
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -149,6 +148,10 @@ inherited fEditorAlbaranesDevCliente: TfEditorAlbaranesDevCliente
Enabled = False
Visible = False
end
inherited actGenerarOrden: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList
PngImages = <

88
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -13,6 +13,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
822
@ -51,10 +52,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 119
Width = 301
end
object memObservaciones: TcxDBMemo
Left = 440
Left = 447
Top = 387
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
@ -68,8 +69,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 21
Height = 253
Width = 186
Height = 141
Width = 353
end
object eReferencia: TcxDBTextEdit
Left = 116
@ -95,12 +96,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 143
Width = 301
end
inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
Left = 440
Left = 447
Top = 28
Width = 350
Width = 353
Height = 212
Align = alTop
AutoSize = True
@ -112,37 +113,40 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentFont = False
TabOrder = 17
ReadOnly = False
ExplicitLeft = 440
ExplicitLeft = 447
ExplicitTop = 28
ExplicitWidth = 353
inherited dxLayoutControl1: TdxLayoutControl
Width = 353
Align = alTop
ExplicitWidth = 353
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224
Width = 224
ExplicitWidth = 279
Width = 279
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
ExplicitWidth = 279
Width = 279
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
ExplicitWidth = 279
Width = 279
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177
Width = 177
ExplicitWidth = 161
Width = 161
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
ExplicitWidth = 279
Width = 279
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 268
ExplicitLeft = 268
Left = 261
ExplicitLeft = 261
end
inherited Button3: TBitBtn
Left = 158
ExplicitLeft = 158
Left = 151
ExplicitLeft = 151
end
end
inherited DADataSource: TDADataSource
@ -179,7 +183,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Width = 263
Width = 301
end
object ePoblacion: TcxDBTextEdit
Left = 116
@ -198,10 +202,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Width = 162
Width = 200
end
object eCodigoPostal: TcxDBTextEdit
Left = 345
Left = 352
Top = 251
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
@ -236,7 +240,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Width = 263
Width = 301
end
object ePersonaContacto: TcxDBTextEdit
Left = 116
@ -256,7 +260,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Width = 84
Width = 301
end
object eTlfTrabajo: TcxDBTextEdit
Left = 116
@ -275,10 +279,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
Width = 122
Width = 301
end
object bElegirDireccion: TBitBtn
Left = 238
Left = 245
Top = 359
Width = 172
Height = 23
@ -287,7 +291,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 14
end
object Button1: TButton
Left = 278
Left = 285
Top = 138
Width = 132
Height = 23
@ -315,7 +319,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 16
Width = 163
end
object cbFormaPago: TcxDBLookupComboBox
Left = 116
@ -344,10 +348,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 32
Width = 163
end
object bFormasPago: TButton
Left = 278
Left = 285
Top = 109
Width = 132
Height = 23
@ -356,7 +360,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
OnClick = bFormasPagoClick
end
object eFechaRecepcion: TcxDBDateEdit
Left = 574
Left = 581
Top = 330
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
@ -378,7 +382,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
Width = 123
Width = 219
end
object cbConAlmacen: TCheckBox
Left = 32
@ -416,7 +420,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16
Width = 69
Width = 200
end
object eRefFacturaCli: TcxDBTextEdit
Left = 116
@ -442,10 +446,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 207
Width = 301
end
object eFechaPrevista: TcxDBDateEdit
Left = 574
Left = 581
Top = 276
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_ENVIO'
@ -469,7 +473,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 18
Width = 122
Width = 219
end
object eRefCliente: TcxDBTextEdit
Left = 116
@ -494,10 +498,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 284
Width = 301
end
object eFechaEnvio: TcxDBDateEdit
Left = 574
Left = 581
Top = 303
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
@ -519,7 +523,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 19
Width = 217
Width = 219
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False

31
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -12,7 +12,7 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaAlbaranCliente, Buttons, ActnList, uBizPedidosCliente,
uPedidosClienteController, ExtCtrls, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController;
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uAlbaranesClienteController;
type
IViewAlbaranCliente = interface(IViewBase)
@ -24,6 +24,10 @@ type
function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran write SetViewClienteAlbaran;
function GetController : IAlbaranesClienteController;
procedure SetController (const Value : IAlbaranesClienteController);
property Controller : IAlbaranesClienteController read GetController write SetController;
end;
TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente)
@ -117,6 +121,7 @@ type
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
protected
FController : IAlbaranesClienteController;
FAlbaran : IBizAlbaranCliente;
FAlmacenesController : IAlmacenesController;
FPedidoAsociado : IBizPedidoCliente;
@ -128,10 +133,14 @@ type
procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
function GetController : IAlbaranesClienteController;
procedure SetController (const Value : IAlbaranesClienteController);
public
property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran;
property Controller : IAlbaranesClienteController read GetController write SetController;
end;
implementation
@ -141,7 +150,7 @@ implementation
{ TfrViewAlbaranCliente }
uses
uClientesController, uBizDireccionesContacto, uAlbaranesClienteController,
uClientesController, uBizDireccionesContacto,
schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils,
uDialogUtils;
@ -236,12 +245,13 @@ end;
procedure TfrViewAlbaranCliente.CustomViewDestroy(Sender: TObject);
begin
inherited;
FController := Nil;
FViewClienteAlbaran := Nil;
FPedidoController := NIL;
FFormasPagoController := NIL;
FPedidoAsociado := NIL;
FAlmacenesController := NIL;
inherited;
end;
procedure TfrViewAlbaranCliente.eFechaEnvioPropertiesValidate(Sender: TObject;
@ -338,6 +348,11 @@ begin
Result := FAlbaran;
end;
function TfrViewAlbaranCliente.GetController: IAlbaranesClienteController;
begin
Result := FController;
end;
function TfrViewAlbaranCliente.GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
begin
Result := FViewClienteAlbaran;
@ -405,6 +420,16 @@ begin
end;
end;
procedure TfrViewAlbaranCliente.SetController(const Value: IAlbaranesClienteController);
begin
FController := Value;
if Assigned(FController) then
begin
ViewClienteAlbaran.Controller := Controller.ClienteController;
end;
end;
procedure TfrViewAlbaranCliente.SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
begin
FViewClienteAlbaran := Value;

154
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm
View File

@ -1,7 +1,9 @@
inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
inherited dxLayoutControl1: TdxLayoutControl
inherited Label1: TLabel
Top = 479
Width = 299
ExplicitTop = 479
ExplicitWidth = 299
end
inherited edtFechaAlbaran: TcxDBDateEdit
@ -9,17 +11,23 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
Width = 119
end
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 186
Left = 449
TabOrder = 23
ExplicitLeft = 449
ExplicitWidth = 342
ExplicitHeight = 253
Height = 253
Width = 186
Width = 342
end
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 143
Width = 143
end
inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente
Left = 449
Width = 350
TabOrder = 19
ExplicitLeft = 449
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
@ -43,51 +51,156 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
ExplicitWidth = 327
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 259
ExplicitLeft = 259
end
inherited Button3: TBitBtn
Left = 149
ExplicitLeft = 149
end
end
end
inherited eCalle: TcxDBTextEdit
Top = 253
TabOrder = 10
ExplicitTop = 253
ExplicitWidth = 263
Width = 263
end
inherited ePoblacion: TcxDBTextEdit
Top = 280
TabOrder = 11
ExplicitTop = 280
ExplicitWidth = 162
Width = 162
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 354
Top = 280
TabOrder = 12
ExplicitLeft = 354
ExplicitTop = 280
end
inherited eProvincia: TcxDBTextEdit
Top = 307
TabOrder = 13
ExplicitTop = 307
ExplicitWidth = 263
Width = 263
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 334
TabOrder = 14
ExplicitTop = 334
ExplicitWidth = 84
Width = 84
end
inherited eTlfTrabajo: TcxDBTextEdit
Top = 361
TabOrder = 15
ExplicitTop = 361
ExplicitWidth = 122
Width = 122
end
inherited eReferenciaPedidoCli: TcxTextEdit
ExplicitWidth = 16
Width = 16
inherited bElegirDireccion: TBitBtn
Left = 247
Top = 388
TabOrder = 16
ExplicitLeft = 247
ExplicitTop = 388
end
inherited Button1: TButton
Left = 287
ExplicitLeft = 287
end
inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 32
Width = 32
end
inherited bFormasPago: TButton
Left = 287
ExplicitLeft = 287
end
inherited eFechaRecepcion: TcxDBDateEdit
Left = 583
TabOrder = 22
ExplicitLeft = 583
ExplicitWidth = 123
Width = 123
end
object eReferenciaAlbaranCli: TcxTextEdit [17]
Left = 116
Top = 167
Anchors = [akLeft, akTop, akRight]
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 165
end
object Button2: TButton [18]
Left = 287
Top = 167
Width = 132
Height = 23
Action = actVerAlbaranCli
TabOrder = 8
end
inherited cbConAlmacen: TCheckBox
Top = 447
TabOrder = 17
ExplicitTop = 447
end
inherited cbAlmacen: TcxDBLookupComboBox
Top = 447
TabOrder = 18
ExplicitTop = 447
ExplicitWidth = 69
Width = 69
end
inherited eRefFacturaCli: TcxDBTextEdit
Top = 196
TabOrder = 9
ExplicitTop = 196
ExplicitWidth = 207
Width = 207
end
inherited eFechaPrevista: TcxDBDateEdit
Left = 583
TabOrder = 20
ExplicitLeft = 583
ExplicitWidth = 122
Width = 122
end
inherited eRefCliente: TcxDBTextEdit
ExplicitWidth = 284
Width = 284
end
inherited eFechaEnvio: TcxDBDateEdit
Left = 583
TabOrder = 21
ExplicitLeft = 583
ExplicitWidth = 217
Width = 217
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
Caption = 'Datos de la orden'
inherited dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Referencia:'
end
inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha de orden:'
end
@ -96,6 +209,24 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
inherited dxLayoutControl1Group15: TdxLayoutGroup
Visible = False
end
object dxLayoutControl1Group16: TdxLayoutGroup [1]
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item17: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. alb. origen:'
Control = eReferenciaAlbaranCli
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item25: TdxLayoutItem
ShowCaption = False
Control = Button2
ControlOptions.ShowBorder = False
end
end
inherited dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Ref. abono:'
end
@ -124,4 +255,11 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente
end
end
end
inherited ActionList1: TActionList
object actVerAlbaranCli: TAction
Caption = 'Ver el albar'#225'n origen'
OnExecute = actVerAlbaranCliExecute
OnUpdate = actVerAlbaranCliUpdate
end
end
end

78
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas
View File

@ -8,14 +8,24 @@ uses
dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase,
uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit,
cxMaskEdit, cxCalendar, cxControls;
cxMaskEdit, cxCalendar, cxControls, uBizAlbaranesCliente;
type
TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)
private
{ Private declarations }
public
{ Public declarations }
dxLayoutControl1Item17: TdxLayoutItem;
eReferenciaAlbaranCli: TcxTextEdit;
dxLayoutControl1Item25: TdxLayoutItem;
Button2: TButton;
dxLayoutControl1Group16: TdxLayoutGroup;
actVerAlbaranCli: TAction;
procedure actVerAlbaranCliExecute(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actVerAlbaranCliUpdate(Sender: TObject);
procedure frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
protected
FAlbaranAsociado : IBizAlbaranCliente;
procedure SetAlbaran(const Value: IBizAlbaranCliente); override;
end;
var
@ -25,4 +35,62 @@ implementation
{$R *.dfm}
procedure TfrViewAlbaranDevCliente.actVerAlbaranCliExecute(Sender: TObject);
begin
inherited;
Controller.Ver(FAlbaranAsociado);
end;
procedure TfrViewAlbaranDevCliente.actVerAlbaranCliUpdate(Sender: TObject);
begin
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := Assigned(FAlbaranAsociado);
end;
procedure TfrViewAlbaranDevCliente.CustomViewCreate(Sender: TObject);
begin
inherited;
FAlbaranAsociado := NIL;
end;
procedure TfrViewAlbaranDevCliente.CustomViewDestroy(Sender: TObject);
begin
FAlbaranAsociado := NIL;
inherited;
end;
procedure TfrViewAlbaranDevCliente.frViewClienteAlbaranactElegirContactoUpdate(
Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := not Assigned(FAlbaranAsociado);
end;
procedure TfrViewAlbaranDevCliente.SetAlbaran(const Value: IBizAlbaranCliente);
begin
inherited;
if Assigned(FAlbaran) then
begin
FAlbaranAsociado := NIL;
if (FAlbaran.ID_ALBARAN_DEV > 0) then
begin
FAlbaranAsociado := Controller.Buscar(FAlbaran.ID_ALBARAN_DEV);
if Assigned(FAlbaranAsociado) then
begin
FAlbaranAsociado.DataTable.Active := True;
eReferenciaAlbaranCli.Text := FAlbaranAsociado.REFERENCIA
end
else
eReferenciaAlbaranCli.Text := '';
end
else
eReferenciaAlbaranCli.Text := 'No hay pedido asociado';
end
else begin
FAlbaranAsociado := NIL;
end;
end;
end.

19
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm
View File

@ -2,6 +2,17 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
OnCreate = CustomViewCreate
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
object cxGridViewREFERENCIA_ALB_DEV: TcxGridDBColumn [3]
Caption = 'Ref. alb. origen'
DataBinding.FieldName = 'REFERENCIA_ALB_DEV'
end
object cxGridViewREFERENCIA_FAC_ALB_DEV: TcxGridDBColumn [4]
Caption = 'Ref. fac. alb. origen'
DataBinding.FieldName = 'REFERENCIA_FAC_ALB_DEV'
end
inherited cxGridViewFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha'
end
@ -14,14 +25,16 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
ExplicitWidth = 468
Width = 468
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 369
ExplicitLeft = 369
ExplicitWidth = 121
Width = 121
end
@ -30,7 +43,7 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39232.492941620370000000
ReportDocument.CreationDate = 39232.492941620360000000
BuiltInReportLink = True
end
end

2
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.pas
View File

@ -20,6 +20,8 @@ type
end;
TfrViewAlbaranesDevCliente = class(TfrViewAlbaranesCliente, IViewAlbaranesDevCliente)
cxGridViewREFERENCIA_ALB_DEV: TcxGridDBColumn;
cxGridViewREFERENCIA_FAC_ALB_DEV: TcxGridDBColumn;
procedure CustomViewCreate(Sender: TObject);
end;

7
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.bdsgroup
View File

@ -8,9 +8,7 @@
<Option Name="GUID">{D1967178-5EBB-46B2-893F-E0CADFEDD466}</Option>
</Option>
</PersonalityInfo>
<Default.Personality>
<Projects>
<Default.Personality> <Projects>
<Projects Name="DataAbstract_D10.bpl">..\..\DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
@ -31,7 +29,8 @@
<Projects Name="FacturasProveedor_controller.bpl">..\Facturas de proveedor\Controller\FacturasProveedor_controller.bdsproj</Projects>
<Projects Name="Inventario_controller.bpl">..\Inventario\Controller\Inventario_controller.bdsproj</Projects>
<Projects Name="PedidosCliente_controller.bpl">..\Pedidos de cliente\Controller\PedidosCliente_controller.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_controller.bpl Articulos_view.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedProv_AlbProv_relation.bpl FactuGES.exe FactuGES_Server.exe PedidosProveedor_controller.bpl AlbProv_FacProv_relation.bpl FacturasProveedor_controller.bpl Inventario_controller.bpl PedidosCliente_controller.bpl</Projects>
<Projects Name="AlbaranesCliente_view.bpl">..\Albaranes de cliente\Views\AlbaranesCliente_view.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl Articulos_controller.bpl Articulos_view.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl PedProv_AlbProv_relation.bpl FactuGES.exe FactuGES_Server.exe PedidosProveedor_controller.bpl AlbProv_FacProv_relation.bpl FacturasProveedor_controller.bpl Inventario_controller.bpl PedidosCliente_controller.bpl AlbaranesCliente_view.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

32
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -40,6 +40,7 @@ type
procedure DescartarCambios(AAlbaran : IBizAlbaranProveedor);
function Existe(const ID: Integer) : Boolean;
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
function GenerarOrdenDev(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
function ExtraerSeleccionados(AAlbaran: IBizAlbaranProveedor; Const ViewGrid: IViewGridBase = Nil) : IBizAlbaranProveedor;
function ElegirAlbaranes(AAlbaran: IBizAlbaranProveedor; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranProveedor;
@ -108,6 +109,7 @@ type
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
function Duplicar(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
function GenerarOrdenDev(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
procedure CopiarDireccionEnvio (const ADireccionEnvio: IBizDireccionesContacto;
AAlbaran: IBizAlbaranProveedor);
@ -551,7 +553,10 @@ begin
INCIDENCIAS_ACTIVAS := 0;
REFERENCIA := '';
ID_PEDIDO := 0;
REF_PED_PROVEEDOR := '';
ID_FACTURA := 0;
REF_FACTURA := '';
REF_FACTURA_PROV := '';
end;
Result.Post;
finally
@ -1120,6 +1125,33 @@ begin
Result := FProveedorController;
end;
function TAlbaranesProveedorController.GenerarOrdenDev(AAlbaran: IBizAlbaranProveedor): IBizAlbaranProveedor;
var
AOrden : IBizAlbaranProveedor;
IdAlbaran: Integer;
begin
if Assigned(AAlbaran) then
begin
IdAlbaran := AAlbaran.ID;
AOrden := Duplicar(AAlbaran);
if Assigned(AOrden) then
begin
if not AOrden.DataTable.Editing then
AOrden.Edit;
AOrden.TIPO := CTE_TIPO_ALBARAN_DEV;
AOrden.ID_ALBARAN_DEV := IdAlbaran;
AOrden.Post;
//Convierte todos los articulos del albaran a negativos por se una orden de devolucion
FDetallesController.CambiarSignoDetalles(AOrden.Detalles);
end;
Ver(AOrden);
end;
end;
function TAlbaranesProveedorController.GetDetallesController: IDetallesAlbaranProveedorController;
begin
Result := FDetallesController;

55
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -555,6 +555,61 @@ object DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_NUM_COPIAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'AlbaranesProveedor_ID_ALBARAN_DEV'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_ID_ALBARAN_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. albar'#225'n rel.'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'AlbaranesProveedor_ID_FAC_ALB_DEV'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_ID_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. factura alb. rel.'
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False

164
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ 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_DarReferencia = '{3F50C24C-9A27-46B2-BA07-3363BB4C42F0}';
RID_AlbaranesProveedor = '{4EE00E6F-CE2D-4A3F-8BB7-4CC56A04C494}';
RID_AlbaranesProveedor_Detalles = '{EAEB48A8-713D-4559-AF51-B102B0EE4CDC}';
RID_AlbaranesProveedor_Detalles_Refresh = '{C0B6846B-07A4-407C-9D66-AC584AF21C0D}';
RID_AlbaranesProveedor_Refresh = '{4A135BA2-5325-45B4-B75C-59B39DEF034F}';
RID_DarReferencia = '{15891F28-6D5E-412C-892D-1474FB348E4B}';
RID_AlbaranesProveedor = '{DC59E1B6-DFB0-4D9D-8F36-D5458362B1F4}';
RID_AlbaranesProveedor_Detalles = '{6999036F-7208-46EC-A3FE-24E093E76C10}';
RID_AlbaranesProveedor_Detalles_Refresh = '{68EED4B4-6B94-44D1-B148-484D3F17BD25}';
RID_AlbaranesProveedor_Refresh = '{5A91B693-39A1-44F3-A104-266FEDD74D48}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
@ -66,6 +66,10 @@ const
fld_AlbaranesProveedorUSUARIO = 'USUARIO';
fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesProveedorID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
fld_AlbaranesProveedorREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesProveedorID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
{ AlbaranesProveedor field indexes }
idx_AlbaranesProveedorID = 0;
@ -105,6 +109,10 @@ const
idx_AlbaranesProveedorUSUARIO = 34;
idx_AlbaranesProveedorID_FORMA_PAGO = 35;
idx_AlbaranesProveedorNUM_COPIAS = 36;
idx_AlbaranesProveedorID_ALBARAN_DEV = 37;
idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 38;
idx_AlbaranesProveedorID_FAC_ALB_DEV = 39;
idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 40;
{ AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID';
@ -212,6 +220,10 @@ const
fld_AlbaranesProveedor_RefreshUSUARIO = 'USUARIO';
fld_AlbaranesProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_AlbaranesProveedor_RefreshNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesProveedor_RefreshID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
fld_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesProveedor_RefreshID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
{ AlbaranesProveedor_Refresh field indexes }
idx_AlbaranesProveedor_RefreshID = 0;
@ -251,11 +263,15 @@ const
idx_AlbaranesProveedor_RefreshUSUARIO = 34;
idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35;
idx_AlbaranesProveedor_RefreshNUM_COPIAS = 36;
idx_AlbaranesProveedor_RefreshID_ALBARAN_DEV = 37;
idx_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV = 38;
idx_AlbaranesProveedor_RefreshID_FAC_ALB_DEV = 39;
idx_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV = 40;
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
['{61465610-D794-47C4-9ABC-8741E6E36F27}']
['{ED8EACC9-271E-41C8-A0D0-62B0FD223968}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@ -284,7 +300,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{42B45AE6-5EB4-4C8D-82C8-1C4AD82E64A8}']
['{8777095F-0468-45FC-8B30-50CEB28FFDEA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -360,6 +376,14 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetID_ALBARAN_DEVValue: Integer;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
function GetREFERENCIA_ALB_DEVValue: String;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
function GetID_FAC_ALB_DEVValue: Integer;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
{ Properties }
@ -400,6 +424,10 @@ type
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesProveedorDataTableRules }
@ -481,6 +509,14 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -520,6 +556,10 @@ type
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -529,7 +569,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{7648F585-1867-4E43-A6D9-7FEE51485725}']
['{C3058BD1-A788-4CB7-A157-1E57895DA4F1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -642,7 +682,7 @@ type
{ IAlbaranesProveedor_Detalles_Refresh }
IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
['{B23F5262-0AAA-4C52-B3DA-A1589AB4F1C5}']
['{44F9FCAE-FD1F-4178-B9E2-5B4DB40B22A9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -755,7 +795,7 @@ type
{ IAlbaranesProveedor_Refresh }
IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{256505AA-BA0B-4945-8A00-0F5543C724CC}']
['{C77EF452-D5BC-4905-BF2B-C1F34E3FB831}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -831,6 +871,14 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetNUM_COPIASValue: Integer;
procedure SetNUM_COPIASValue(const aValue: Integer);
function GetID_ALBARAN_DEVValue: Integer;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
function GetREFERENCIA_ALB_DEVValue: String;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
function GetID_FAC_ALB_DEVValue: Integer;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
{ Properties }
@ -871,6 +919,10 @@ type
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesProveedor_RefreshDataTableRules }
@ -952,6 +1004,14 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -991,6 +1051,10 @@ type
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property NUM_COPIAS: Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1407,6 +1471,46 @@ begin
DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
constructor TAlbaranesProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@ -2115,6 +2219,46 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshNUM_COPIAS].AsInteger := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALBARAN_DEV].AsInteger;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALBARAN_DEV].AsInteger := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV].AsString;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV].AsString := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FAC_ALB_DEV].AsInteger;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FAC_ALB_DEV].AsInteger := aValue;
end;
function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV].AsString;
end;
procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
initialization
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);

196
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ 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_DarReferenciaDelta = '{ED7AB12B-996F-49BF-B0BD-0FBF07091D2C}';
RID_AlbaranesProveedorDelta = '{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}';
RID_AlbaranesProveedor_DetallesDelta = '{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}';
RID_AlbaranesProveedor_RefreshDelta = '{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}';
RID_DarReferenciaDelta = '{97B34AA4-C89F-4EF5-BD14-EAC025E8DE2A}';
RID_AlbaranesProveedorDelta = '{4C2884E6-A902-4C13-8217-86E1044EE171}';
RID_AlbaranesProveedor_DetallesDelta = '{14A26AA3-09EB-432C-84C0-B5BE48912937}';
RID_AlbaranesProveedor_Detalles_RefreshDelta = '{C18290F7-22E0-4F13-9F16-5B5B0F4F526A}';
RID_AlbaranesProveedor_RefreshDelta = '{74DBC27B-B1F7-4C31-9DB8-8DAC6066D9E8}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{ED7AB12B-996F-49BF-B0BD-0FBF07091D2C}']
['{97B34AA4-C89F-4EF5-BD14-EAC025E8DE2A}']
{ Property getters and setters }
function GetOldVALORValue : String;
@ -47,7 +47,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}']
['{4C2884E6-A902-4C13-8217-86E1044EE171}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -86,6 +86,10 @@ type
function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : Integer;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -125,6 +129,10 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesProveedorBusinessProcessorRules }
@ -243,6 +251,18 @@ type
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -319,6 +339,14 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -328,7 +356,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}']
['{14A26AA3-09EB-432C-84C0-B5BE48912937}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -455,7 +483,7 @@ type
{ IAlbaranesProveedor_Detalles_RefreshDelta }
IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
['{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}']
['{C18290F7-22E0-4F13-9F16-5B5B0F4F526A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -582,7 +610,7 @@ type
{ IAlbaranesProveedor_RefreshDelta }
IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
['{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}']
['{74DBC27B-B1F7-4C31-9DB8-8DAC6066D9E8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -621,6 +649,10 @@ type
function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_COPIASValue : Integer;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -660,6 +692,10 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
end;
{ TAlbaranesProveedor_RefreshBusinessProcessorRules }
@ -778,6 +814,18 @@ type
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -854,6 +902,14 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1463,6 +1519,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV];
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV] := aValue;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
constructor TAlbaranesProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2508,6 +2624,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNUM_COPIAS] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALBARAN_DEV];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_ALBARAN_DEV];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALBARAN_DEV] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_ALB_DEV] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FAC_ALB_DEV];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FAC_ALB_DEV];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV];
end;
procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_FAC_ALB_DEV] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);

191
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -78,7 +78,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' +
'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' +
'O, NUM_COPIAS'#10' FROM'#10' V_ALBARANES_PROVEEDOR'
'O, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV, ID_FAC_ALB_DE' +
'V,'#10' REFERENCIA_FAC_ALB_DEV'#10' FROM'#10' V_ALBARANES_PROVEEDOR'
StatementType = stSQL
ColumnMappings = <
item
@ -228,6 +229,22 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
DatasetField = 'NUM_COPIAS'
TableField = 'NUM_COPIAS'
end
item
DatasetField = 'ID_ALBARAN_DEV'
TableField = 'ID_ALBARAN_DEV'
end
item
DatasetField = 'REFERENCIA_ALB_DEV'
TableField = 'REFERENCIA_ALB_DEV'
end
item
DatasetField = 'ID_FAC_ALB_DEV'
TableField = 'ID_FAC_ALB_DEV'
end
item
DatasetField = 'REFERENCIA_FAC_ALB_DEV'
TableField = 'REFERENCIA_FAC_ALB_DEV'
end>
end>
Name = 'AlbaranesProveedor'
@ -611,8 +628,49 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'AlbaranesProveedor_NUM_COPIAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_ID_ALBARAN_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_ID_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
@ -1156,8 +1214,9 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' +
', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' +
'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' +
', NUM_COPIAS'#10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_' +
'PROVEEDOR.ID = :ID'
', NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV, ID_FAC_ALB_DEV' +
','#10' REFERENCIA_FAC_ALB_DEV'#10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WH' +
'ERE V_ALBARANES_PROVEEDOR.ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
@ -1700,6 +1759,50 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_FAC_ALB_DEV'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
@ -1978,6 +2081,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
@ -1993,16 +2103,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'TAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS' +
','#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_AL' +
'MACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ' +
' TIPO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,' +
#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :REFER' +
'ENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CA' +
'LLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PE' +
'RSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUEN' +
'TO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMP' +
'ORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCI' +
'AS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUAR' +
'IO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' ' +
':IMPORTE_PORTE,'#10' :TIPO);'
' TIPO,'#10' ID_ALBARAN_DEV)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA' +
','#10' :ID_PROVEEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID' +
'_FACTURA,'#10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_F' +
'ACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' ' +
' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMP' +
'ONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :I' +
'MPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDEN' +
'CIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODI' +
'FICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' ' +
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :TIPO,'#10' :ID_ALBARAN_D' +
'EV);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -2259,6 +2370,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
@ -2287,7 +2405,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' +
'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
'IMPORTE_PORTE,'#10' TIPO = :TIPO'#10' WHERE'#10' (ID = :OLD_ID);'
'IMPORTE_PORTE,'#10' TIPO = :TIPO,'#10' ID_ALBARAN_DEV = :ID_ALBARA' +
'N_DEV'#10' WHERE'#10' (ID = :OLD_ID);'
StatementType = stSQL
ColumnMappings = <>
end>
@ -3119,6 +3238,46 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DisplayWidth = 0
DisplayLabel = 'Ref. factura prov'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_NUM_COPIAS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NUM_COPIAS'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_ID_ALBARAN_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_REFERENCIA_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. albar'#225'n rel.'
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_ID_FAC_ALB_DEV'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'AlbaranesProveedor_REFERENCIA_FAC_ALB_DEV'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Ref. factura alb. rel.'
Alignment = taLeftJustify
end>
Left = 48
Top = 128

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -288,7 +288,7 @@ begin
if Assigned(FController) then
begin
ViewAlbaran.ViewProveedorAlbaran.Controller := Controller.ProveedorController;
ViewAlbaran.Controller := Controller;
frViewDetallesAlbaranProveedor1.Controller := Controller.DetallesController;
end;
end;

5
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
Caption = 'Lista de '#243'rdenes de devoluci'#243'n de proveedor'
ClientWidth = 872
ExplicitWidth = 880
ExplicitHeight = 478
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -154,6 +153,10 @@ inherited fEditorAlbaranesDevProveedor: TfEditorAlbaranesDevProveedor
inherited actGenerarFactura: TAction
Caption = 'Generar abono'
end
inherited actGenerarOrden: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList
PngImages = <

12
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606
ExplicitWidth = 614
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -132,7 +131,11 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
end
inherited TBXTMain2: TTBXToolbar
Visible = True
ExplicitWidth = 117
ExplicitWidth = 239
object TBXItem38: TTBXItem
Action = actGenerarOrden
DisplayMode = nbdmImageAndText
end
object TBXItem39: TTBXItem
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
@ -165,6 +168,11 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
OnExecute = actGenerarFacturaExecute
OnUpdate = actGenerarFacturaUpdate
end
object actGenerarOrden: TAction
Caption = 'Generar orden dev.'
ImageIndex = 23
OnExecute = actGenerarOrdenExecute
end
end
inherited SmallImages: TPngImageList
PngImages = <

9
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -22,10 +22,13 @@ type
JsImprimirDialog: TJSDialog;
TBXItem39: TTBXItem;
JsListaAlbaranesNoEliminados: TJSDialog;
actGenerarOrden: TAction;
TBXItem38: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarFacturaExecute(Sender: TObject);
procedure actGenerarFacturaUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actGenerarOrdenExecute(Sender: TObject);
protected
FAlbaranes: IBizAlbaranProveedor;
@ -91,6 +94,12 @@ begin
and ViewGrid.esSeleccionCeldaDatos;
end;
procedure TfEditorAlbaranesProveedor.actGenerarOrdenExecute(Sender: TObject);
begin
inherited;
FController.GenerarOrdenDev(Albaranes);
end;
procedure TfEditorAlbaranesProveedor.AsignarVista;
begin
ViewGrid := CreateView(TfrViewAlbaranesProveedor) as IViewAlbaranesProveedor;

87
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm
View File

@ -11,6 +11,7 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Width = 119
end
inherited memObservaciones: TcxDBMemo
TabOrder = 13
ExplicitWidth = 186
ExplicitHeight = 162
Height = 162
@ -24,6 +25,7 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Width = 350
TabOrder = 12
ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 350
@ -50,8 +52,11 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end
end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Top = 278
Width = 445
Height = 175
TabOrder = 11
ExplicitTop = 278
ExplicitWidth = 445
ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl
@ -93,25 +98,76 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end
inherited cbFormaPago: TcxDBLookupComboBox
Left = 114
Top = 221
TabOrder = 9
ExplicitLeft = 114
ExplicitTop = 221
ExplicitWidth = 90
Width = 90
end
inherited eReferenciaPedidoCli: TcxTextEdit
inherited bFormasPago: TButton
Top = 221
TabOrder = 10
ExplicitTop = 221
end
inherited eReferenciaPedidoProv: TcxTextEdit
Left = 114
ExplicitLeft = 114
ExplicitWidth = 69
Width = 69
ExplicitWidth = 192
Width = 192
end
object eReferenciaAlbaranProv: TcxTextEdit [9]
Left = 114
Top = 138
Anchors = [akLeft, akTop, akRight]
Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
Width = 199
end
object Button2: TButton [10]
Left = 312
Top = 138
Width = 132
Height = 23
Action = actVerAlbaran
TabOrder = 6
end
inherited eRefFactura: TcxDBTextEdit
Left = 114
Top = 167
TabOrder = 7
ExplicitLeft = 114
ExplicitTop = 167
ExplicitWidth = 330
Width = 330
end
inherited eReferenciaProveedor: TcxDBTextEdit
Left = 114
ExplicitLeft = 114
ExplicitWidth = 330
Width = 330
end
inherited eReferenciaFacturaProveedor: TcxDBTextEdit
Left = 114
Top = 194
TabOrder = 8
ExplicitLeft = 114
ExplicitTop = 194
ExplicitWidth = 330
Width = 330
end
@ -125,6 +181,24 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited dxLayoutControl1Group5: TdxLayoutGroup
Visible = False
end
object dxLayoutControl1Group9: TdxLayoutGroup [4]
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. alb. origen:'
Control = eReferenciaAlbaranProv
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
ShowCaption = False
Control = Button2
ControlOptions.ShowBorder = False
end
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Caption = 'Ref. abono:'
end
@ -138,4 +212,11 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end
end
end
inherited ActionList1: TActionList
object actVerAlbaran: TAction
Caption = 'Ver albar'#225'n origen'
OnExecute = actVerAlbaranExecute
OnUpdate = actVerAlbaranUpdate
end
end
end

75
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.pas
View File

@ -8,7 +8,7 @@ uses
dxLayoutControl, cxTextEdit, StdCtrls, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uViewDireccionEntregaAlbaranProv,
uCustomView, uViewBase, uViewDatosYSeleccionProveedor, cxDBEdit, cxMemo,
cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls;
cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls, uBizAlbaranesProveedor;
type
IViewAlbaranDevProveedor = interface(IViewAlbaranProveedor)
@ -16,9 +16,82 @@ type
end;
TfrViewAlbaranDevProveedor = class(TfrViewAlbaranProveedor, IViewAlbaranDevProveedor)
dxLayoutControl1Item13: TdxLayoutItem;
eReferenciaAlbaranProv: TcxTextEdit;
dxLayoutControl1Item14: TdxLayoutItem;
Button2: TButton;
dxLayoutControl1Group9: TdxLayoutGroup;
actVerAlbaran: TAction;
procedure actVerAlbaranExecute(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actVerAlbaranUpdate(Sender: TObject);
procedure frViewProveedorAlbaranactElegirContactoUpdate(Sender: TObject);
protected
FAlbaranAsociado : IBizAlbaranProveedor;
procedure SetAlbaran(const Value: IBizAlbaranProveedor); override;
end;
implementation
{$R *.dfm}
procedure TfrViewAlbaranDevProveedor.actVerAlbaranExecute(Sender: TObject);
begin
inherited;
Controller.Ver(FAlbaranAsociado);
end;
procedure TfrViewAlbaranDevProveedor.actVerAlbaranUpdate(Sender: TObject);
begin
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := Assigned(FAlbaranAsociado);
end;
procedure TfrViewAlbaranDevProveedor.CustomViewCreate(Sender: TObject);
begin
inherited;
FAlbaranAsociado := NIL;
end;
procedure TfrViewAlbaranDevProveedor.CustomViewDestroy(Sender: TObject);
begin
FAlbaranAsociado := NIL;
inherited;
end;
procedure TfrViewAlbaranDevProveedor.frViewProveedorAlbaranactElegirContactoUpdate(
Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := not Assigned(FAlbaranAsociado);
end;
procedure TfrViewAlbaranDevProveedor.SetAlbaran(const Value: IBizAlbaranProveedor);
begin
inherited;
if Assigned(FAlbaran) then
begin
FAlbaranAsociado := NIL;
if (FAlbaran.ID_ALBARAN_DEV > 0) then
begin
FAlbaranAsociado := Controller.Buscar(FAlbaran.ID_ALBARAN_DEV);
if Assigned(FAlbaranAsociado) then
begin
FAlbaranAsociado.DataTable.Active := True;
eReferenciaAlbaranProv.Text := FAlbaranAsociado.REFERENCIA
end
else
eReferenciaAlbaranProv.Text := '';
end
else
eReferenciaAlbaranProv.Text := 'No hay pedido asociado';
end
else begin
FAlbaranAsociado := NIL;
end;
end;
end.

7
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -13,6 +13,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
827
@ -221,7 +222,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
TabOrder = 8
OnClick = bFormasPagoClick
end
object eReferenciaPedidoCli: TcxTextEdit
object eReferenciaPedidoProv: TcxTextEdit
Left = 119
Top = 109
Anchors = [akLeft, akTop, akRight]
@ -242,7 +243,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 122
Width = 187
end
object Button1: TButton
Left = 312
@ -363,7 +364,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Ref. del pedido:'
Control = eReferenciaPedidoCli
Control = eReferenciaPedidoProv
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item9: TdxLayoutItem

39
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
View File

@ -12,7 +12,7 @@ uses
cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController,
uBizPedidosProveedor, uPedidosProveedorController;
uBizPedidosProveedor, uPedidosProveedorController, uAlbaranesProveedorController;
type
IViewAlbaranProveedor = interface(IViewBase)
@ -24,6 +24,10 @@ type
function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
procedure SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor);
property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor read GetViewProveedorAlbaran write SetViewProveedorAlbaran;
function GetController : IAlbaranesProveedorController;
procedure SetController (const Value : IAlbaranesProveedorController);
property Controller : IAlbaranesProveedorController read GetController write SetController;
end;
TfrViewAlbaranProveedor = class(TfrViewBase, IViewAlbaranProveedor)
@ -55,7 +59,7 @@ type
dxLayoutControl1Group4: TdxLayoutGroup;
dsFormaPago: TDADataSource;
dxLayoutControl1Item8: TdxLayoutItem;
eReferenciaPedidoCli: TcxTextEdit;
eReferenciaPedidoProv: TcxTextEdit;
dxLayoutControl1Item9: TdxLayoutItem;
Button1: TButton;
dxLayoutControl1Group5: TdxLayoutGroup;
@ -80,6 +84,7 @@ type
procedure actVerPedidoUpdate(Sender: TObject);
protected
FController : IAlbaranesProveedorController;
FAlbaran : IBizAlbaranProveedor;
FViewProveedorAlbaran : TfrViewDatosYSeleccionProveedor;
FFormasPagoController : IFormasPagoController;
@ -90,10 +95,14 @@ type
procedure SetAlbaran(const Value: IBizAlbaranProveedor); virtual;
function GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
procedure SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor);
function GetController : IAlbaranesProveedorController;
procedure SetController (const Value : IAlbaranesProveedorController);
public
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
property ViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor read GetViewProveedorAlbaran;
property Controller : IAlbaranesProveedorController read GetController write SetController;
end;
implementation
@ -103,7 +112,7 @@ implementation
{ TfrViewAlbaranProveedor }
uses
uProveedoresController, uBizDireccionesContacto, uAlbaranesProveedorController,
uProveedoresController, uBizDireccionesContacto,
uBizFormasPago, schAlbaranesProveedorClient_Intf;
@ -176,6 +185,7 @@ end;
procedure TfrViewAlbaranProveedor.CustomViewDestroy(Sender: TObject);
begin
FController := Nil;
FPedidoController := NIL;
FFormasPagoController := NIL;
FPedidoAsociado := NIL;
@ -222,6 +232,11 @@ begin
Result := FAlbaran;
end;
function TfrViewAlbaranProveedor.GetController: IAlbaranesProveedorController;
begin
Result := FController;
end;
function TfrViewAlbaranProveedor.GetViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor;
begin
Result := FViewProveedorAlbaran;
@ -238,7 +253,7 @@ begin
frViewProveedorAlbaran.Proveedor := FAlbaran.Proveedor;
frViewDireccionEntregaAlbaranProv1.AlbaranProveedor := FAlbaran;
eReferenciaPedidoCli.Enabled := False;
eReferenciaPedidoProv.Enabled := False;
eRefFactura.Enabled := False;
FPedidoAsociado := NIL;
@ -248,13 +263,13 @@ begin
if Assigned(FPedidoAsociado) then
begin
FPedidoAsociado.DataTable.Active := True;
eReferenciaPedidoCli.Text := FPedidoAsociado.REFERENCIA
eReferenciaPedidoProv.Text := FPedidoAsociado.REFERENCIA
end
else
eReferenciaPedidoCli.Text := '';
eReferenciaPedidoProv.Text := '';
end
else
eReferenciaPedidoCli.Text := 'No hay pedido asociado';
eReferenciaPedidoProv.Text := 'No hay pedido asociado';
end
else begin
DADataSource.DataTable := NIL;
@ -264,6 +279,16 @@ begin
end;
end;
procedure TfrViewAlbaranProveedor.SetController(const Value: IAlbaranesProveedorController);
begin
FController := Value;
if Assigned(FController) then
begin
ViewProveedorAlbaran.Controller := Controller.ProveedorController;
end;
end;
procedure TfrViewAlbaranProveedor.SetViewProveedorAlbaran(const Value: TfrViewDatosYSeleccionProveedor);
begin
FViewProveedorAlbaran := Value;

18
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm
View File

@ -2,6 +2,17 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
OnCreate = CustomViewCreate
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewNUM_COPIAS: TcxGridDBColumn
IsCaptionAssigned = True
end
object cxGridViewREFERENCIA_ALB_DEV: TcxGridDBColumn [4]
Caption = 'Ref. alb. origen'
DataBinding.FieldName = 'REFERENCIA_ALB_DEV'
end
object cxGridViewREFERENCIA_FAC_ALB_DEV: TcxGridDBColumn [5]
Caption = 'Ref. fac. alb. origen'
DataBinding.FieldName = 'REFERENCIA_FAC_ALB_DEV'
end
inherited cxGridViewREF_FACTURA: TcxGridDBColumn
Caption = 'Ref. abono'
end
@ -13,7 +24,7 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
@ -23,11 +34,6 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
Width = 217
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited tbxBotones: TTBXToolbar
Width = 586
end
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas
View File

@ -20,6 +20,8 @@ type
end;
TfrViewAlbaranesDevProveedor = class(TfrViewAlbaranesProveedor, IViewAlbaranesDevProveedor)
cxGridViewREFERENCIA_ALB_DEV: TcxGridDBColumn;
cxGridViewREFERENCIA_FAC_ALB_DEV: TcxGridDBColumn;
procedure CustomViewCreate(Sender: TObject);
end;

17
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">3</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">5</VersionInfo>
<VersionInfo Name="Release">6</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,18 +167,19 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.5.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">3.0.6.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.5.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">3.0.6.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">martes, 15 de julio de 2008 19:13</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>
</Delphi.Personality>
<VersionInfoKeys Name="CompileDate">jueves, 18 de septiembre de 2008 18:56</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>
</Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
[Exception Log]

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -122,10 +122,6 @@ uses
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
@ -135,7 +131,11 @@ uses
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

202
Source/Servidor/FactuGES_Server.drc
View File

@ -912,12 +912,12 @@
#define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
#define IdResourceStrings_RSStatusResolving 65183
#define uRORes_err_InvalidVarArrayDimCount 65184
#define uRORes_err_MessageNotAssigned 65185
#define ComConst_SOleError 65186
#define ComConst_SNoMethod 65187
#define ComConst_SVarNotObject 65188
#define ComConst_STooManyParams 65189
#define uRODECConst_sFMT_HEXL 65184
#define uRODECConst_sFMT_MIME64 65185
#define uRODECConst_sFMT_UU 65186
#define uRODECConst_sFMT_XX 65187
#define uRODECConst_sInvalidKeySize 65188
#define uRODECConst_sNotInitialized 65189
#define IdResourceStrings_RSCannotAllocateSocket 65190
#define IdResourceStrings_RSConnectionClosedGracefully 65191
#define IdResourceStrings_RSCouldNotBindSocket 65192
@ -928,70 +928,70 @@
#define IdResourceStrings_RSThreadClassNotSpecified 65197
#define IdResourceStrings_RSFileNotFound 65198
#define IdResourceStrings_RSOnlyOneAntiFreeze 65199
#define uRORes_err_UnhandledException 65200
#define uRORes_err_ChannelBusy 65201
#define uRORes_err_ArrayIndexOutOfBounds 65202
#define uRORes_err_InvalidHeader 65203
#define uRORes_err_UnknownClassInStream 65204
#define uRORes_err_UnexpectedClassInStream 65205
#define uRORes_err_SessionNotFound 65206
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207
#define uRORes_err_TooManySessions 65208
#define uRORes_err_DOMElementIsNIL 65209
#define uRORes_err_CannotLoadXMLDocument 65210
#define uRORes_err_ErrorCreatingMsXmlDoc 65211
#define uRORes_err_NoXMLParsersAvailable 65212
#define uRORes_err_IDispatchMarshalingNotSupported 65213
#define uRORes_err_UnsupportedVariantType 65214
#define uRORes_err_VariantIsNotArray 65215
#define uRORes_str_ExceptionReraisedFromServer 65216
#define uRORes_err_AssignError 65217
#define uRORes_err_InvalidRequestStream 65218
#define uRORes_err_NILMessage 65219
#define uRORes_err_UnspecifiedInterface 65220
#define uRORes_err_UnspecifiedMessage 65221
#define uRORes_err_UnknownMethod 65222
#define uRORes_err_ClassFactoryDidNotReturnInstance 65223
#define uRORes_err_TypeNotSupported 65224
#define uRORes_err_ClassFactoryNotFound 65225
#define uRORes_err_IROMessageNotSupported 65226
#define uRORes_err_ClassAlreadyRegistered 65227
#define uRORes_err_UnknownProxyInterface 65228
#define uRORes_err_DispatcherAlreadyAssigned 65229
#define uRORes_err_CannotFindMessageDispatcher 65230
#define uRORes_err_ServerOnlySupportsOneDispatcher 65231
#define uRORes_err_InvalidType 65232
#define uRORes_err_InvalidStream 65233
#define uRORes_err_InvalidParamFlag 65234
#define uRORes_err_InvalidStringLength 65235
#define uRORes_str_InvalidClassTypeInStream 65236
#define uRORes_err_UnexpectedEndOfStream 65237
#define uRORes_err_RodlDuplicateName 65238
#define uRORes_err_RodlNoDataTypeSpecified 65239
#define uRORes_err_RodlNoEnumValues 65240
#define uRORes_err_RodlNoStructElementsDefined 65241
#define uRORes_err_RodlNoOperationsDefined 65242
#define uRORes_err_RodlUsedFileDoesNotExist 65243
#define uRORes_err_RodlInvalidDataType 65244
#define uRORes_err_RodlStructCannotBeNested 65245
#define uRORes_err_RodlInvalidAncestorType 65246
#define uRORes_str_ExceptionOnServer 65247
#define uRORes_err_NoXMLParsersAvailable 65200
#define uRORes_err_IDispatchMarshalingNotSupported 65201
#define uRORes_err_UnsupportedVariantType 65202
#define uRORes_err_VariantIsNotArray 65203
#define uRORes_err_InvalidVarArrayDimCount 65204
#define uRORes_err_MessageNotAssigned 65205
#define ComConst_SOleError 65206
#define ComConst_SNoMethod 65207
#define ComConst_SVarNotObject 65208
#define ComConst_STooManyParams 65209
#define uRODECConst_sProtectionCircular 65210
#define uRODECConst_sStringFormatExists 65211
#define uRODECConst_sInvalidStringFormat 65212
#define uRODECConst_sInvalidFormatString 65213
#define uRODECConst_sFMT_COPY 65214
#define uRODECConst_sFMT_HEX 65215
#define uRORes_err_UnknownProxyInterface 65216
#define uRORes_err_DispatcherAlreadyAssigned 65217
#define uRORes_err_CannotFindMessageDispatcher 65218
#define uRORes_err_ServerOnlySupportsOneDispatcher 65219
#define uRORes_err_UnhandledException 65220
#define uRORes_err_ChannelBusy 65221
#define uRORes_err_ArrayIndexOutOfBounds 65222
#define uRORes_err_InvalidHeader 65223
#define uRORes_err_UnknownClassInStream 65224
#define uRORes_err_UnexpectedClassInStream 65225
#define uRORes_err_SessionNotFound 65226
#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
#define uRORes_err_TooManySessions 65228
#define uRORes_err_DOMElementIsNIL 65229
#define uRORes_err_CannotLoadXMLDocument 65230
#define uRORes_err_ErrorCreatingMsXmlDoc 65231
#define uRORes_err_RodlInvalidDataType 65232
#define uRORes_err_RodlStructCannotBeNested 65233
#define uRORes_err_RodlInvalidAncestorType 65234
#define uRORes_str_ExceptionOnServer 65235
#define uRORes_str_ExceptionReraisedFromServer 65236
#define uRORes_err_AssignError 65237
#define uRORes_err_InvalidRequestStream 65238
#define uRORes_err_NILMessage 65239
#define uRORes_err_UnspecifiedInterface 65240
#define uRORes_err_UnspecifiedMessage 65241
#define uRORes_err_UnknownMethod 65242
#define uRORes_err_ClassFactoryDidNotReturnInstance 65243
#define uRORes_err_TypeNotSupported 65244
#define uRORes_err_ClassFactoryNotFound 65245
#define uRORes_err_IROMessageNotSupported 65246
#define uRORes_err_ClassAlreadyRegistered 65247
#define Consts_SUTF8Encoding 65248
#define Consts_SUTF7Encoding 65249
#define Consts_SPageControlNotSet 65250
#define uRODECConst_sProtectionCircular 65251
#define uRODECConst_sStringFormatExists 65252
#define uRODECConst_sInvalidStringFormat 65253
#define uRODECConst_sInvalidFormatString 65254
#define uRODECConst_sFMT_COPY 65255
#define uRODECConst_sFMT_HEX 65256
#define uRODECConst_sFMT_HEXL 65257
#define uRODECConst_sFMT_MIME64 65258
#define uRODECConst_sFMT_UU 65259
#define uRODECConst_sFMT_XX 65260
#define uRODECConst_sInvalidKeySize 65261
#define uRODECConst_sNotInitialized 65262
#define uRORes_err_InvalidIndex 65263
#define uRORes_err_InvalidIndex 65251
#define uRORes_err_InvalidType 65252
#define uRORes_err_InvalidStream 65253
#define uRORes_err_InvalidParamFlag 65254
#define uRORes_err_InvalidStringLength 65255
#define uRORes_str_InvalidClassTypeInStream 65256
#define uRORes_err_UnexpectedEndOfStream 65257
#define uRORes_err_RodlDuplicateName 65258
#define uRORes_err_RodlNoDataTypeSpecified 65259
#define uRORes_err_RodlNoEnumValues 65260
#define uRORes_err_RodlNoStructElementsDefined 65261
#define uRORes_err_RodlNoOperationsDefined 65262
#define uRORes_err_RodlUsedFileDoesNotExist 65263
#define Consts_SPictureLabel 65264
#define Consts_SPictureDesc 65265
#define Consts_SPreviewLabel 65266
@ -2170,12 +2170,12 @@ BEGIN
IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty"
IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits"
IdResourceStrings_RSStatusResolving, "Resolving hostname %s."
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket."
IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully."
IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use."
@ -2186,6 +2186,26 @@ BEGIN
IdResourceStrings_RSThreadClassNotSpecified, "Thread Class Not Specified."
IdResourceStrings_RSFileNotFound, "File \"%s\" not found"
IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application."
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d"
uRORes_err_MessageNotAssigned, "Message is NIL"
ComConst_SOleError, "OLE error %.8x"
ComConst_SNoMethod, "Method '%s' not supported by automation object"
ComConst_SVarNotObject, "Variant does not reference an automation object"
ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
uRORes_err_UnhandledException, "Unhandled exception"
uRORes_err_ChannelBusy, "Channel is busy. Try again later."
uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)."
@ -2198,10 +2218,10 @@ BEGIN
uRORes_err_DOMElementIsNIL, "DOMElement is NIL"
uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d"
uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s"
uRORes_err_NoXMLParsersAvailable, "MSXML is not installed"
uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported."
uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\""
uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d"
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s"
uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"."
uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)"
@ -2214,10 +2234,10 @@ BEGIN
uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found"
uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage"
uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered"
uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\""
uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned"
uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?"
uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRORes_err_InvalidIndex, "Invalid index %d"
uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\""
uRORes_err_InvalidStream, "Invalid stream"
uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\""
@ -2230,26 +2250,6 @@ BEGIN
uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements."
uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements."
uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found."
uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"."
uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves."
uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"."
uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s"
Consts_SUTF8Encoding, "UTF-8"
Consts_SUTF7Encoding, "UTF-7"
Consts_SPageControlNotSet, "PageControl must first be assigned"
uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid."
uRODECConst_sStringFormatExists, "String Format \"%d\" not exists."
uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format."
uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format."
uRODECConst_sFMT_COPY, "copy Input to Output"
uRODECConst_sFMT_HEX, "Hexadecimal"
uRODECConst_sFMT_HEXL, "Hexadecimal lowercase"
uRODECConst_sFMT_MIME64, "MIME Base 64"
uRODECConst_sFMT_UU, "UU Coding"
uRODECConst_sFMT_XX, "XX Coding"
uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before."
uRORes_err_InvalidIndex, "Invalid index %d"
Consts_SPictureLabel, "Picture:"
Consts_SPictureDesc, " (%dx%d)"
Consts_SPreviewLabel, "Preview"

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 3,0,5,0
PRODUCTVERSION 3,0,5,0
FILEVERSION 3,0,6,0
PRODUCTVERSION 3,0,6,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.5.0\0"
VALUE "FileVersion", "3.0.6.0\0"
VALUE "ProductName", "FactuGES Server\0"
VALUE "ProductVersion", "3.0.5.0\0"
VALUE "CompileDate", "miércoles, 10 de septiembre de 2008 20:27\0"
VALUE "ProductVersion", "3.0.6.0\0"
VALUE "CompileDate", "jueves, 18 de septiembre de 2008 19:16\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.