AlonsoYSal_FactuGES2/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
  OnCreate = DAClientDataModuleCreate
  Height = 398
  Width = 518
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvFacturasCliente'
    Left = 48
    Top = 24
  end
  object rda_FacturasCliente: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 51
    Top = 143
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 80
  end
  object tbl_FacturasCliente: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_FACTURAS_CLIENTE_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'FacturasCliente_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'FacturasCliente_ID_EMPRESA'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 20
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'FacturasCliente_REFERENCIA'
      end
      item
        Name = 'TIPO'
        DataType = datString
        Size = 1
        DisplayLabel = 'Tipo'
        DictionaryEntry = 'FacturasCliente_TIPO'
      end
      item
        Name = 'ID_COMISION_LIQUIDADA'
        DataType = datInteger
        DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA'
      end
      item
        Name = 'FECHA_FACTURA'
        DataType = datDateTime
        DisplayLabel = 'Fecha de las factura'
        DictionaryEntry = 'FacturasCliente_FECHA_FACTURA'
      end
      item
        Name = 'FECHA_VENCIMIENTO'
        DataType = datDateTime
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Situaci'#243'n'
        DictionaryEntry = 'FacturasCliente_SITUACION'
      end
      item
        Name = 'BASE_IMPONIBLE'
        DataType = datCurrency
        DisplayLabel = 'Base imponible'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'Dto.'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_DESCUENTO'
      end
      item
        Name = 'IMPORTE_DESCUENTO'
        DataType = datCurrency
        DisplayLabel = 'Importe dto.'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO'
      end
      item
        Name = 'IVA'
        DataType = datFloat
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IVA'
      end
      item
        Name = 'IMPORTE_IVA'
        DataType = datCurrency
        DisplayLabel = 'Importe IVA'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IMPORTE_IVA'
      end
      item
        Name = 'RE'
        DataType = datFloat
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_RE'
      end
      item
        Name = 'IMPORTE_RE'
        DataType = datCurrency
        DisplayLabel = 'Importe RE'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IMPORTE_RE'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL'
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datMemo
        DisplayLabel = 'Observaciones'
        DictionaryEntry = 'FacturasCliente_OBSERVACIONES'
      end
      item
        Name = 'ID_CLIENTE'
        DataType = datInteger
        DictionaryEntry = 'FacturasCliente_ID_CLIENTE'
      end
      item
        Name = 'NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      end
      item
        Name = 'REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'LOPD'
        DataType = datSmallInt
      end
      item
        Name = 'NOMBRE_COMERCIAL_CLIENTE'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF/CIF'
        DictionaryEntry = 'FacturasCliente_NIF_CIF'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 100
        DisplayLabel = 'Cliente'
        DictionaryEntry = 'FacturasCliente_NOMBRE'
      end
      item
        Name = 'ID_DIRECCION'
        DataType = datInteger
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 150
        DisplayLabel = 'Direcci'#243'n'
        DictionaryEntry = 'FacturasCliente_CALLE'
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 150
        DisplayLabel = 'Poblaci'#243'n'
        DictionaryEntry = 'FacturasCliente_POBLACION'
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 30
        DisplayLabel = 'Provincia'
        DictionaryEntry = 'FacturasCliente_PROVINCIA'
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'd. postal'
        DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'FacturasCliente_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 100
        DictionaryEntry = 'FacturasCliente_USUARIO'
      end
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
        DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
        DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
      end
      item
        Name = 'REF_FORMA_PAGO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'RECARGO_EQUIVALENCIA'
        DataType = datSmallInt
        DisplayLabel = #191'Con R.E.?'
        DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA'
      end
      item
        Name = 'ID_TIPO_IVA'
        DataType = datInteger
        DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA'
      end
      item
        Name = 'IMPORTE_NETO'
        DataType = datCurrency
        DisplayLabel = 'Importe neto'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IMPORTE_NETO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'Importe del porte'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
      end
      item
        Name = 'ID_AGENTE'
        DataType = datInteger
        DictionaryEntry = 'FacturasCliente_ID_AGENTE'
      end
      item
        Name = 'REFERENCIA_COMISION'
        DataType = datString
        Size = 255
        DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION'
      end
      item
        Name = 'IGNORAR_CONTABILIDAD'
        DataType = datSmallInt
        DisplayLabel = 'FacturasCliente_IGNORAR_CONTABILIDAD'
        DictionaryEntry = 'FacturasCliente_IGNORAR_CONTABILIDAD'
      end
      item
        Name = 'ID_TIENDA'
        DataType = datInteger
        ServerAutoRefresh = True
      end
      item
        Name = 'TIENDA'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
      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 = 'ID_CONTRATO'
        DataType = datInteger
      end
      item
        Name = 'REF_CONTRATO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'VENDEDOR'
        DataType = datString
        Size = 255
      end
      item
        Name = 'SIN_COMISION'
        DataType = datSmallInt
      end
      item
        Name = 'TIPO_FACTURA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'LISTA_NOMBRES'
        DataType = datString
        Size = 255
        DisplayLabel = 'Otros nombres'
        DictionaryEntry = 'FacturasCliente_LISTA_NOMBRES'
      end
      item
        Name = 'PROCEDENCIA_CLIENTE'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasCliente
    LogicalName = 'FacturasCliente'
    IndexDefs = <>
    Left = 240
    Top = 112
  end
  object ds_FacturasCliente: TDADataSource
    DataSet = tbl_FacturasCliente.Dataset
    DataTable = tbl_FacturasCliente
    Left = 240
    Top = 48
  end
  object tbl_FacturasCliente_Detalles: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'FacturasCliente_Detalles_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_FACTURA'
        DataType = datInteger
        DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA'
      end
      item
        Name = 'POSICION'
        DataType = datInteger
        DisplayLabel = 'Posici'#243'n'
        DictionaryEntry = 'FacturasCliente_Detalles_POSICION'
      end
      item
        Name = 'TIPO_DETALLE'
        DataType = datString
        Size = 10
        DisplayLabel = 'Tipo detalle'
        DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE'
      end
      item
        Name = 'CONCEPTO'
        DataType = datString
        Size = 2000
        DisplayLabel = 'Concepto'
        DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO'
      end
      item
        Name = 'CANTIDAD'
        DataType = datFloat
        DisplayLabel = 'Cantidad'
        DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD'
      end
      item
        Name = 'IMPORTE_UNIDAD'
        DataType = datCurrency
        DisplayLabel = 'Importe unidad'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        DisplayLabel = 'Importe total'
        Alignment = taRightJustify
        DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
      end
      item
        Name = 'VISIBLE'
        DataType = datInteger
        DisplayLabel = #191'Visible?'
        DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
        DisplayLabel = 'FacturasCliente_Detalles_ID_ARTICULO'
        DictionaryEntry = 'FacturasCliente_Detalles_ID_ARTICULO'
      end
      item
        Name = 'DESCUENTO'
        DataType = datFloat
        DisplayLabel = 'FacturasCliente_Detalles_DESCUENTO'
        DictionaryEntry = 'FacturasCliente_Detalles_DESCUENTO'
      end
      item
        Name = 'IMPORTE_PORTE'
        DataType = datCurrency
        DisplayLabel = 'FacturasCliente_Detalles_IMPORTE_PORTE'
        DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_PORTE'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasCliente
    MasterSource = ds_FacturasCliente
    MasterFields = 'ID'
    DetailFields = 'ID_FACTURA'
    LogicalName = 'FacturasCliente_Detalles'
    IndexDefs = <>
    Left = 400
    Top = 112
  end
  object ds_FacturasCliente_Detalles: TDADataSource
    DataSet = tbl_FacturasCliente_Detalles.Dataset
    DataTable = tbl_FacturasCliente_Detalles
    Left = 400
    Top = 40
  end
  object tbl_ListaAnosFacturas: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ANO'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FacturasCliente
    LogicalName = 'ListaAnosFacturas'
    IndexDefs = <>
    Left = 232
    Top = 232
  end
  object ds_ListaAnosFacturas: TDADataSource
    DataSet = tbl_ListaAnosFacturas.Dataset
    DataTable = tbl_ListaAnosFacturas
    Left = 232
    Top = 184
  end
end