This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
Noviseda_FactuGES2/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm

734 lines
21 KiB
Plaintext

inherited DataModulePedidosCliente: TDataModulePedidosCliente
OnCreate = DAClientDataModuleCreate
Height = 550
Width = 772
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
ServiceName = 'srvPedidosCliente'
Left = 40
Top = 24
end
object tbl_PedidosCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
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'
ServerAutoRefresh = True
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 = 'ID_DIRECCION'
DataType = datInteger
DisplayLabel = 'PedidosCliente_ID_DIRECCION'
DictionaryEntry = 'PedidosCliente_ID_DIRECCION'
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 = 'DESCUENTO2'
DataType = datFloat
DictionaryEntry = 'PedidosCliente_DESCUENTO2'
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
DecimalPrecision = 11
DecimalScale = 2
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO2'
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 = 'FORMA_PAGO'
DataType = datString
Size = 255
DisplayLabel = 'PedidosCliente_FORMA_PAGO'
DictionaryEntry = 'PedidosCliente_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
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidosCliente'
IndexDefs = <>
Left = 208
Top = 104
end
object ds_PedidosCliente: TDADataSource
DataSet = tbl_PedidosCliente.Dataset
DataTable = tbl_PedidosCliente
Left = 208
Top = 48
end
object tbl_PedidosCliente_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
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 = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datFloat
DisplayLabel = 'PedidosCliente_Detalles_CANTIDAD'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
DisplayLabel = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
DictionaryEntry = 'PedidosCliente_Detalles_UNIDAD_MEDIDA'
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 = 'IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
end>
Params = <>
MasterMappingMode = mmWhere
MasterParamsMappings.Strings = (
'ID_PEDIDO=ID')
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
MasterSource = ds_PedidosCliente
MasterFields = 'ID'
DetailFields = 'ID_PEDIDO'
LogicalName = 'PedidosCliente_Detalles'
IndexDefs = <>
Left = 329
Top = 104
end
object ds_PedidosCliente_Detalles: TDADataSource
DataSet = tbl_PedidosCliente_Detalles.Dataset
DataTable = tbl_PedidosCliente_Detalles
Left = 329
Top = 48
end
object tbl_PedidoCliente_Articulos_Pendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_ID_ARTICULO'
InPrimaryKey = True
end
item
Name = 'CANTIDAD_PED'
DataType = datFloat
DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end
item
Name = 'CANTIDAD_ALB'
DataType = datFloat
DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end
item
Name = 'CANTIDAD_PENDIENTE'
DataType = datFloat
DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
end>
Params = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidoCliente_Articulos_Pendientes'
IndexDefs = <>
Left = 208
Top = 192
end
object ds_PedidoCliente_Articulos_Pendientes: TDADataSource
DataSet = tbl_PedidoCliente_Articulos_Pendientes.Dataset
DataTable = tbl_PedidoCliente_Articulos_Pendientes
Left = 208
Top = 256
end
object tbl_ListaAnosPedidos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'ListaAnosPedidos'
IndexDefs = <>
Left = 632
Top = 264
end
object ds_ListaAnosPedidos: TDADataSource
DataSet = tbl_ListaAnosPedidos.Dataset
DataTable = tbl_ListaAnosPedidos
Left = 624
Top = 200
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 76
end
object rda_PedidosCliente: TDARemoteDataAdapter
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43
Top = 143
end
object tbl_PedidosCliente_Detalle_Color: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DET_COLOR_ID'
Required = True
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID'
InPrimaryKey = True
end
item
Name = 'ID_DETALLE'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_ID_DETALLE'
DictionaryEntry = 'PedidosCliente_Detalle_Color_ID_DETALLE'
end
item
Name = 'COLOR1'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR1'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR1'
end
item
Name = 'COLOR2'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR2'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR2'
end
item
Name = 'COLOR3'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR3'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR3'
end
item
Name = 'COLOR4'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR4'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR4'
end
item
Name = 'COLOR5'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR5'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR5'
end
item
Name = 'COLOR6'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR6'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR6'
end
item
Name = 'COLOR7'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR7'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR7'
end
item
Name = 'COLOR8'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR8'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR8'
end
item
Name = 'COLOR9'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR9'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR9'
end
item
Name = 'COLOR10'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR10'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR10'
end
item
Name = 'COLOR11'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR11'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR11'
end
item
Name = 'COLOR12'
DataType = datInteger
DisplayLabel = 'PedidosCliente_Detalle_Color_COLOR12'
DictionaryEntry = 'PedidosCliente_Detalle_Color_COLOR12'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_PedidosCliente
MasterSource = ds_PedidosCliente_Detalles
MasterFields = 'ID'
DetailFields = 'ID_DETALLE'
LogicalName = 'PedidosCliente_Detalle_Color'
IndexDefs = <>
Left = 472
Top = 104
end
object ds_PedidosCliente_Detalle_Color: TDADataSource
DataSet = tbl_PedidosCliente_Detalle_Color.Dataset
DataTable = tbl_PedidosCliente_Detalle_Color
Left = 472
Top = 48
end
object tbl_PedidoCliente_Art_Colores_Pendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end>
Params = <>
MasterMappingMode = mmDataRequest
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'PedidoCliente_Art_Colores_Pendientes'
IndexDefs = <>
Left = 208
Top = 320
end
object ds_PedidoCliente_Art_Colores_Pendientes: TDADataSource
DataSet = tbl_PedidoCliente_Art_Colores_Pendientes.Dataset
DataTable = tbl_PedidoCliente_Art_Colores_Pendientes
Left = 208
Top = 384
end
object tbl_ArticulosPendientes: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
InPrimaryKey = True
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'COLOR1'
DataType = datLargeInt
end
item
Name = 'COLOR2'
DataType = datLargeInt
end
item
Name = 'COLOR3'
DataType = datLargeInt
end
item
Name = 'COLOR4'
DataType = datLargeInt
end
item
Name = 'COLOR5'
DataType = datLargeInt
end
item
Name = 'COLOR6'
DataType = datLargeInt
end
item
Name = 'COLOR7'
DataType = datLargeInt
end
item
Name = 'COLOR8'
DataType = datLargeInt
end
item
Name = 'COLOR9'
DataType = datLargeInt
end
item
Name = 'COLOR10'
DataType = datLargeInt
end
item
Name = 'COLOR11'
DataType = datLargeInt
end
item
Name = 'COLOR12'
DataType = datLargeInt
end
item
Name = 'TOTAL'
DataType = datLargeInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering]
RemoteDataAdapter = rda_PedidosCliente
LogicalName = 'ArticulosPendientes'
IndexDefs = <>
Left = 416
Top = 256
end
object ds_ArticulosPendientes: TDADataSource
DataSet = tbl_ArticulosPendientes.Dataset
DataTable = tbl_ArticulosPendientes
Left = 416
Top = 192
end
end