423 lines
13 KiB
Plaintext
423 lines
13 KiB
Plaintext
|
inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
||
|
|
OnCreate = DAClientDataModuleCreate
|
||
|
|
Height = 223
|
||
|
|
Width = 525
|
||
|
|
object RORemoteService: TRORemoteService
|
||
|
|
Message = dmConexion.ROMessage
|
||
|
|
Channel = dmConexion.ROChannel
|
||
|
|
ServiceName = 'srvRecibosCliente'
|
||
|
|
Left = 56
|
||
|
|
Top = 24
|
||
|
|
end
|
||
|
|
object rda_RecibosCliente: TDARemoteDataAdapter
|
||
|
|
GetSchemaCall.RemoteService = RORemoteService
|
||
|
|
GetDataCall.RemoteService = RORemoteService
|
||
|
|
UpdateDataCall.RemoteService = RORemoteService
|
||
|
|
GetScriptsCall.RemoteService = RORemoteService
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
DataStreamer = Bin2DataStreamer
|
||
|
|
Left = 59
|
||
|
|
Top = 151
|
||
|
|
end
|
||
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||
|
|
Left = 56
|
||
|
|
Top = 84
|
||
|
|
end
|
||
|
|
object tbl_PagosCliente: TDAMemDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'ID'
|
||
|
|
DataType = datInteger
|
||
|
|
DictionaryEntry = 'PagosCliente_ID'
|
||
|
|
InPrimaryKey = True
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ID_RECIBO'
|
||
|
|
DataType = datInteger
|
||
|
|
DisplayLabel = 'PagosCliente_ID_RECIBO'
|
||
|
|
DictionaryEntry = 'PagosCliente_ID_RECIBO'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'TIPO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 255
|
||
|
|
DisplayLabel = 'PagosCliente_TIPO'
|
||
|
|
DictionaryEntry = 'PagosCliente_TIPO'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA_PAGO'
|
||
|
|
DataType = datDateTime
|
||
|
|
DisplayLabel = 'PagosCliente_FECHA_PAGO'
|
||
|
|
DictionaryEntry = 'PagosCliente_FECHA_PAGO'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'TITULAR'
|
||
|
|
DataType = datString
|
||
|
|
Size = 255
|
||
|
|
DisplayLabel = 'PagosCliente_TITULAR'
|
||
|
|
DictionaryEntry = 'PagosCliente_TITULAR'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ENTIDAD'
|
||
|
|
DataType = datString
|
||
|
|
Size = 15
|
||
|
|
DisplayLabel = 'PagosCliente_ENTIDAD'
|
||
|
|
DictionaryEntry = 'PagosCliente_ENTIDAD'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'SUCURSAL'
|
||
|
|
DataType = datString
|
||
|
|
Size = 15
|
||
|
|
DisplayLabel = 'PagosCliente_SUCURSAL'
|
||
|
|
DictionaryEntry = 'PagosCliente_SUCURSAL'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DC'
|
||
|
|
DataType = datString
|
||
|
|
Size = 15
|
||
|
|
DisplayLabel = 'PagosCliente_DC'
|
||
|
|
DictionaryEntry = 'PagosCliente_DC'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CUENTA'
|
||
|
|
DataType = datString
|
||
|
|
Size = 15
|
||
|
|
DisplayLabel = 'PagosCliente_CUENTA'
|
||
|
|
DictionaryEntry = 'PagosCliente_CUENTA'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA_ALTA'
|
||
|
|
DataType = datDateTime
|
||
|
|
DisplayLabel = 'PagosCliente_FECHA_ALTA'
|
||
|
|
DictionaryEntry = 'PagosCliente_FECHA_ALTA'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA_MODIFICACION'
|
||
|
|
DataType = datDateTime
|
||
|
|
DisplayLabel = 'PagosCliente_FECHA_MODIFICACION'
|
||
|
|
DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'USUARIO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 20
|
||
|
|
DisplayLabel = 'PagosCliente_USUARIO'
|
||
|
|
DictionaryEntry = 'PagosCliente_USUARIO'
|
||
|
|
end>
|
||
|
|
Params = <>
|
||
|
|
MasterMappingMode = mmWhere
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
RemoteDataAdapter = rda_RecibosCliente
|
||
|
|
MasterSource = ds_RecibosCliente
|
||
|
|
MasterFields = 'ID'
|
||
|
|
DetailFields = 'ID_RECIBO'
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'PagosCliente'
|
||
|
|
Left = 272
|
||
|
|
Top = 80
|
||
|
|
end
|
||
|
|
object ds_PagosCliente: TDADataSource
|
||
|
|
DataSet = tbl_PagosCliente.Dataset
|
||
|
|
DataTable = tbl_PagosCliente
|
||
|
|
Left = 272
|
||
|
|
Top = 24
|
||
|
|
end
|
||
|
|
object tbl_RecibosCliente: TDAMemDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
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
|
||
|
|
DisplayLabel = 'RecibosCliente_ID_REMESA'
|
||
|
|
DictionaryEntry = 'RecibosCliente_ID_REMESA'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'REFERENCIA_REMESA'
|
||
|
|
DataType = datString
|
||
|
|
Size = 255
|
||
|
|
DisplayLabel = 'RecibosCliente_REFERENCIA_REMESA'
|
||
|
|
DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA_EMISION'
|
||
|
|
DataType = datDateTime
|
||
|
|
DisplayLabel = 'RecibosCliente_FECHA_EMISION'
|
||
|
|
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
|
||
|
|
Alignment = taRightJustify
|
||
|
|
DictionaryEntry = 'RecibosCliente_IMPORTE'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'OTROS_GASTOS'
|
||
|
|
DataType = datCurrency
|
||
|
|
DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
|
||
|
|
Alignment = taRightJustify
|
||
|
|
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IMPORTE_TOTAL'
|
||
|
|
DataType = datCurrency
|
||
|
|
Alignment = taRightJustify
|
||
|
|
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
|
||
|
|
Alignment = taRightJustify
|
||
|
|
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>
|
||
|
|
Params = <>
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
RemoteDataAdapter = rda_RecibosCliente
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'RecibosCliente'
|
||
|
|
Left = 168
|
||
|
|
Top = 80
|
||
|
|
end
|
||
|
|
object ds_RecibosCliente: TDADataSource
|
||
|
|
DataSet = tbl_RecibosCliente.Dataset
|
||
|
|
DataTable = tbl_RecibosCliente
|
||
|
|
Left = 168
|
||
|
|
Top = 24
|
||
|
|
end
|
||
|
|
object tbl_RecibosCompensadosCli: TDAMemDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
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
|
||
|
|
DisplayLabel = 'RecibosCliente_FECHA_EMISION'
|
||
|
|
DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA_VENCIMIENTO'
|
||
|
|
DataType = datDateTime
|
||
|
|
DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IMPORTE'
|
||
|
|
DataType = datCurrency
|
||
|
|
Alignment = taRightJustify
|
||
|
|
DictionaryEntry = 'RecibosCliente_IMPORTE'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'OTROS_GASTOS'
|
||
|
|
DataType = datCurrency
|
||
|
|
DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
|
||
|
|
Alignment = taRightJustify
|
||
|
|
DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IMPORTE_TOTAL'
|
||
|
|
DataType = datCurrency
|
||
|
|
Alignment = taRightJustify
|
||
|
|
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA_FACTURA'
|
||
|
|
DataType = datDateTime
|
||
|
|
DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IMPORTE_FACTURA'
|
||
|
|
DataType = datCurrency
|
||
|
|
Alignment = taRightJustify
|
||
|
|
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>
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'ID'
|
||
|
|
DataType = datInteger
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
RemoteDataAdapter = rda_RecibosCliente
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'RecibosCompensadosCli'
|
||
|
|
Left = 392
|
||
|
|
Top = 80
|
||
|
|
end
|
||
|
|
object ds_RecibosCompensadosCli: TDADataSource
|
||
|
|
DataSet = tbl_RecibosCompensadosCli.Dataset
|
||
|
|
DataTable = tbl_RecibosCompensadosCli
|
||
|
|
Left = 392
|
||
|
|
Top = 24
|
||
|
|
end
|
||
|
|
end
|