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

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@280 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Database/Script.txt

@@ -1,147 +1,215 @@
-DROP VIEW V_PED_PROV_ART_SIN_ALBARAN;
+ALTER TABLE ALBARANES_CLIENTE
-DROP VIEW V_PED_CLI_ART_SIN_ALBARAN;
+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,
+    NOMBRE,
-    CODIGO_POSTAL,
+    FECHA_ALBARAN,
-    POBLACION,
-    PROVINCIA,
-    PERSONA_CONTACTO,
-    TELEFONO,
-    IVA,
-    ID_FORMA_PAGO,
-    CLIENTE,
-    ID_ARTICULO,
-    FAMILIA,
     REFERENCIA,
-    REFERENCIA_PROVEEDOR,
+    REFERENCIA_CLIENTE,
-    DESCRIPCION,
+    TIPO,
-    CANTIDAD_PEDIDA,
+    ID_ALBARAN_DEV,
-    CANTIDAD_RESERVADA,
+    REFERENCIA_ALB_DEV,
-    CANTIDAD_ENVIADA,
+    ID_FAC_ALB_DEV,
-    CANTIDAD_SERVIDA,
+    REFERENCIA_FAC_ALB_DEV,
-    CANTIDAD_PENDIENTE,
+    SITUACION,
-    PRECIO_COSTE,
+    ID_ALMACEN,
-    DESCUENTO,
+    NOMBRE_ALMACEN,
-    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,
     ID_PEDIDO,
-    ID_EMPRESA,
+    REF_PEDIDO,
-    REFERENCIA_PEDIDO,
+    ID_FACTURA,
-    FECHA_PEDIDO,
+    REF_FACTURA,
-    FECHA_CONFIRMACION,
-    ID_PROVEEDOR,
     CALLE,
     CODIGO_POSTAL,
     POBLACION,
     PROVINCIA,
     PERSONA_CONTACTO,
     TELEFONO,
-    IVA,
+    IMPORTE_NETO,
-    ID_FORMA_PAGO,
+    IMPORTE_PORTE,
-    PROVEEDOR,
-    ID_ARTICULO,
-    FAMILIA,
-    REFERENCIA,
-    REFERENCIA_PROVEEDOR,
-    DESCRIPCION,
-    CANTIDAD_PEDIDA,
-    CANTIDAD_RECIBIDA,
-    CANTIDAD_PENDIENTE,
-    PRECIO_COSTE,
     DESCUENTO,
-    PRECIO_NETO,
+    IMPORTE_DESCUENTO,
-    PRECIO_PORTE)
+    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*/
+  ALBARANES_CLIENTE.ID,
-    V_PED_PROV_ARTICULOS.ID_PEDIDO,
+  ALBARANES_CLIENTE.ID_EMPRESA,
-    PEDIDOS_PROVEEDOR.ID_EMPRESA,
+  ALBARANES_CLIENTE.ID_CLIENTE,
-    PEDIDOS_PROVEEDOR.referencia,
+  CLIENTES.NOMBRE,
-    PEDIDOS_PROVEEDOR.fecha_pedido,
+  ALBARANES_CLIENTE.FECHA_ALBARAN,
-    PEDIDOS_PROVEEDOR.fecha_confirmacion,
+  ALBARANES_CLIENTE.REFERENCIA,
-    PEDIDOS_PROVEEDOR.id_proveedor,
+  ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
-    PEDIDOS_PROVEEDOR.CALLE,
+  ALBARANES_CLIENTE.TIPO,
-    PEDIDOS_PROVEEDOR.CODIGO_POSTAL,
+  ALBARANES_CLIENTE.ID_ALBARAN_DEV,
-    PEDIDOS_PROVEEDOR.POBLACION,
+  ALB_DEV.REFERENCIA,
-    PEDIDOS_PROVEEDOR.PROVINCIA,
+  ALB_DEV.ID_FACTURA,
-    PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,
+  FAC_CLI_ALB_DEV.REFERENCIA,
-    PEDIDOS_PROVEEDOR.TELEFONO,
+  V_ALB_CLI_SITUACION.SITUACION,
-    PEDIDOS_PROVEEDOR.IVA,
+  ALBARANES_CLIENTE.ID_ALMACEN,
-    PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
+  ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
-    CONTACTOS.nombre,
+  ALBARANES_CLIENTE.ID_PEDIDO,
-    V_PED_PROV_ARTICULOS.ID_ARTICULO,
+  PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
-    articulos.familia,
+  ALBARANES_CLIENTE.ID_FACTURA,
-    articulos.referencia,
+  FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
-    articulos.referencia_prov,
+  ALBARANES_CLIENTE.CALLE,
-    articulos.descripcion,
+  ALBARANES_CLIENTE.CODIGO_POSTAL,
-    V_PED_PROV_ARTICULOS.CANTIDAD_PEDIDA,
+  ALBARANES_CLIENTE.POBLACION,
-    V_PED_PROV_ARTICULOS.CANTIDAD_RECIBIDA,
+  ALBARANES_CLIENTE.PROVINCIA,
-    V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE,
+  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,
+FROM
-    ARTICULOS.DESCUENTO,
+  ALBARANES_CLIENTE
-    ARTICULOS.PRECIO_NETO,
+  INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
-    ARTICULOS.PRECIO_PORTE
+  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
+DROP VIEW V_ALBARANES_PROVEEDOR;
-left join PEDIDOS_PROVEEDOR on (PEDIDOS_PROVEEDOR.id = V_PED_PROV_ARTICULOS.id_pedido)
+
-left join CONTACTOS on (contactos.id = PEDIDOS_PROVEEDOR.id_proveedor)
+CREATE VIEW V_ALBARANES_PROVEEDOR(
-left join articulos on (articulos.id = V_PED_PROV_ARTICULOS.ID_ARTICULO)
+    ID,
-where cantidad_pendiente > 0;
+    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'))
+;

Database/VISTAS.SQL

@@ -296,44 +296,48 @@ WHERE
   
 
 CREATE VIEW V_ALBARANES_PROVEEDOR(
-ID,
+    ID,
-ID_EMPRESA,
+    ID_EMPRESA,
-ID_PROVEEDOR,
+    ID_PROVEEDOR,
-NOMBRE,
+    NOMBRE,
-FECHA_ALBARAN,
+    FECHA_ALBARAN,
-REFERENCIA,
+    REFERENCIA,
-REFERENCIA_PROVEEDOR,
+    REFERENCIA_PROVEEDOR,
-TIPO,
+    TIPO,
-ID_ALMACEN,
+    ID_ALBARAN_DEV,
-NOMBRE_ALMACEN,
+    REFERENCIA_ALB_DEV,
-ID_PEDIDO,
+    ID_FAC_ALB_DEV,
-REF_PED_PROVEEDOR,
+    REFERENCIA_FAC_ALB_DEV,
-ID_FACTURA,
+    ID_ALMACEN,
-REF_FACTURA,
+    NOMBRE_ALMACEN,
-REF_FACTURA_PROV,
+    ID_PEDIDO,
-CALLE,
+    REF_PED_PROVEEDOR,
-CODIGO_POSTAL,
+    ID_FACTURA,
-POBLACION,
+    REF_FACTURA,
-PROVINCIA,
+    REF_FACTURA_PROV,
-PERSONA_CONTACTO,
+    CALLE,
-TELEFONO,
+    CODIGO_POSTAL,
-IMPORTE_NETO,
+    POBLACION,
-IMPORTE_PORTE,
+    PROVINCIA,
-DESCUENTO,
+    PERSONA_CONTACTO,
-IMPORTE_DESCUENTO,
+    TELEFONO,
-BASE_IMPONIBLE,
+    IMPORTE_NETO,
-IVA,
+    IMPORTE_PORTE,
-IMPORTE_IVA,
+    DESCUENTO,
-IMPORTE_TOTAL,
+    IMPORTE_DESCUENTO,
-OBSERVACIONES,
+    BASE_IMPONIBLE,
-INCIDENCIAS,
+    IVA,
-INCIDENCIAS_ACTIVAS,
+    IMPORTE_IVA,
-FECHA_ALTA,
+    IMPORTE_TOTAL,
-FECHA_MODIFICACION,
+    OBSERVACIONES,
-USUARIO,
+    INCIDENCIAS,
-ID_FORMA_PAGO,
+    INCIDENCIAS_ACTIVAS,
-NUM_COPIAS)
+    FECHA_ALTA,
- AS 
+    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,
-ID_EMPRESA,
+    ID_EMPRESA,
-ID_CLIENTE,
+    ID_CLIENTE,
-NOMBRE,
+    NOMBRE,
-FECHA_ALBARAN,
+    FECHA_ALBARAN,
-REFERENCIA,
+    REFERENCIA,
-REFERENCIA_CLIENTE,
+    REFERENCIA_CLIENTE,
-TIPO,
+    TIPO,
-SITUACION,
+    ID_ALBARAN_DEV,
-ID_ALMACEN,
+    REFERENCIA_ALB_DEV,
-NOMBRE_ALMACEN,
+    ID_FAC_ALB_DEV,
-ID_PEDIDO,
+    REFERENCIA_FAC_ALB_DEV,
-REF_PEDIDO,
+    SITUACION,
-ID_FACTURA,
+    ID_ALMACEN,
-REF_FACTURA,
+    NOMBRE_ALMACEN,
-CALLE,
+    ID_PEDIDO,
-CODIGO_POSTAL,
+    REF_PEDIDO,
-POBLACION,
+    ID_FACTURA,
-PROVINCIA,
+    REF_FACTURA,
-PERSONA_CONTACTO,
+    CALLE,
-TELEFONO,
+    CODIGO_POSTAL,
-IMPORTE_NETO,
+    POBLACION,
-IMPORTE_PORTE,
+    PROVINCIA,
-DESCUENTO,
+    PERSONA_CONTACTO,
-IMPORTE_DESCUENTO,
+    TELEFONO,
-BASE_IMPONIBLE,
+    IMPORTE_NETO,
-IVA,
+    IMPORTE_PORTE,
-IMPORTE_IVA,
+    DESCUENTO,
-IMPORTE_TOTAL,
+    IMPORTE_DESCUENTO,
-OBSERVACIONES,
+    BASE_IMPONIBLE,
-INCIDENCIAS,
+    IVA,
-INCIDENCIAS_ACTIVAS,
+    IMPORTE_IVA,
-FECHA_ALTA,
+    IMPORTE_TOTAL,
-FECHA_MODIFICACION,
+    OBSERVACIONES,
-USUARIO,
+    INCIDENCIAS,
-ID_FORMA_PAGO,
+    INCIDENCIAS_ACTIVAS,
-FECHA_PREVISTA_ENVIO,
+    FECHA_ALTA,
-FECHA_ENVIO,
+    FECHA_MODIFICACION,
-FECHA_RECEPCION,
+    USUARIO,
-ID_AGENTE,
+    ID_FORMA_PAGO,
-AGENTE,
+    FECHA_PREVISTA_ENVIO,
-NUM_COPIAS)
+    FECHA_ENVIO,
- AS 
+    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).

Database/factuges.sql

@@ -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
 );
 
 

Source/Cliente/FactuGES.bdsproj

@@ -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>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,5,0
+FILEVERSION 3,0,6,0
-PRODUCTVERSION 3,0,5,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"

Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.bdsgroup

@@ -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 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 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>
     <Dependencies/>
   </Default.Personality>

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -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;

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm

@@ -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

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas

@@ -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_DarReferencia = '{EB3008DB-9520-42B6-8860-4AAD682CA8B5}';
-  RID_AlbaranesCliente = '{BD15D29D-2048-44B3-BE79-0485BDB36C8E}';
+  RID_AlbaranesCliente = '{21D36B32-4BCE-485C-A44A-9A72CC73A57E}';
-  RID_AlbaranesCliente_Detalles = '{4CA5BC9A-72EA-4187-BD2E-A9EF5BAAF24E}';
+  RID_AlbaranesCliente_Detalles = '{493A3E1F-36BC-42B1-B149-2CFFAE856399}';
-  RID_AlbaranesCliente_Detalles_Refresh = '{9F94485D-D822-4622-A4C0-30D76050FD48}';
+  RID_AlbaranesCliente_Detalles_Refresh = '{DED95756-45A8-43C5-A74D-314BCED7EEE4}';
-  RID_AlbaranesCliente_Refresh = '{2CF53053-8A71-4901-80B3-3527508FD486}';
+  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);

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas

@@ -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_DarReferenciaDelta = '{686A4397-FE20-45D3-9CED-8AF55D9542EB}';
-  RID_AlbaranesClienteDelta = '{D5AF214C-6088-4F9D-B3AD-31F0331285DE}';
+  RID_AlbaranesClienteDelta = '{51F248ED-D277-4C06-BAC6-810A28646B1B}';
-  RID_AlbaranesCliente_DetallesDelta = '{2BB9CAA9-9328-4A65-BE4C-B06D2B48303A}';
+  RID_AlbaranesCliente_DetallesDelta = '{CC2B288D-936A-40AC-8691-DC28A6515213}';
-  RID_AlbaranesCliente_Detalles_RefreshDelta = '{E0DD7094-E6BE-4AB9-B6F6-DD1989A64904}';
+  RID_AlbaranesCliente_Detalles_RefreshDelta = '{8D8BE999-438B-4A1F-9BFE-D9215AFFE426}';
-  RID_AlbaranesCliente_RefreshDelta = '{036CCB6F-FFF2-4369-8F75-FE0D068481B6}';
+  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);

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -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
+            DictionaryEntry = 'AlbaranesCliente_NUM_COPIAS'
-            Alignment = taLeftJustify
+            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' +
+              'TE, NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV,'#10'    ID_FAC_A' +
-              'S_CLIENTE.ID = :ID'
+              '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' +
+              'RECEPCION, TIPO, ID_ALBARAN_DEV)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA,' +
-              'EFERENCIA, :REFERENCIA_CLIENTE,'#10'     :FECHA_ALBARAN, :ID_PEDIDO,' +
+              ' :ID_CLIENTE, :REFERENCIA, :REFERENCIA_CLIENTE,'#10'     :FECHA_ALBA' +
-              ' :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10'     :CODIGO_POSTAL, :POBLACI' +
+              'RAN, :ID_PEDIDO, :ID_ALMACEN, :ID_FACTURA, :CALLE,'#10'     :CODIGO_' +
-              'ON, :PROVINCIA, :PERSONA_CONTACTO, '#10'     :TELEFONO, :BASE_IMPONI' +
+              'POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO, '#10'     :TELEFO' +
-              'BLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10'     :DESCUENTO, :IMPORTE_D' +
+              'NO, :BASE_IMPONIBLE, :IMPORTE_NETO, :IMPORTE_PORTE, '#10'     :DESCU' +
-              'ESCUENTO, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOTAL, :OBSERVACION' +
+              'ENTO, :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, '#10'     :IMPORTE_TOT' +
-              'ES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10'     :FECHA_ALTA, :FECH' +
+              'AL, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, '#10'     :F' +
-              'A_MODIFICACION, :USUARIO,'#10'     :ID_FORMA_PAGO, :FECHA_PREVISTA_E' +
+              'ECHA_ALTA, :FECHA_MODIFICACION, :USUARIO,'#10'     :ID_FORMA_PAGO, :' +
-              'NVIO, :FECHA_ENVIO, :FECHA_RECEPCION, :TIPO)'
+              '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

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm

@@ -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

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas

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

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm

@@ -1,16 +1,17 @@
 inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
   Caption = 'Lista de albaranes de cliente'
-  ClientWidth = 583
+  ClientHeight = 449
-  ExplicitWidth = 591
+  ClientWidth = 855
-  ExplicitHeight = 240
+  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 = <

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas

@@ -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;

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm

@@ -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 = <

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm

@@ -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
+      Height = 141
-      Width = 186
+      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
+          ExplicitWidth = 279
-          Width = 224
+          Width = 279
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          ExplicitWidth = 562
+          ExplicitWidth = 279
-          Width = 562
+          Width = 279
         end
         inherited edtCalle: TcxDBTextEdit
-          ExplicitWidth = 562
+          ExplicitWidth = 279
-          Width = 562
+          Width = 279
         end
         inherited edtPoblacion: TcxDBTextEdit
-          ExplicitWidth = 177
+          ExplicitWidth = 161
-          Width = 177
+          Width = 161
         end
         inherited edtProvincia: TcxDBTextEdit
-          ExplicitWidth = 327
+          ExplicitWidth = 279
-          Width = 327
+          Width = 279
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 268
+          Left = 261
-          ExplicitLeft = 268
+          ExplicitLeft = 261
         end
         inherited Button3: TBitBtn
-          Left = 158
+          Left = 151
-          ExplicitLeft = 158
+          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

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas

@@ -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;

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm

@@ -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
+    inherited bElegirDireccion: TBitBtn
-      ExplicitWidth = 16
+      Left = 247
-      Width = 16
+      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

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas

@@ -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
+    dxLayoutControl1Item17: TdxLayoutItem;
-    { Private declarations }
+    eReferenciaAlbaranCli: TcxTextEdit;
-  public
+    dxLayoutControl1Item25: TdxLayoutItem;
-    { Public declarations }
+    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.

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm

@@ -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
+          ExplicitWidth = 468
-          Width = 273
+          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

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.pas

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

Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.bdsgroup

@@ -8,9 +8,7 @@
 			<Option Name="GUID">{D1967178-5EBB-46B2-893F-E0CADFEDD466}</Option>
 		</Option>
 	</PersonalityInfo>
-	<Default.Personality>  
+	<Default.Personality>  <Projects>
-    
-    <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>

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -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;

Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas

@@ -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_DarReferencia = '{15891F28-6D5E-412C-892D-1474FB348E4B}';
-  RID_AlbaranesProveedor = '{4EE00E6F-CE2D-4A3F-8BB7-4CC56A04C494}';
+  RID_AlbaranesProveedor = '{DC59E1B6-DFB0-4D9D-8F36-D5458362B1F4}';
-  RID_AlbaranesProveedor_Detalles = '{EAEB48A8-713D-4559-AF51-B102B0EE4CDC}';
+  RID_AlbaranesProveedor_Detalles = '{6999036F-7208-46EC-A3FE-24E093E76C10}';
-  RID_AlbaranesProveedor_Detalles_Refresh = '{C0B6846B-07A4-407C-9D66-AC584AF21C0D}';
+  RID_AlbaranesProveedor_Detalles_Refresh = '{68EED4B4-6B94-44D1-B148-484D3F17BD25}';
-  RID_AlbaranesProveedor_Refresh = '{4A135BA2-5325-45B4-B75C-59B39DEF034F}';
+  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);

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas

@@ -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_DarReferenciaDelta = '{97B34AA4-C89F-4EF5-BD14-EAC025E8DE2A}';
-  RID_AlbaranesProveedorDelta = '{4DE57AD5-32F1-4CDC-9D41-5557B7EC11A0}';
+  RID_AlbaranesProveedorDelta = '{4C2884E6-A902-4C13-8217-86E1044EE171}';
-  RID_AlbaranesProveedor_DetallesDelta = '{097F48A6-6CC7-43A8-A5C2-BCE54EE3B9B7}';
+  RID_AlbaranesProveedor_DetallesDelta = '{14A26AA3-09EB-432C-84C0-B5BE48912937}';
-  RID_AlbaranesProveedor_Detalles_RefreshDelta = '{D590E2D3-0875-4A95-9B35-CBD3DC43B6C0}';
+  RID_AlbaranesProveedor_Detalles_RefreshDelta = '{C18290F7-22E0-4F13-9F16-5B5B0F4F526A}';
-  RID_AlbaranesProveedor_RefreshDelta = '{23A6B8F2-95A9-4A11-8822-6D9FA3511F8C}';
+  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);

Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm

@@ -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
+            DictionaryEntry = 'AlbaranesProveedor_NUM_COPIAS'
-            Alignment = taLeftJustify
+            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_' +
+              ', NUM_COPIAS, ID_ALBARAN_DEV, REFERENCIA_ALB_DEV, ID_FAC_ALB_DEV' +
-              'PROVEEDOR.ID = :ID'
+              ','#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,' +
+              '   TIPO,'#10'    ID_ALBARAN_DEV)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRESA' +
-              #10'    :FECHA_ALBARAN,'#10'    :ID_PEDIDO,'#10'    :ID_FACTURA,'#10'    :REFER' +
+              ','#10'    :ID_PROVEEDOR,'#10'    :FECHA_ALBARAN,'#10'    :ID_PEDIDO,'#10'    :ID' +
-              'ENCIA,'#10'    :REFERENCIA_PROVEEDOR,'#10'    :REF_FACTURA_PROV,'#10'    :CA' +
+              '_FACTURA,'#10'    :REFERENCIA,'#10'    :REFERENCIA_PROVEEDOR,'#10'    :REF_F' +
-              'LLE,'#10'    :CODIGO_POSTAL,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :PE' +
+              'ACTURA_PROV,'#10'    :CALLE,'#10'    :CODIGO_POSTAL,'#10'    :POBLACION,'#10'   ' +
-              'RSONA_CONTACTO,'#10'    :TELEFONO,'#10'    :BASE_IMPONIBLE,'#10'    :DESCUEN' +
+              ' :PROVINCIA,'#10'    :PERSONA_CONTACTO,'#10'    :TELEFONO,'#10'    :BASE_IMP' +
-              'TO,'#10'    :IMPORTE_DESCUENTO,'#10'    :IVA,'#10'    :IMPORTE_IVA,'#10'    :IMP' +
+              'ONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'    :IVA,'#10'    :I' +
-              'ORTE_TOTAL,'#10'    :OBSERVACIONES,'#10'    :INCIDENCIAS,'#10'    :INCIDENCI' +
+              'MPORTE_IVA,'#10'    :IMPORTE_TOTAL,'#10'    :OBSERVACIONES,'#10'    :INCIDEN' +
-              'AS_ACTIVAS,'#10'    :FECHA_ALTA,'#10'    :FECHA_MODIFICACION,'#10'    :USUAR' +
+              'CIAS,'#10'    :INCIDENCIAS_ACTIVAS,'#10'    :FECHA_ALTA,'#10'    :FECHA_MODI' +
-              'IO,'#10'    :ID_ALMACEN,'#10'    :ID_FORMA_PAGO,'#10'    :IMPORTE_NETO,'#10'    ' +
+              'FICACION,'#10'    :USUARIO,'#10'    :ID_ALMACEN,'#10'    :ID_FORMA_PAGO,'#10'   ' +
-              ':IMPORTE_PORTE,'#10'    :TIPO);'
+              ' :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

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas

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

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.dfm

@@ -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 = <

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm

@@ -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 = <

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas

@@ -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;

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm

@@ -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
+      ExplicitWidth = 192
-      Width = 69
+      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

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.pas

@@ -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.

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas

@@ -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;

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas

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

Source/Servidor/FactuGES_Server.bdsproj

@@ -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>
+			<VersionInfoKeys Name="CompileDate">jueves, 18 de septiembre de 2008 18:56</VersionInfoKeys></VersionInfoKeys>
-      <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>
-    </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>
-  </Delphi.Personality>
+		</Excluded_Packages>
+	</Delphi.Personality>
 	<ModelSupport>False</ModelSupport>
 	<!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.dpr

@@ -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}

Source/Servidor/FactuGES_Server.drc

@@ -912,12 +912,12 @@
 #define IdResourceStrings_RSMIMEMIMETypeEmpty 65181
 #define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65182
 #define IdResourceStrings_RSStatusResolving 65183
-#define uRORes_err_InvalidVarArrayDimCount 65184
+#define uRODECConst_sFMT_HEXL 65184
-#define uRORes_err_MessageNotAssigned 65185
+#define uRODECConst_sFMT_MIME64 65185
-#define ComConst_SOleError 65186
+#define uRODECConst_sFMT_UU 65186
-#define ComConst_SNoMethod 65187
+#define uRODECConst_sFMT_XX 65187
-#define ComConst_SVarNotObject 65188
+#define uRODECConst_sInvalidKeySize 65188
-#define ComConst_STooManyParams 65189
+#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_NoXMLParsersAvailable 65200
-#define uRORes_err_ChannelBusy 65201
+#define uRORes_err_IDispatchMarshalingNotSupported 65201
-#define uRORes_err_ArrayIndexOutOfBounds 65202
+#define uRORes_err_UnsupportedVariantType 65202
-#define uRORes_err_InvalidHeader 65203
+#define uRORes_err_VariantIsNotArray 65203
-#define uRORes_err_UnknownClassInStream 65204
+#define uRORes_err_InvalidVarArrayDimCount 65204
-#define uRORes_err_UnexpectedClassInStream 65205
+#define uRORes_err_MessageNotAssigned 65205
-#define uRORes_err_SessionNotFound 65206
+#define ComConst_SOleError 65206
-#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65207
+#define ComConst_SNoMethod 65207
-#define uRORes_err_TooManySessions 65208
+#define ComConst_SVarNotObject 65208
-#define uRORes_err_DOMElementIsNIL 65209
+#define ComConst_STooManyParams 65209
-#define uRORes_err_CannotLoadXMLDocument 65210
+#define uRODECConst_sProtectionCircular 65210
-#define uRORes_err_ErrorCreatingMsXmlDoc 65211
+#define uRODECConst_sStringFormatExists 65211
-#define uRORes_err_NoXMLParsersAvailable 65212
+#define uRODECConst_sInvalidStringFormat 65212
-#define uRORes_err_IDispatchMarshalingNotSupported 65213
+#define uRODECConst_sInvalidFormatString 65213
-#define uRORes_err_UnsupportedVariantType 65214
+#define uRODECConst_sFMT_COPY 65214
-#define uRORes_err_VariantIsNotArray 65215
+#define uRODECConst_sFMT_HEX 65215
-#define uRORes_str_ExceptionReraisedFromServer 65216
+#define uRORes_err_UnknownProxyInterface 65216
-#define uRORes_err_AssignError 65217
+#define uRORes_err_DispatcherAlreadyAssigned 65217
-#define uRORes_err_InvalidRequestStream 65218
+#define uRORes_err_CannotFindMessageDispatcher 65218
-#define uRORes_err_NILMessage 65219
+#define uRORes_err_ServerOnlySupportsOneDispatcher 65219
-#define uRORes_err_UnspecifiedInterface 65220
+#define uRORes_err_UnhandledException 65220
-#define uRORes_err_UnspecifiedMessage 65221
+#define uRORes_err_ChannelBusy 65221
-#define uRORes_err_UnknownMethod 65222
+#define uRORes_err_ArrayIndexOutOfBounds 65222
-#define uRORes_err_ClassFactoryDidNotReturnInstance 65223
+#define uRORes_err_InvalidHeader 65223
-#define uRORes_err_TypeNotSupported 65224
+#define uRORes_err_UnknownClassInStream 65224
-#define uRORes_err_ClassFactoryNotFound 65225
+#define uRORes_err_UnexpectedClassInStream 65225
-#define uRORes_err_IROMessageNotSupported 65226
+#define uRORes_err_SessionNotFound 65226
-#define uRORes_err_ClassAlreadyRegistered 65227
+#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227
-#define uRORes_err_UnknownProxyInterface 65228
+#define uRORes_err_TooManySessions 65228
-#define uRORes_err_DispatcherAlreadyAssigned 65229
+#define uRORes_err_DOMElementIsNIL 65229
-#define uRORes_err_CannotFindMessageDispatcher 65230
+#define uRORes_err_CannotLoadXMLDocument 65230
-#define uRORes_err_ServerOnlySupportsOneDispatcher 65231
+#define uRORes_err_ErrorCreatingMsXmlDoc 65231
-#define uRORes_err_InvalidType 65232
+#define uRORes_err_RodlInvalidDataType 65232
-#define uRORes_err_InvalidStream 65233
+#define uRORes_err_RodlStructCannotBeNested 65233
-#define uRORes_err_InvalidParamFlag 65234
+#define uRORes_err_RodlInvalidAncestorType 65234
-#define uRORes_err_InvalidStringLength 65235
+#define uRORes_str_ExceptionOnServer 65235
-#define uRORes_str_InvalidClassTypeInStream 65236
+#define uRORes_str_ExceptionReraisedFromServer 65236
-#define uRORes_err_UnexpectedEndOfStream 65237
+#define uRORes_err_AssignError 65237
-#define uRORes_err_RodlDuplicateName 65238
+#define uRORes_err_InvalidRequestStream 65238
-#define uRORes_err_RodlNoDataTypeSpecified 65239
+#define uRORes_err_NILMessage 65239
-#define uRORes_err_RodlNoEnumValues 65240
+#define uRORes_err_UnspecifiedInterface 65240
-#define uRORes_err_RodlNoStructElementsDefined 65241
+#define uRORes_err_UnspecifiedMessage 65241
-#define uRORes_err_RodlNoOperationsDefined 65242
+#define uRORes_err_UnknownMethod 65242
-#define uRORes_err_RodlUsedFileDoesNotExist 65243
+#define uRORes_err_ClassFactoryDidNotReturnInstance 65243
-#define uRORes_err_RodlInvalidDataType 65244
+#define uRORes_err_TypeNotSupported 65244
-#define uRORes_err_RodlStructCannotBeNested 65245
+#define uRORes_err_ClassFactoryNotFound 65245
-#define uRORes_err_RodlInvalidAncestorType 65246
+#define uRORes_err_IROMessageNotSupported 65246
-#define uRORes_str_ExceptionOnServer 65247
+#define uRORes_err_ClassAlreadyRegistered 65247
 #define Consts_SUTF8Encoding 65248
 #define Consts_SUTF7Encoding 65249
 #define Consts_SPageControlNotSet 65250
-#define uRODECConst_sProtectionCircular 65251
+#define uRORes_err_InvalidIndex 65251
-#define uRODECConst_sStringFormatExists 65252
+#define uRORes_err_InvalidType 65252
-#define uRODECConst_sInvalidStringFormat 65253
+#define uRORes_err_InvalidStream 65253
-#define uRODECConst_sInvalidFormatString 65254
+#define uRORes_err_InvalidParamFlag 65254
-#define uRODECConst_sFMT_COPY 65255
+#define uRORes_err_InvalidStringLength 65255
-#define uRODECConst_sFMT_HEX 65256
+#define uRORes_str_InvalidClassTypeInStream 65256
-#define uRODECConst_sFMT_HEXL 65257
+#define uRORes_err_UnexpectedEndOfStream 65257
-#define uRODECConst_sFMT_MIME64 65258
+#define uRORes_err_RodlDuplicateName 65258
-#define uRODECConst_sFMT_UU 65259
+#define uRORes_err_RodlNoDataTypeSpecified 65259
-#define uRODECConst_sFMT_XX 65260
+#define uRORes_err_RodlNoEnumValues 65260
-#define uRODECConst_sInvalidKeySize 65261
+#define uRORes_err_RodlNoStructElementsDefined 65261
-#define uRODECConst_sNotInitialized 65262
+#define uRORes_err_RodlNoOperationsDefined 65262
-#define uRORes_err_InvalidIndex 65263
+#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"
+	uRODECConst_sFMT_HEXL,	"Hexadecimal lowercase"
-	uRORes_err_MessageNotAssigned,	"Message is NIL"
+	uRODECConst_sFMT_MIME64,	"MIME Base 64"
-	ComConst_SOleError,	"OLE error %.8x"
+	uRODECConst_sFMT_UU,	"UU Coding"
-	ComConst_SNoMethod,	"Method '%s' not supported by automation object"
+	uRODECConst_sFMT_XX,	"XX Coding"
-	ComConst_SVarNotObject,	"Variant does not reference an automation object"
+	uRODECConst_sInvalidKeySize,	"Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes"
-	ComConst_STooManyParams,	"Dispatch methods do not support more than 64 parameters"
+	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_RodlInvalidDataType,	"Invalid or undefined data type \"%s\"."
-	uRORes_err_IDispatchMarshalingNotSupported,	"Marshaling of IDispatch (%d) type variants is not supported."
+	uRORes_err_RodlStructCannotBeNested,	"Structs cannot recursively contain themselves."
-	uRORes_err_UnsupportedVariantType,	"Unsupported variant type \"%d\""
+	uRORes_err_RodlInvalidAncestorType,	"Invalid or undefined ancestor type \"%s\"."
-	uRORes_err_VariantIsNotArray,	"Variant must be Array, but is %d"
+	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\""
+	Consts_SUTF8Encoding,	"UTF-8"
-	uRORes_err_DispatcherAlreadyAssigned,	"Dispatcher for %s already assigned"
+	Consts_SUTF7Encoding,	"UTF-7"
-	uRORes_err_CannotFindMessageDispatcher,	"Cannot find message dispatcher. Maybe there is no message component configured for  for the requested path?"
+	Consts_SPageControlNotSet,	"PageControl must first be assigned"
-	uRORes_err_ServerOnlySupportsOneDispatcher,	"%s servers only support one dispatcher"
+	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"

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,5,0
+FILEVERSION 3,0,6,0
-PRODUCTVERSION 3,0,5,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 "ProductVersion", "3.0.6.0\0"
-              VALUE "CompileDate", "miércoles, 10 de septiembre de 2008 20:27\0"
+              VALUE "CompileDate", "jueves, 18 de septiembre de 2008 19:16\0"
          END
     END
     BLOCK "VarFileInfo"