AlonsoYSal_FactuGES2/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.dfm

inherited DataModuleRecibosCliente: TDataModuleRecibosCliente
  OnCreate = DAClientDataModuleCreate
  Height = 346
  Width = 525
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvRecibosCliente'
    Left = 56
    Top = 24
  end
  object rda_RecibosCliente: TDARemoteDataAdapter
    DataStreamer = Bin2DataStreamer
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    Left = 59
    Top = 151
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 56
    Top = 84
  end
  object tbl_PagosCliente: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_PAGOS_CLIENTE_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'PagosCliente_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_RECIBO'
        DataType = datInteger
        DisplayLabel = 'PagosCliente_ID_RECIBO'
        DictionaryEntry = 'PagosCliente_ID_RECIBO'
      end
      item
        Name = 'TIPO'
        DataType = datString
        Size = 255
        DisplayLabel = 'PagosCliente_TIPO'
        DictionaryEntry = 'PagosCliente_TIPO'
      end
      item
        Name = 'FECHA_PAGO'
        DataType = datDateTime
        DisplayLabel = 'PagosCliente_FECHA_PAGO'
        DictionaryEntry = 'PagosCliente_FECHA_PAGO'
      end
      item
        Name = 'TITULAR'
        DataType = datString
        Size = 255
        DisplayLabel = 'PagosCliente_TITULAR'
        DictionaryEntry = 'PagosCliente_TITULAR'
      end
      item
        Name = 'ENTIDAD'
        DataType = datString
        Size = 15
        DisplayLabel = 'PagosCliente_ENTIDAD'
        DictionaryEntry = 'PagosCliente_ENTIDAD'
      end
      item
        Name = 'SUCURSAL'
        DataType = datString
        Size = 15
        DisplayLabel = 'PagosCliente_SUCURSAL'
        DictionaryEntry = 'PagosCliente_SUCURSAL'
      end
      item
        Name = 'DC'
        DataType = datString
        Size = 15
        DisplayLabel = 'PagosCliente_DC'
        DictionaryEntry = 'PagosCliente_DC'
      end
      item
        Name = 'CUENTA'
        DataType = datString
        Size = 15
        DisplayLabel = 'PagosCliente_CUENTA'
        DictionaryEntry = 'PagosCliente_CUENTA'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'PagosCliente_FECHA_ALTA'
        DictionaryEntry = 'PagosCliente_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'PagosCliente_FECHA_MODIFICACION'
        DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DisplayLabel = 'PagosCliente_USUARIO'
        DictionaryEntry = 'PagosCliente_USUARIO'
      end
      item
        Name = 'IGNORAR_CONTABILIDAD'
        DataType = datSmallInt
      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>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_RecibosCliente
    MasterSource = ds_RecibosCliente
    MasterFields = 'ID'
    DetailFields = 'ID_RECIBO'
    LogicalName = 'PagosCliente'
    IndexDefs = <>
    Left = 288
    Top = 88
  end
  object ds_PagosCliente: TDADataSource
    DataSet = tbl_PagosCliente.Dataset
    DataTable = tbl_PagosCliente
    Left = 288
    Top = 32
  end
  object tbl_RecibosCliente: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_RECIBOS_CLIENTE_ID'
        Required = True
        ServerAutoRefresh = True
        DictionaryEntry = 'RecibosCliente_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_RECIBO_COMPENSADO'
        DataType = datInteger
        DisplayLabel = 'RecibosCliente_ID_RECIBO_COMPENSADO'
        DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO'
      end
      item
        Name = 'REFERENCIA_REC_COMPENSADO'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
        DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
        DictionaryEntry = 'RecibosCliente_REFERENCIA'
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 9
        DictionaryEntry = 'RecibosCliente_SITUACION'
      end
      item
        Name = 'ID_FACTURA'
        DataType = datInteger
        DictionaryEntry = 'RecibosCliente_ID_FACTURA'
      end
      item
        Name = 'FECHA_FACTURA'
        DataType = datDateTime
        DictionaryEntry = 'RecibosCliente_FECHA_FACTURA'
      end
      item
        Name = 'FORMA_PAGO_FACTURA'
        DataType = datString
        Size = 255
        DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA'
      end
      item
        Name = 'IMPORTE_FACTURA'
        DataType = datCurrency
        Alignment = taRightJustify
        DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA'
      end
      item
        Name = 'ID_REMESA'
        DataType = datInteger
        DisplayLabel = 'RecibosCliente_ID_REMESA'
        DictionaryEntry = 'RecibosCliente_ID_REMESA'
      end
      item
        Name = 'REFERENCIA_REMESA'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_REFERENCIA_REMESA'
        DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA'
      end
      item
        Name = 'FECHA_EMISION'
        DataType = datDateTime
        DisplayLabel = 'RecibosCliente_FECHA_EMISION'
        DictionaryEntry = 'RecibosCliente_FECHA_EMISION'
      end
      item
        Name = 'FECHA_VENCIMIENTO'
        DataType = datDateTime
        DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO'
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
        DictionaryEntry = 'RecibosCliente_DESCRIPCION'
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datString
        Size = 255
        DictionaryEntry = 'RecibosCliente_OBSERVACIONES'
      end
      item
        Name = 'IMPORTE'
        DataType = datCurrency
        Alignment = taRightJustify
        DictionaryEntry = 'RecibosCliente_IMPORTE'
      end
      item
        Name = 'OTROS_GASTOS'
        DataType = datCurrency
        DisplayLabel = 'RecibosCliente_OTROS_GASTOS'
        Alignment = taRightJustify
        DictionaryEntry = 'RecibosCliente_OTROS_GASTOS'
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'RecibosCliente_ID_EMPRESA'
      end
      item
        Name = 'ID_CLIENTE'
        DataType = datInteger
        DictionaryEntry = 'RecibosCliente_ID_CLIENTE'
      end
      item
        Name = 'NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
        DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
      end
      item
        Name = 'ENTIDAD_CLIENTE'
        DataType = datString
        Size = 15
        DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE'
      end
      item
        Name = 'SUCURSAL_CLIENTE'
        DataType = datString
        Size = 15
        DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE'
      end
      item
        Name = 'DC_CLIENTE'
        DataType = datString
        Size = 15
        DictionaryEntry = 'RecibosCliente_DC_CLIENTE'
      end
      item
        Name = 'CUENTA_CLIENTE'
        DataType = datString
        Size = 15
        DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE'
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'RecibosCliente_NIF_CIF'
        DictionaryEntry = 'RecibosCliente_NIF_CIF'
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_NOMBRE'
        DictionaryEntry = 'RecibosCliente_NOMBRE'
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_CALLE'
        DictionaryEntry = 'RecibosCliente_CALLE'
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_POBLACION'
        DictionaryEntry = 'RecibosCliente_POBLACION'
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'RecibosCliente_CODIGO_POSTAL'
        DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL'
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_PROVINCIA'
        DictionaryEntry = 'RecibosCliente_PROVINCIA'
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
        DictionaryEntry = 'RecibosCliente_FECHA_ALTA'
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
        DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION'
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 20
        DictionaryEntry = 'RecibosCliente_USUARIO'
      end
      item
        Name = 'ID_TIENDA'
        DataType = datInteger
        DisplayLabel = 'RecibosCliente_ID_TIENDA'
        DictionaryEntry = 'RecibosCliente_ID_TIENDA'
      end
      item
        Name = 'TIENDA'
        DataType = datString
        Size = 255
        DisplayLabel = 'RecibosCliente_TIENDA'
        DictionaryEntry = 'RecibosCliente_TIENDA'
      end
      item
        Name = 'LISTA_NOMBRES'
        DataType = datString
        Size = 255
        DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES'
      end
      item
        Name = 'CUENTA_CONTABLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Cuenta contable'
        DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE'
      end
      item
        Name = 'ID_CONTRATO'
        DataType = datInteger
      end
      item
        Name = 'ID_CON_FACTURA'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA_CONTRATO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_PAGO'
        DataType = datDateTime
      end
      item
        Name = 'SUBCUENTA'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_RecibosCliente
    LogicalName = 'RecibosCliente'
    IndexDefs = <>
    Left = 168
    Top = 88
  end
  object ds_RecibosCliente: TDADataSource
    DataSet = tbl_RecibosCliente.Dataset
    DataTable = tbl_RecibosCliente
    Left = 168
    Top = 32
  end
  object tbl_RecibosCompensadosCli: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        InPrimaryKey = True
      end
      item
        Name = 'ID_RECIBO_COMPENSADO'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA_REC_COMPENSADO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'SITUACION'
        DataType = datString
        Size = 9
      end
      item
        Name = 'ID_FACTURA'
        DataType = datInteger
      end
      item
        Name = 'FECHA_FACTURA'
        DataType = datDateTime
      end
      item
        Name = 'FORMA_PAGO_FACTURA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'IMPORTE_FACTURA'
        DataType = datCurrency
      end
      item
        Name = 'ID_REMESA'
        DataType = datInteger
      end
      item
        Name = 'REFERENCIA_REMESA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_EMISION'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_VENCIMIENTO'
        DataType = datDateTime
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
      end
      item
        Name = 'OBSERVACIONES'
        DataType = datString
        Size = 255
      end
      item
        Name = 'IMPORTE'
        DataType = datCurrency
      end
      item
        Name = 'OTROS_GASTOS'
        DataType = datCurrency
      end
      item
        Name = 'IMPORTE_TOTAL'
        DataType = datCurrency
        Alignment = taRightJustify
        ServerAutoRefresh = True
        DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL'
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'ID_CLIENTE'
        DataType = datInteger
      end
      item
        Name = 'NOMBRE_CLIENTE'
        DataType = datString
        Size = 255
        ServerAutoRefresh = True
        DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE'
      end
      item
        Name = 'ENTIDAD_CLIENTE'
        DataType = datString
        Size = 15
      end
      item
        Name = 'SUCURSAL_CLIENTE'
        DataType = datString
        Size = 15
      end
      item
        Name = 'DC_CLIENTE'
        DataType = datString
        Size = 15
      end
      item
        Name = 'CUENTA_CLIENTE'
        DataType = datString
        Size = 15
      end
      item
        Name = 'NIF_CIF'
        DataType = datString
        Size = 15
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 255
      end
      item
        Name = 'CODIGO_POSTAL'
        DataType = datString
        Size = 10
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'FECHA_ALTA'
        DataType = datDateTime
      end
      item
        Name = 'FECHA_MODIFICACION'
        DataType = datDateTime
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 30
      end
      item
        Name = 'ID_TIENDA'
        DataType = datInteger
      end
      item
        Name = 'TIENDA'
        DataType = datString
        Size = 255
      end
      item
        Name = 'LISTA_NOMBRES'
        DataType = datString
        Size = 1
      end
      item
        Name = 'ID_CONTRATO'
        DataType = datInteger
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_RecibosCliente
    MasterSource = ds_RecibosCliente
    MasterFields = 'ID'
    DetailFields = 'ID_RECIBO_COMPENSADO'
    LogicalName = 'RecibosCompensadosCli'
    IndexDefs = <>
    Left = 416
    Top = 88
  end
  object ds_RecibosCompensadosCli: TDADataSource
    DataSet = tbl_RecibosCompensadosCli.Dataset
    DataTable = tbl_RecibosCompensadosCli
    Left = 416
    Top = 32
  end
  object tbl_ListaAnosRecibos: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ANO'
        DataType = datString
        Size = 255
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_RecibosCliente
    LogicalName = 'ListaAnosRecibos'
    IndexDefs = <>
    Left = 176
    Top = 216
  end
  object ds_ListaAnosRecibos: TDADataSource
    DataSet = tbl_ListaAnosRecibos.Dataset
    DataTable = tbl_ListaAnosRecibos
    Left = 176
    Top = 160
  end
end