roberto
a41e8d7d4a
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@123 93f398dd-4eb6-7a46-baf6-13f46f578da2
664 lines
17 KiB
Plaintext
664 lines
17 KiB
Plaintext
inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
|
|
OnCreate = DAClientDataModuleCreate
|
|
Height = 346
|
|
Width = 525
|
|
object RORemoteService: TRORemoteService
|
|
Message = dmConexion.ROMessage
|
|
Channel = dmConexion.ROChannel
|
|
ServiceName = 'srvRecibosCliente'
|
|
Left = 56
|
|
Top = 24
|
|
end
|
|
object rda_RecibosCliente: TDARemoteDataAdapter
|
|
DataStreamer = Bin2DataStreamer
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
GetDataCall.RemoteService = RORemoteService
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
RemoteService = RORemoteService
|
|
Left = 59
|
|
Top = 151
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 56
|
|
Top = 84
|
|
end
|
|
object tbl_PagosCliente: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
|
|
Required = True
|
|
ServerAutoRefresh = True
|
|
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
|
|
item
|
|
Name = 'IGNORAR_CONTABILIDAD'
|
|
DataType = datSmallInt
|
|
end
|
|
item
|
|
Name = 'ID_SUBCUENTA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'SUBCUENTA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'ID_EJERCICIO'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'ESTADO_EJERCICIO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'ASIENTO_PUNTEADO'
|
|
DataType = datSmallInt
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmWhere
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_RecibosCliente
|
|
MasterSource = ds_RecibosCliente
|
|
MasterFields = 'ID'
|
|
DetailFields = 'ID_RECIBO'
|
|
LogicalName = 'PagosCliente'
|
|
IndexDefs = <>
|
|
Left = 288
|
|
Top = 88
|
|
end
|
|
object ds_PagosCliente: TDADataSource
|
|
DataSet = tbl_PagosCliente.Dataset
|
|
DataTable = tbl_PagosCliente
|
|
Left = 288
|
|
Top = 32
|
|
end
|
|
object tbl_RecibosCliente: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
|
|
Required = True
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'RecibosCliente_ID'
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'ID_RECIBO_COMPENSADO'
|
|
DataType = datInteger
|
|
DisplayLabel = 'RecibosCliente_ID_RECIBO_COMPENSADO'
|
|
DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_REC_COMPENSADO'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
|
|
DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
|
|
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 = 'REFERENCIA_FACTURA'
|
|
DataType = datString
|
|
Size = 255
|
|
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_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
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_COMPENSADO'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_SIN_COMPENSAR'
|
|
DataType = datCurrency
|
|
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 = 'REFERENCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NOMBRE_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'RecibosCliente_NOMBRE_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 = 'NIF_CIF'
|
|
DataType = datString
|
|
Size = 15
|
|
DisplayLabel = 'RecibosCliente_NIF_CIF'
|
|
DictionaryEntry = 'RecibosCliente_NIF_CIF'
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'RecibosCliente_NOMBRE'
|
|
DictionaryEntry = 'RecibosCliente_NOMBRE'
|
|
end
|
|
item
|
|
Name = 'CALLE'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'RecibosCliente_CALLE'
|
|
DictionaryEntry = 'RecibosCliente_CALLE'
|
|
end
|
|
item
|
|
Name = 'POBLACION'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'RecibosCliente_POBLACION'
|
|
DictionaryEntry = 'RecibosCliente_POBLACION'
|
|
end
|
|
item
|
|
Name = 'CODIGO_POSTAL'
|
|
DataType = datString
|
|
Size = 10
|
|
DisplayLabel = 'RecibosCliente_CODIGO_POSTAL'
|
|
DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
|
|
end
|
|
item
|
|
Name = 'PROVINCIA'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'RecibosCliente_PROVINCIA'
|
|
DictionaryEntry = 'RecibosCliente_PROVINCIA'
|
|
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
|
|
item
|
|
Name = 'ID_TIENDA'
|
|
DataType = datInteger
|
|
DisplayLabel = 'RecibosCliente_ID_TIENDA'
|
|
DictionaryEntry = 'RecibosCliente_ID_TIENDA'
|
|
end
|
|
item
|
|
Name = 'TIENDA'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'RecibosCliente_TIENDA'
|
|
DictionaryEntry = 'RecibosCliente_TIENDA'
|
|
end
|
|
item
|
|
Name = 'CUENTA_CONTABLE'
|
|
DataType = datString
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_CONTRATO'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'REF_CLIENTE_CONTRATO'
|
|
DataType = datString
|
|
Size = 255
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_RecibosCliente
|
|
LogicalName = 'RecibosCliente'
|
|
IndexDefs = <>
|
|
Left = 168
|
|
Top = 88
|
|
end
|
|
object ds_RecibosCliente: TDADataSource
|
|
DataSet = tbl_RecibosCliente.Dataset
|
|
DataTable = tbl_RecibosCliente
|
|
Left = 168
|
|
Top = 32
|
|
end
|
|
object tbl_RecibosCompensadosCli: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
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 = 'REFERENCIA_FACTURA'
|
|
DataType = datString
|
|
Size = 255
|
|
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_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
|
|
Alignment = taRightJustify
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
|
|
end
|
|
item
|
|
Name = 'IMPORTE_COMPENSADO'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'IMPORTE_SIN_COMPENSAR'
|
|
DataType = datCurrency
|
|
end
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'ID_CLIENTE'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'REFERENCIA_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'NOMBRE_CLIENTE'
|
|
DataType = datString
|
|
Size = 255
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
|
|
end
|
|
item
|
|
Name = 'ENTIDAD_CLIENTE'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'SUCURSAL_CLIENTE'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'DC_CLIENTE'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'CUENTA_CLIENTE'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NIF_CIF'
|
|
DataType = datString
|
|
Size = 15
|
|
end
|
|
item
|
|
Name = 'NOMBRE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CALLE'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'POBLACION'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CODIGO_POSTAL'
|
|
DataType = datString
|
|
Size = 10
|
|
end
|
|
item
|
|
Name = 'PROVINCIA'
|
|
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
|
|
item
|
|
Name = 'ID_TIENDA'
|
|
DataType = datInteger
|
|
end
|
|
item
|
|
Name = 'TIENDA'
|
|
DataType = datString
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'CUENTA_CONTABLE'
|
|
DataType = datString
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmWhere
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_RecibosCliente
|
|
MasterSource = ds_RecibosCliente
|
|
MasterFields = 'ID'
|
|
DetailFields = 'ID_RECIBO_COMPENSADO'
|
|
LogicalName = 'RecibosCompensadosCli'
|
|
IndexDefs = <>
|
|
Left = 416
|
|
Top = 88
|
|
end
|
|
object ds_RecibosCompensadosCli: TDADataSource
|
|
DataSet = tbl_RecibosCompensadosCli.Dataset
|
|
DataTable = tbl_RecibosCompensadosCli
|
|
Left = 416
|
|
Top = 32
|
|
end
|
|
object tbl_ListaAnosRecibos: TDAMemDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ANO'
|
|
DataType = datString
|
|
Size = 255
|
|
end>
|
|
Params = <>
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = rda_RecibosCliente
|
|
LogicalName = 'ListaAnosRecibos'
|
|
IndexDefs = <>
|
|
Left = 176
|
|
Top = 216
|
|
end
|
|
object ds_ListaAnosRecibos: TDADataSource
|
|
DataSet = tbl_ListaAnosRecibos.Dataset
|
|
DataTable = tbl_ListaAnosRecibos
|
|
Left = 176
|
|
Top = 160
|
|
end
|
|
end
|