Tecsitel_FactuGES2/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm

310 lines
9.5 KiB
Plaintext
Raw Normal View History

inherited DataModuleComisiones: TDataModuleComisiones
OnCreate = DAClientDataModuleCreate
Height = 414
Width = 518
object RORemoteService: TRORemoteService
ServiceName = 'srvComisiones'
Left = 48
Top = 24
end
object tbl_Comisiones: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'Comisiones_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Comisiones_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Comisiones_REFERENCIA'
DictionaryEntry = 'Comisiones_REFERENCIA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_DESCRIPCION'
end
item
Name = 'FECHA'
DataType = datDateTime
DictionaryEntry = 'Comisiones_FECHA'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Comisiones_USUARIO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Comisiones'
IndexDefs = <>
Left = 216
Top = 144
end
object ds_Comisiones: TDADataSource
DataSet = tbl_Comisiones.Dataset
DataTable = tbl_Comisiones
Left = 216
Top = 80
end
object tbl_Facturas_Comision: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
end
item
Name = 'AGENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'Facturas_Comision_ID_FACTURA'
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA'
end
item
Name = 'FECHA'
DataType = datDateTime
DictionaryEntry = 'Comisiones_Detalles_FECHA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
end
item
Name = 'CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Facturas_Comision_CLIENTE'
DictionaryEntry = 'Facturas_Comision_CLIENTE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
end
item
Name = 'PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
end
item
Name = 'COMISION'
DataType = datFloat
DictionaryEntry = 'Comisiones_Detalles_COMISION'
end
item
Name = 'IMPORTE_COMISIONABLE'
DataType = datCurrency
DisplayLabel = 'Facturas_Comision_IMPORTE_COMISIONABLE'
Alignment = taRightJustify
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
DisplayLabel = 'Facturas_Comision_IMPORTE_COMISION'
Alignment = taRightJustify
DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION'
end>
Params = <
item
Name = 'ID_COMISION'
Value = 18
ParamType = daptInput
end>
MasterParamsMappings.Strings = (
'ID_COMISION=ID')
StreamingOptions = [soDisableEventsWhileStreaming]
MasterSource = ds_Comisiones
MasterFields = 'ID'
DetailFields = 'ID_COMISION_LIQUIDADA'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Facturas_Comision'
IndexDefs = <>
Left = 368
Top = 144
end
object ds_Facturas_Comision: TDADataSource
DataSet = tbl_Facturas_Comision.Dataset
DataTable = tbl_Facturas_Comision
Left = 368
Top = 80
end
object tbl_V_Detalles_Facturas_Comision: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA'
end
item
Name = 'ID_AGENTE'
DataType = datInteger
DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE'
end
item
Name = 'AGENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_Detalles_AGENTE'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'ID_COMISION_LIQUIDADA'
DataType = datInteger
DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA'
end
item
Name = 'FECHA'
DataType = datDateTime
DictionaryEntry = 'Comisiones_Detalles_FECHA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_Detalles_REFERENCIA'
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
DictionaryEntry = 'Comisiones_Detalles_SITUACION'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'Facturas_Comision_ID_CLIENTE'
DictionaryEntry = 'Facturas_Comision_ID_CLIENTE'
end
item
Name = 'CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Facturas_Comision_CLIENTE'
DictionaryEntry = 'Facturas_Comision_CLIENTE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR'
end
item
Name = 'PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR'
end
item
Name = 'COMISION'
DataType = datFloat
DictionaryEntry = 'Comisiones_Detalles_COMISION'
end
item
Name = 'IMPORTE_COMISIONABLE'
DataType = datCurrency
DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
Alignment = taRightJustify
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE'
end
item
Name = 'IMPORTE_COMISION'
DataType = datCurrency
DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
Alignment = taRightJustify
DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION'
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'V_Detalles_Facturas_Comision'
IndexDefs = <>
Left = 312
Top = 312
end
object ds_V_Detalles_Facturas_Comision: TDADataSource
DataSet = tbl_V_Detalles_Facturas_Comision.Dataset
DataTable = tbl_V_Detalles_Facturas_Comision
Left = 312
Top = 256
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 84
end
object rda_Comisiones: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 143
end
end