Tecsitel_FactuGES2/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
2007-11-05 17:59:28 +00:00

1783 lines
53 KiB
Plaintext

object srvRecibosCliente: TsrvRecibosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schRecibosCliente
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 247
Width = 347
object schRecibosCliente: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'FORMA_PAGO_FACTURA'
TableField = 'FORMA_PAGO_FACTURA'
end
item
DatasetField = 'IMPORTE_FACTURA'
TableField = 'IMPORTE_FACTURA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
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_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end>
end>
Name = 'RecibosCliente'
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID'
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_REMESA'
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_DESCRIPCION'
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_OBSERVACIONES'
end
item
Name = 'IMPORTE'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE'
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'RecibosCliente_USUARIO'
end>
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA_REC_CO' +
'MPENSADO,'#10' REFERENCIA,'#10' SITUACION,'#10' ID_FACTURA' +
','#10' ID_REMESA,'#10' REFERENCIA_REMESA,'#10' FECHA_EMISI' +
'ON,'#10' FECHA_VENCIMIENTO,'#10' DESCRIPCION,'#10' OBSERVA' +
'CIONES,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPORTE_TOTA' +
'L,'#10' FECHA_FACTURA,'#10' FORMA_PAGO_FACTURA,'#10' IMPOR' +
'TE_FACTURA,'#10' ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF' +
'_CIF_CLIENTE,'#10' ENTIDAD_CLIENTE,'#10' SUCURSAL_CLIENTE,'#10' ' +
' DC_CLIENTE,'#10' CUENTA_CLIENTE,'#10' ID_EMPRESA,'#10' ' +
' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO'#10#10'FROM V' +
'_RECIBOS_CLIENTE'#10'WHERE'#10' ID = :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'FORMA_PAGO_FACTURA'
TableField = 'FORMA_PAGO_FACTURA'
end
item
DatasetField = 'IMPORTE_FACTURA'
TableField = 'IMPORTE_FACTURA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ENTIDAD_CLIENTE'
TableField = 'ENTIDAD_CLIENTE'
end
item
DatasetField = 'SUCURSAL_CLIENTE'
TableField = 'SUCURSAL_CLIENTE'
end
item
DatasetField = 'DC_CLIENTE'
TableField = 'DC_CLIENTE'
end
item
DatasetField = 'CUENTA_CLIENTE'
TableField = 'CUENTA_CLIENTE'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
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_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end>
end>
Name = 'RecibosCliente_Refresh'
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID'
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA_REC_COMPENSADO'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'RecibosCliente_Refresh_SITUACION'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_FACTURA'
end
item
Name = 'ID_REMESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_REMESA'
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_REFERENCIA_REMESA'
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_DESCRIPCION'
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_OBSERVACIONES'
end
item
Name = 'IMPORTE'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE'
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_OTROS_GASTOS'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_FACTURA'
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_Refresh_IMPORTE_FACTURA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_Refresh_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE'
end
item
Name = 'ENTIDAD_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE'
end
item
Name = 'SUCURSAL_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE'
end
item
Name = 'DC_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_DC_CLIENTE'
end
item
Name = 'CUENTA_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_Refresh_CUENTA_CLIENTE'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_Refresh_ID_EMPRESA'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_Refresh_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'RecibosCliente_Refresh_USUARIO'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PAGOS_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_RECIBO'
TableField = 'ID_RECIBO'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA_PAGO'
TableField = 'FECHA_PAGO'
end
item
DatasetField = 'TITULAR'
TableField = 'TITULAR'
end
item
DatasetField = 'ENTIDAD'
TableField = 'ENTIDAD'
end
item
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end
item
DatasetField = 'DC'
TableField = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end>
end>
Name = 'PagosCliente'
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'PagosCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_RECIBO'
DataType = datInteger
DictionaryEntry = 'PagosCliente_ID_RECIBO'
end
item
Name = 'TIPO'
DataType = datString
Size = 255
DictionaryEntry = 'PagosCliente_TIPO'
end
item
Name = 'FECHA_PAGO'
DataType = datDateTime
DictionaryEntry = 'PagosCliente_FECHA_PAGO'
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
DictionaryEntry = 'PagosCliente_TITULAR'
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
DictionaryEntry = 'PagosCliente_ENTIDAD'
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
DictionaryEntry = 'PagosCliente_SUCURSAL'
end
item
Name = 'DC'
DataType = datString
Size = 15
DictionaryEntry = 'PagosCliente_DC'
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
DictionaryEntry = 'PagosCliente_CUENTA'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PagosCliente_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'PagosCliente_USUARIO'
end>
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
'SELECT ID,'#10' ID_RECIBO_COMPENSADO,'#10' REFERENCIA,'#10' ' +
' SITUACION,'#10' ID_FACTURA,'#10' FECHA_EMISION,'#10' FEC' +
'HA_VENCIMIENTO,'#10' IMPORTE,'#10' OTROS_GASTOS,'#10' IMPO' +
'RTE_TOTAL,'#10' FECHA_FACTURA,'#10' IMPORTE_FACTURA,'#10' ' +
'ID_CLIENTE,'#10' NOMBRE_CLIENTE,'#10' NIF_CIF_CLIENTE,'#10' ' +
' ID_EMPRESA'#10#10'FROM V_RECIBOS_CLIENTE'#10'WHERE ID_RECIBO_COMPENSADO ' +
'= :ID'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE'
TableField = 'IMPORTE'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'IMPORTE_FACTURA'
TableField = 'IMPORTE_FACTURA'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'ID'
TableField = 'ID'
end>
end>
Name = 'RecibosCompensadosCli'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
DictionaryEntry = 'RecibosCliente_SITUACION'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_FACTURA'
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
end
item
Name = 'IMPORTE'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE'
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'OTROS_GASTOS'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE'
SQL =
'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_FACTURA, REFERENCIA, F' +
'ECHA_EMISION, FECHA_VENCIMIENTO, DESCRIPCION, OBSERVACIONES,'#10' ' +
' IMPORTE, OTROS_GASTOS, USUARIO)'#10' VALUES'#10' (:ID, :ID_FACTURA,' +
' :REFERENCIA, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, ' +
':OBSERVACIONES,'#10' :IMPORTE, :OTROS_GASTOS, :USUARIO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_RecibosCliente'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' RECIBOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_RecibosCliente'
end
item
Params = <
item
Name = 'ID_REMESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'OTROS_GASTOS'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE'
SQL =
'UPDATE Recibos_CLIENTE'#10' SET '#10' ID_REMESA = :ID_REMESA,'#10' FE' +
'CHA_EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VEN' +
'CIMIENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :O' +
'BSERVACIONES,'#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_' +
'GASTOS,'#10' USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_RecibosCliente'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_RECIBO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PAGO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'DC'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PAGOS_CLIENTE'
SQL =
'INSERT'#10' INTO PAGOS_CLIENTE'#10' (ID, ID_RECIBO, TIPO, FECHA_PAGO' +
', TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO)'#10' VALUE' +
'S'#10' (:ID, :ID_RECIBO, :TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD, ' +
#10' :SUCURSAL, :DC, :CUENTA, :USUARIO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PagosCliente'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PAGOS_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' PAGOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PagosCliente'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_RECIBO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_PAGO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'DC'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PAGOS_CLIENTE'
SQL =
'UPDATE PAGOS_CLIENTE'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID_R' +
'ECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' TI' +
'TULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SUCU' +
'RSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA'#10' WHERE'#10' (ID = :OL' +
'D_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PagosCliente'
end
item
Params = <
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE'
SQL =
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
'PENSADO'#10'WHERE (ID = :ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_RecibosCompensadosCli'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE'
SQL =
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = Null'#10'WHERE (ID' +
' = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_RecibosCompensadosCli'
end
item
Params = <
item
Name = 'ID_RECIBO_COMPENSADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'RECIBOS_CLIENTE'
SQL =
'UPDATE RECIBOS_CLIENTE'#10'SET ID_RECIBO_COMPENSADO = :ID_RECIBO_COM' +
'PENSADO'#10'WHERE (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_RecibosCompensadosCli'
end>
RelationShips = <
item
Name = 'FK_PagosCliente'
MasterDatasetName = 'RecibosCliente'
MasterFields = 'ID'
DetailDatasetName = 'PagosCliente'
DetailFields = 'ID_RECIBO'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert RecibosCliente'
DoUpdate = False
DoDelete = False
DatasetName = 'RecibosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert PagosCliente'
DoUpdate = False
DoDelete = False
DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Update RecibosCliente'
DoInsert = False
DoDelete = False
DatasetName = 'RecibosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Update PagosCliente'
DoInsert = False
DoDelete = False
DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PagosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'PagosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete RecibosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'RecibosCliente'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Top = 24
end
object bpRecibosCliente: TDABusinessProcessor
Schema = schRecibosCliente
InsertCommandName = 'Insert_RecibosCliente'
DeleteCommandName = 'Delete_RecibosCliente'
UpdateCommandName = 'Update_RecibosCliente'
ReferencedDataset = 'RecibosCliente'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
end
object DADataDictionary: TDADataDictionary
Fields = <
item
Name = 'RecibosCliente_ID'
DataType = datInteger
DisplayLabel = 'ID'
end
item
Name = 'RecibosCliente_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
end
item
Name = 'RecibosCliente_SITUACION'
DataType = datString
Size = 9
DisplayLabel = 'SITUACION'
end
item
Name = 'RecibosCliente_ID_FACTURA'
DataType = datInteger
DisplayLabel = 'ID_FACTURA'
end
item
Name = 'RecibosCliente_FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'FECHA_VENCIMIENTO'
end
item
Name = 'RecibosCliente_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'DESCRIPCION'
end
item
Name = 'RecibosCliente_OBSERVACIONES'
DataType = datString
Size = 255
DisplayLabel = 'OBSERVACIONES'
end
item
Name = 'RecibosCliente_IMPORTE'
DataType = datCurrency
DisplayLabel = 'IMPORTE'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_FECHA_FACTURA'
DataType = datDateTime
DisplayLabel = 'FECHA_FACTURA'
end
item
Name = 'RecibosCliente_FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DisplayLabel = 'FORMA_PAGO_FACTURA'
end
item
Name = 'RecibosCliente_IMPORTE_FACTURA'
DataType = datCurrency
DisplayLabel = 'IMPORTE_FACTURA'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_NOMBRE_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'NOMBRE_CLIENTE'
end
item
Name = 'RecibosCliente_NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'NIF_CIF_CLIENTE'
end
item
Name = 'RecibosCliente_ENTIDAD_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'ENTIDAD_CLIENTE'
end
item
Name = 'RecibosCliente_SUCURSAL_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'SUCURSAL_CLIENTE'
end
item
Name = 'RecibosCliente_DC_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'DC_CLIENTE'
end
item
Name = 'RecibosCliente_CUENTA_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'CUENTA_CLIENTE'
end
item
Name = 'RecibosCliente_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'RecibosCliente_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'RecibosCliente_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'RecibosCliente_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'USUARIO'
end
item
Name = 'RecibosCliente_Refresh_ID'
DataType = datInteger
DisplayLabel = 'ID'
end
item
Name = 'RecibosCliente_Refresh_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
end
item
Name = 'RecibosCliente_Refresh_SITUACION'
DataType = datString
Size = 9
DisplayLabel = 'SITUACION'
end
item
Name = 'RecibosCliente_Refresh_ID_FACTURA'
DataType = datInteger
DisplayLabel = 'ID_FACTURA'
end
item
Name = 'RecibosCliente_Refresh_FECHA_VENCIMIENTO'
DataType = datDateTime
DisplayLabel = 'FECHA_VENCIMIENTO'
end
item
Name = 'RecibosCliente_Refresh_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'DESCRIPCION'
end
item
Name = 'RecibosCliente_Refresh_OBSERVACIONES'
DataType = datString
Size = 255
DisplayLabel = 'OBSERVACIONES'
end
item
Name = 'RecibosCliente_Refresh_IMPORTE'
DataType = datCurrency
DisplayLabel = 'IMPORTE'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_FECHA_FACTURA'
DataType = datDateTime
DisplayLabel = 'FECHA_FACTURA'
end
item
Name = 'RecibosCliente_Refresh_FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
DisplayLabel = 'FORMA_PAGO_FACTURA'
end
item
Name = 'RecibosCliente_Refresh_IMPORTE_FACTURA'
DataType = datCurrency
DisplayLabel = 'IMPORTE_FACTURA'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_NOMBRE_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'NOMBRE_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_NIF_CIF_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'NIF_CIF_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_ENTIDAD_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'ENTIDAD_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_SUCURSAL_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'SUCURSAL_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_DC_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'DC_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_CUENTA_CLIENTE'
DataType = datString
Size = 15
DisplayLabel = 'CUENTA_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'RecibosCliente_Refresh_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'RecibosCliente_Refresh_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'RecibosCliente_Refresh_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'USUARIO'
end
item
Name = 'PagosCliente_ID'
DataType = datInteger
DisplayLabel = 'ID'
end
item
Name = 'PagosCliente_ID_RECIBO'
DataType = datInteger
end
item
Name = 'PagosCliente_TIPO'
DataType = datString
Size = 255
end
item
Name = 'PagosCliente_FECHA_PAGO'
DataType = datDateTime
end
item
Name = 'PagosCliente_TITULAR'
DataType = datString
Size = 255
end
item
Name = 'PagosCliente_ENTIDAD'
DataType = datString
Size = 15
end
item
Name = 'PagosCliente_SUCURSAL'
DataType = datString
Size = 15
end
item
Name = 'PagosCliente_DC'
DataType = datString
Size = 15
end
item
Name = 'PagosCliente_CUENTA'
DataType = datString
Size = 15
end
item
Name = 'PagosCliente_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'PagosCliente_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'PagosCliente_USUARIO'
DataType = datString
Size = 20
end
item
Name = 'RecibosCliente_Refresh_ID_REMESA'
DataType = datInteger
end
item
Name = 'RecibosCliente_ID_REMESA'
DataType = datInteger
end
item
Name = 'RecibosCliente_REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_Refresh_REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_OTROS_GASTOS'
DataType = datCurrency
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_OTROS_GASTOS'
DataType = datCurrency
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'IMPORTE_TOTAL'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item
Name = 'RecibosCliente_Refresh_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'IMPORTE_TOTAL'
Alignment = taRightJustify
end
item
Name = 'RecibosCliente_Refresh_ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item
Name = 'RecibosCliente_FECHA_EMISION'
DataType = datDateTime
end>
Left = 48
Top = 152
end
object bpPagosCliente: TDABusinessProcessor
Schema = schRecibosCliente
InsertCommandName = 'Insert_PagosCliente'
DeleteCommandName = 'Delete_PagosCliente'
UpdateCommandName = 'Update_PagosCliente'
ReferencedDataset = 'PagosCliente'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 88
end
object bpRecibosCompensados: TDABusinessProcessor
Schema = schRecibosCliente
InsertCommandName = 'Insert_RecibosCompensadosCli'
DeleteCommandName = 'Delete_RecibosCompensadosCli'
UpdateCommandName = 'Update_RecibosCompensadosCli'
ReferencedDataset = 'RecibosCompensadosCli'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 152
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end