git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@101 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
d9f3509056
commit
7a06f50a7b
@ -714,3 +714,474 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
|
||||
LEFT JOIN CLIENTES_DATOS
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE);
|
||||
|
||||
|
||||
/*FACTURAS Y RECIBOS DE PROVEEDOR*/
|
||||
DROP VIEW V_FACTURAS_PROVEEDOR;
|
||||
DROP VIEW V_FAC_PRO_SITUACION;
|
||||
DROP VIEW V_REC_FAC_PRO_PAGADOS;
|
||||
DROP VIEW V_RECIBOS_PROVEEDOR;
|
||||
DROP VIEW V_REC_FAC_PRO;
|
||||
DROP VIEW V_REC_PRO_SITUACION;
|
||||
DROP VIEW V_REC_PRO_COMPENSADOS;
|
||||
|
||||
|
||||
CREATE VIEW V_REC_PRO_COMPENSADOS (
|
||||
ID_RECIBO,
|
||||
IMPORTE_TOTAL_COMPENSADO
|
||||
) as
|
||||
select ID_RECIBO_COMPENSADO, SUM((IMPORTE + OTROS_GASTOS)) as IMPORTE_TOTAL
|
||||
from RECIBOS_PROVEEDOR
|
||||
where ID_RECIBO_COMPENSADO is not null
|
||||
group by ID_RECIBO_COMPENSADO;
|
||||
|
||||
CREATE VIEW V_REC_PRO_SITUACION(
|
||||
ID_RECIBO,
|
||||
SITUACION)
|
||||
AS
|
||||
SELECT RECIBOS_PROVEEDOR.ID,
|
||||
CASE WHEN (COUNT(PAGOS_PROVEEDOR.ID_RECIBO)=0) THEN 'PENDIENTE'
|
||||
WHEN (MOD(COUNT(PAGOS_PROVEEDOR.ID_RECIBO), 2)=0) THEN 'DEVUELTO'
|
||||
ELSE 'PAGADO'
|
||||
END
|
||||
FROM RECIBOS_PROVEEDOR
|
||||
LEFT JOIN PAGOS_PROVEEDOR
|
||||
ON (PAGOS_PROVEEDOR.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
GROUP BY RECIBOS_PROVEEDOR.ID;
|
||||
|
||||
CREATE VIEW V_REC_FAC_PRO(
|
||||
ID_FACTURA,
|
||||
NUM_RECIBOS)
|
||||
AS
|
||||
SELECT FACTURAS_PROVEEDOR.ID, COUNT(RECIBOS_PROVEEDOR.ID)
|
||||
FROM FACTURAS_PROVEEDOR
|
||||
LEFT JOIN RECIBOS_PROVEEDOR
|
||||
ON (RECIBOS_PROVEEDOR.ID_FACTURA = FACTURAS_PROVEEDOR.ID)
|
||||
GROUP BY FACTURAS_PROVEEDOR.ID;
|
||||
|
||||
CREATE VIEW V_RECIBOS_PROVEEDOR(
|
||||
ID,
|
||||
ID_RECIBO_COMPENSADO,
|
||||
REFERENCIA_REC_COMPENSADO,
|
||||
REFERENCIA,
|
||||
REFERENCIA_PROVEEDOR,
|
||||
SITUACION,
|
||||
ID_FACTURA,
|
||||
ID_REMESA,
|
||||
REFERENCIA_REMESA,
|
||||
FECHA_EMISION,
|
||||
FECHA_VENCIMIENTO,
|
||||
DESCRIPCION,
|
||||
OBSERVACIONES,
|
||||
IMPORTE,
|
||||
OTROS_GASTOS,
|
||||
IMPORTE_TOTAL,
|
||||
REFERENCIA_FACTURA_PROV,
|
||||
FECHA_FACTURA,
|
||||
FORMA_PAGO_FACTURA,
|
||||
IMPORTE_FACTURA,
|
||||
ID_EMPRESA,
|
||||
ID_PROVEEDOR,
|
||||
NOMBRE_PROVEEDOR,
|
||||
NIF_CIF_PROVEEDOR,
|
||||
ENTIDAD_PROVEEDOR,
|
||||
SUCURSAL_PROVEEDOR,
|
||||
DC_PROVEEDOR,
|
||||
CUENTA_PROVEEDOR,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO)
|
||||
AS
|
||||
SELECT RECIBOS_PROVEEDOR.ID,
|
||||
RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO,
|
||||
RECIBO_COMPENSADO1.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA,
|
||||
RECIBOS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
CASE
|
||||
WHEN RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO IS NULL
|
||||
THEN V_REC_PRO_SITUACION.SITUACION
|
||||
ELSE RECIBO_COMPENSADO2.SITUACION
|
||||
END,
|
||||
RECIBOS_PROVEEDOR.ID_FACTURA,
|
||||
RECIBOS_PROVEEDOR.ID_REMESA, REMESAS_PROVEEDOR.REFERENCIA as REFERENCIA_REMESA,
|
||||
RECIBOS_PROVEEDOR.FECHA_EMISION, RECIBOS_PROVEEDOR.FECHA_VENCIMIENTO, RECIBOS_PROVEEDOR.DESCRIPCION,
|
||||
RECIBOS_PROVEEDOR.OBSERVACIONES, RECIBOS_PROVEEDOR.IMPORTE, RECIBOS_PROVEEDOR.OTROS_GASTOS,
|
||||
COALESCE(RECIBOS_PROVEEDOR.IMPORTE, 0) + COALESCE(RECIBOS_PROVEEDOR.OTROS_GASTOS, 0) + COALESCE(V_REC_PRO_COMPENSADOS.IMPORTE_TOTAL_COMPENSADO, 0),
|
||||
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
FACTURAS_PROVEEDOR.ID_EMPRESA,
|
||||
|
||||
CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF, CONTACTOS_DATOS_BANCO.ENTIDAD,
|
||||
CONTACTOS_DATOS_BANCO.SUCURSAL, CONTACTOS_DATOS_BANCO.DC, CONTACTOS_DATOS_BANCO.CUENTA,
|
||||
|
||||
RECIBOS_PROVEEDOR.FECHA_ALTA,
|
||||
RECIBOS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
RECIBOS_PROVEEDOR.USUARIO
|
||||
|
||||
FROM RECIBOS_PROVEEDOR
|
||||
LEFT JOIN V_REC_PRO_SITUACION
|
||||
ON (V_REC_PRO_SITUACION.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA)
|
||||
LEFT JOIN FORMAS_PAGO
|
||||
ON (FORMAS_PAGO.ID = FACTURAS_PROVEEDOR.ID_FORMA_PAGO)
|
||||
LEFT JOIN CONTACTOS
|
||||
ON (CONTACTOS.ID = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
|
||||
LEFT JOIN CONTACTOS_DATOS_BANCO
|
||||
ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = CONTACTOS.ID)
|
||||
LEFT JOIN REMESAS_PROVEEDOR
|
||||
ON (REMESAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_REMESA)
|
||||
LEFT JOIN V_REC_PRO_COMPENSADOS
|
||||
ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
LEFT JOIN RECIBOS_PROVEEDOR RECIBO_COMPENSADO1
|
||||
ON (RECIBO_COMPENSADO1.ID = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO)
|
||||
LEFT JOIN V_REC_PRO_SITUACION RECIBO_COMPENSADO2
|
||||
ON (RECIBO_COMPENSADO2.ID_RECIBO = RECIBOS_PROVEEDOR.ID_RECIBO_COMPENSADO);
|
||||
|
||||
|
||||
CREATE VIEW V_REC_FAC_PRO_PAGADOS(
|
||||
ID_FACTURA,
|
||||
NUM_REC_PAGADOS)
|
||||
AS
|
||||
SELECT RECIBOS_PROVEEDOR.ID_FACTURA, COUNT(V_REC_PRO_SITUACION.ID_RECIBO)
|
||||
FROM V_REC_PRO_SITUACION LEFT JOIN RECIBOS_PROVEEDOR ON
|
||||
(RECIBOS_PROVEEDOR.ID = V_REC_PRO_SITUACION.ID_RECIBO)
|
||||
WHERE (V_REC_PRO_SITUACION.SITUACION = 'PAGADO')
|
||||
GROUP BY RECIBOS_PROVEEDOR.ID_FACTURA;
|
||||
|
||||
|
||||
CREATE VIEW V_FAC_PRO_SITUACION(
|
||||
ID_FACTURA,
|
||||
SITUACION)
|
||||
AS
|
||||
SELECT ID_FACTURA,
|
||||
CASE
|
||||
WHEN ((SUM(NUM_RECIBOS) = 0)
|
||||
OR (SUM(NUM_REC_PAGADOS) = 0)) THEN 'PENDIENTE'
|
||||
WHEN (SUM(NUM_RECIBOS) = SUM(NUM_REC_PAGADOS)) THEN 'PAGADA'
|
||||
ELSE 'PARCIALMENTE PAGADA'
|
||||
END AS SITUACION
|
||||
FROM
|
||||
(
|
||||
SELECT ID_FACTURA, NUM_RECIBOS, 0 AS NUM_REC_PAGADOS
|
||||
FROM V_REC_FAC_PRO
|
||||
UNION ALL
|
||||
SELECT ID_FACTURA, 0 AS NUM_RECIBOS, NUM_REC_PAGADOS
|
||||
FROM V_REC_FAC_PRO_PAGADOS
|
||||
)
|
||||
GROUP BY ID_FACTURA;
|
||||
|
||||
|
||||
CREATE VIEW V_FACTURAS_PROVEEDOR(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
REFERENCIA_PROVEEDOR,
|
||||
FECHA_FACTURA,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_PROVEEDOR,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO,
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE)
|
||||
AS
|
||||
SELECT FACTURAS_PROVEEDOR.ID,
|
||||
FACTURAS_PROVEEDOR.ID_EMPRESA,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA,
|
||||
CASE WHEN (FACTURAS_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
|
||||
FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.FECHA_FACTURA,
|
||||
V_FAC_PRO_SITUACION.SITUACION,
|
||||
FACTURAS_PROVEEDOR.BASE_IMPONIBLE,
|
||||
FACTURAS_PROVEEDOR.DESCUENTO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_DESCUENTO,
|
||||
FACTURAS_PROVEEDOR.IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_IVA,
|
||||
FACTURAS_PROVEEDOR.RE,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_RE,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
FACTURAS_PROVEEDOR.OBSERVACIONES,
|
||||
FACTURAS_PROVEEDOR.ID_PROVEEDOR,
|
||||
FACTURAS_PROVEEDOR.NIF_CIF,
|
||||
FACTURAS_PROVEEDOR.NOMBRE,
|
||||
FACTURAS_PROVEEDOR.CALLE,
|
||||
FACTURAS_PROVEEDOR.POBLACION,
|
||||
FACTURAS_PROVEEDOR.PROVINCIA,
|
||||
FACTURAS_PROVEEDOR.CODIGO_POSTAL,
|
||||
FACTURAS_PROVEEDOR.FECHA_ALTA,
|
||||
FACTURAS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
FACTURAS_PROVEEDOR.USUARIO,
|
||||
FACTURAS_PROVEEDOR.ID_FORMA_PAGO,
|
||||
FACTURAS_PROVEEDOR.RECARGO_EQUIVALENCIA,
|
||||
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_NETO,
|
||||
FACTURAS_PROVEEDOR.IMPORTE_PORTE
|
||||
FROM V_FAC_PRO_SITUACION
|
||||
LEFT JOIN FACTURAS_PROVEEDOR
|
||||
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN PROVEEDORES_DATOS
|
||||
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR);
|
||||
|
||||
|
||||
DROP VIEW V_PEDIDOS_PROVEEDOR;
|
||||
DROP VIEW V_PED_PROV_SITUACION;
|
||||
DROP VIEW V_PED_PROV_ARTICULOS;
|
||||
DROP VIEW V_PED_PROV_ARTICULOS_AUX;
|
||||
DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS;
|
||||
DROP VIEW V_PED_PROV_DETALLES;
|
||||
DROP VIEW V_ALB_PROV_DETALLES;
|
||||
|
||||
|
||||
/*Agrupa los artículos de un mismo albarán (ya que en un albarán puede existir varias lineas con el mismo artículo).
|
||||
Para cada artículo de albarán le ponemos el pedido con el que esta asociado y el almacén donde se recibio.
|
||||
Se quitan todos los artículos que no tengamos en catálogo (ID_ARTICULO nulo, lineas de detalle libres)-> esta premisa la cambiamos para que
|
||||
no se falsee la situación de los pedidos, asi pues todo articulo que no este en el catálogo lo pondremos con ID_ARTICULO 0.
|
||||
Se quitan también aquellos que no seán inventariables -> esta premisa nos falsearía la situación de los pedidos */
|
||||
|
||||
CREATE VIEW V_ALB_PROV_DETALLES(
|
||||
ID_ALBARAN,
|
||||
ID_PEDIDO,
|
||||
ID_ALMACEN,
|
||||
ID_ARTICULO,
|
||||
CANTIDAD)
|
||||
AS
|
||||
SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
|
||||
ALBARANES_PROVEEDOR.ID_PEDIDO,
|
||||
ALBARANES_PROVEEDOR.ID_ALMACEN,
|
||||
COALESCE(ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, 0),
|
||||
SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD
|
||||
|
||||
FROM ALBARANES_PROVEEDOR_DETALLES
|
||||
LEFT JOIN ALBARANES_PROVEEDOR
|
||||
ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID)
|
||||
|
||||
/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos
|
||||
LEFT JOIN ARTICULOS
|
||||
ON (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID)
|
||||
|
||||
WHERE (ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO is not null)
|
||||
AND (ARTICULOS.INVENTARIABLE = 1)
|
||||
*/
|
||||
|
||||
GROUP BY ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
|
||||
ALBARANES_PROVEEDOR.ID_PEDIDO,
|
||||
ALBARANES_PROVEEDOR.ID_ALMACEN,
|
||||
ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO;
|
||||
|
||||
|
||||
/*Agrupa los artículos de un mismo pedido (ya que en un pedido puede existir varias lineas con el mismo artículo).
|
||||
Para cada artículo de pedido le ponemos el pedido con el que esta asociado y el almacén donde será recibido.
|
||||
Se quitan todos los artículos que no tengamos en catálogo (ID_ARTICULO nulo, lineas de detalle libres)-> esta premisa la cambiamos para que
|
||||
no se falsee la situación de los pedidos, asi pues todo articulo que no este en el catálogo lo pondremos con ID_ARTICULO 0.
|
||||
Se quitan también aquellos que no seán inventariables -> esta premisa nos falsearia la situacion de los pedidos*/
|
||||
|
||||
CREATE VIEW V_PED_PROV_DETALLES(
|
||||
ID_PEDIDO,
|
||||
ID_ALMACEN,
|
||||
ID_ARTICULO,
|
||||
CANTIDAD)
|
||||
AS
|
||||
SELECT PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO,
|
||||
PEDIDOS_PROVEEDOR.ID_ALMACEN,
|
||||
COALESCE(PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO, 0),
|
||||
SUM(COALESCE(PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD, 0))
|
||||
|
||||
FROM PEDIDOS_PROVEEDOR_DETALLES
|
||||
LEFT JOIN PEDIDOS_PROVEEDOR
|
||||
ON (PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
|
||||
/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos
|
||||
LEFT JOIN ARTICULOS
|
||||
ON (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID)
|
||||
|
||||
WHERE (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO is not null)
|
||||
AND (ARTICULOS.INVENTARIABLE = 1)
|
||||
*/
|
||||
|
||||
GROUP BY PEDIDOS_PROVEEDOR_DETALLES.ID_PEDIDO,
|
||||
PEDIDOS_PROVEEDOR.ID_ALMACEN,
|
||||
PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICULO;
|
||||
|
||||
|
||||
/*Agrupa todos los artículos recibidos (por albaranes de proveedor) de cada uno de los pedidos asociados en los albaranes existentes*/
|
||||
/*No le ponemos el almacen donde se recibió ya que un mismo pedido podría tener varios albaranes con distintos almacenes de destino*/
|
||||
/*Aquellos articulos que no tengan ID_PEDIDO es porque el albarán al que pertenecen no tiene pedido asociado por ello no los tendremos en cuenta*/
|
||||
|
||||
CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS(
|
||||
ID_PEDIDO,
|
||||
ID_ARTICULO,
|
||||
CANTIDAD)
|
||||
AS
|
||||
SELECT ID_PEDIDO, ID_ARTICULO, SUM(CANTIDAD) AS CANTIDAD
|
||||
FROM V_ALB_PROV_DETALLES
|
||||
WHERE (ID_PEDIDO is not null)
|
||||
GROUP BY ID_PEDIDO, ID_ARTICULO;
|
||||
|
||||
|
||||
/*No hacemos LEFT JOIN entre V_PED_PROV_DETALLES y V_PED_PROV_ARTICULOS_RECIBIDOS, porque por cada tupla de la primera*/
|
||||
/*repetiría la consulta de la segunda disparando tiempos, por ello teniendo las dos vistas ejecutadas hacemos una union*/
|
||||
/*obteniendo todos los artículos del pedido, tanto recibidos como pendientes, luego haremos la agrupación sobre este resultado*/
|
||||
|
||||
CREATE VIEW V_PED_PROV_ARTICULOS_AUX(
|
||||
ID_PEDIDO,
|
||||
ID_ARTICULO,
|
||||
CANTIDAD_PEDIDA,
|
||||
CANTIDAD_RECIBIDA)
|
||||
AS
|
||||
SELECT
|
||||
V_PED_PROV_DETALLES.ID_PEDIDO,
|
||||
V_PED_PROV_DETALLES.ID_ARTICULO,
|
||||
V_PED_PROV_DETALLES.CANTIDAD AS CANTIDAD_PEDIDA,
|
||||
0 as CANTIDAD_RECIBIDA
|
||||
FROM V_PED_PROV_DETALLES
|
||||
UNION ALL
|
||||
SELECT
|
||||
V_PED_PROV_ARTICULOS_RECIBIDOS.ID_PEDIDO,
|
||||
V_PED_PROV_ARTICULOS_RECIBIDOS.ID_ARTICULO,
|
||||
NULL as CANTIDAD_PEDIDA,
|
||||
V_PED_PROV_ARTICULOS_RECIBIDOS.CANTIDAD AS CANTIDAD_RECIBIDA
|
||||
FROM V_PED_PROV_ARTICULOS_RECIBIDOS;
|
||||
|
||||
|
||||
/*A partir de la vista anterior obtenemos el estado de cada uno de los artículos del pedido de proveedor*/
|
||||
/*Despreciamos aquellas tuplas cuya cantidad pedida sea null, porque son articulos añadidos en el albarán que*/
|
||||
/*no están en su pedido correspondiente por lo tanto no los tendremos en cuenta para saber si los articulos del*/
|
||||
/*pedido se han recibido todos. De todas formas no tiene mucho sentido este caso*/
|
||||
|
||||
CREATE VIEW V_PED_PROV_ARTICULOS(
|
||||
ID_PEDIDO,
|
||||
/* ID_ALMACEN,*/
|
||||
ID_ARTICULO,
|
||||
CANTIDAD_PEDIDA,
|
||||
CANTIDAD_RECIBIDA,
|
||||
CANTIDAD_PENDIENTE)
|
||||
AS
|
||||
SELECT ID_PEDIDO,
|
||||
/*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/
|
||||
ID_ARTICULO,
|
||||
SUM(CANTIDAD_PEDIDA) as CANTIDAD_PEDIDA,
|
||||
SUM(CANTIDAD_RECIBIDA) as CANTIDAD_RECIBIDA,
|
||||
SUM(CANTIDAD_PEDIDA) - SUM(CANTIDAD_RECIBIDA) as CANTIDAD_PENDIENTE
|
||||
FROM V_PED_PROV_ARTICULOS_AUX
|
||||
/*
|
||||
LEFT JOIN PEDIDOS_PROVEEDOR
|
||||
ON (PEDIDOS_PROVEEDOR.ID = V_PED_PROV_ARTICULOS_AUX.ID_PEDIDO)
|
||||
*/
|
||||
GROUP BY ID_PEDIDO,
|
||||
/*PEDIDOS_PROVEEDOR.ID_ALMACEN,*/
|
||||
ID_ARTICULO
|
||||
HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL;
|
||||
|
||||
CREATE VIEW V_PED_PROV_SITUACION(
|
||||
ID_PEDIDO,
|
||||
SITUACION)
|
||||
AS
|
||||
SELECT ID_PEDIDO,
|
||||
CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE'
|
||||
WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO'
|
||||
WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL'
|
||||
ELSE 'N/A'
|
||||
END AS SITUACION
|
||||
FROM V_PED_PROV_ARTICULOS
|
||||
GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO;
|
||||
|
||||
CREATE VIEW V_PEDIDOS_PROVEEDOR(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
ID_PROVEEDOR,
|
||||
NOMBRE,
|
||||
REFERENCIA,
|
||||
SITUACION,
|
||||
FECHA_ENVIO,
|
||||
FECHA_PEDIDO,
|
||||
FECHA_CONFIRMACION,
|
||||
FECHA_ENTREGA,
|
||||
ID_ALMACEN,
|
||||
NOMBRE_ALMACEN,
|
||||
OBSERVACIONES,
|
||||
IMPORTE_TOTAL,
|
||||
INCIDENCIAS,
|
||||
INCIDENCIAS_ACTIVAS,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
PERSONA_CONTACTO,
|
||||
TELEFONO,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_PEDIDO_CLIENTE,
|
||||
REF_PED_CLIENTE,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
BASE_IMPONIBLE,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
ID_FORMA_PAGO)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_PROVEEDOR.ID,
|
||||
PEDIDOS_PROVEEDOR.ID_EMPRESA,
|
||||
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
|
||||
V_PROVEEDORES.NOMBRE,
|
||||
PEDIDOS_PROVEEDOR.REFERENCIA,
|
||||
V_PED_PROV_SITUACION.SITUACION,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
|
||||
PEDIDOS_PROVEEDOR.FECHA_PEDIDO,
|
||||
PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ENTREGA,
|
||||
PEDIDOS_PROVEEDOR.ID_ALMACEN,
|
||||
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
|
||||
PEDIDOS_PROVEEDOR.OBSERVACIONES,
|
||||
PEDIDOS_PROVEEDOR.IMPORTE_TOTAL,
|
||||
PEDIDOS_PROVEEDOR.INCIDENCIAS,
|
||||
PEDIDOS_PROVEEDOR.INCIDENCIAS_ACTIVAS,
|
||||
PEDIDOS_PROVEEDOR.CALLE,
|
||||
PEDIDOS_PROVEEDOR.POBLACION,
|
||||
PEDIDOS_PROVEEDOR.PROVINCIA,
|
||||
PEDIDOS_PROVEEDOR.CODIGO_POSTAL,
|
||||
PEDIDOS_PROVEEDOR.PERSONA_CONTACTO,
|
||||
PEDIDOS_PROVEEDOR.TELEFONO,
|
||||
PEDIDOS_PROVEEDOR.FECHA_ALTA,
|
||||
PEDIDOS_PROVEEDOR.FECHA_MODIFICACION,
|
||||
PEDIDOS_PROVEEDOR.USUARIO,
|
||||
PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE,
|
||||
PEDIDOS_CLIENTE.REFERENCIA AS REF_PED_CLIENTE,
|
||||
PEDIDOS_PROVEEDOR.IMPORTE_NETO,
|
||||
PEDIDOS_PROVEEDOR.IMPORTE_PORTE,
|
||||
PEDIDOS_PROVEEDOR.DESCUENTO,
|
||||
PEDIDOS_PROVEEDOR.IMPORTE_DESCUENTO,
|
||||
PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
|
||||
PEDIDOS_PROVEEDOR.IVA,
|
||||
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
|
||||
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
|
||||
FROM
|
||||
PEDIDOS_PROVEEDOR
|
||||
LEFT OUTER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
LEFT OUTER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID);
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,492 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{7ED85635-C723-4C0B-BF1D-F719E0EA33AD}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PedidosProveedor_controller.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">3</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">.\</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
|
||||
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
|
||||
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=0
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=1
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
Binary file not shown.
@ -0,0 +1,46 @@
|
||||
package PedidosProveedor_controller;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
Base,
|
||||
PedidosProveedor_data,
|
||||
Contactos_controller,
|
||||
Articulos_controller;
|
||||
|
||||
contains
|
||||
uPedidosProveedorController in 'uPedidosProveedorController.pas',
|
||||
uDetallesPedidoProveedorController in 'uDetallesPedidoProveedorController.pas',
|
||||
uIEditorPedidosProveedor in 'View\uIEditorPedidosProveedor.pas',
|
||||
uIEditorPedidoProveedor in 'View\uIEditorPedidoProveedor.pas',
|
||||
uPedidosProveedorReportController in 'uPedidosProveedorReportController.pas',
|
||||
uIEditorPedidosProveedorPreview in 'View\uIEditorPedidosProveedorPreview.pas',
|
||||
uIEditorElegirPedidosProveedor in 'View\uIEditorElegirPedidosProveedor.pas',
|
||||
uArticulosPedidoProveedorController in 'uArticulosPedidoProveedorController.pas',
|
||||
uIEditorElegirArticulosPedidosProveedor in 'View\uIEditorElegirArticulosPedidosProveedor.pas',
|
||||
uIEditorDireccionEntregaPedidoProveedor in 'View\uIEditorDireccionEntregaPedidoProveedor.pas',
|
||||
uIEditorSituacionPedidoProveedor in 'View\uIEditorSituacionPedidoProveedor.pas';
|
||||
|
||||
end.
|
||||
@ -0,0 +1,551 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
|
||||
<MainSource>PedidosProveedor_controller.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\PedidosProveedor_controller.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PedidosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PedidosProveedor_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_data.dcp" />
|
||||
<DCCReference Include="uArticulosPedidoProveedorController.pas" />
|
||||
<DCCReference Include="uDetallesPedidoProveedorController.pas" />
|
||||
<DCCReference Include="uPedidosProveedorController.pas" />
|
||||
<DCCReference Include="uPedidosProveedorReportController.pas" />
|
||||
<DCCReference Include="View\uIEditorDireccionEntregaPedidoProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirArticulosPedidosProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorElegirPedidosProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorPedidoProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorPedidosProveedor.pas" />
|
||||
<DCCReference Include="View\uIEditorPedidosProveedorPreview.pas" />
|
||||
<DCCReference Include="View\uIEditorSituacionPedidoProveedor.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,16 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.drf */
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,22 @@
|
||||
unit uIEditorDireccionEntregaPedidoProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizPedidosProveedor;
|
||||
|
||||
type
|
||||
IEditorDireccionEntregaPedidoProveedor = interface
|
||||
['{3CFC2593-A4D2-4CEA-B84F-DA726CB843F3}']
|
||||
function GetPedido: IBizPedidoProveedor;
|
||||
procedure SetPedido(const Value: IBizPedidoProveedor);
|
||||
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,19 @@
|
||||
unit uIEditorElegirArticulosPedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uIEditorElegirArticulos, uBizContactos;
|
||||
|
||||
type
|
||||
IEditorElegirArticulosPedidosProveedor = interface(IEditorElegirArticulos)
|
||||
['{4016D4CD-8C0C-494A-9CC4-256E3A00EAD3}']
|
||||
function GetProveedor: IBizProveedor;
|
||||
procedure SetProveedor(const Value: IBizProveedor);
|
||||
property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorElegirPedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uIEditorPedidosProveedor, uBizPedidosProveedor, uGUIBase;
|
||||
|
||||
type
|
||||
IEditorElegirPedidosProveedor = interface(IEditorPedidosProveedor)
|
||||
['{12716994-A11A-4C05-973B-652468B859D9}']
|
||||
function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
|
||||
property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
|
||||
|
||||
procedure SetMultiSelect (AValue : Boolean);
|
||||
function GetMultiSelect : Boolean;
|
||||
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||
|
||||
procedure SetMensaje (const AValue: String);
|
||||
function GetMensaje: String;
|
||||
property Mensaje : String read GetMensaje write SetMensaje;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorPedidoProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorDBItem, uBizPedidosProveedor, uPedidosProveedorController;
|
||||
|
||||
type
|
||||
IEditorPedidoProveedor = interface(IEditorDBItem)
|
||||
['{244C8E63-7BA2-4C8E-A2B8-4ECCEFDB5196}']
|
||||
function GetController : IPedidosProveedorController;
|
||||
procedure SetController (const Value : IPedidosProveedorController);
|
||||
property Controller : IPedidosProveedorController read GetController
|
||||
write SetController;
|
||||
|
||||
function GetPedido: IBizPedidoProveedor;
|
||||
procedure SetPedido(const Value: IBizPedidoProveedor);
|
||||
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorPedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorGridBase, uBizPedidosProveedor, uPedidosProveedorController;
|
||||
|
||||
type
|
||||
IEditorPedidosProveedor = interface(IEditorGridBase)
|
||||
['{F2C320D6-A7A2-4402-95DF-BCFA87384281}']
|
||||
function GetPedidos: IBizPedidoProveedor;
|
||||
procedure SetPedidos(const Value: IBizPedidoProveedor);
|
||||
property Pedidos: IBizPedidoProveedor read GetPedidos write SetPedidos;
|
||||
|
||||
function GetController : IPedidosProveedorController;
|
||||
procedure SetController (const Value : IPedidosProveedorController);
|
||||
property Controller : IPedidosProveedorController read GetController write SetController;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,16 @@
|
||||
unit uIEditorPedidosProveedorPreview;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorPreview;
|
||||
|
||||
type
|
||||
IEditorPedidosProveedorPreview = interface(IEditorPreview)
|
||||
['{9B638488-5156-4FDA-BD85-524DC1D6F6A6}']
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,27 @@
|
||||
unit uIEditorSituacionPedidoProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizPedidosProveedor, uPedidosProveedorController;
|
||||
|
||||
type
|
||||
IEditorSituacionPedidoProveedor = interface
|
||||
['{29CBF2CD-AFD5-49F6-964C-38188F15702E}']
|
||||
function GetController : IPedidosProveedorController;
|
||||
procedure SetController (const Value : IPedidosProveedorController);
|
||||
property Controller : IPedidosProveedorController read GetController
|
||||
write SetController;
|
||||
|
||||
function GetPedidoProveedor: IBizPedidoProveedor;
|
||||
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
|
||||
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor
|
||||
write SetPedidoProveedor;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -0,0 +1,49 @@
|
||||
unit uArticulosPedidoProveedorController;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADataTable, uArticulosController, uBizArticulos, uBizContactos;
|
||||
|
||||
type
|
||||
IArticulosPedidoProveedorController = interface(IArticulosController)
|
||||
['{8C8A8D8D-82D2-4434-81C3-36E4F43F3B3E}']
|
||||
function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo;
|
||||
end;
|
||||
|
||||
TArticulosPedidoProveedorController = class(TArticulosController, IArticulosPedidoProveedorController)
|
||||
public
|
||||
function ElegirArticulos(AArticulos : IBizArticulo; AMensaje: String; AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo; overload;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TArticulosPedidoProveedorController }
|
||||
|
||||
uses Controls, uIEditorElegirArticulosPedidosProveedor, uIEditorElegirArticulos;
|
||||
|
||||
function TArticulosPedidoProveedorController.ElegirArticulos(AArticulos: IBizArticulo; AMensaje: String;
|
||||
AMultiSelect: Boolean; const AProveedor: IBizProveedor): IBizArticulo;
|
||||
var
|
||||
AEditor : IEditorElegirArticulosPedidosProveedor;
|
||||
begin
|
||||
Result := NIL;
|
||||
CreateEditor('EditorElegirArticulosPedidoProveedor', IEditorElegirArticulosPedidosProveedor, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self;
|
||||
Articulos := AArticulos;
|
||||
Proveedor := AProveedor;
|
||||
MultiSelect := AMultiSelect;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := ArticulosSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAClasses.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAClasses.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDADataTable.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDADataTable.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDADelta.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDADelta.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAEngine.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAEngine.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAHelpers.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAHelpers.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAInterfaces.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAInterfaces.dcu
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAMacros.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAMacros.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataset.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAMemDataset.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDARegExpr.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDARegExpr.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDARes.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDARes.dcu
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAUtils.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAUtils.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAWhere.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAWhere.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAXMLUtils.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uDAXMLUtils.dcu
Normal file
Binary file not shown.
Binary file not shown.
@ -0,0 +1,147 @@
|
||||
unit uDetallesPedidoProveedorController;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uDADataTable, uControllerDetallesArticulos, uBizDetallesPedidoProveedor, uIDataModulePedidosProveedor,
|
||||
uBizArticulos, uBizContactos;
|
||||
|
||||
type
|
||||
IDetallesPedidoProveedorController = interface(IControllerDetallesArticulos)
|
||||
['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}']
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
|
||||
function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
|
||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
end;
|
||||
|
||||
TDetallesPedidoProveedorController = class(TControllerDetallesArticulos, IDetallesPedidoProveedorController)
|
||||
private
|
||||
FDataModule : IDataModulePedidosProveedor;
|
||||
protected
|
||||
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
|
||||
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
|
||||
|
||||
procedure AsignarController; override;
|
||||
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
|
||||
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; override;
|
||||
procedure ValidarCampos(DataTable: TDADataTable); override;
|
||||
|
||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
|
||||
public
|
||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
|
||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
|
||||
function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses Variants, uControllerDetallesBase, uDataModulePedidosProveedor,
|
||||
uCalculosUtils, schArticulosClient_Intf, uArticulosPedidoProveedorController;
|
||||
|
||||
{ TDetallesPedidoProveedorController }
|
||||
|
||||
procedure TDetallesPedidoProveedorController.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
|
||||
var
|
||||
AArticulos : IBizArticulo;
|
||||
begin
|
||||
if Assigned(ADetalles) then
|
||||
begin
|
||||
try
|
||||
AArticulos := (FArticulosController.BuscarTodos(AProveedor) as IBizArticulo);
|
||||
ActualizarDetalles(ADetalles, AArticulos);
|
||||
EliminarArticulosProveedor(ADetalles);
|
||||
finally
|
||||
AArticulos := Nil;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoProveedorController.AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
|
||||
var
|
||||
AArticulos: IBizArticulo;
|
||||
begin
|
||||
if Assigned(ADetalles) then
|
||||
begin
|
||||
try
|
||||
AArticulos := (FArticulosController.BuscarTodos as IBizArticulo);
|
||||
AArticulos := (FArticulosController as IArticulosPedidoProveedorController).ElegirArticulos(AArticulos, 'Elija los artículos que desea añadir a este pedido a proveedor', True, AProveedor);
|
||||
Add(ADetalles, AArticulos);
|
||||
finally
|
||||
AArticulos := Nil;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDetallesPedidoProveedorController.ArticulosPendientes(const ID: Integer): IBizDetallesPedidoProveedorPend;
|
||||
begin
|
||||
Result := FDataModule.GetArticulosPendientes(ID);
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoProveedorController.AsignarController;
|
||||
begin
|
||||
FArticulosController := TArticulosPedidoProveedorController.Create;
|
||||
end;
|
||||
|
||||
function TDetallesPedidoProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double;
|
||||
begin
|
||||
Result := CalcularLineaConcepto(DataTable);
|
||||
end;
|
||||
|
||||
constructor TDetallesPedidoProveedorController.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDataModule := TDataModulePedidosProveedor.Create(Nil);
|
||||
end;
|
||||
|
||||
function TDetallesPedidoProveedorController.DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||
begin
|
||||
Result := DarTotalPorte(ADetalles);
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoProveedorController.DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
DesglosarPorte(ImportePorte, ADetalles);
|
||||
ActualizarTotales(ADetalles);
|
||||
end;
|
||||
|
||||
destructor TDetallesPedidoProveedorController.Destroy;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoProveedorController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||
begin
|
||||
if Assigned(AArticulos) then
|
||||
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
|
||||
else
|
||||
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoProveedorController.ValidarCampos(DataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
ValidarCamposLineaConcepto(DataTable);
|
||||
end;
|
||||
|
||||
procedure TDetallesPedidoProveedorController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||
begin
|
||||
if Assigned(AArticulos) then
|
||||
begin
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE;
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := AArticulos.PRECIO_PORTE;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
|
||||
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := Null;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,781 @@
|
||||
unit uPedidosProveedorController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
SysUtils, uDADataTable,
|
||||
uControllerBase, uIDataModulePedidosProveedor, uProveedoresController,
|
||||
uDetallesPedidoProveedorController, uBizPedidosProveedor;
|
||||
|
||||
type
|
||||
IPedidosProveedorController = interface(IObservador)
|
||||
['{404FFA2F-D683-447D-91E6-C9A7322934D8}']
|
||||
function GetProveedorController: IProveedoresController;
|
||||
procedure SetProveedorController(const Value: IProveedoresController);
|
||||
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
|
||||
|
||||
function GetDetallesController: IDetallesPedidoProveedorController;
|
||||
procedure SetDetallesController(const Value: IDetallesPedidoProveedorController);
|
||||
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
|
||||
|
||||
function Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor;
|
||||
function BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
procedure Ver(APedido : IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor);
|
||||
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
|
||||
function Nuevo : IBizPedidoProveedor;
|
||||
procedure Anadir(APedido : IBizPedidoProveedor);
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
function Eliminar(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean; overload;
|
||||
function Guardar(APedido : IBizPedidoProveedor): Boolean;
|
||||
procedure DescartarCambios(APedido : IBizPedidoProveedor);
|
||||
function Existe(const ID: Integer) : Boolean;
|
||||
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
|
||||
|
||||
procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
|
||||
procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
|
||||
|
||||
procedure RecalcularImportes(APedido: IBizPedidoProveedor);
|
||||
function EsModificable(APedido : IBizPedidoProveedor): Boolean;
|
||||
function EsEliminable(APedido : IBizPedidoProveedor): Boolean;
|
||||
|
||||
function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaPagado: TDateTime = 0; DoPost : Boolean = True): Boolean; overload;
|
||||
function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload;
|
||||
|
||||
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
|
||||
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
||||
procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
|
||||
|
||||
end;
|
||||
|
||||
TPedidosProveedorController = class(TObservador, IPedidosProveedorController)
|
||||
protected
|
||||
FDataModule : IDataModulePedidosProveedor;
|
||||
FProveedorController : IProveedoresController;
|
||||
FDetallesController : IDetallesPedidoProveedorController;
|
||||
|
||||
function GetProveedorController: IProveedoresController;
|
||||
procedure SetProveedorController(const Value: IProveedoresController);
|
||||
procedure RecuperarProveedor(APedido : IBizPedidoProveedor);
|
||||
function GetDetallesController: IDetallesPedidoProveedorController;
|
||||
procedure SetDetallesController(const Value: IDetallesPedidoProveedorController);
|
||||
|
||||
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
|
||||
//este controller
|
||||
procedure AsignarDataModule; virtual;
|
||||
procedure RecuperarObjetos(APedido: IBizPedidoProveedor); virtual;
|
||||
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
procedure FiltrarEmpresa(APedido: IBizPedidoProveedor);
|
||||
function _Vacio : IBizPedidoProveedor;
|
||||
function ValidarPedido(APedido: IBizPedidoProveedor): Boolean;
|
||||
function ValidarSituacion(ASituacion: String; AFechaPedido: TDateTime;
|
||||
var AFechaRecepcion: TDateTime): Boolean;
|
||||
|
||||
public
|
||||
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
|
||||
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
|
||||
constructor Create; virtual;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(const ID : Integer): Boolean; overload;
|
||||
function Eliminar(APedido : IBizPedidoProveedor; AllItems: Boolean = false): Boolean; overload;
|
||||
function Guardar(APedido : IBizPedidoProveedor): Boolean;
|
||||
procedure DescartarCambios(APedido : IBizPedidoProveedor); virtual;
|
||||
function Existe(const ID: Integer) : Boolean; virtual;
|
||||
procedure Anadir(APedido : IBizPedidoProveedor);
|
||||
function Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
function BuscarTodos: IBizPedidoProveedor;
|
||||
function BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
function Nuevo : IBizPedidoProveedor;
|
||||
procedure Ver(APedido : IBizPedidoProveedor);
|
||||
procedure VerTodos(APedidos: IBizPedidoProveedor);
|
||||
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
|
||||
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
|
||||
|
||||
procedure Preview(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
|
||||
procedure Print(APedido : IBizPedidoProveedor; AllItems: Boolean = false);
|
||||
|
||||
procedure RecalcularImportes(APedido: IBizPedidoProveedor);
|
||||
function EsModificable(APedido : IBizPedidoProveedor): Boolean;
|
||||
function EsEliminable(APedido : IBizPedidoProveedor): Boolean;
|
||||
|
||||
function CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion : String; AFechaRecepcion: TDateTime = 0; DoPost : Boolean = True): Boolean; overload;
|
||||
function CambiarSituacion(APedido: IBizPedidoProveedor): Boolean; overload;
|
||||
|
||||
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
|
||||
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uROTypes, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
|
||||
uIEditorPedidosProveedor, uDataModulePedidosProveedor,
|
||||
uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
|
||||
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
|
||||
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor,
|
||||
Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes,
|
||||
uIEditorSituacionPedidoProveedor, Variants;
|
||||
|
||||
{ TPedidosProveedorController }
|
||||
|
||||
procedure TPedidosProveedorController.Anadir(APedido: IBizPedidoProveedor);
|
||||
begin
|
||||
APedido.Insert;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModulePedidosProveedor.Create(Nil);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||
begin
|
||||
Result := FDataModule.GetItem(ID);
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_PedidosProveedorSITUACION + ' <> ''' + SITUACION_PEDIDO_RECIBIDO + '''');
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.BuscarTodos: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
FiltrarEmpresa(Result);
|
||||
end;
|
||||
|
||||
constructor TPedidosProveedorController.Create;
|
||||
begin
|
||||
AsignarDataModule;
|
||||
|
||||
FProveedorController := TProveedoresController.Create;
|
||||
FDetallesController := TDetallesPedidoProveedorController.Create;
|
||||
FDetallesController.addObservador(Self);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.CreateEditor(const AName: String;
|
||||
const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.DescartarCambios(APedido: IBizPedidoProveedor);
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (APedido.State in dsEditModes) then
|
||||
APedido.Cancel;
|
||||
|
||||
APedido.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.CambiarSituacion(APedido: IBizPedidoProveedor; ASituacion: String; AFechaRecepcion: TDateTime;
|
||||
DoPost: Boolean): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado (CambiarSituacion)');
|
||||
|
||||
if not APedido.DataTable.Active then
|
||||
APedido.DataTable.Active := True;
|
||||
|
||||
// Validar la situación del pedido
|
||||
if ValidarSituacion(ASituacion, APedido.FECHA_PEDIDO, AFechaRecepcion) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
APedido.DataTable.DisableControls;
|
||||
try
|
||||
APedido.Edit;
|
||||
APedido.SITUACION := ASituacion;
|
||||
if AFechaRecepcion <> APedido.FECHA_ENTREGA then
|
||||
APedido.FECHA_ENTREGA := AFechaRecepcion;
|
||||
APedido.Post;
|
||||
if DoPost then
|
||||
Guardar(APedido);
|
||||
Result := True;
|
||||
finally
|
||||
APedido.DataTable.EnableControls;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.CambiarSituacion(APedido: IBizPedidoProveedor): Boolean;
|
||||
var
|
||||
AEditor : IEditorSituacionPedidoProveedor;
|
||||
begin
|
||||
Result := False;
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
RecuperarProveedor(APedido);
|
||||
CreateEditor('EditorSituacionPedidoProveedor', IEditorSituacionPedidoProveedor, AEditor);
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
PedidoProveedor := APedido;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.ShowModal;
|
||||
AEditor.Release;
|
||||
Result := True;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
destructor TPedidosProveedorController.Destroy;
|
||||
begin
|
||||
FDataModule := Nil;
|
||||
FProveedorController := Nil;
|
||||
FDetallesController := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Duplicar(
|
||||
APedido: IBizPedidoProveedor): IBizPedidoProveedor;
|
||||
begin
|
||||
Result := Self._Vacio;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
DuplicarRegistros(APedido.DataTable, Result.DataTable, mdrActual);
|
||||
DuplicarRegistros(APedido.Detalles.DataTable, Result.Detalles.DataTable, mdrTodos);
|
||||
|
||||
// Hay que dejar algunos campos como si fuera un presupuesto nuevo
|
||||
Result.Edit;
|
||||
with Result do
|
||||
begin
|
||||
REFERENCIA := '';
|
||||
ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
|
||||
// USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||
FECHA_PEDIDO := DateOf(Now);
|
||||
SITUACION := SITUACION_PEDIDO_PENDIENTE;
|
||||
FECHA_ENVIO := 0;
|
||||
FECHA_CONFIRMACION := 0;
|
||||
FECHA_ENTREGA := 0;
|
||||
INCIDENCIAS_ACTIVAS := 0;
|
||||
// INCIDENCIAS := Nil;
|
||||
REF_PED_CLIENTE := '';
|
||||
ID_PEDIDO_CLIENTE := 0;
|
||||
end;
|
||||
Result.Post;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.ValidarPedido(
|
||||
APedido: IBizPedidoProveedor): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado');
|
||||
|
||||
if (APedido.DataTable.State in dsEditModes) then
|
||||
APedido.DataTable.Post;
|
||||
|
||||
//Tambien hacemos post de sus tablas hija
|
||||
if (APedido.Detalles.DataTable.State in dsEditModes) then
|
||||
APedido.Detalles.DataTable.Post;
|
||||
|
||||
if (APedido.ID_PROVEEDOR < 0) or
|
||||
(not Assigned(APedido.Proveedor)) or
|
||||
(APedido.Proveedor.IsEmpty) then
|
||||
raise Exception.Create('Debe indicar el proveedor de esta pedido');
|
||||
|
||||
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
|
||||
raise Exception.Create('Debe indicar la fecha de este pedido');
|
||||
|
||||
if (Length(APedido.CALLE) = 0) and (APedido.ID_ALMACEN = 0) then
|
||||
raise Exception.Create('Debe indicar una dirección de entrega o almacén para este pedido');
|
||||
|
||||
if (APedido.Detalles.DataTable.RecordCount = 0) then
|
||||
raise Exception.Create('Debe indicar al menos un concepto en el contenido del pedido');
|
||||
|
||||
|
||||
{ Asegurarse de valores en campos "automáticos" tanto
|
||||
en MODIFICACIÓN como en INSERCIÓN. }
|
||||
APedido.Edit;
|
||||
try
|
||||
// APedido.USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||
|
||||
if Assigned(APedido.Proveedor)
|
||||
and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then
|
||||
APedido.ID_PROVEEDOR := APedido.Proveedor.ID;
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
APedido.Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.ValidarSituacion(ASituacion: String;
|
||||
AFechaPedido: TDateTime; var AFechaRecepcion: TDateTime): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
if ASituacion = SITUACION_PEDIDO_PENDIENTE then
|
||||
AFechaRecepcion := 0
|
||||
else
|
||||
if (ASituacion = SITUACION_PEDIDO_PARCIAL)
|
||||
or (ASituacion = SITUACION_PEDIDO_RECIBIDO) then
|
||||
begin
|
||||
if (EsFechaVacia(AFechaRecepcion)) then
|
||||
raise Exception.Create('Hay que indicar una fecha de recepción')
|
||||
else if (AFechaRecepcion < AFechaPedido) then
|
||||
raise Exception.Create('La fecha de recepción debe ser posterior a la fecha del pedido');
|
||||
end;
|
||||
Result := True;
|
||||
end;
|
||||
procedure TPedidosProveedorController.Ver(APedido: IBizPedidoProveedor);
|
||||
var
|
||||
AEditor : IEditorPedidoProveedor;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
RecuperarObjetos(APedido);
|
||||
CreateEditor('EditorPedidoProveedor', IEditorPedidoProveedor, AEditor);
|
||||
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Pedido := APedido;
|
||||
|
||||
//MODO CONSULTAR
|
||||
if not EsModificable(APedido) then
|
||||
begin
|
||||
SetDataTableReadOnly(APedido.DataTable, True);
|
||||
ReadOnly := True;
|
||||
end;
|
||||
|
||||
ShowModal;
|
||||
|
||||
//MODO CONSULTAR (Se deja la tabla como estaba)
|
||||
if ReadOnly then
|
||||
SetDataTableReadOnly(APedido.DataTable, False);
|
||||
|
||||
AEditor.Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.VerTodos(APedidos: IBizPedidoProveedor);
|
||||
var
|
||||
AEditor : IEditorPedidosProveedor;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorPedidosProveedor', IEditorPedidosProveedor, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
Pedidos := APedidos;
|
||||
MultiSelect := True;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.VerDireccionEntrega(
|
||||
APedido: IBizPedidoProveedor);
|
||||
var
|
||||
AEditor : IEditorDireccionEntregaPedidoProveedor;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
//RecuperarObjetos(APedido); <- No descomentar. No hace falta
|
||||
CreateEditor('EditorDireccionEntregaPedidoProveedor', IEditorDireccionEntregaPedidoProveedor, AEditor);
|
||||
|
||||
with (AEditor as IEditorDireccionEntregaPedidoProveedor) do
|
||||
begin
|
||||
Pedido := APedido;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if Assigned(AEditor) then
|
||||
try
|
||||
AEditor.ShowModal;
|
||||
AEditor.Release;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController._Vacio: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := Buscar(ID_NULO);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Eliminar(const ID: Integer): Boolean;
|
||||
var
|
||||
APedido : IBizPedidoProveedor;
|
||||
begin
|
||||
APedido := Buscar(ID);
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create(Format('No se ha encontrado el pedido con ID = %d', [ID]));
|
||||
|
||||
Result := Eliminar(APedido);
|
||||
APedido := NIL;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
||||
var
|
||||
AEditor : IEditorElegirPedidosProveedor;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
CreateEditor('EditorElegirPedidosProveedor', IEditorElegirPedidosProveedor, AEditor);
|
||||
try
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self;
|
||||
Pedidos := APedido;
|
||||
MultiSelect := AMultiSelect;
|
||||
Mensaje := AMensaje;
|
||||
if IsPositiveResult(ShowModal) then
|
||||
Result := PedidosProveedorSeleccionados;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Eliminar(APedido: IBizPedidoProveedor; AllItems: Boolean = false): Boolean;
|
||||
//En el caso de eliminar almenos un elemento del conjunto se devuelve true
|
||||
var
|
||||
bEliminado: Boolean;
|
||||
|
||||
begin
|
||||
bEliminado := False;
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('APedido no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not APedido.DataTable.Active then
|
||||
APedido.DataTable.Active := True;
|
||||
|
||||
if (APedido.State in dsEditModes) then
|
||||
APedido.Cancel;
|
||||
|
||||
//Siempre eliminaremos el seleccionado
|
||||
if EsEliminable(APedido) then
|
||||
begin
|
||||
APedido.Delete;
|
||||
bEliminado := True;
|
||||
end;
|
||||
|
||||
//En el caso de querer eliminar todos los items del objeto AAlbaran
|
||||
if AllItems then
|
||||
begin
|
||||
with APedido.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
if EsEliminable(APedido) then
|
||||
begin
|
||||
APedido.Delete;
|
||||
bEliminado := True
|
||||
end
|
||||
else Next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if bEliminado then
|
||||
begin
|
||||
APedido.DataTable.ApplyUpdates;
|
||||
Result := True;
|
||||
end
|
||||
else
|
||||
Result := False;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.EsEliminable(APedido: IBizPedidoProveedor): Boolean;
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado: EsEliminable');
|
||||
|
||||
Result := (APedido.SITUACION = SITUACION_PEDIDO_PENDIENTE);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.EsModificable(APedido: IBizPedidoProveedor): Boolean;
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado: EsModificable');
|
||||
|
||||
Result := (APedido.SITUACION <> SITUACION_PEDIDO_RECIBIDO);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.RecalcularImportes(
|
||||
APedido: IBizPedidoProveedor);
|
||||
var
|
||||
bEnEdicion : Boolean;
|
||||
begin
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignado (RecalcularImportes)');
|
||||
|
||||
if APedido.DataTable.Active then
|
||||
APedido.DataTable.Active := True;
|
||||
|
||||
bEnEdicion := (APedido.DataTable.State in dsEditModes);
|
||||
if not bEnEdicion then
|
||||
APedido.Edit;
|
||||
|
||||
ShowHourglassCursor;
|
||||
APedido.Edit;
|
||||
try
|
||||
APedido.IMPORTE_NETO := FDetallesController.DarTotalImporteTotal(APedido.Detalles);
|
||||
APedido.IMPORTE_PORTE := FDetallesController.DarTotalPorteTotal(APedido.Detalles);
|
||||
if not bEnEdicion then
|
||||
APedido.Post;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
var
|
||||
APedido : IBizPedidoProveedor;
|
||||
ADetalles : IBizDetallesPedidoProveedor;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if Supports(ADataTable, IBizDetallesPedidoProveedor, ADetalles) and
|
||||
Supports(ADetalles.DataTable.MasterSource.DataTable, IBizPedidoProveedor, APedido) then
|
||||
begin
|
||||
RecalcularImportes(APedido);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.RecuperarObjetos(APedido: IBizPedidoProveedor);
|
||||
begin
|
||||
RecuperarProveedor(APedido);
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.RecuperarProveedor(APedido: IBizPedidoProveedor);
|
||||
begin
|
||||
APedido._Proveedor := (FProveedorController.Buscar(APedido.ID_PROVEEDOR) as IBizProveedor);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Existe(const ID: Integer): Boolean;
|
||||
var
|
||||
APedido : IBizPedidoProveedor;
|
||||
begin
|
||||
try
|
||||
APedido := Buscar(ID);
|
||||
Result := Assigned(APedido) and (APedido.ID = ID);
|
||||
finally
|
||||
APedido := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.ExtraerSeleccionados(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
|
||||
var
|
||||
ASeleccionados : IBizPedidoProveedor;
|
||||
begin
|
||||
ASeleccionados := (Self.Buscar(ID_NULO) as IBizPedidoProveedor);
|
||||
CopyDataTableDA3(APedido.DataTable, ASeleccionados.DataTable, True);
|
||||
Result := ASeleccionados;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.FiltrarEmpresa(
|
||||
APedido: IBizPedidoProveedor);
|
||||
begin
|
||||
if APedido.DataTable.Active then
|
||||
APedido.DataTable.Active := False;
|
||||
|
||||
// Filtrar los presupuestos actuales por empresa
|
||||
with APedido.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
// AddCondition(fld_PedidosProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.SetProveedorController(const Value: IProveedoresController);
|
||||
begin
|
||||
FProveedorController := Value;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.SetDetallesController(const Value: IDetallesPedidoProveedorController);
|
||||
begin
|
||||
FDetallesController := Value;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean;
|
||||
var
|
||||
IDNuevo : Integer;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(APedido) then
|
||||
raise Exception.Create ('Pedido no asignada');
|
||||
|
||||
if not Assigned(FDetallesController) then
|
||||
raise Exception.Create ('Controller detalles no asignado');
|
||||
|
||||
if ValidarPedido(APedido) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
|
||||
// Asegurarnos de que todos los importes están bien.
|
||||
RecalcularImportes(APedido);
|
||||
|
||||
try
|
||||
APedido.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.Nuevo: IBizPedidoProveedor;
|
||||
var
|
||||
APedido : IBizPedidoProveedor;
|
||||
begin
|
||||
APedido := FDataModule.NewItem;
|
||||
FiltrarEmpresa(APedido);
|
||||
APedido.DataTable.Active := True;
|
||||
APedido.Insert;
|
||||
Result := APedido;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.Preview(APedido: IBizPedidoProveedor; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IPedidosProveedorReportController;
|
||||
ID_Pedidos: TStringList;
|
||||
|
||||
begin
|
||||
AReportController := TPedidosProveedorReportController.Create;
|
||||
try
|
||||
ID_Pedidos := TStringList.Create;
|
||||
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
with APedido.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Pedidos.Add(IntToStr(APedido.ID));
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Pedidos.Add(IntToStr(APedido.ID));
|
||||
|
||||
AReportController.Preview(ID_Pedidos.CommaText);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
ID_Pedidos.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false);
|
||||
var
|
||||
AReportController : IPedidosProveedorReportController;
|
||||
ID_Pedidos: TStringList;
|
||||
|
||||
begin
|
||||
AReportController := TPedidosProveedorReportController.Create;
|
||||
try
|
||||
ID_Pedidos := TStringList.Create;
|
||||
|
||||
//Si deseamos previsualizar todos los items del objeto albaran
|
||||
if AllItems then
|
||||
begin
|
||||
with APedido.DataTable do
|
||||
begin
|
||||
First;
|
||||
while not EOF do
|
||||
begin
|
||||
ID_Pedidos.Add(IntToStr(APedido.ID));
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
//Solo previsualizamos el item seleccionado
|
||||
else
|
||||
ID_Pedidos.Add(IntToStr(APedido.ID));
|
||||
|
||||
AReportController.Print(ID_Pedidos.CommaText);
|
||||
|
||||
finally
|
||||
AReportController := NIL;
|
||||
ID_Pedidos.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.GetProveedorController: IProveedoresController;
|
||||
begin
|
||||
Result := FProveedorController;
|
||||
end;
|
||||
|
||||
function TPedidosProveedorController.GetDetallesController: IDetallesPedidoProveedorController;
|
||||
begin
|
||||
Result := FDetallesController;
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
@ -0,0 +1,104 @@
|
||||
unit uPedidosProveedorReportController;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePedidosProveedorReport,
|
||||
uClientesController, uPedidosProveedorController, uDetallesPedidoProveedorController,
|
||||
uBizPedidosProveedor;
|
||||
|
||||
type
|
||||
IPedidosProveedorReportController = interface
|
||||
['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
|
||||
procedure Preview(const AID : String);
|
||||
procedure Print(const AID : String);
|
||||
end;
|
||||
|
||||
TPedidosProveedorReportController = class(TInterfacedObject, IPedidosProveedorReportController)
|
||||
private
|
||||
FDataModule : IDataModulePedidosProveedorReport;
|
||||
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
|
||||
procedure Preview(const AID : String);
|
||||
procedure Print(const AID : String);
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uROTypes, uEditorRegistryUtils, uIEditorPedidosProveedorPreview,
|
||||
uEditorPreview, uDataModulePedidosProveedor, uEditorBase, cxControls;
|
||||
|
||||
{ TPedidosProveedorReportController }
|
||||
|
||||
constructor TPedidosProveedorReportController.Create;
|
||||
begin
|
||||
FDataModule := TDataModulePedidosProveedor.Create(Nil);
|
||||
end;
|
||||
|
||||
function TPedidosProveedorReportController.CreateEditor(const AName: String;
|
||||
const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
|
||||
destructor TPedidosProveedorReportController.Destroy;
|
||||
begin
|
||||
FDataModule := NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorReportController.Preview(const AID : String);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorPedidosProveedorPreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetReport(AID);
|
||||
try
|
||||
CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
finally
|
||||
AStream.Free;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if Assigned(AEditor) then
|
||||
AEditor.Preview;
|
||||
end;
|
||||
|
||||
procedure TPedidosProveedorReportController.Print(const AID : String);
|
||||
var
|
||||
AStream: Binary;
|
||||
AEditor : IEditorPedidosProveedorPreview;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AStream := FDataModule.GetReport(AID);
|
||||
try
|
||||
CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor);
|
||||
AEditor.LoadFromStream(AStream);
|
||||
finally
|
||||
AStream.Free;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
if Assigned(AEditor) then
|
||||
AEditor.Print
|
||||
end;
|
||||
|
||||
end.
|
||||
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROCipher.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROCipher.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROCiphers.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROCiphers.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROClasses.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROClasses.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROClient.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROClient.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROClientIntf.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROClientIntf.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROCompression.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROCompression.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODECConst.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODECConst.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODECUtil.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODECUtil.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODL.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODL.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODLToXML.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRODLToXML.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROEncryption.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROEncryption.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROHTTPTools.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROHTTPTools.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROHash.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROHash.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROMSXML2_TLB.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROMSXML2_TLB.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROMSXMLImpl.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROMSXMLImpl.dcu
Normal file
Binary file not shown.
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRORes.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uRORes.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROSerializer.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROSerializer.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROServerIntf.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROServerIntf.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROSessions.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROSessions.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROTypes.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROTypes.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROXMLIntf.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROXMLIntf.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROZLib.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uROZLib.dcu
Normal file
Binary file not shown.
BIN
Source/Modulos/Pedidos a proveedor/Controller/uroCipher1.dcu
Normal file
BIN
Source/Modulos/Pedidos a proveedor/Controller/uroCipher1.dcu
Normal file
Binary file not shown.
@ -0,0 +1,492 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{38EEF566-1895-4BDD-8007-F92F5E32CCE6}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PedidosProveedor_data.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||
<Compiler Name="UnitLibrary">True</Compiler>
|
||||
<Compiler Name="UnitPlatform">True</Compiler>
|
||||
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||
<Compiler Name="UnitExperimental">True</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">3</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription"></Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">.\</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
|
||||
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
|
||||
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=519
|
||||
Activate=1
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=0
|
||||
Freeze Message=The application seems to be frozen.
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
Show TerminateBtn=1
|
||||
TerminateBtn Operation=1
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=1
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesSection=1
|
||||
loSaveCPUSection=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModule=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpUser=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=0
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndCompressAllFiles=0
|
||||
edoShowExceptionDialog=1
|
||||
edoSendEmailChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=1
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoShowProcedureOffset=0
|
||||
boActivateCrashDetection=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error."
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_CustomDataCaption=1
|
||||
mtDialog_CustomDataCaption0="Other"
|
||||
Count mtDialog_CustomDataHeader=1
|
||||
mtDialog_CustomDataHeader0="Other Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModule=1
|
||||
mtLog_ExcModule0="Module"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpUser=1
|
||||
mtLog_CmpUser0="User"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
EurekaLog Last Line -->
|
||||
</BorlandProject>
|
||||
Binary file not shown.
@ -0,0 +1,34 @@
|
||||
package PedidosProveedor_data;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
Base,
|
||||
PedidosProveedor_model;
|
||||
|
||||
contains
|
||||
uDataModulePedidosProveedor in 'uDataModulePedidosProveedor.pas' {DataModulePedidosProveedor};
|
||||
|
||||
end.
|
||||
@ -0,0 +1,581 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid>
|
||||
<MainSource>PedidosProveedor_data.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\PedidosProveedor_data.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Package_Options>
|
||||
<Package_Options Name="ImplicitBuild">True</Package_Options>
|
||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
||||
</Package_Options>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">PedidosProveedor_data.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PedidosProveedor_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Data\Base.dcp" />
|
||||
<DCCReference Include="..\..\Presupuestos de cliente\Data\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="uDataModulePedidosProveedor.pas">
|
||||
<Form>DataModulePedidosProveedor</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
Foreground Tab=0
|
||||
Freeze Activate=0
|
||||
Freeze Timeout=60
|
||||
SMTP From=eurekalog@email.com
|
||||
SMTP Host=
|
||||
SMTP Port=25
|
||||
SMTP UserID=
|
||||
SMTP Password=
|
||||
Append to Log=0
|
||||
TerminateBtn Operation=2
|
||||
Errors Number=32
|
||||
Errors Terminate=3
|
||||
Email Address=
|
||||
Email Object=
|
||||
Email Send Options=0
|
||||
Output Path=
|
||||
Encrypt Password=
|
||||
AutoCloseDialogSecs=0
|
||||
WebSendMode=0
|
||||
SupportULR=
|
||||
HTMLLayout Count=15
|
||||
HTMLLine0="%3Chtml%3E"
|
||||
HTMLLine1=" %3Chead%3E"
|
||||
HTMLLine2=" %3C/head%3E"
|
||||
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||
HTMLLine5=" %3Ctr%3E"
|
||||
HTMLLine6=" %3Ctd nowrap%3E"
|
||||
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||
HTMLLine9=" %3C/font%3E"
|
||||
HTMLLine10=" %3C/td%3E"
|
||||
HTMLLine11=" %3C/tr%3E"
|
||||
HTMLLine12=" %3C/table%3E"
|
||||
HTMLLine13=" %3C/body%3E"
|
||||
HTMLLine14="%3C/html%3E"
|
||||
AutoCrashOperation=2
|
||||
AutoCrashNumber=10
|
||||
AutoCrashMinutes=1
|
||||
WebURL=
|
||||
WebUserID=
|
||||
WebPassword=
|
||||
WebPort=0
|
||||
AttachedFiles=
|
||||
ProxyURL=
|
||||
ProxyUser=
|
||||
ProxyPassword=
|
||||
ProxyPort=8080
|
||||
TrakerUser=
|
||||
TrakerPassword=
|
||||
TrakerAssignTo=
|
||||
TrakerProject=
|
||||
TrakerCategory=
|
||||
TrakerTrialID=
|
||||
ZipPassword=
|
||||
PreBuildEvent=
|
||||
PostSuccessfulBuildEvent=
|
||||
PostFailureBuildEvent=
|
||||
ExceptionDialogType=2
|
||||
Count=0
|
||||
EMail Message Line Count=0
|
||||
loNoDuplicateErrors=0
|
||||
loAppendReproduceText=0
|
||||
loDeleteLogAtVersionChange=0
|
||||
loAddComputerNameInLogFileName=0
|
||||
loSaveModulesAndProcessesSections=1
|
||||
loSaveAssemblerAndCPUSections=1
|
||||
soAppStartDate=1
|
||||
soAppName=1
|
||||
soAppVersionNumber=1
|
||||
soAppParameters=1
|
||||
soAppCompilationDate=1
|
||||
soAppUpTime=1
|
||||
soExcDate=1
|
||||
soExcAddress=1
|
||||
soExcModuleName=1
|
||||
soExcModuleVersion=1
|
||||
soExcType=1
|
||||
soExcMessage=1
|
||||
soExcID=1
|
||||
soExcCount=1
|
||||
soExcStatus=1
|
||||
soExcNote=1
|
||||
soUserID=1
|
||||
soUserName=1
|
||||
soUserEmail=1
|
||||
soUserPrivileges=1
|
||||
soUserCompany=1
|
||||
soActCtlsFormClass=1
|
||||
soActCtlsFormText=1
|
||||
soActCtlsControlClass=1
|
||||
soActCtlsControlText=1
|
||||
soCmpName=1
|
||||
soCmpTotalMemory=1
|
||||
soCmpFreeMemory=1
|
||||
soCmpTotalDisk=1
|
||||
soCmpFreeDisk=1
|
||||
soCmpSysUpTime=1
|
||||
soCmpProcessor=1
|
||||
soCmpDisplayMode=1
|
||||
soCmpDisplayDPI=1
|
||||
soCmpVideoCard=1
|
||||
soCmpPrinter=1
|
||||
soOSType=1
|
||||
soOSBuildN=1
|
||||
soOSUpdate=1
|
||||
soOSLanguage=1
|
||||
soOSCharset=1
|
||||
soNetIP=1
|
||||
soNetSubmask=1
|
||||
soNetGateway=1
|
||||
soNetDNS1=1
|
||||
soNetDNS2=1
|
||||
soNetDHCP=1
|
||||
soCustomData=1
|
||||
sndShowSendDialog=1
|
||||
sndShowSuccessFailureMsg=0
|
||||
sndSendEntireLog=0
|
||||
sndSendXMLLogCopy=0
|
||||
sndSendScreenshot=1
|
||||
sndUseOnlyActiveWindow=0
|
||||
sndSendLastHTMLPage=1
|
||||
sndSendInSeparatedThread=0
|
||||
sndAddDateInFileName=0
|
||||
sndAddComputerNameInFileName=0
|
||||
edoSendErrorReportChecked=1
|
||||
edoAttachScreenshotChecked=1
|
||||
edoShowCopyToClipOption=1
|
||||
edoShowDetailsButton=1
|
||||
edoShowInDetailedMode=0
|
||||
edoShowInTopMostMode=0
|
||||
edoUseEurekaLogLookAndFeel=0
|
||||
edoShowSendErrorReportOption=1
|
||||
edoShowAttachScreenshotOption=1
|
||||
edoShowCustomButton=0
|
||||
csoShowDLLs=1
|
||||
csoShowBPLs=1
|
||||
csoShowBorlandThreads=1
|
||||
csoShowWindowsThreads=1
|
||||
csoDoNotStoreProcNames=0
|
||||
boPauseBorlandThreads=0
|
||||
boDoNotPauseMainThread=0
|
||||
boPauseWindowsThreads=0
|
||||
boUseMainModuleOptions=1
|
||||
boCopyLogInCaseOfError=1
|
||||
boSaveCompressedCopyInCaseOfError=0
|
||||
boHandleSafeCallExceptions=1
|
||||
boCallRTLExceptionEvent=0
|
||||
boCatchHandledExceptions=0
|
||||
loCatchLeaks=0
|
||||
loGroupsSonLeaks=1
|
||||
loHideBorlandLeaks=1
|
||||
loFreeAllLeaks=1
|
||||
loCatchLeaksExceptions=1
|
||||
cfoReduceFileSize=1
|
||||
cfoCheckFileCorruption=0
|
||||
Count mtInformationMsgCaption=1
|
||||
mtInformationMsgCaption0="Information."
|
||||
Count mtQuestionMsgCaption=1
|
||||
mtQuestionMsgCaption0="Question."
|
||||
Count mtErrorMsgCaption=1
|
||||
mtErrorMsgCaption0="Error."
|
||||
Count mtDialog_Caption=1
|
||||
mtDialog_Caption0="Error occurred"
|
||||
Count mtDialog_ErrorMsgCaption=2
|
||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||
Count mtDialog_GeneralCaption=1
|
||||
mtDialog_GeneralCaption0="General"
|
||||
Count mtDialog_GeneralHeader=1
|
||||
mtDialog_GeneralHeader0="General Information"
|
||||
Count mtDialog_CallStackCaption=1
|
||||
mtDialog_CallStackCaption0="Call Stack"
|
||||
Count mtDialog_CallStackHeader=1
|
||||
mtDialog_CallStackHeader0="Call Stack Information"
|
||||
Count mtDialog_ModulesCaption=1
|
||||
mtDialog_ModulesCaption0="Modules"
|
||||
Count mtDialog_ModulesHeader=1
|
||||
mtDialog_ModulesHeader0="Modules Information"
|
||||
Count mtDialog_ProcessesCaption=1
|
||||
mtDialog_ProcessesCaption0="Processes"
|
||||
Count mtDialog_ProcessesHeader=1
|
||||
mtDialog_ProcessesHeader0="Processes Information"
|
||||
Count mtDialog_AsmCaption=1
|
||||
mtDialog_AsmCaption0="Assembler"
|
||||
Count mtDialog_AsmHeader=1
|
||||
mtDialog_AsmHeader0="Assembler Information"
|
||||
Count mtDialog_CPUCaption=1
|
||||
mtDialog_CPUCaption0="CPU"
|
||||
Count mtDialog_CPUHeader=1
|
||||
mtDialog_CPUHeader0="CPU Information"
|
||||
Count mtDialog_OKButtonCaption=1
|
||||
mtDialog_OKButtonCaption0="%26OK"
|
||||
Count mtDialog_TerminateButtonCaption=1
|
||||
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||
Count mtDialog_RestartButtonCaption=1
|
||||
mtDialog_RestartButtonCaption0="%26Restart"
|
||||
Count mtDialog_DetailsButtonCaption=1
|
||||
mtDialog_DetailsButtonCaption0="%26Details"
|
||||
Count mtDialog_CustomButtonCaption=1
|
||||
mtDialog_CustomButtonCaption0="%26Help"
|
||||
Count mtDialog_SendMessage=1
|
||||
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||
Count mtDialog_ScreenshotMessage=1
|
||||
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||
Count mtDialog_CopyMessage=1
|
||||
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||
Count mtDialog_SupportMessage=1
|
||||
mtDialog_SupportMessage0="Go to the Support Page"
|
||||
Count mtMSDialog_ErrorMsgCaption=1
|
||||
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||
Count mtMSDialog_RestartCaption=1
|
||||
mtMSDialog_RestartCaption0="Restart application."
|
||||
Count mtMSDialog_TerminateCaption=1
|
||||
mtMSDialog_TerminateCaption0="Terminate application."
|
||||
Count mtMSDialog_PleaseCaption=1
|
||||
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||
Count mtMSDialog_DescriptionCaption=1
|
||||
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||
Count mtMSDialog_SeeDetailsCaption=1
|
||||
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||
Count mtMSDialog_SeeClickCaption=1
|
||||
mtMSDialog_SeeClickCaption0="click here."
|
||||
Count mtMSDialog_HowToReproduceCaption=1
|
||||
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||
Count mtMSDialog_EmailCaption=1
|
||||
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||
Count mtMSDialog_SendButtonCaption=1
|
||||
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||
Count mtMSDialog_NoSendButtonCaption=1
|
||||
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||
Count mtLog_AppHeader=1
|
||||
mtLog_AppHeader0="Application"
|
||||
Count mtLog_AppStartDate=1
|
||||
mtLog_AppStartDate0="Start Date"
|
||||
Count mtLog_AppName=1
|
||||
mtLog_AppName0="Name/Description"
|
||||
Count mtLog_AppVersionNumber=1
|
||||
mtLog_AppVersionNumber0="Version Number"
|
||||
Count mtLog_AppParameters=1
|
||||
mtLog_AppParameters0="Parameters"
|
||||
Count mtLog_AppCompilationDate=1
|
||||
mtLog_AppCompilationDate0="Compilation Date"
|
||||
Count mtLog_AppUpTime=1
|
||||
mtLog_AppUpTime0="Up Time"
|
||||
Count mtLog_ExcHeader=1
|
||||
mtLog_ExcHeader0="Exception"
|
||||
Count mtLog_ExcDate=1
|
||||
mtLog_ExcDate0="Date"
|
||||
Count mtLog_ExcAddress=1
|
||||
mtLog_ExcAddress0="Address"
|
||||
Count mtLog_ExcModuleName=1
|
||||
mtLog_ExcModuleName0="Module Name"
|
||||
Count mtLog_ExcModuleVersion=1
|
||||
mtLog_ExcModuleVersion0="Module Version"
|
||||
Count mtLog_ExcType=1
|
||||
mtLog_ExcType0="Type"
|
||||
Count mtLog_ExcMessage=1
|
||||
mtLog_ExcMessage0="Message"
|
||||
Count mtLog_ExcID=1
|
||||
mtLog_ExcID0="ID"
|
||||
Count mtLog_ExcCount=1
|
||||
mtLog_ExcCount0="Count"
|
||||
Count mtLog_ExcStatus=1
|
||||
mtLog_ExcStatus0="Status"
|
||||
Count mtLog_ExcNote=1
|
||||
mtLog_ExcNote0="Note"
|
||||
Count mtLog_UserHeader=1
|
||||
mtLog_UserHeader0="User"
|
||||
Count mtLog_UserID=1
|
||||
mtLog_UserID0="ID"
|
||||
Count mtLog_UserName=1
|
||||
mtLog_UserName0="Name"
|
||||
Count mtLog_UserEmail=1
|
||||
mtLog_UserEmail0="Email"
|
||||
Count mtLog_UserCompany=1
|
||||
mtLog_UserCompany0="Company"
|
||||
Count mtLog_UserPrivileges=1
|
||||
mtLog_UserPrivileges0="Privileges"
|
||||
Count mtLog_ActCtrlsHeader=1
|
||||
mtLog_ActCtrlsHeader0="Active Controls"
|
||||
Count mtLog_ActCtrlsFormClass=1
|
||||
mtLog_ActCtrlsFormClass0="Form Class"
|
||||
Count mtLog_ActCtrlsFormText=1
|
||||
mtLog_ActCtrlsFormText0="Form Text"
|
||||
Count mtLog_ActCtrlsControlClass=1
|
||||
mtLog_ActCtrlsControlClass0="Control Class"
|
||||
Count mtLog_ActCtrlsControlText=1
|
||||
mtLog_ActCtrlsControlText0="Control Text"
|
||||
Count mtLog_CmpHeader=1
|
||||
mtLog_CmpHeader0="Computer"
|
||||
Count mtLog_CmpName=1
|
||||
mtLog_CmpName0="Name"
|
||||
Count mtLog_CmpTotalMemory=1
|
||||
mtLog_CmpTotalMemory0="Total Memory"
|
||||
Count mtLog_CmpFreeMemory=1
|
||||
mtLog_CmpFreeMemory0="Free Memory"
|
||||
Count mtLog_CmpTotalDisk=1
|
||||
mtLog_CmpTotalDisk0="Total Disk"
|
||||
Count mtLog_CmpFreeDisk=1
|
||||
mtLog_CmpFreeDisk0="Free Disk"
|
||||
Count mtLog_CmpSystemUpTime=1
|
||||
mtLog_CmpSystemUpTime0="System Up Time"
|
||||
Count mtLog_CmpProcessor=1
|
||||
mtLog_CmpProcessor0="Processor"
|
||||
Count mtLog_CmpDisplayMode=1
|
||||
mtLog_CmpDisplayMode0="Display Mode"
|
||||
Count mtLog_CmpDisplayDPI=1
|
||||
mtLog_CmpDisplayDPI0="Display DPI"
|
||||
Count mtLog_CmpVideoCard=1
|
||||
mtLog_CmpVideoCard0="Video Card"
|
||||
Count mtLog_CmpPrinter=1
|
||||
mtLog_CmpPrinter0="Printer"
|
||||
Count mtLog_OSHeader=1
|
||||
mtLog_OSHeader0="Operating System"
|
||||
Count mtLog_OSType=1
|
||||
mtLog_OSType0="Type"
|
||||
Count mtLog_OSBuildN=1
|
||||
mtLog_OSBuildN0="Build #"
|
||||
Count mtLog_OSUpdate=1
|
||||
mtLog_OSUpdate0="Update"
|
||||
Count mtLog_OSLanguage=1
|
||||
mtLog_OSLanguage0="Language"
|
||||
Count mtLog_OSCharset=1
|
||||
mtLog_OSCharset0="Charset"
|
||||
Count mtLog_NetHeader=1
|
||||
mtLog_NetHeader0="Network"
|
||||
Count mtLog_NetIP=1
|
||||
mtLog_NetIP0="IP Address"
|
||||
Count mtLog_NetSubmask=1
|
||||
mtLog_NetSubmask0="Submask"
|
||||
Count mtLog_NetGateway=1
|
||||
mtLog_NetGateway0="Gateway"
|
||||
Count mtLog_NetDNS1=1
|
||||
mtLog_NetDNS10="DNS 1"
|
||||
Count mtLog_NetDNS2=1
|
||||
mtLog_NetDNS20="DNS 2"
|
||||
Count mtLog_NetDHCP=1
|
||||
mtLog_NetDHCP0="DHCP"
|
||||
Count mtLog_CustInfoHeader=1
|
||||
mtLog_CustInfoHeader0="Custom Information"
|
||||
Count mtCallStack_Address=1
|
||||
mtCallStack_Address0="Address"
|
||||
Count mtCallStack_Name=1
|
||||
mtCallStack_Name0="Module"
|
||||
Count mtCallStack_Unit=1
|
||||
mtCallStack_Unit0="Unit"
|
||||
Count mtCallStack_Class=1
|
||||
mtCallStack_Class0="Class"
|
||||
Count mtCallStack_Procedure=1
|
||||
mtCallStack_Procedure0="Procedure/Method"
|
||||
Count mtCallStack_Line=1
|
||||
mtCallStack_Line0="Line"
|
||||
Count mtCallStack_MainThread=1
|
||||
mtCallStack_MainThread0="Main"
|
||||
Count mtCallStack_ExceptionThread=1
|
||||
mtCallStack_ExceptionThread0="Exception Thread"
|
||||
Count mtCallStack_RunningThread=1
|
||||
mtCallStack_RunningThread0="Running Thread"
|
||||
Count mtCallStack_CallingThread=1
|
||||
mtCallStack_CallingThread0="Calling Thread"
|
||||
Count mtCallStack_ThreadID=1
|
||||
mtCallStack_ThreadID0="ID"
|
||||
Count mtCallStack_ThreadPriority=1
|
||||
mtCallStack_ThreadPriority0="Priority"
|
||||
Count mtCallStack_ThreadClass=1
|
||||
mtCallStack_ThreadClass0="Class"
|
||||
Count mtCallStack_LeakCaption=1
|
||||
mtCallStack_LeakCaption0="Memory Leak"
|
||||
Count mtCallStack_LeakData=1
|
||||
mtCallStack_LeakData0="Data"
|
||||
Count mtCallStack_LeakType=1
|
||||
mtCallStack_LeakType0="Type"
|
||||
Count mtCallStack_LeakSize=1
|
||||
mtCallStack_LeakSize0="Total size"
|
||||
Count mtCallStack_LeakCount=1
|
||||
mtCallStack_LeakCount0="Count"
|
||||
Count mtSendDialog_Caption=1
|
||||
mtSendDialog_Caption0="Send."
|
||||
Count mtSendDialog_Message=1
|
||||
mtSendDialog_Message0="Message"
|
||||
Count mtSendDialog_Resolving=1
|
||||
mtSendDialog_Resolving0="Resolving DNS..."
|
||||
Count mtSendDialog_Login=1
|
||||
mtSendDialog_Login0="Login..."
|
||||
Count mtSendDialog_Connecting=1
|
||||
mtSendDialog_Connecting0="Connecting with server..."
|
||||
Count mtSendDialog_Connected=1
|
||||
mtSendDialog_Connected0="Connected with server."
|
||||
Count mtSendDialog_Sending=1
|
||||
mtSendDialog_Sending0="Sending message..."
|
||||
Count mtSendDialog_Sent=1
|
||||
mtSendDialog_Sent0="Message sent."
|
||||
Count mtSendDialog_SelectProject=1
|
||||
mtSendDialog_SelectProject0="Select project..."
|
||||
Count mtSendDialog_Searching=1
|
||||
mtSendDialog_Searching0="Searching..."
|
||||
Count mtSendDialog_Modifying=1
|
||||
mtSendDialog_Modifying0="Modifying..."
|
||||
Count mtSendDialog_Disconnecting=1
|
||||
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||
Count mtSendDialog_Disconnected=1
|
||||
mtSendDialog_Disconnected0="Disconnected."
|
||||
Count mtReproduceDialog_Caption=1
|
||||
mtReproduceDialog_Caption0="Request"
|
||||
Count mtReproduceDialog_Request=1
|
||||
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||
Count mtReproduceDialog_OKButtonCaption=1
|
||||
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||
Count mtModules_Handle=1
|
||||
mtModules_Handle0="Handle"
|
||||
Count mtModules_Name=1
|
||||
mtModules_Name0="Name"
|
||||
Count mtModules_Description=1
|
||||
mtModules_Description0="Description"
|
||||
Count mtModules_Version=1
|
||||
mtModules_Version0="Version"
|
||||
Count mtModules_Size=1
|
||||
mtModules_Size0="Size"
|
||||
Count mtModules_LastModified=1
|
||||
mtModules_LastModified0="Modified"
|
||||
Count mtModules_Path=1
|
||||
mtModules_Path0="Path"
|
||||
Count mtProcesses_ID=1
|
||||
mtProcesses_ID0="ID"
|
||||
Count mtProcesses_Name=1
|
||||
mtProcesses_Name0="Name"
|
||||
Count mtProcesses_Description=1
|
||||
mtProcesses_Description0="Description"
|
||||
Count mtProcesses_Version=1
|
||||
mtProcesses_Version0="Version"
|
||||
Count mtProcesses_Memory=1
|
||||
mtProcesses_Memory0="Memory"
|
||||
Count mtProcesses_Priority=1
|
||||
mtProcesses_Priority0="Priority"
|
||||
Count mtProcesses_Threads=1
|
||||
mtProcesses_Threads0="Threads"
|
||||
Count mtProcesses_Path=1
|
||||
mtProcesses_Path0="Path"
|
||||
Count mtCPU_Registers=1
|
||||
mtCPU_Registers0="Registers"
|
||||
Count mtCPU_Stack=1
|
||||
mtCPU_Stack0="Stack"
|
||||
Count mtCPU_MemoryDump=1
|
||||
mtCPU_MemoryDump0="Memory Dump"
|
||||
Count mtSend_SuccessMsg=1
|
||||
mtSend_SuccessMsg0="The message was sent successfully."
|
||||
Count mtSend_FailureMsg=1
|
||||
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||
Count mtSend_BugClosedMsg=2
|
||||
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||
Count mtSend_UnknownErrorMsg=1
|
||||
mtSend_UnknownErrorMsg0="Unknown error."
|
||||
Count mtSend_InvalidLoginMsg=1
|
||||
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||
Count mtSend_InvalidSearchMsg=1
|
||||
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||
Count mtSend_InvalidSelectionMsg=1
|
||||
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||
Count mtSend_InvalidInsertMsg=1
|
||||
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||
Count mtSend_InvalidModifyMsg=1
|
||||
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||
Count mtFileCrackedMsg=2
|
||||
mtFileCrackedMsg0="This file is cracked."
|
||||
mtFileCrackedMsg1="The application will be closed."
|
||||
Count mtException_LeakMultiFree=1
|
||||
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||
Count mtException_LeakMemoryOverrun=1
|
||||
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||
Count mtException_AntiFreeze=1
|
||||
mtException_AntiFreeze0="The application seems to be frozen."
|
||||
Count mtInvalidEmailMsg=1
|
||||
mtInvalidEmailMsg0="Invalid email."
|
||||
TextsCollection=English
|
||||
EurekaLog Last Line -->
|
||||
@ -0,0 +1,17 @@
|
||||
/* VER185
|
||||
Generated by the CodeGear Delphi Pascal Compiler
|
||||
because -GD or --drc was supplied to the compiler.
|
||||
|
||||
This file contains compiler-generated resources that
|
||||
were bound to the executable.
|
||||
If this file is empty, then no compiler-generated
|
||||
resources were bound to the produced executable.
|
||||
*/
|
||||
|
||||
STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.DFM */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */
|
||||
/* C:\Codigo Tecsitel\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.drf */
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,413 @@
|
||||
inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Height = 261
|
||||
Width = 781
|
||||
object RORemoteService: TRORemoteService
|
||||
Message = dmConexion.ROMessage
|
||||
Channel = dmConexion.ROChannel
|
||||
ServiceName = 'srvPedidosProveedor'
|
||||
Left = 40
|
||||
Top = 32
|
||||
end
|
||||
object Bin2DataStreamer: TDABin2DataStreamer
|
||||
Left = 40
|
||||
Top = 84
|
||||
end
|
||||
object rda_PedidosProveedor: TDARemoteDataAdapter
|
||||
GetSchemaCall.RemoteService = RORemoteService
|
||||
GetDataCall.RemoteService = RORemoteService
|
||||
UpdateDataCall.RemoteService = RORemoteService
|
||||
GetScriptsCall.RemoteService = RORemoteService
|
||||
RemoteService = RORemoteService
|
||||
DataStreamer = Bin2DataStreamer
|
||||
Left = 43
|
||||
Top = 151
|
||||
end
|
||||
object tbl_PedidosProveedor: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'PedidosProveedor_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosProveedor_ID_PROVEEDOR'
|
||||
DictionaryEntry = 'PedidosProveedor_ID_PROVEEDOR'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Nombre del proveedor'
|
||||
DictionaryEntry = 'PedidosProveedor_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#195#179'n'
|
||||
DictionaryEntry = 'PedidosProveedor_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ENVIO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = #194#191'Enviado?'
|
||||
DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_PEDIDO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha pedido'
|
||||
DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_CONFIRMACION'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = #194#191'Confirmado?'
|
||||
DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ENTREGA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Entrega prevista'
|
||||
DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosProveedor_ID_ALMACEN'
|
||||
DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE_ALMACEN'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Almac'#195#169'n'
|
||||
DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Observaciones'
|
||||
DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
|
||||
end
|
||||
item
|
||||
Name = 'INCIDENCIAS_ACTIVAS'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Calle'
|
||||
DictionaryEntry = 'PedidosProveedor_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Poblaci'#195#179'n'
|
||||
DictionaryEntry = 'PedidosProveedor_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Provincia'
|
||||
DictionaryEntry = 'PedidosProveedor_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'C'#195#179'd. postal'
|
||||
DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Persona de contacto'
|
||||
DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
DisplayLabel = 'Tel'#195#169'fono'
|
||||
DictionaryEntry = 'PedidosProveedor_TELEFONO'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DictionaryEntry = 'PedidosProveedor_USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO_CLIENTE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
|
||||
DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'REF_PED_CLIENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE'
|
||||
DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Descuento'
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
DisplayFormat = ',0.00 %;-,0.00 %'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosProveedor
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'PedidosProveedor'
|
||||
IndexDefs = <>
|
||||
Left = 160
|
||||
Top = 88
|
||||
end
|
||||
object ds_PedidosProveedor: TDADataSource
|
||||
DataSet = tbl_PedidosProveedor.Dataset
|
||||
DataTable = tbl_PedidosProveedor
|
||||
Left = 160
|
||||
Top = 32
|
||||
end
|
||||
object tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Ref. proveedor'
|
||||
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosProveedor
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'PedidosProveedor_Articulos_Pendientes'
|
||||
IndexDefs = <>
|
||||
Left = 480
|
||||
Top = 88
|
||||
end
|
||||
object ds_PedidosProveedor_Articulos_Pendientes: TDADataSource
|
||||
DataSet = tbl_PedidosProveedor_Articulos_Pendientes.Dataset
|
||||
DataTable = tbl_PedidosProveedor_Articulos_Pendientes
|
||||
Left = 472
|
||||
Top = 32
|
||||
end
|
||||
object tbl_PedidosProveedor_Detalles: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datInteger
|
||||
Required = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_PEDIDO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'POSICION'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'POSICIONCONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO_DETALLE'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 2000
|
||||
end
|
||||
item
|
||||
Name = 'CANTIDAD'
|
||||
DataType = datInteger
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'CANTIDAD'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_UNIDAD'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'VISIBLE'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ARTICULO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_PROVEEDOR'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmWhere
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_PedidosProveedor
|
||||
MasterSource = ds_PedidosProveedor
|
||||
MasterFields = 'ID'
|
||||
DetailFields = 'ID_PEDIDO'
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'PedidosProveedor_Detalles'
|
||||
IndexDefs = <>
|
||||
Left = 296
|
||||
Top = 88
|
||||
end
|
||||
object ds_PedidosProveedor_Detalles: TDADataSource
|
||||
DataSet = tbl_PedidosProveedor_Detalles.Dataset
|
||||
DataTable = tbl_PedidosProveedor_Detalles
|
||||
Left = 296
|
||||
Top = 32
|
||||
end
|
||||
end
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,156 @@
|
||||
unit uDataModulePedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDAClientDataModule, uROTypes, uDataModuleBase,
|
||||
uIDataModulePedidosProveedor, uIDataModulePedidosProveedorReport,
|
||||
uBizPedidosProveedor, uBizDetallesPedidoProveedor, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
|
||||
|
||||
type
|
||||
TDataModulePedidosProveedor = class(TDataModuleBase, IDataModulePedidosProveedor,
|
||||
IDataModulePedidosProveedorReport)
|
||||
RORemoteService: TRORemoteService;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
rda_PedidosProveedor: TDARemoteDataAdapter;
|
||||
tbl_PedidosProveedor: TDAMemDataTable;
|
||||
ds_PedidosProveedor: TDADataSource;
|
||||
tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable;
|
||||
ds_PedidosProveedor_Articulos_Pendientes: TDADataSource;
|
||||
tbl_PedidosProveedor_Detalles: TDAMemDataTable;
|
||||
ds_PedidosProveedor_Detalles: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _GetDetalles : IBizDetallesPedidoProveedor;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual;
|
||||
|
||||
public
|
||||
function GetItems : IBizPedidoProveedor; virtual;
|
||||
function GetItem(const ID : Integer) : IBizPedidoProveedor;
|
||||
function NewItem : IBizPedidoProveedor;
|
||||
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
|
||||
// Report
|
||||
function GetReport(const AID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
cxControls, FactuGES_Intf, uDataModuleConexion,
|
||||
uDataTableUtils, schPedidosProveedorClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmPedidosProveedor }
|
||||
|
||||
procedure TDataModulePedidosProveedor.AsignarClaseNegocio(var APedido: TDAMemDataTable);
|
||||
begin
|
||||
APedido.BusinessRulesID := BIZ_CLIENT_PEDIDO_PROVEEDOR;
|
||||
end;
|
||||
|
||||
procedure TDataModulePedidosProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetReport(const AID: String): Binary;
|
||||
begin
|
||||
// Result := (RORemoteService as IsrvPedidosProveedor).GenerateReport(AID)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.NewItem: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor._GetDetalles: IBizDetallesPedidoProveedor;
|
||||
var
|
||||
ADetalles : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := CloneDataTable(tbl_PedidosProveedor_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR;
|
||||
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesPedidoProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
var
|
||||
AArticulos : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AArticulos := CloneDataTable(tbl_PedidosProveedor_Articulos_Pendientes);
|
||||
AArticulos.BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND;
|
||||
AArticulos.ParamByName('ID').AsInteger := IDPedido;
|
||||
Result := (AArticulos as IBizDetallesPedidoProveedorPend);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor;
|
||||
var
|
||||
APedido : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedido := CloneDataTable(tbl_PedidosProveedor);
|
||||
AsignarClaseNegocio(APedido);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
with TBizPedidoProveedor(APedido.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (APedido as IBizPedidoProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,181 @@
|
||||
unit uDataModulePedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
DB, Classes, SysUtils, uDADesigntimeCall, uROServiceComponent,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||
|
||||
uDAClientDataModule, uROTypes,
|
||||
uIDataModulePedidosProveedor, uIDataModulePedidosProveedorReport,
|
||||
uBizPedidosProveedor, uBizDetallesPedidoProveedor;
|
||||
|
||||
type
|
||||
TDataModulePedidosProveedor = class(TDAClientDataModule, IDataModulePedidosProveedor,
|
||||
IDataModulePedidosProveedorReport)
|
||||
ROChannel: TROWinInetHTTPChannel;
|
||||
ROMessage: TROBinMessage;
|
||||
RORemoteService: TRORemoteService;
|
||||
DABinAdapter: TDABINAdapter;
|
||||
tbl_PedidosProveedor: TDACDSDataTable;
|
||||
ds_PedidosProveedor: TDADataSource;
|
||||
tbl_PedidosProveedor_Detalles: TDACDSDataTable;
|
||||
ds_PedidosProveedor_Detalles: TDADataSource;
|
||||
DADesigntimeCall1: TDADesigntimeCall;
|
||||
LoginRemoteService: TRORemoteService;
|
||||
tbl_PedidosProveedor_Articulos_Pendientes: TDACDSDataTable;
|
||||
ds_PedidosProveedor_Articulos_Pendientes: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
|
||||
private
|
||||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||
function _GetDetalles : IBizDetallesPedidoProveedor;
|
||||
|
||||
protected
|
||||
procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual;
|
||||
|
||||
public
|
||||
function GetItems : IBizPedidoProveedor; virtual;
|
||||
function GetItem(const ID : Integer) : IBizPedidoProveedor;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function NewItem : IBizPedidoProveedor;
|
||||
|
||||
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
|
||||
// Report
|
||||
function GetReport(const AID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.DFM}
|
||||
|
||||
uses
|
||||
cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion,
|
||||
uDataTableUtils, schPedidosProveedorClient_Intf, uBizContactos;
|
||||
|
||||
{ TdmPedidosProveedor }
|
||||
|
||||
procedure TDataModulePedidosProveedor.AsignarClaseNegocio(var APedido: TDACDSDataTable);
|
||||
begin
|
||||
APedido.BusinessRulesID := BIZ_CLIENT_PEDIDO_PROVEEDOR;
|
||||
end;
|
||||
|
||||
procedure TDataModulePedidosProveedor.DAClientDataModuleCreate(Sender: TObject);
|
||||
begin
|
||||
RORemoteService.Channel := dmConexion.Channel;
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
if DataSetName = nme_PedidosProveedor then
|
||||
aGeneratorName := 'GEN_PEDIDOS_PROV_ID';
|
||||
|
||||
if DataSetName = nme_PedidosProveedor_Detalles then
|
||||
aGeneratorName := 'GEN_PEDIDOS_PROV_DETALLES_ID';
|
||||
|
||||
Result := (RORemoteService as IsrvPedidosProveedor).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetReport(const AID: String): Binary;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvPedidosProveedor).GenerateReport(AID)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.NewItem: IBizPedidoProveedor;
|
||||
begin
|
||||
Result := GetItem(ID_NULO)
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||
begin
|
||||
Result := NIL;
|
||||
|
||||
if not Assigned(ADataTable) then
|
||||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||
|
||||
Result := TDACDSDataTable.Create(NIL);
|
||||
CloneDataTable(ADataTable, Result);
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor._GetDetalles: IBizDetallesPedidoProveedor;
|
||||
var
|
||||
ADetalles : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ADetalles := _CloneDataTable(tbl_PedidosProveedor_Detalles);
|
||||
with ADetalles do
|
||||
begin
|
||||
BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR;
|
||||
DetailOptions := DetailOptions -
|
||||
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||
end;
|
||||
Result := (ADetalles as IBizDetallesPedidoProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
var
|
||||
AArticulos : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AArticulos := _CloneDataTable(tbl_PedidosProveedor_Articulos_Pendientes);
|
||||
AArticulos.BusinessRulesID := BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND;
|
||||
AArticulos.ParamByName('ID').AsInteger := IDPedido;
|
||||
Result := (AArticulos as IBizDetallesPedidoProveedorPend);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := Self.GetItems;
|
||||
with Result.DataTable.Where do
|
||||
begin
|
||||
if NotEmpty then
|
||||
AddOperator(opAND);
|
||||
OpenBraket;
|
||||
AddText(fld_PedidosProveedorID + ' = ' + IntToStr(ID));
|
||||
CloseBraket;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TDataModulePedidosProveedor.GetItems: IBizPedidoProveedor;
|
||||
var
|
||||
APedido : TDACDSDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
APedido := _CloneDataTable(tbl_PedidosProveedor);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
APedido.FieldByName(fld_PedidosProveedorREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AsignarClaseNegocio(APedido);
|
||||
|
||||
with TBizPedidoProveedor(APedido.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (APedido as IBizPedidoProveedor);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -0,0 +1,19 @@
|
||||
unit uIDataModulePedidosProveedor;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizPedidosProveedor, uBizDetallesPedidoProveedor;
|
||||
|
||||
type
|
||||
IDataModulePedidosProveedor = interface
|
||||
['{280AA760-26CC-4962-AB08-6C473199DF86}']
|
||||
function GetItems: IBizPedidoProveedor;
|
||||
function GetItem(const ID : Integer) : IBizPedidoProveedor;
|
||||
function NewItem : IBizPedidoProveedor;
|
||||
function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,16 @@
|
||||
unit uIDataModulePedidosProveedorReport;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uROTypes;
|
||||
|
||||
type
|
||||
IDataModulePedidosProveedorReport = interface
|
||||
['{3B7564E3-8DFD-4976-BBE8-6EF13185B209}']
|
||||
function GetReport(const AID: String): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user