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

inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
  OnCreate = DAClientDataModuleCreate
  Height = 370
  Width = 603
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvPresupuestosCliente'
    Left = 56
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 56
    Top = 84
  end
  object rda_PresupuestosCliente: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 59
    Top = 151
  end
  object tbl_PresupuestosCliente: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'PresupuestosCliente_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'PresupuestosCliente_ID_EMPRESA'
      end
      item
        Name = 'FECHA_PRESUPUESTO'
        DataType = datDateTime
        DisplayLabel = 'PresupuestosCliente_FECHA_PRESUPUESTO'
        DictionaryEntry = 'PresupuestosCliente_FECHA_PRESUPUESTO'
      end
      item
        Name = 'FECHA_VIGENCIA'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_DECISION'
        DataType = datDateTime
        DisplayLabel = 'PresupuestosCliente_FECHA_DECISION'
        DictionaryEntry = 'PresupuestosCliente_FECHA_DECISION'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'PresupuestosCliente_REFERENCIA'
      end
      item
        Name = 'REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Situaci'#243'n'
        DictionaryEntry = 'PresupuestosCliente_SITUACION'
      end
      item
        Name = 'ID_CLIENTE'
        DataType = datInteger
        DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE'
      end
      item
        Name = 'ID_DIRECCION'
        DataType = datInteger
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'PresupuestosCliente_NIF_CIF'
        ServerAutoRefresh = True
        DictionaryEntry = 'PresupuestosCliente_NIF_CIF'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'PresupuestosCliente_NOMBRE'
        ServerAutoRefresh = True
        DictionaryEntry = 'PresupuestosCliente_NOMBRE'
      end
      item
        Name = 'NOMBRE_COMERCIAL_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PERSONA_CONTACTO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FORMA_PAGO'
        DataType = datMemo
      end
      item
        Name = 'PLAZO_ENTREGA'
        DataType = datMemo
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
        DictionaryEntry = 'PresupuestosCliente_OBSERVACIONES'
      end
      item
        Name = 'INCIDENCIAS'
        DataType = datMemo
        DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS'
      end
      item
        Name = 'INCIDENCIAS_ACTIVAS'
        DataType = datInteger
        DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS_ACTIVAS'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'PresupuestosCliente_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'PresupuestosCliente_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DictionaryEntry = 'PresupuestosCliente_USUARIO'
      end
      item
        Name = 'IMPORTE_NETO'
        DataType = datCurrency
        DisplayLabel = 'Importe neto'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_IMPORTE_NETO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Importe del porte'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_IMPORTE_PORTE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_DESCUENTO'
      end
      item
        Name = 'IMPORTE_DESCUENTO'
        DataType = datCurrency
        DisplayLabel = 'Importe dto.'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_IMPORTE_DESCUENTO'
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_BASE_IMPONIBLE'
      end
      item
        Name = 'ID_TIPO_IVA'
        DataType = datInteger
      end
      item
        Name = 'IVA'
        DataType = datFloat
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_IVA'
      end
      item
        Name = 'IMPORTE_IVA'
        DataType = datCurrency
        DisplayLabel = 'Importe IVA'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_IMPORTE_IVA'
      end
      item
        Name = 'RE'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_RE'
        DataType = datCurrency
      end
      item
        Name = 'RECARGO_EQUIVALENCIA'
        DataType = datSmallInt
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        DictionaryEntry = 'PresupuestosCliente_IMPORTE_TOTAL'
      end
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
        DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO'
      end
      item
        Name = 'ID_TIENDA'
        DataType = datInteger
      end
      item
        Name = 'TIENDA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ID_VENDEDOR'
        DataType = datInteger
      end
      item
        Name = 'VENDEDOR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ID_CONTRATO'
        DataType = datInteger
      end
      item
        Name = 'REF_CONTRATO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'NO_VALORADO'
        DataType = datSmallInt
      end
      item
        Name = 'TIPO_PRESUPUESTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Tipo'
        DictionaryEntry = 'PresupuestosCliente_TIPO_PRESUPUESTO'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_PresupuestosCliente
    LogicalName = 'PresupuestosCliente'
    IndexDefs = <>
    Left = 248
    Top = 88
  end
  object ds_PresupuestosCliente: TDADataSource
    DataSet = tbl_PresupuestosCliente.Dataset
    DataTable = tbl_PresupuestosCliente
    Left = 248
    Top = 32
  end
  object tbl_PresupuestosCliente_Detalles: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = datInteger
      end
      item
        Name = 'POSICION'
        DataType = datInteger
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 10
      end
      item
        Name = 'PROPIEDAD'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
      end
      item
        Name = 'CANTIDAD'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
      end
      item
        Name = 'VISIBLE'
        DataType = datSmallInt
      end
      item
        Name = 'VALORADO'
        DataType = datSmallInt
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
      end
      item
        Name = 'TIPO_ARTICULO'
        DataType = datString
        Size = 2
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_PresupuestosCliente
    MasterSource = ds_PresupuestosCliente
    MasterFields = 'ID'
    DetailFields = 'ID_PRESUPUESTO'
    LogicalName = 'PresupuestosCliente_Detalles'
    IndexDefs = <>
    Left = 464
    Top = 88
  end
  object ds_PresupuestosCliente_Detalles: TDADataSource
    DataSet = tbl_PresupuestosCliente_Detalles.Dataset
    DataTable = tbl_PresupuestosCliente_Detalles
    Left = 464
    Top = 32
  end
  object RORemoteService1: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvGestorDocumentos'
    Left = 56
    Top = 216
  end
  object tbl_ListaAnosPresupuestos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ANO'
        DataType = datString
        Size = 254
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_PresupuestosCliente
    LogicalName = 'ListaAnosPresupuestos'
    IndexDefs = <>
    Left = 248
    Top = 192
  end
  object ds_ListaAnosPresupuestos: TDADataSource
    DataSet = tbl_ListaAnosPresupuestos.Dataset
    DataTable = tbl_ListaAnosPresupuestos
    Left = 248
    Top = 144
  end
  object tbl_CapitulosPresupuesto: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PRESUPUESTOS_CLIENTE_CAPITU'
        Required = True
        DictionaryEntry = 'CapitulosPresupuesto_ID'
        InPrimaryKey = True
      end
      item
        Name = 'POSICION'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_POSICION'
        DictionaryEntry = 'CapitulosPresupuesto_POSICION'
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 10
        DisplayLabel = 'CapitulosPresupuesto_TIPO_DETALLE'
        DictionaryEntry = 'CapitulosPresupuesto_TIPO_DETALLE'
      end
      item
        Name = 'TIPO_ARTICULO'
        DataType = datString
        Size = 2
        DisplayLabel = 'CapitulosPresupuesto_TIPO_ARTICULO'
        DictionaryEntry = 'CapitulosPresupuesto_TIPO_ARTICULO'
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'CapitulosPresupuesto_CONCEPTO'
        DictionaryEntry = 'CapitulosPresupuesto_CONCEPTO'
      end
      item
        Name = 'CANTIDAD'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_CANTIDAD'
        DictionaryEntry = 'CapitulosPresupuesto_CANTIDAD'
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
        DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_UNIDAD'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_IMPORTE_TOTAL'
        DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_TOTAL'
      end
      item
        Name = 'DESCUENTO'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_DESCUENTO'
        DictionaryEntry = 'CapitulosPresupuesto_DESCUENTO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_IMPORTE_PORTE'
        DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
      end
      item
        Name = 'VISIBLE'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_VISIBLE'
        DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
      end
      item
        Name = 'VALORADO'
        DataType = datInteger
        DisplayLabel = 'CapitulosPresupuesto_VALORADO'
        DictionaryEntry = 'CapitulosPresupuesto_VALORADO'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_PresupuestosCliente
    LogicalName = 'CapitulosPresupuesto'
    IndexDefs = <>
    Left = 344
    Top = 304
  end
  object ds_CapitulosPresupuesto: TDADataSource
    DataSet = tbl_CapitulosPresupuesto.Dataset
    DataTable = tbl_CapitulosPresupuesto
    Left = 344
    Top = 256
  end
  object tbl_Propiedades: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_PresupuestosCliente
    LogicalName = 'Propiedades'
    IndexDefs = <>
    Left = 456
    Top = 208
  end
  object ds_Propiedades: TDADataSource
    DataSet = tbl_Propiedades.Dataset
    DataTable = tbl_Propiedades
    Left = 456
    Top = 160
  end
  object tbl_Valores: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FAMILIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'PRECIO_PVP'
        DataType = datCurrency
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_PresupuestosCliente
    MasterSource = ds_Propiedades
    MasterFields = 'DESCRIPCION'
    DetailFields = 'FAMILIA'
    LogicalName = 'Valores'
    IndexDefs = <>
    Left = 536
    Top = 208
  end
  object ds_Valores: TDADataSource
    DataSet = tbl_Valores.Dataset
    DataTable = tbl_Valores
    Left = 536
    Top = 160
  end
end