AlonsoYSal_FactuGES2/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
  OnCreate = DAClientDataModuleCreate
  Height = 372
  Width = 518
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvFacturasProveedor'
    Left = 48
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 84
  end
  object rda_FacturasProveedor: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 51
    Top = 151
  end
  object tbl_FacturasProveedor: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_FACTURAS_PROVEEDOR_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'FacturasProveedor_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'FacturasProveedor_ID_EMPRESA'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 20
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'FacturasProveedor_REFERENCIA'
      end
      item
        Name = 'TIPO'
        DataType = datString
        Size = 1
        DisplayLabel = 'Tipo'
        DictionaryEntry = 'FacturasProveedor_TIPO'
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
        DictionaryEntry = 'FacturasProveedor_REFERENCIA_PROVEEDOR'
      end
      item
        Name = 'FECHA_FACTURA'
        DataType = datDateTime
        DisplayLabel = 'Fecha de las factura'
        DictionaryEntry = 'FacturasProveedor_FECHA_FACTURA'
      end
      item
        Name = 'FECHA_VENCIMIENTO'
        DataType = datDateTime
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Situaci'#243'n'
        DictionaryEntry = 'FacturasProveedor_SITUACION'
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_BASE_IMPONIBLE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Dto.'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_DESCUENTO'
      end
      item
        Name = 'IMPORTE_DESCUENTO'
        DataType = datCurrency
        DisplayLabel = 'Importe dto.'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IMPORTE_DESCUENTO'
      end
      item
        Name = 'IVA'
        DataType = datFloat
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IVA'
      end
      item
        Name = 'IMPORTE_IVA'
        DataType = datCurrency
        DisplayLabel = 'Importe IVA'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
      end
      item
        Name = 'RE'
        DataType = datFloat
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_RE'
      end
      item
        Name = 'IMPORTE_RE'
        DataType = datCurrency
        DisplayLabel = 'Importe RE'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IMPORTE_RE'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IMPORTE_TOTAL'
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
        DictionaryEntry = 'FacturasProveedor_OBSERVACIONES'
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = datInteger
        DisplayLabel = 'FacturasProveedor_ID_PROVEEDOR'
        DictionaryEntry = 'FacturasProveedor_ID_PROVEEDOR'
      end
      item
        Name = 'NOMBRE_PROVEEDOR'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      end
      item
        Name = 'NOMBRE_COMERCIAL_PROVEEDOR'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF/CIF'
        DictionaryEntry = 'FacturasProveedor_NIF_CIF'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 100
        DisplayLabel = 'Cliente'
        ServerAutoRefresh = True
        DictionaryEntry = 'FacturasProveedor_NOMBRE'
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 150
        DisplayLabel = 'Direcci'#243'n'
        DictionaryEntry = 'FacturasProveedor_CALLE'
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 150
        DisplayLabel = 'Poblaci'#243'n'
        DictionaryEntry = 'FacturasProveedor_POBLACION'
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 30
        DisplayLabel = 'Provincia'
        DictionaryEntry = 'FacturasProveedor_PROVINCIA'
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'd. postal'
        DictionaryEntry = 'FacturasProveedor_CODIGO_POSTAL'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'FacturasProveedor_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'FacturasProveedor_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 100
        DictionaryEntry = 'FacturasProveedor_USUARIO'
      end
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
        DisplayLabel = 'FacturasProveedor_ID_FORMA_PAGO'
        DictionaryEntry = 'FacturasProveedor_ID_FORMA_PAGO'
      end
      item
        Name = 'RECARGO_EQUIVALENCIA'
        DataType = datSmallInt
        DisplayLabel = #191'Con R.E.?'
        DictionaryEntry = 'FacturasProveedor_RECARGO_EQUIVALENCIA'
      end
      item
        Name = 'ID_TIPO_IVA'
        DataType = datInteger
        DictionaryEntry = 'FacturasProveedor_ID_TIPO_IVA'
      end
      item
        Name = 'IMPORTE_NETO'
        DataType = datCurrency
        DisplayLabel = 'Importe neto'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IMPORTE_NETO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Importe del porte'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_IMPORTE_PORTE'
      end
      item
        Name = 'IGNORAR_CONTABILIDAD'
        DataType = datSmallInt
      end
      item
        Name = 'ID_TIENDA'
        DataType = datInteger
      end
      item
        Name = 'TIENDA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ID_SUBCUENTA'
        DataType = datInteger
      end
      item
        Name = 'SUBCUENTA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ID_EJERCICIO'
        DataType = datInteger
      end
      item
        Name = 'ESTADO_EJERCICIO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'ASIENTO_PUNTEADO'
        DataType = datSmallInt
      end
      item
        Name = 'RETENCION'
        DataType = datFloat
      end
      item
        Name = 'IMPORTE_RETENCION'
        DataType = datCurrency
      end
      item
        Name = 'FORMA_PAGO'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasProveedor
    LogicalName = 'FacturasProveedor'
    IndexDefs = <>
    Left = 208
    Top = 32
  end
  object ds_FacturasProveedor: TDADataSource
    DataSet = tbl_FacturasProveedor.Dataset
    DataTable = tbl_FacturasProveedor
    Left = 208
    Top = 104
  end
  object tbl_FacturasProveedor_Detalles: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_FACTURA_PROV_DETALLES_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'FacturasProveedor_Detalles_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_FACTURA'
        DataType = datInteger
        DictionaryEntry = 'FacturasProveedor_Detalles_ID_FACTURA'
      end
      item
        Name = 'POSICION'
        DataType = datInteger
        DisplayLabel = 'Posici'#243'n'
        DictionaryEntry = 'FacturasProveedor_Detalles_POSICION'
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 10
        DisplayLabel = 'Tipo detalle'
        DictionaryEntry = 'FacturasProveedor_Detalles_TIPO_DETALLE'
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'Concepto'
        DictionaryEntry = 'FacturasProveedor_Detalles_CONCEPTO'
      end
      item
        Name = 'CANTIDAD'
        DataType = datFloat
        DisplayLabel = 'Cantidad'
        DictionaryEntry = 'FacturasProveedor_Detalles_CANTIDAD'
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datCurrency
        DisplayLabel = 'Importe unidad'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_UNIDAD'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_TOTAL'
      end
      item
        Name = 'VISIBLE'
        DataType = datSmallInt
        DisplayLabel = #191'Visible?'
        DictionaryEntry = 'FacturasProveedor_Detalles_VISIBLE'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
        DictionaryEntry = 'FacturasProveedor_Detalles_ID_ARTICULO'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DictionaryEntry = 'FacturasProveedor_Detalles_DESCUENTO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
        DictionaryEntry = 'FacturasProveedor_Detalles_IMPORTE_PORTE'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA'
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
        DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasProveedor
    MasterSource = ds_FacturasProveedor
    MasterFields = 'ID'
    DetailFields = 'ID_FACTURA'
    LogicalName = 'FacturasProveedor_Detalles'
    IndexDefs = <>
    Left = 368
    Top = 32
  end
  object ds_FacturasProveedor_Detalles: TDADataSource
    DataSet = tbl_FacturasProveedor_Detalles.Dataset
    DataTable = tbl_FacturasProveedor_Detalles
    Left = 368
    Top = 104
  end
  object tbl_ListaAnosFacturas: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ANO'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasProveedor
    LogicalName = 'ListaAnosFacturas'
    IndexDefs = <>
    Left = 208
    Top = 216
  end
  object ds_ListaAnosFacturas: TDADataSource
    DataSet = tbl_ListaAnosFacturas.Dataset
    DataTable = tbl_ListaAnosFacturas
    Left = 208
    Top = 168
  end
  object tbl_FacturasProveedor_Contratos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_FACTURAS_PROV_CONTRATOS_ID'
        ServerAutoRefresh = True
        DictionaryEntry = 'FacturasProveedor_Contratos_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_FACTURA'
        DataType = datInteger
        DisplayLabel = 'FacturasProveedor_Contratos_ID_FACTURA'
        DictionaryEntry = 'FacturasProveedor_Contratos_ID_FACTURA'
      end
      item
        Name = 'ID_CONTRATO'
        DataType = datInteger
        DisplayLabel = 'FacturasProveedor_Contratos_ID_CONTRATO'
        DictionaryEntry = 'FacturasProveedor_Contratos_ID_CONTRATO'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'FacturasProveedor_Contratos_NOMBRE'
        DictionaryEntry = 'FacturasProveedor_Contratos_NOMBRE'
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'FacturasProveedor_Contratos_NIF_CIF'
        DictionaryEntry = 'FacturasProveedor_Contratos_NIF_CIF'
      end
      item
        Name = 'IMPORTE'
        DataType = datCurrency
        DisplayLabel = 'FacturasProveedor_Contratos_IMPORTE'
        DictionaryEntry = 'FacturasProveedor_Contratos_IMPORTE'
      end
      item
        Name = 'REFERENCIA1'
        DataType = datString
        Size = 255
      end
      item
        Name = 'NOMBRE1'
        DataType = datString
        Size = 255
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasProveedor
    MasterSource = ds_FacturasProveedor
    MasterFields = 'ID'
    DetailFields = 'ID_FACTURA'
    LogicalName = 'FacturasProveedor_Contratos'
    IndexDefs = <>
    Left = 368
    Top = 168
  end
  object ds_FacturasProveedor_Contratos: TDADataSource
    DataSet = tbl_FacturasProveedor_Contratos.Dataset
    DataTable = tbl_FacturasProveedor_Contratos
    Left = 368
    Top = 216
  end
end