Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
a57405e140
Tecsitel_FactuGES2/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm
david 28cc4ff877 - Nuevas versiones de las librerías 
- Adaptar el código a las nuevas versiones
- Incluye VCLFixPack (http://andy.jgknet.de/blog/?page_id=288)

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@921 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2009-03-05 12:18:48 +00:00

1475 lines
42 KiB
Plaintext
Raw Blame History

object srvRecibosCliente: TsrvRecibosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
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'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHA_EMISION, 1,4)) as ' +
'ANO'#10'from recibos_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dis' +
'tinct '#39'Todos'#39' as ANO'#10'from empresas'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'ListaAnosRecibos'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'ID_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
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 = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
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 = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = 'CALLE_CLIENTE'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = 'POBLACION_CLIENTE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'CODIGO_POSTAL_CLIENTE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'PROVINCIA_CLIENTE'
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 = 'RecibosCliente'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
ServerAutoRefresh = True
DictionaryEntry = 'RecibosCliente_ID'
InPrimaryKey = True
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 = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
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 = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
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 = <>
Statements = <
item
Connection = 'IBX'
Default = True
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 = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
ServerAutoRefresh = True
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 = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_RECIBOS_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_RECIBO_COMPENSADO'
TableField = 'ID_RECIBO_COMPENSADO'
end
item
DatasetField = 'REFERENCIA_REC_COMPENSADO'
TableField = 'REFERENCIA_REC_COMPENSADO'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'ID_REMESA'
TableField = 'ID_REMESA'
end
item
DatasetField = 'REFERENCIA_REMESA'
TableField = 'REFERENCIA_REMESA'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
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 = 'OTROS_GASTOS'
TableField = 'OTROS_GASTOS'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
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 = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'DATOS_BANCARIOS'
TableField = 'DATOS_BANCARIOS'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE_CLIENTE'
TableField = 'NOMBRE_CLIENTE'
end
item
DatasetField = 'NIF_CIF_CLIENTE'
TableField = 'NIF_CIF_CLIENTE'
end
item
DatasetField = 'CALLE_CLIENTE'
TableField = 'CALLE_CLIENTE'
end
item
DatasetField = 'POBLACION_CLIENTE'
TableField = 'POBLACION_CLIENTE'
end
item
DatasetField = 'CODIGO_POSTAL_CLIENTE'
TableField = 'CODIGO_POSTAL_CLIENTE'
end
item
DatasetField = 'PROVINCIA_CLIENTE'
TableField = 'PROVINCIA_CLIENTE'
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 = 'RecibosCompensadosCli'
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
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
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'ID_REMESA'
DataType = datInteger
end
item
Name = 'REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE'
DataType = datCurrency
end
item
Name = 'OTROS_GASTOS'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'FORMA_PAGO_FACTURA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_FACTURA'
DataType = datCurrency
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF_CLIENTE'
DataType = datString
Size = 15
end
item
Name = 'CALLE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL_CLIENTE'
DataType = datString
Size = 10
end
item
Name = 'PROVINCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
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 = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
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'
Value = ''
end
item
Name = 'ID'
Value = ''
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'
Value = ''
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'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
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_RecibosCompensados'
MasterDatasetName = 'RecibosCliente'
MasterFields = 'ID'
DetailDatasetName = 'RecibosCompensadosCli'
DetailFields = 'ID_RECIBO_COMPENSADO'
RelationshipType = rtForeignKey
end
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 = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
end
object DADataDictionary: TDADataDictionary
Fields = <
item
Name = 'RecibosCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
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 = 'PagosCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
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_ID_REMESA'
DataType = datInteger
end
item
Name = 'RecibosCliente_REFERENCIA_REMESA'
DataType = datString
Size = 255
end
item
Name = 'RecibosCliente_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_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 = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 152
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end
Reference in New Issue View Git Blame Copy Permalink