Tecsitel_FactuGES2/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

472 lines
15 KiB
Plaintext
Raw Normal View History

inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
OnCreate = DAClientDataModuleCreate
Height = 403
Width = 768
object RORemoteService: TRORemoteService
ServiceName = 'srvPedidosCliente'
Left = 40
Top = 56
end
object tbl_PresupuestosCliente: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
DictionaryEntry = 'PedidosCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_EMPRESA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre del cliente'
DictionaryEntry = 'PedidosCliente_NOMBRE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'PedidosCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE'
DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
DictionaryEntry = 'PedidosCliente_SITUACION'
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
DisplayLabel = 'Fecha pedido'
DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
DictionaryEntry = 'PedidosCliente_CALLE'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
DictionaryEntry = 'PedidosCliente_CODIGO_POSTAL'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
DictionaryEntry = 'PedidosCliente_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DictionaryEntry = 'PedidosCliente_PROVINCIA'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
DictionaryEntry = 'PedidosCliente_PERSONA_CONTACTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
DictionaryEntry = 'PedidosCliente_TELEFONO'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DisplayLabel = 'Observaciones'
DictionaryEntry = 'PedidosCliente_OBSERVACIONES'
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
DictionaryEntry = 'PedidosCliente_INCIDENCIAS'
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'PedidosCliente_USUARIO'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
DisplayLabel = 'Importe neto'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE'
end
item
Name = 'IVA'
DataType = datFloat
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_IVA'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
end
item
Name = 'REF_TIENDA_WEB'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB'
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
DisplayLabel = 'Fecha de entrega prevista'
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosCliente'
IndexDefs = <>
Left = 208
Top = 104
end
object ds_PedidosCliente: TDADataSource
DataSet = tbl_PresupuestosCliente.Dataset
DataTable = tbl_PresupuestosCliente
Left = 208
Top = 48
end
object tbl_PresupuestosCliente_Detalles: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
Required = True
DictionaryEntry = 'PedidosCliente_Detalles_ID'
InPrimaryKey = True
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_ID_PEDIDO'
end
item
Name = 'POSICION'
DataType = datInteger
DictionaryEntry = 'POSICIONCONCEPTO'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe porte'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
end>
Params = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmWhere
MasterParamsMappings.Strings = (
'ID_PEDIDO=ID')
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
MasterSource = ds_PedidosCliente
MasterFields = 'ID'
DetailFields = 'ID_PEDIDO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosCliente_Detalles'
IndexDefs = <>
Left = 329
Top = 104
end
object ds_PedidosCliente_Detalles: TDADataSource
DataSet = tbl_PresupuestosCliente_Detalles.Dataset
DataTable = tbl_PresupuestosCliente_Detalles
Left = 329
Top = 48
end
object tbl_PresupuestoCliente_Articulos_Pendientes: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_ID_ARTICULO'
InPrimaryKey = True
end
item
Name = 'CANTIDAD_PED'
DataType = datInteger
DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end
item
Name = 'CANTIDAD_ALB'
DataType = datInteger
DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end
item
Name = 'CANTIDAD_PENDIENTE'
DataType = datLargeInt
DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
end>
Params = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = '11'
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidoCliente_Articulos_Pendientes'
IndexDefs = <>
Left = 208
Top = 192
end
object ds_PresupuestoCliente_Articulos_Pendientes: TDADataSource
DataSet = tbl_PresupuestoCliente_Articulos_Pendientes.Dataset
DataTable = tbl_PresupuestoCliente_Articulos_Pendientes
Left = 208
Top = 256
end
object tbl_PresupuestoCliente_ArticulosPendientesPedirAProv: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datAutoInc
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
end
item
Name = 'CANT_PEDIDA_CLIENTE'
DataType = datInteger
DisplayLabel = 'Cant. pedida por cliente'
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR'
end
item
Name = 'CANT_PEDIDA_PROVEEDOR'
DataType = datInteger
DisplayLabel = 'Cant. pedida a proveedor'
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
end
item
Name = 'CANT_PENDIENTE_PEDIR'
DataType = datInteger
DisplayLabel = 'Cant. pendiente pedir'
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
end>
Params = <
item
Name = 'ID_PEDIDO'
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PresupuestosCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidoCliente_ArticulosPendientesPedirAProv'
IndexDefs = <>
Left = 440
Top = 192
end
object ds_PresupuestoCliente_ArticulosPendientesPedirAProv: TDADataSource
DataSet = tbl_PresupuestoCliente_ArticulosPendientesPedirAProv.Dataset
DataTable = tbl_PresupuestoCliente_ArticulosPendientesPedirAProv
Left = 440
Top = 256
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 108
end
object rda_PresupuestosCliente: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43
Top = 175
end
end