tercera fase de listado de proceso completa de pedidos de cliente, se arregla fichero de compilación para que no falle si limpias todo el codigo
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@195 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
8cdeebab60
commit
aa47f35b96
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -2309,54 +2309,53 @@ FROM
|
||||
GROUP BY ID_FACTURA
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_FACTURAS_CLIENTE */
|
||||
CREATE VIEW V_FACTURAS_CLIENTE(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
FECHA_VENCIMIENTO,
|
||||
FECHA_RETENCION,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
DESCRIPCION_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
DATOS_BANCARIOS,
|
||||
CLIENTE_FINAL,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO,
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION,
|
||||
RETENCION,
|
||||
IMPORTE_RETENCION,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
FECHA_VENCIMIENTO,
|
||||
FECHA_RETENCION,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
DESCRIPCION_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
DATOS_BANCARIOS,
|
||||
CLIENTE_FINAL,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO,
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION,
|
||||
RETENCION,
|
||||
IMPORTE_RETENCION,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS,
|
||||
ID_ALBARAN)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
FACTURAS_CLIENTE.REFERENCIA,
|
||||
@ -2399,7 +2398,8 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.RETENCION,
|
||||
FACTURAS_CLIENTE.IMPORTE_RETENCION,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
REGISTRO_CORREOS.NUM_CORREOS,
|
||||
Null as ID_ALBARAN /*CAMPO FICTICIO QUE SE AÑADE PARA PODER COMPARTIR Clase de negocio IBizFacturaProveedor, el modulo de facturas proveedor y el modulo procesopresupuestocliente*/
|
||||
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
LEFT JOIN FACTURAS_CLIENTE
|
||||
@ -2412,7 +2412,125 @@ SELECT FACTURAS_CLIENTE.ID,
|
||||
ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASCLIENTE'))
|
||||
;
|
||||
;
|
||||
|
||||
CREATE VIEW V_ALBARANES_CLI_FACTURADOS(
|
||||
ID_ALBARAN,
|
||||
ID_FACTURA)
|
||||
AS
|
||||
select ID, ID_FACTURA
|
||||
from albaranes_cliente
|
||||
where id_FACTURA is not null
|
||||
;
|
||||
|
||||
CREATE VIEW V_FACTURAS_CLI_DE_ALBARANES(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
ID_COMISION_LIQUIDADA,
|
||||
FECHA_FACTURA,
|
||||
FECHA_VENCIMIENTO,
|
||||
FECHA_RETENCION,
|
||||
SITUACION,
|
||||
BASE_IMPONIBLE,
|
||||
DESCUENTO,
|
||||
IMPORTE_DESCUENTO,
|
||||
DESCRIPCION_DESCUENTO,
|
||||
IVA,
|
||||
IMPORTE_IVA,
|
||||
RE,
|
||||
IMPORTE_RE,
|
||||
IMPORTE_TOTAL,
|
||||
OBSERVACIONES,
|
||||
ID_CLIENTE,
|
||||
NIF_CIF,
|
||||
NOMBRE,
|
||||
ID_DIRECCION,
|
||||
CALLE,
|
||||
POBLACION,
|
||||
PROVINCIA,
|
||||
CODIGO_POSTAL,
|
||||
DATOS_BANCARIOS,
|
||||
CLIENTE_FINAL,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO,
|
||||
ID_FORMA_PAGO,
|
||||
RECARGO_EQUIVALENCIA,
|
||||
ID_TIPO_IVA,
|
||||
IMPORTE_NETO,
|
||||
IMPORTE_PORTE,
|
||||
ID_AGENTE,
|
||||
REFERENCIA_COMISION,
|
||||
RETENCION,
|
||||
IMPORTE_RETENCION,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS,
|
||||
ID_ALBARAN)
|
||||
AS
|
||||
SELECT FACTURAS_CLIENTE.ID,
|
||||
FACTURAS_CLIENTE.ID_EMPRESA,
|
||||
FACTURAS_CLIENTE.REFERENCIA,
|
||||
CASE WHEN (FACTURAS_CLIENTE.IMPORTE_TOTAL < 0) THEN 'A' ELSE 'F' END AS TIPO,
|
||||
FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
|
||||
FACTURAS_CLIENTE.FECHA_FACTURA,
|
||||
FACTURAS_CLIENTE.FECHA_VENCIMIENTO,
|
||||
FACTURAS_CLIENTE.FECHA_RETENCION,
|
||||
TRIM(V_FAC_CLI_SITUACION.SITUACION),
|
||||
FACTURAS_CLIENTE.BASE_IMPONIBLE,
|
||||
FACTURAS_CLIENTE.DESCUENTO,
|
||||
FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
|
||||
FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,
|
||||
FACTURAS_CLIENTE.IVA,
|
||||
FACTURAS_CLIENTE.IMPORTE_IVA,
|
||||
FACTURAS_CLIENTE.RE,
|
||||
FACTURAS_CLIENTE.IMPORTE_RE,
|
||||
FACTURAS_CLIENTE.IMPORTE_TOTAL,
|
||||
FACTURAS_CLIENTE.OBSERVACIONES,
|
||||
FACTURAS_CLIENTE.ID_CLIENTE,
|
||||
FACTURAS_CLIENTE.NIF_CIF,
|
||||
FACTURAS_CLIENTE.NOMBRE,
|
||||
FACTURAS_CLIENTE.ID_DIRECCION,
|
||||
FACTURAS_CLIENTE.CALLE,
|
||||
FACTURAS_CLIENTE.POBLACION,
|
||||
FACTURAS_CLIENTE.PROVINCIA,
|
||||
FACTURAS_CLIENTE.CODIGO_POSTAL,
|
||||
FACTURAS_CLIENTE.DATOS_BANCARIOS,
|
||||
FACTURAS_CLIENTE.CLIENTE_FINAL,
|
||||
FACTURAS_CLIENTE.FECHA_ALTA,
|
||||
FACTURAS_CLIENTE.FECHA_MODIFICACION,
|
||||
FACTURAS_CLIENTE.USUARIO,
|
||||
FACTURAS_CLIENTE.ID_FORMA_PAGO,
|
||||
FACTURAS_CLIENTE.RECARGO_EQUIVALENCIA,
|
||||
FACTURAS_CLIENTE.ID_TIPO_IVA,
|
||||
FACTURAS_CLIENTE.IMPORTE_NETO,
|
||||
FACTURAS_CLIENTE.IMPORTE_PORTE,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
COMISIONES_LIQUIDADAS.REFERENCIA,
|
||||
FACTURAS_CLIENTE.RETENCION,
|
||||
FACTURAS_CLIENTE.IMPORTE_RETENCION,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS,
|
||||
V_ALBARANES_CLI_FACTURADOS.ID_ALBARAN
|
||||
|
||||
FROM V_FAC_CLI_SITUACION
|
||||
LEFT JOIN FACTURAS_CLIENTE
|
||||
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
|
||||
LEFT JOIN COMISIONES_LIQUIDADAS
|
||||
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
|
||||
LEFT JOIN CLIENTES_DATOS
|
||||
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
|
||||
LEFT JOIN IMPRESIONES
|
||||
ON ((IMPRESIONES.ID_TABLA = FACTURAS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'FACTURASCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
ON ((REGISTRO_CORREOS.ID_TABLA = FACTURAS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'FACTURASCLIENTE'))
|
||||
LEFT JOIN V_ALBARANES_CLI_FACTURADOS
|
||||
ON (V_ALBARANES_CLI_FACTURADOS.ID_FACTURA = FACTURAS_CLIENTE.ID)
|
||||
WHERE V_ALBARANES_CLI_FACTURADOS.ID_ALBARAN IS NOT NULL
|
||||
;
|
||||
|
||||
|
||||
|
||||
|
||||
/* View: V_FACTURAS_PROVEEDOR */
|
||||
|
||||
@ -21,6 +21,7 @@ type
|
||||
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente; overload;
|
||||
function BuscarTodosDeAlbaran: IBizFacturaCliente;
|
||||
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
|
||||
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
|
||||
procedure Ver(AFactura : IBizFacturaCliente);
|
||||
@ -107,6 +108,7 @@ type
|
||||
// function Anadir(AFactura : IBizFacturaCliente; const IDPedido : Integer): Boolean; overload;
|
||||
function Buscar(const ID: Integer): IBizFacturaCliente;
|
||||
function BuscarTodos: IBizFacturaCliente; overload;
|
||||
function BuscarTodosDeAlbaran: IBizFacturaCliente;
|
||||
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
|
||||
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
|
||||
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
|
||||
@ -505,6 +507,11 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.BuscarTodosDeAlbaran: IBizFacturaCliente;
|
||||
begin
|
||||
Result := FDataModule.GetItemsDeAlbaran;
|
||||
end;
|
||||
|
||||
function TFacturasClienteController.BuscarTodos: IBizFacturaCliente;
|
||||
begin
|
||||
Result := FDataModule.GetItems;
|
||||
|
||||
@ -283,6 +283,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
item
|
||||
Name = 'NUM_CORREOS'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -436,4 +441,277 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
|
||||
Left = 240
|
||||
Top = 176
|
||||
end
|
||||
object tbl_FacturasClienteDeAlbaran: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasCliente_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DisplayLabel = 'Referencia'
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
DisplayLabel = 'Tipo'
|
||||
DictionaryEntry = 'FacturasCliente_TIPO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Fecha de las factura'
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_RETENCION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Situaci'#243'n'
|
||||
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Base imponible'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe dto.'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe IVA'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe RE'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
DisplayLabel = 'Observaciones'
|
||||
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'NIF/CIF'
|
||||
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DisplayLabel = 'Cliente'
|
||||
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DisplayLabel = 'Direcci'#243'n'
|
||||
DictionaryEntry = 'FacturasCliente_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DisplayLabel = 'Poblaci'#243'n'
|
||||
DictionaryEntry = 'FacturasCliente_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
DisplayLabel = 'Provincia'
|
||||
DictionaryEntry = 'FacturasCliente_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'C'#243'd. postal'
|
||||
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Datos bancarios'
|
||||
DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'CLIENTE_FINAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DictionaryEntry = 'FacturasCliente_USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = #191'Con R.E.?'
|
||||
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe neto'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Importe del porte'
|
||||
Alignment = taRightJustify
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_COMISION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'RETENCION'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RETENCION'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NUM_COPIAS'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'NUM_CORREOS'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_FacturasCliente
|
||||
LogicalName = 'FacturasClienteDeAlbaran'
|
||||
IndexDefs = <>
|
||||
Left = 72
|
||||
Top = 248
|
||||
end
|
||||
object ds_FacturasClienteDeAlbaran: TDADataSource
|
||||
DataSet = tbl_FacturasClienteDeAlbaran.Dataset
|
||||
DataTable = tbl_FacturasClienteDeAlbaran
|
||||
Left = 72
|
||||
Top = 208
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,12 +23,15 @@ type
|
||||
ds_FacturasCliente_Detalles: TDADataSource;
|
||||
tbl_ListaAnosFacturas: TDAMemDataTable;
|
||||
ds_ListaAnosFacturas: TDADataSource;
|
||||
tbl_FacturasClienteDeAlbaran: TDAMemDataTable;
|
||||
ds_FacturasClienteDeAlbaran: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
private
|
||||
function _GetDetalles : IBizDetallesFacturaCliente;
|
||||
public
|
||||
function GetAnosItems : TStringList;
|
||||
function GetItems : IBizFacturaCliente;
|
||||
function GetItemsDeAlbaran : IBizFacturaCliente;
|
||||
function GetItem(const ID : Integer) : IBizFacturaCliente;
|
||||
function NewItem : IBizFacturaCliente;
|
||||
|
||||
@ -180,4 +183,29 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function TDataModuleFacturasCliente.GetItemsDeAlbaran: IBizFacturaCliente;
|
||||
var
|
||||
AFactura : TDAMemDataTable;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
AFactura := CloneDataTable(tbl_FacturasClienteDeAlbaran);
|
||||
|
||||
// EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!!
|
||||
AFactura.FieldByName(fld_FacturasClienteREFERENCIA).ServerAutoRefresh := TRUE;
|
||||
|
||||
AFactura.BusinessRulesID := BIZ_CLIENT_FACTURA_CLIENTE;
|
||||
|
||||
with TBizFacturaCliente(AFactura.BusinessEventsObj) do
|
||||
begin
|
||||
Detalles := _GetDetalles;
|
||||
end;
|
||||
|
||||
Result := (AFactura as IBizFacturaCliente);
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -11,6 +11,7 @@ type
|
||||
['{B0BDC388-E831-4946-B736-E817E3EA4B7C}']
|
||||
function GetAnosItems : TStringList;
|
||||
function GetItems: IBizFacturaCliente;
|
||||
function GetItemsDeAlbaran: IBizFacturaCliente;
|
||||
function GetItem(const ID : Integer) : IBizFacturaCliente;
|
||||
function NewItem : IBizFacturaCliente;
|
||||
end;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -219,6 +219,10 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
DatasetField = 'DESCRIPCION_DESCUENTO'
|
||||
TableField = 'DESCRIPCION_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasCliente'
|
||||
@ -446,6 +450,11 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
item
|
||||
Name = 'NUM_CORREOS'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -615,6 +624,417 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'V_FACTURAS_CLI_DE_ALBARANES'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EMPRESA'
|
||||
TableField = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA'
|
||||
TableField = 'REFERENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_FACTURA'
|
||||
TableField = 'FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'SITUACION'
|
||||
TableField = 'SITUACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'BASE_IMPONIBLE'
|
||||
TableField = 'BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCUENTO'
|
||||
TableField = 'DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_DESCUENTO'
|
||||
TableField = 'IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IVA'
|
||||
TableField = 'IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_IVA'
|
||||
TableField = 'IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'RE'
|
||||
TableField = 'RE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_RE'
|
||||
TableField = 'IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_TOTAL'
|
||||
TableField = 'IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'OBSERVACIONES'
|
||||
TableField = 'OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NIF_CIF'
|
||||
TableField = 'NIF_CIF'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NOMBRE'
|
||||
TableField = 'NOMBRE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CALLE'
|
||||
TableField = 'CALLE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'POBLACION'
|
||||
TableField = 'POBLACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PROVINCIA'
|
||||
TableField = 'PROVINCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CODIGO_POSTAL'
|
||||
TableField = 'CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_ALTA'
|
||||
TableField = 'FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_MODIFICACION'
|
||||
TableField = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'USUARIO'
|
||||
TableField = 'USUARIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_FORMA_PAGO'
|
||||
TableField = 'ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'RECARGO_EQUIVALENCIA'
|
||||
TableField = 'RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_TIPO_IVA'
|
||||
TableField = 'ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_NETO'
|
||||
TableField = 'IMPORTE_NETO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_PORTE'
|
||||
TableField = 'IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DATOS_BANCARIOS'
|
||||
TableField = 'DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_VENCIMIENTO'
|
||||
TableField = 'FECHA_VENCIMIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NUM_COPIAS'
|
||||
TableField = 'NUM_COPIAS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'NUM_CORREOS'
|
||||
TableField = 'NUM_CORREOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ALBARAN'
|
||||
TableField = 'ID_ALBARAN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_COMISION_LIQUIDADA'
|
||||
TableField = 'ID_COMISION_LIQUIDADA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_RETENCION'
|
||||
TableField = 'FECHA_RETENCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION_DESCUENTO'
|
||||
TableField = 'DESCRIPCION_DESCUENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CLIENTE'
|
||||
TableField = 'ID_CLIENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_DIRECCION'
|
||||
TableField = 'ID_DIRECCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CLIENTE_FINAL'
|
||||
TableField = 'CLIENTE_FINAL'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_AGENTE'
|
||||
TableField = 'ID_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REFERENCIA_COMISION'
|
||||
TableField = 'REFERENCIA_COMISION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'RETENCION'
|
||||
TableField = 'RETENCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'IMPORTE_RETENCION'
|
||||
TableField = 'IMPORTE_RETENCION'
|
||||
end>
|
||||
end>
|
||||
Name = 'FacturasClienteDeAlbaran'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'FacturasCliente_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DictionaryEntry = 'FacturasCliente_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
DictionaryEntry = 'FacturasCliente_TIPO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_COMISION_LIQUIDADA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_FACTURA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_VENCIMIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_RETENCION'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'SITUACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasCliente_SITUACION'
|
||||
end
|
||||
item
|
||||
Name = 'BASE_IMPONIBLE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCUENTO'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'FacturasCliente_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_DESCUENTO'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION_DESCUENTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'IVA'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'FacturasCliente_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_IVA'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'RE'
|
||||
DataType = datFloat
|
||||
DictionaryEntry = 'FacturasCliente_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'NIF_CIF'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'FacturasCliente_NIF_CIF'
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DictionaryEntry = 'FacturasCliente_NOMBRE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_DIRECCION'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DictionaryEntry = 'FacturasCliente_CALLE'
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
DataType = datString
|
||||
Size = 150
|
||||
DictionaryEntry = 'FacturasCliente_POBLACION'
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 30
|
||||
DictionaryEntry = 'FacturasCliente_PROVINCIA'
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
|
||||
end
|
||||
item
|
||||
Name = 'DATOS_BANCARIOS'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'FacturasCliente_DATOS_BANCARIOS'
|
||||
end
|
||||
item
|
||||
Name = 'CLIENTE_FINAL'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
DictionaryEntry = 'FacturasCliente_USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_FORMA_PAGO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
|
||||
end
|
||||
item
|
||||
Name = 'RECARGO_EQUIVALENCIA'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_TIPO_IVA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_NETO'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_PORTE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA_COMISION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'RETENCION'
|
||||
DataType = datFloat
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_RETENCION'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'NUM_COPIAS'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'NUM_CORREOS'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'ID_ALBARAN'
|
||||
DataType = datInteger
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
@ -1271,7 +1691,7 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
RelationShips = <
|
||||
item
|
||||
Name = 'FK_FacturasCliente_Detalles'
|
||||
MasterDatasetName = 'FacturasCliente'
|
||||
MasterDatasetName = 'FacturasClienteDeAlbaran'
|
||||
MasterFields = 'ID'
|
||||
DetailDatasetName = 'FacturasCliente_Detalles'
|
||||
DetailFields = 'ID_FACTURA'
|
||||
|
||||
@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
@ -251,7 +251,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosFacturasDataTableRules }
|
||||
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
|
||||
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -495,7 +495,7 @@ type
|
||||
end;
|
||||
|
||||
{ TFacturasProveedorDataTableRules }
|
||||
TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
|
||||
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
@ -831,7 +831,7 @@ type
|
||||
end;
|
||||
|
||||
{ TFacturasProveedor_DetallesDataTableRules }
|
||||
TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
|
||||
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -992,7 +992,7 @@ type
|
||||
end;
|
||||
|
||||
{ TFacturasProveedor_PedidosDataTableRules }
|
||||
TFacturasProveedor_PedidosDataTableRules = class(TDADataTableRules, IFacturasProveedor_Pedidos)
|
||||
TFacturasProveedor_PedidosDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Pedidos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1272,7 +1272,7 @@ type
|
||||
end;
|
||||
|
||||
{ TFacturasProveedorDeAlbaranDataTableRules }
|
||||
TFacturasProveedorDeAlbaranDataTableRules = class(TDADataTableRules, IFacturasProveedorDeAlbaran)
|
||||
TFacturasProveedorDeAlbaranDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedorDeAlbaran)
|
||||
private
|
||||
f_OBSERVACIONES: IROStrings;
|
||||
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
|
||||
/* c:\temp\dtfAF1.tmp */
|
||||
/* c:\temp\dtfC3E.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
|
||||
/* c:\temp\dtfAEF.tmp */
|
||||
/* c:\temp\dtfC3C.tmp */
|
||||
|
||||
@ -16,4 +16,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
|
||||
/* c:\temp\dtfAF5.tmp */
|
||||
/* c:\temp\dtfC42.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
|
||||
/* c:\temp\dtfAE7.tmp */
|
||||
/* c:\temp\dtfC34.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
|
||||
/* c:\temp\dtfAE5.tmp */
|
||||
/* c:\temp\dtfC32.tmp */
|
||||
|
||||
@ -19,4 +19,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
|
||||
/* c:\temp\dtfAEB.tmp */
|
||||
/* c:\temp\dtfC38.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
|
||||
/* c:\temp\dtfADB.tmp */
|
||||
/* c:\temp\dtfC28.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
|
||||
/* c:\temp\dtfAD5.tmp */
|
||||
/* c:\temp\dtfC24.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
|
||||
/* c:\temp\dtfAD3.tmp */
|
||||
/* c:\temp\dtfC22.tmp */
|
||||
|
||||
@ -15,4 +15,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
|
||||
/* c:\temp\dtfADF.tmp */
|
||||
/* c:\temp\dtfC2C.tmp */
|
||||
|
||||
@ -12,5 +12,5 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
|
||||
/* c:\temp\dtfCB6.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
|
||||
/* c:\temp\dtfB19.tmp */
|
||||
/* c:\temp\dtfC66.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
|
||||
/* c:\temp\dtfB17.tmp */
|
||||
/* c:\temp\dtfC64.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
|
||||
/* c:\temp\dtfB83.tmp */
|
||||
/* c:\temp\dtfCD0.tmp */
|
||||
|
||||
@ -26,4 +26,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
|
||||
/* c:\temp\dtfB81.tmp */
|
||||
/* c:\temp\dtfCCE.tmp */
|
||||
|
||||
Binary file not shown.
@ -49,10 +49,14 @@
|
||||
<DelphiCompile Include="ProcesoPresupuestosCliente_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\designide.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.res */
|
||||
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.drf */
|
||||
/* c:\temp\dtfD00.tmp */
|
||||
|
||||
@ -4,16 +4,11 @@ interface
|
||||
|
||||
uses
|
||||
uEditorDBItem, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
|
||||
uBizFacturasProveedor;
|
||||
//uPedidosClienteController;
|
||||
uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente;
|
||||
|
||||
type
|
||||
IEditorProcesoPresupuestosCliente = interface(IEditorDBItem)
|
||||
['{B927F0A3-EE94-4E9C-A777-4282A78F65D2}']
|
||||
// function GetController : IPedidosClienteController;
|
||||
// procedure SetController (const Value : IPedidosClienteController);
|
||||
// property Controller : IPedidosClienteController read GetController
|
||||
// write SetController;
|
||||
['{C00545A6-A66D-45B2-A7A7-32C11264C30B}']
|
||||
|
||||
function GetPedidosCliente: IBizPedidoCliente;
|
||||
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
|
||||
@ -31,6 +26,14 @@ type
|
||||
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
|
||||
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
|
||||
|
||||
function GetAlbaranesCliente: IBizAlbaranCliente;
|
||||
procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
|
||||
property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
|
||||
|
||||
function GetFacturasCliente: IBizFacturaCliente;
|
||||
procedure SetFacturasCliente(const Value: IBizFacturaCliente);
|
||||
property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -9,7 +9,9 @@ uses
|
||||
uBizPedidosCliente, uPedidosClienteController,
|
||||
uBizPedidosProveedor, uPedidosProveedorController,
|
||||
uBizAlbaranesProveedor, uAlbaranesProveedorController,
|
||||
uBizFacturasProveedor, uFacturasProveedorController;
|
||||
uBizFacturasProveedor, uFacturasProveedorController,
|
||||
uBizAlbaranesCliente, uAlbaranesClienteController,
|
||||
uBizFacturasCliente, uFacturasClienteController;
|
||||
|
||||
type
|
||||
IProcesoPresupuestosClienteController = interface(IControllerBase)
|
||||
@ -23,6 +25,8 @@ type
|
||||
FPedidosProveedorController : IPedidosProveedorController;
|
||||
FAlbaranesProveedorController : IAlbaranesProveedorController;
|
||||
FFacturasProveedorController : IFacturasProveedorController;
|
||||
FAlbaranesClienteController : IAlbaranesClienteController;
|
||||
FFacturasClienteController : IFacturasClienteController;
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
@ -32,6 +36,8 @@ type
|
||||
function BuscarPedidosProveedor(const ListaIDPresupuestosCliente: TIntegerArray): IBizPedidoProveedor;
|
||||
function BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor;
|
||||
function BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor;
|
||||
function BuscarAlbaranesCliente(APedidosCliente: IBizPedidoCliente): IBizAlbaranCliente;
|
||||
function BuscarFacturasCliente(AAlbaranesCliente: IBizAlbaranCliente): IBizFacturaCliente;
|
||||
|
||||
procedure VerProceso(const ListaIDPresupuestosCliente: TIntegerArray);
|
||||
end;
|
||||
@ -53,6 +59,8 @@ begin
|
||||
FPedidosProveedorController := TPedidosProveedorController.Create;
|
||||
FAlbaranesProveedorController := TAlbaranesProveedorController.Create;
|
||||
FFacturasProveedorController := TFacturasProveedorController.Create;
|
||||
FAlbaranesClienteController := TAlbaranesClienteController.Create;
|
||||
FFacturasClienteController := TFacturasClienteController.Create;
|
||||
end;
|
||||
|
||||
destructor TProcesoPresupuestosClienteController.Destroy;
|
||||
@ -61,9 +69,51 @@ begin
|
||||
FPedidosProveedorController := Nil;
|
||||
FAlbaranesProveedorController := Nil;
|
||||
FFacturasProveedorController := Nil;
|
||||
FAlbaranesClienteController := Nil;
|
||||
FFacturasClienteController := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TProcesoPresupuestosClienteController.BuscarAlbaranesCliente(APedidosCliente: IBizPedidoCliente): IBizAlbaranCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
AArray : Array of TDAWhereExpression;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
Result := FAlbaranesClienteController.BuscarTodos;
|
||||
//Quitamos el filtro por empresa ya que no es necesario y complicaría where que hacemos a continuación, además de que puede darse el caso de haber dado de alta un pedido de proveedor con otra empresa?
|
||||
Result.DataTable.DynamicWhere.Clear;
|
||||
|
||||
if Assigned(Result) then
|
||||
begin
|
||||
//Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos
|
||||
// Filtrar los Presupuestos pendientes de recepcion
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
APedidosCliente.Open;
|
||||
SetLength(AArray, APedidosCliente.RecordCount);
|
||||
APedidosCliente.First;
|
||||
i:=0;
|
||||
while not APedidosCliente.EOF do
|
||||
begin
|
||||
AArray[i] := NewConstant(APedidosCliente.ID, datInteger);
|
||||
Inc(i);
|
||||
APedidosCliente.Next;
|
||||
end;
|
||||
|
||||
// (ID_PEDIDO in lista IDs)
|
||||
Condicion := NewBinaryExpression(NewField('', 'ID_PEDIDO'), NewList(AArray), dboIn);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
|
||||
APedidosCliente.Close;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TProcesoPresupuestosClienteController.BuscarAlbaranesProveedor(APedidosProveedor: IBizPedidoProveedor): IBizAlbaranProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -104,6 +154,47 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TProcesoPresupuestosClienteController.BuscarFacturasCliente(AAlbaranesCliente: IBizAlbaranCliente): IBizFacturaCliente;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
AArray : Array of TDAWhereExpression;
|
||||
i: Integer;
|
||||
|
||||
begin
|
||||
Result := FFacturasClienteController.BuscarTodosDeAlbaran;
|
||||
|
||||
if Assigned(Result) then
|
||||
begin
|
||||
// Filtrar los Presupuestos pendientes de recepcion
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
//Vamos generando todos los where necesarios para cada uno de los ID de Pedido de proveedor que buscamos
|
||||
AAlbaranesCliente.Open;
|
||||
SetLength(AArray, AAlbaranesCliente.RecordCount);
|
||||
AAlbaranesCliente.First;
|
||||
i:=0;
|
||||
while not AAlbaranesCliente.EOF do
|
||||
begin
|
||||
if not AAlbaranesCliente.ID_FACTURAIsNull then
|
||||
begin
|
||||
AArray[i] := NewConstant(AAlbaranesCliente.ID, datInteger);
|
||||
Inc(i);
|
||||
end;
|
||||
AAlbaranesCliente.Next;
|
||||
end;
|
||||
|
||||
// (ID in lista de IDs)
|
||||
Condicion := NewBinaryExpression(NewField('', 'ID_ALBARAN'), NewList(AArray), dboIn);
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboOr);
|
||||
|
||||
AAlbaranesCliente.Close;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TProcesoPresupuestosClienteController.BuscarFacturasProveedor(AAlbaranesProveedor: IBizAlbaranProveedor): IBizFacturaProveedor;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
@ -216,6 +307,8 @@ var
|
||||
APedidosProveedor: IBizPedidoProveedor;
|
||||
AAlbaranesProveedor: IBizAlbaranProveedor;
|
||||
AFacturasProveedor: IBizFacturaProveedor;
|
||||
AAlbaranesCliente: IBizAlbaranCliente;
|
||||
AFacturasCliente: IBizFacturaCliente;
|
||||
|
||||
begin
|
||||
AEditor := NIL;
|
||||
@ -224,6 +317,8 @@ begin
|
||||
APedidosProveedor := BuscarPedidosProveedor(ListaIDPresupuestosCliente);
|
||||
AAlbaranesProveedor := BuscarAlbaranesProveedor(APedidosProveedor);
|
||||
AFacturasProveedor := BuscarFacturasProveedor(AAlbaranesProveedor);
|
||||
AAlbaranesCliente := BuscarAlbaranesCliente(APedidosCliente);
|
||||
AFacturasCliente := BuscarFacturasCliente(AAlbaranesCliente);
|
||||
|
||||
CreateEditor('EditorProcesoPresupuestosCLiente', IEditorProcesoPresupuestosCliente, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
@ -233,6 +328,8 @@ begin
|
||||
AEditor.PedidosProveedor := APedidosProveedor;
|
||||
AEditor.AlbaranesProveedor := AAlbaranesProveedor;
|
||||
AEditor.FacturasProveedor := AFacturasProveedor;
|
||||
AEditor.AlbaranesCliente := AAlbaranesCliente;
|
||||
AEditor.FacturasCliente := AFacturasCliente;
|
||||
AEditor.ShowModal;
|
||||
finally
|
||||
AEditor.Release;
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\uPluginProcesoPresupuestosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.res */
|
||||
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.drf */
|
||||
/* c:\temp\dtfD04.tmp */
|
||||
|
||||
@ -29,7 +29,10 @@ requires
|
||||
PedidosProveedor_model,
|
||||
PedidosCliente_model,
|
||||
ProcesoPresupuestosCliente_controller,
|
||||
AlbaranesProveedor_model;
|
||||
AlbaranesProveedor_model,
|
||||
AlbaranesCliente_model,
|
||||
FacturasCliente_model,
|
||||
FacturasProveedor_model;
|
||||
|
||||
contains
|
||||
uProcesoPresupuestosClienteViewRegister in 'uProcesoPresupuestosClienteViewRegister.pas',
|
||||
|
||||
@ -49,8 +49,11 @@
|
||||
<DelphiCompile Include="ProcesoPresupuestosCliente_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\ProcesoPresupuestosCliente_controller.dcp" />
|
||||
|
||||
@ -52,6 +52,8 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitWidth = 272
|
||||
Width = 272
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 391
|
||||
@ -60,6 +62,8 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 391
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
end
|
||||
inherited eLista: TcxComboBox
|
||||
Left = 659
|
||||
@ -68,6 +72,8 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 659
|
||||
ExplicitWidth = 215
|
||||
Width = 215
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
|
||||
@ -11,17 +11,20 @@ uses
|
||||
JvExControls, JvNavigationPane, uIEditorProcesoPresupuestosCLiente,
|
||||
uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||
uViewProcesoPresupuestosCliente, uBizPedidosCliente, uBizPedidosProveedor,
|
||||
uBizAlbaranesProveedor, uBizFacturasProveedor;
|
||||
uBizAlbaranesProveedor, uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente;
|
||||
|
||||
type
|
||||
TfEditorProcesoPresupuestosCliente = class(TfEditorGridBase, IEditorProcesoPresupuestosCliente)
|
||||
frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente;
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPedidosCliente: IBizPedidoCliente;
|
||||
FPedidosProveedor: IBizPedidoProveedor;
|
||||
FAlbaranesProveedor: IBizAlbaranProveedor;
|
||||
FFacturasProveedor: IBizFacturaProveedor;
|
||||
FAlbaranesCliente: IBizAlbaranCliente;
|
||||
FFacturasCliente: IBizFacturaCliente;
|
||||
|
||||
function GetPedidosCliente: IBizPedidoCliente;
|
||||
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
|
||||
@ -31,12 +34,18 @@ type
|
||||
procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
|
||||
function GetFacturasProveedor: IBizFacturaProveedor;
|
||||
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
|
||||
function GetAlbaranesCliente: IBizAlbaranCliente;
|
||||
procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
|
||||
function GetFacturasCliente: IBizFacturaCliente;
|
||||
procedure SetFacturasCliente(const Value: IBizFacturaCliente);
|
||||
|
||||
public
|
||||
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
|
||||
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
|
||||
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
|
||||
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
|
||||
property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
|
||||
property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
|
||||
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
@ -61,6 +70,8 @@ begin
|
||||
FPedidosProveedor := Nil;
|
||||
FAlbaranesProveedor := Nil;
|
||||
FFacturasProveedor := Nil;
|
||||
FAlbaranesCliente := Nil;
|
||||
FFacturasCliente := Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -87,14 +98,32 @@ begin
|
||||
raise Exception.Create('No hay ninguna factura de proveedor asignado');
|
||||
FacturasProveedor.DataTable.Active := True;
|
||||
|
||||
if not Assigned(AlbaranesCliente) then
|
||||
raise Exception.Create('No hay ningun albarán de cliente asignado');
|
||||
AlbaranesCliente.DataTable.Active := True;
|
||||
|
||||
if not Assigned(FacturasCliente) then
|
||||
raise Exception.Create('No hay ninguna factura de cliente asignado');
|
||||
FacturasCliente.DataTable.Active := True;
|
||||
|
||||
ViewGrid.GotoFirst;
|
||||
end;
|
||||
|
||||
function TfEditorProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := FAlbaranesCliente;
|
||||
end;
|
||||
|
||||
function TfEditorProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
|
||||
begin
|
||||
Result := FAlbaranesProveedor;
|
||||
end;
|
||||
|
||||
function TfEditorProcesoPresupuestosCliente.GetFacturasCliente: IBizFacturaCliente;
|
||||
begin
|
||||
Result := FFacturasCliente;
|
||||
end;
|
||||
|
||||
function TfEditorProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
|
||||
begin
|
||||
Result := FFacturasProveedor;
|
||||
@ -110,6 +139,16 @@ begin
|
||||
Result := FPedidosProveedor;
|
||||
end;
|
||||
|
||||
procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
|
||||
begin
|
||||
FAlbaranesCliente := Value;
|
||||
if Assigned(FAlbaranesCliente) then
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
(ViewGrid as IViewListadoProcesoPedidoCliente).AlbaranesCliente := AlbaranesCliente;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
|
||||
begin
|
||||
FAlbaranesProveedor := Value;
|
||||
@ -120,6 +159,16 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorProcesoPresupuestosCliente.SetFacturasCliente(const Value: IBizFacturaCliente);
|
||||
begin
|
||||
FFacturasCliente := Value;
|
||||
if Assigned(FFacturasCliente) then
|
||||
begin
|
||||
if Assigned(ViewGrid) then
|
||||
(ViewGrid as IViewListadoProcesoPedidoCliente).FacturasCliente := FacturasCliente;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
|
||||
begin
|
||||
FFacturasProveedor := Value;
|
||||
|
||||
@ -101,6 +101,7 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
|
||||
OptionsView.GroupRowStyle = grsOffice11
|
||||
OptionsView.HeaderEndEllipsis = True
|
||||
object cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Ref. Alb. Proveedor'
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
end
|
||||
object cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn
|
||||
@ -138,11 +139,87 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
|
||||
OptionsView.GroupRowStyle = grsOffice11
|
||||
OptionsView.HeaderEndEllipsis = True
|
||||
object cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Ref. Fac. Proveedor'
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
end
|
||||
object cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
|
||||
end
|
||||
object cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SITUACION'
|
||||
end
|
||||
object cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'FECHA_FACTURA'
|
||||
end
|
||||
end
|
||||
object cxGridViewAlbaranesCliente: TcxGridDBTableView [4]
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = dsAlbaranesCliente
|
||||
DataController.DetailKeyFieldNames = 'ID_PEDIDO'
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.MasterKeyFieldNames = 'ID'
|
||||
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsData.Editing = False
|
||||
OptionsData.Inserting = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsSelection.UnselectFocusedRecordOnExit = False
|
||||
OptionsView.CellEndEllipsis = True
|
||||
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
|
||||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.GridLineColor = cl3DLight
|
||||
OptionsView.GridLines = glHorizontal
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.GroupRowStyle = grsOffice11
|
||||
OptionsView.HeaderEndEllipsis = True
|
||||
object cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Ref. Alb. Cliente'
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
end
|
||||
end
|
||||
object cxGridViewFacturasCliente: TcxGridDBTableView [5]
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
DataController.DataSource = dsFacturasCliente
|
||||
DataController.DetailKeyFieldNames = 'ID_ALBARAN'
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.MasterKeyFieldNames = 'ID'
|
||||
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.CellHints = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsData.Editing = False
|
||||
OptionsData.Inserting = False
|
||||
OptionsSelection.CellSelect = False
|
||||
OptionsSelection.UnselectFocusedRecordOnExit = False
|
||||
OptionsView.CellEndEllipsis = True
|
||||
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
|
||||
OptionsView.CellAutoHeight = True
|
||||
OptionsView.ColumnAutoWidth = True
|
||||
OptionsView.GridLineColor = cl3DLight
|
||||
OptionsView.GridLines = glHorizontal
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.GroupRowStyle = grsOffice11
|
||||
OptionsView.HeaderEndEllipsis = True
|
||||
object cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Ref. fac. Cliente'
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
end
|
||||
end
|
||||
inherited cxGridLevel: TcxGridLevel
|
||||
Options.DetailTabsPosition = dtpTop
|
||||
object cxGridLevelPedidosProveedor: TcxGridLevel
|
||||
Caption = 'Documentos de Proveedor'
|
||||
GridView = cxGridViewPedidosProveedor
|
||||
object cxGridLevelAlbaranesProveedor: TcxGridLevel
|
||||
GridView = cxGridViewAlbaranesProveedor
|
||||
@ -151,6 +228,13 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
object cxGridAlbaranesCliente: TcxGridLevel
|
||||
Caption = 'Documentos de Cliente'
|
||||
GridView = cxGridViewAlbaranesCliente
|
||||
object cxGridFacturasCliente: TcxGridLevel
|
||||
GridView = cxGridViewFacturasCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -207,4 +291,12 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
|
||||
Left = 8
|
||||
Top = 152
|
||||
end
|
||||
object dsAlbaranesCliente: TDADataSource
|
||||
Left = 8
|
||||
Top = 192
|
||||
end
|
||||
object dsFacturasCliente: TDADataSource
|
||||
Left = 8
|
||||
Top = 240
|
||||
end
|
||||
end
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||||
cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
|
||||
uBizFacturasProveedor, Grids, DBGrids;
|
||||
uBizFacturasProveedor, uBizAlbaranesCliente, uBizFacturasCliente, Grids, DBGrids;
|
||||
|
||||
type
|
||||
IViewListadoProcesoPedidoCliente = interface(IViewGrid)
|
||||
@ -34,6 +34,13 @@ type
|
||||
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
|
||||
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
|
||||
|
||||
function GetAlbaranesCliente: IBizAlbaranCliente;
|
||||
procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
|
||||
property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
|
||||
|
||||
function GetFacturasCliente: IBizFacturaCliente;
|
||||
procedure SetFacturasCliente(const Value: IBizFacturaCliente);
|
||||
property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
|
||||
end;
|
||||
|
||||
TfrViewProcesoPresupuestosCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente)
|
||||
@ -59,12 +66,26 @@ type
|
||||
cxGridLevelFacturasProveedor: TcxGridLevel;
|
||||
cxGridViewFacturasProveedor: TcxGridDBTableView;
|
||||
cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn;
|
||||
cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn;
|
||||
cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn;
|
||||
cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn;
|
||||
cxGridAlbaranesCliente: TcxGridLevel;
|
||||
cxGridFacturasCliente: TcxGridLevel;
|
||||
cxGridViewAlbaranesCliente: TcxGridDBTableView;
|
||||
cxGridViewFacturasCliente: TcxGridDBTableView;
|
||||
cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn;
|
||||
cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn;
|
||||
dsAlbaranesCliente: TDADataSource;
|
||||
dsFacturasCliente: TDADataSource;
|
||||
procedure CustomViewShow(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPedidosCliente: IBizPedidoCliente;
|
||||
FPedidosProveedor: IBizPedidoProveedor;
|
||||
FAlbaranesProveedor: IBizAlbaranProveedor;
|
||||
FFacturasProveedor: IBizFacturaProveedor;
|
||||
FAlbaranesCliente: IBizAlbaranCliente;
|
||||
FFacturasCliente: IBizFacturaCliente;
|
||||
|
||||
function GetPedidosCliente: IBizPedidoCliente;
|
||||
procedure SetPedidosCliente(const Value: IBizPedidoCliente);
|
||||
@ -78,11 +99,19 @@ type
|
||||
function GetFacturasProveedor: IBizFacturaProveedor;
|
||||
procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
|
||||
|
||||
function GetAlbaranesCliente: IBizAlbaranCliente;
|
||||
procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
|
||||
|
||||
function GetFacturasCliente: IBizFacturaCliente;
|
||||
procedure SetFacturasCliente(const Value: IBizFacturaCliente);
|
||||
|
||||
public
|
||||
property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
|
||||
property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
|
||||
property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
|
||||
property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;
|
||||
property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
|
||||
property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
|
||||
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
@ -104,15 +133,27 @@ begin
|
||||
FPedidosCliente:= Nil;
|
||||
FPedidosProveedor:= Nil;
|
||||
FAlbaranesProveedor:= Nil;
|
||||
FFacturasProveedor:= Nil;
|
||||
FFacturasProveedor:= Nil;
|
||||
FAlbaranesCliente:= Nil;
|
||||
FFacturasCliente:= Nil;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TfrViewProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente;
|
||||
begin
|
||||
Result := FAlbaranesCliente;
|
||||
end;
|
||||
|
||||
function TfrViewProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
|
||||
begin
|
||||
REsult := FAlbaranesProveedor;
|
||||
end;
|
||||
|
||||
function TfrViewProcesoPresupuestosCliente.GetFacturasCliente: IBizFacturaCliente;
|
||||
begin
|
||||
Result := FFacturasCliente;
|
||||
end;
|
||||
|
||||
function TfrViewProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
|
||||
begin
|
||||
Result := FFacturasProveedor;
|
||||
@ -128,6 +169,15 @@ begin
|
||||
Result := FPedidosProveedor;
|
||||
end;
|
||||
|
||||
procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
|
||||
begin
|
||||
FAlbaranesCliente := Value;
|
||||
if Assigned(FAlbaranesCliente) then
|
||||
dsAlbaranesCliente.DataTable := FAlbaranesCliente.DataTable
|
||||
else
|
||||
dsAlbaranesCliente.DataTable := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
|
||||
begin
|
||||
FAlbaranesProveedor := Value;
|
||||
@ -137,6 +187,15 @@ begin
|
||||
dsAlbaranesProveedor.DataTable := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewProcesoPresupuestosCliente.SetFacturasCliente(const Value: IBizFacturaCliente);
|
||||
begin
|
||||
FFacturasCliente := Value;
|
||||
if Assigned(FFacturasCliente) then
|
||||
dsFacturasCliente.DataTable := FFacturasCliente.DataTable
|
||||
else
|
||||
dsFacturasCliente.DataTable := Nil;
|
||||
end;
|
||||
|
||||
procedure TfrViewProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
|
||||
begin
|
||||
FFacturasProveedor := Value;
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
|
||||
/* c:\temp\dtfB2F.tmp */
|
||||
/* c:\temp\dtfC7C.tmp */
|
||||
|
||||
Binary file not shown.
@ -121,8 +121,6 @@ uses
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||||
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
|
||||
srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
|
||||
schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
|
||||
schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
|
||||
@ -163,7 +161,9 @@ uses
|
||||
schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
|
||||
schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
|
||||
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "4.3.2.0\0"
|
||||
VALUE "ProductVersion", "4.3.2.0\0"
|
||||
VALUE "CompileDate", "viernes, 30 de agosto de 2013 13:10\0"
|
||||
VALUE "CompileDate", "jueves, 05 de septiembre de 2013 18:20\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Reference in New Issue
Block a user