Tecsitel_FactuGES2/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm

inherited DataModuleArticulos: TDataModuleArticulos
  OnCreate = DAClientDataModuleCreate
  Height = 468
  Width = 619
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvArticulos'
    Left = 48
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 84
  end
  object rda_Articulos: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 51
    Top = 151
  end
  object tbl_Articulos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_ARTICULOS_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'Articulos_ID_EMPRESA'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'Articulos_REFERENCIA'
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Descripci'#243'n'
        DictionaryEntry = 'Articulos_DESCRIPCION'
      end
      item
        Name = 'UNIDAD_MEDIDA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Unidad de medida'
        DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
      end
      item
        Name = 'FAMILIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Familia'
        DictionaryEntry = 'Articulos_FAMILIA'
      end
      item
        Name = 'IMAGEN'
        DataType = datBlob
        DisplayLabel = 'Foto'
        DictionaryEntry = 'Articulos_IMAGEN'
      end
      item
        Name = 'COMISIONABLE'
        DataType = datInteger
        DisplayLabel = 'Comisionable'
        DictionaryEntry = 'Articulos_COMISIONABLE'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'Articulos_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DictionaryEntry = 'Articulos_USUARIO'
      end
      item
        Name = 'REFERENCIA_PROV'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. proveedor'
        DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = datCurrency
        DisplayLabel = 'Importe'
        DictionaryEntry = 'Articulos_PRECIO_COSTE'
      end
      item
        Name = 'PRECIO_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Precio porte'
        DictionaryEntry = 'Articulos_PRECIO_PORTE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DictionaryEntry = 'Articulos_DESCUENTO'
      end
      item
        Name = 'PRECIO_NETO'
        DataType = datCurrency
        DecimalPrecision = 2
        DecimalScale = 2
        DisplayLabel = 'Precio neto'
        DictionaryEntry = 'Articulos_PRECIO_NETO'
      end
      item
        Name = 'INVENTARIABLE'
        DataType = datSmallInt
        DisplayLabel = 'Inventariable'
        DictionaryEntry = 'Articulos_INVENTARIABLE'
      end
      item
        Name = 'ELIMINADO'
        DataType = datSmallInt
        DisplayLabel = 'Eliminado'
        DictionaryEntry = 'Articulos_ELIMINADO'
      end
      item
        Name = 'FABRICANTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Fabricante'
        DictionaryEntry = 'Articulos_FABRICANTE'
      end
      item
        Name = 'REFERENCIA_FABR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. fabricante'
        DictionaryEntry = 'Articulos_REFERENCIA_FABR'
      end
      item
        Name = 'PARAM_MARGEN'
        DataType = datFloat
      end
      item
        Name = 'PRECIO_PVP_VENTA'
        DataType = datCurrency
        DisplayLabel = 'Precio PVP (Solo suministro)'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
      end
      item
        Name = 'TIEMPO'
        DataType = datInteger
      end
      item
        Name = 'PARAM_TIEMPO'
        DataType = datFloat
        DisplayLabel = 'Precio min'
        Alignment = taRightJustify
        DictionaryEntry = 'Articulos_PARAM_TIEMPO'
      end
      item
        Name = 'MANO_OBRA'
        DataType = datCurrency
        DisplayLabel = 'Mano de obra'
        Alignment = taRightJustify
        DictionaryEntry = 'Articulos_MANO_OBRA'
      end
      item
        Name = 'PRECIO_PVP_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Precio P.V.P (Total)'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Articulos
    LogicalName = 'Articulos'
    IndexDefs = <>
    Left = 232
    Top = 96
  end
  object ds_Articulos: TDADataSource
    DataSet = tbl_Articulos.Dataset
    DataTable = tbl_Articulos
    Left = 232
    Top = 32
  end
  object tbl_ProveedoresConArticulos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID_PROVEEDOR'
        DataType = datInteger
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
      end>
    Params = <
      item
        Name = 'ID_EMPRESA'
        Value = ''
        ParamType = daptInput
      end>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Articulos
    LogicalName = 'ProveedoresConArticulos'
    IndexDefs = <>
    Left = 232
    Top = 248
  end
  object ds_ProveedoresConArticulos: TDADataSource
    DataSet = tbl_ProveedoresConArticulos.Dataset
    DataTable = tbl_ProveedoresConArticulos
    Left = 232
    Top = 192
  end
  object tbl_Articulos_Proveedores: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID'
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA_PROV'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. proveedor'
        DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = datCurrency
        DisplayLabel = 'Importe'
        DictionaryEntry = 'Articulos_PRECIO_COSTE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DictionaryEntry = 'Articulos_DESCUENTO'
      end
      item
        Name = 'PRECIO_NETO'
        DataType = datCurrency
        DecimalPrecision = 2
        DecimalScale = 2
        DisplayLabel = 'Precio neto'
        DictionaryEntry = 'Articulos_PRECIO_NETO'
      end
      item
        Name = 'PRECIO_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Precio porte'
        DictionaryEntry = 'Articulos_PRECIO_PORTE'
      end
      item
        Name = 'PRECIO_PVP_VENTA'
        DataType = datCurrency
        DisplayLabel = 'Precio PVP (Solo suministro)'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
      end
      item
        Name = 'PRECIO_PVP_TOTAL'
        DataType = datCurrency
        ServerAutoRefresh = True
      end
      item
        Name = 'FECHA_ACTUALIZACION'
        DataType = datDateTime
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Articulos
    MasterSource = ds_Articulos
    MasterFields = 'ID'
    DetailFields = 'ID_ARTICULO'
    LogicalName = 'Articulos_Proveedores'
    IndexDefs = <>
    Left = 368
    Top = 88
  end
  object ds_Articulos_Proveedores: TDADataSource
    DataSet = tbl_Articulos_Proveedores.Dataset
    DataTable = tbl_Articulos_Proveedores
    Left = 368
    Top = 32
  end
  object tbl_ArticulosParaCompra: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_ARTICULOS_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'Articulos_ID_EMPRESA'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'Articulos_REFERENCIA'
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Descripci'#243'n'
        DictionaryEntry = 'Articulos_DESCRIPCION'
      end
      item
        Name = 'UNIDAD_MEDIDA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Unidad de medida'
        DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
      end
      item
        Name = 'FAMILIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Familia'
        DictionaryEntry = 'Articulos_FAMILIA'
      end
      item
        Name = 'IMAGEN'
        DataType = datBlob
        DisplayLabel = 'Foto'
        DictionaryEntry = 'Articulos_IMAGEN'
      end
      item
        Name = 'COMISIONABLE'
        DataType = datInteger
        DisplayLabel = 'Comisionable'
        DictionaryEntry = 'Articulos_COMISIONABLE'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'Articulos_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DictionaryEntry = 'Articulos_USUARIO'
      end
      item
        Name = 'REFERENCIA_PROV'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. proveedor'
        DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = datCurrency
        DisplayLabel = 'Importe'
        DictionaryEntry = 'Articulos_PRECIO_COSTE'
      end
      item
        Name = 'PRECIO_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Precio porte'
        DictionaryEntry = 'Articulos_PRECIO_PORTE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Descuento'
        DictionaryEntry = 'Articulos_DESCUENTO'
      end
      item
        Name = 'PRECIO_NETO'
        DataType = datCurrency
        DecimalPrecision = 2
        DecimalScale = 2
        DisplayLabel = 'Precio neto'
        DictionaryEntry = 'Articulos_PRECIO_NETO'
      end
      item
        Name = 'INVENTARIABLE'
        DataType = datSmallInt
        DisplayLabel = 'Inventariable'
        DictionaryEntry = 'Articulos_INVENTARIABLE'
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = datInteger
      end
      item
        Name = 'NOMBRE_PROVEEDOR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ELIMINADO'
        DataType = datSmallInt
        DisplayLabel = 'Eliminado'
        DictionaryEntry = 'Articulos_ELIMINADO'
      end
      item
        Name = 'FABRICANTE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Fabricante'
        DictionaryEntry = 'Articulos_FABRICANTE'
      end
      item
        Name = 'REFERENCIA_FABR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. fabricante'
        DictionaryEntry = 'Articulos_REFERENCIA_FABR'
      end
      item
        Name = 'PARAM_MARGEN'
        DataType = datFloat
      end
      item
        Name = 'PRECIO_PVP_VENTA'
        DataType = datCurrency
        DisplayLabel = 'Precio PVP (Solo suministro)'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
      end
      item
        Name = 'TIEMPO'
        DataType = datInteger
      end
      item
        Name = 'PARAM_TIEMPO'
        DataType = datFloat
        DisplayLabel = 'Precio min'
        Alignment = taRightJustify
        DictionaryEntry = 'Articulos_PARAM_TIEMPO'
      end
      item
        Name = 'MANO_OBRA'
        DataType = datCurrency
        DisplayLabel = 'Mano de obra'
        Alignment = taRightJustify
        DictionaryEntry = 'Articulos_MANO_OBRA'
      end
      item
        Name = 'PRECIO_PVP_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Precio P.V.P (Total)'
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Articulos
    LogicalName = 'ArticulosParaCompra'
    IndexDefs = <>
    Left = 416
    Top = 240
  end
  object ds_ArticulosParaCompra: TDADataSource
    DataSet = tbl_ArticulosParaCompra.Dataset
    DataTable = tbl_ArticulosParaCompra
    Left = 416
    Top = 192
  end
end