Noviseda_FactuGES2/Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm

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
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    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]
    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]
    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]
    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