Tecsitel_FactuGES2/Source/Modulos/Formas de pago/Data/uDataModuleFormasPago.dfm

object DataModuleFormasPago: TDataModuleFormasPago
  OldCreateOrder = True
  OnCreate = DAClientDataModuleCreate
  Height = 414
  Width = 518
  object RORemoteService: TRORemoteService
    Message = ROBinMessage1
    Channel = ROWinInetHTTPChannel1
    ServiceName = 'srvFormasPago'
    Left = 48
    Top = 24
  end
  object DADesigntimeCall1: TDADesigntimeCall
    RemoteService = LoginRemoteService
    Params = <>
    Left = 48
    Top = 160
  end
  object LoginRemoteService: TRORemoteService
    Message = ROBinMessage1
    Channel = ROWinInetHTTPChannel1
    ServiceName = 'srvLogin'
    Left = 48
    Top = 216
  end
  object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/bin'
    ServerLocators = <>
    DispatchOptions = []
    Left = 48
    Top = 272
  end
  object ROBinMessage1: TROBinMessage
    Left = 48
    Top = 324
  end
  object tbl_FormasPago: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        DictionaryEntry = 'FormasPago_ID'
        InPrimaryKey = True
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'FormasPago_REFERENCIA'
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Descripci'#243'n'
        DictionaryEntry = 'FormasPago_DESCRIPCION'
      end
      item
        Name = 'TITULAR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Titular'
        DictionaryEntry = 'FormasPago_TITULAR'
      end
      item
        Name = 'ENTIDAD'
        DataType = datString
        Size = 15
        DisplayLabel = 'C'#243'd. Entidad'
        DictionaryEntry = 'FormasPago_ENTIDAD'
      end
      item
        Name = 'SUCURSAL'
        DataType = datString
        Size = 15
        DisplayLabel = 'C'#243'd. Sucusal'
        DictionaryEntry = 'FormasPago_SUCURSAL'
      end
      item
        Name = 'DC'
        DataType = datString
        Size = 15
        DictionaryEntry = 'FormasPago_DC'
      end
      item
        Name = 'CUENTA'
        DataType = datString
        Size = 15
        DisplayLabel = 'C'#243'd. Cuenta'
        DictionaryEntry = 'FormasPago_CUENTA'
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FormasPago
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'FormasPago'
    IndexDefs = <>
    Left = 168
    Top = 88
  end
  object ds_FormasPago: TDADataSource
    DataSet = tbl_FormasPago.Dataset
    DataTable = tbl_FormasPago
    Left = 168
    Top = 24
  end
  object tbl_FormasPagoPlazos: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID'
        DataType = datInteger
        DisplayLabel = 'FormasPagoPlazos_ID'
        DictionaryEntry = 'FormasPagoPlazos_ID'
        InPrimaryKey = True
      end
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
        DisplayLabel = 'FormasPagoPlazos_ID_FORMA_PAGO'
        DictionaryEntry = 'FormasPagoPlazos_ID_FORMA_PAGO'
      end
      item
        Name = 'NUM_DIAS'
        DataType = datInteger
        DisplayLabel = 'Num. d'#237'as'
        DictionaryEntry = 'FormasPagoPlazos_NUM_DIAS'
      end
      item
        Name = 'PORCENTAJE'
        DataType = datFloat
        DisplayLabel = '% aplazado'
        DisplayFormat = ',0.00 %;-,0.00 %'
        Alignment = taRightJustify
        DictionaryEntry = 'FormasPagoPlazos_PORCENTAJE'
      end>
    Params = <
      item
        Name = 'ID_FORMA_PAGO'
        DataType = datInteger
        Value = ''
        ParamType = daptInput
      end>
    MasterParamsMappings.Strings = (
      'ID_FORMA_PAGO=ID')
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_FormasPagoPlazos
    MasterSource = ds_FormasPago
    MasterFields = 'ID'
    DetailFields = 'ID_FORMA_PAGO'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'FormasPagoPlazos'
    IndexDefs = <>
    Left = 280
    Top = 88
  end
  object ds_FormasPagoPlazos: TDADataSource
    DataSet = tbl_FormasPagoPlazos.Dataset
    DataTable = tbl_FormasPagoPlazos
    Left = 280
    Top = 24
  end
  object DataStreamer: TDABinDataStreamer
    Left = 48
    Top = 84
  end
  object rda_FormasPago: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = DataStreamer
    Left = 403
    Top = 23
  end
  object rda_FormasPagoPlazos: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = DataStreamer
    Left = 403
    Top = 87
  end
end