object EDI_Log: TEDI_Log
  OldCreateOrder = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schEDILog
  ServiceAdapter = DABINAdapter
  OnAfterProcessTransactionAction = pptaNone
  ExportedDataTables = <>
  CacheElements = <>
  Options = [rsoProcessDeltasWithoutUpdateRules]
  Height = 297
  Width = 298
  object schEDILog: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'GFT_VARELA'
            TargetTable = 'RDX_LOG_CARGA'
            SQL = 
              'SELECT '#10'    ID, REPORT, FECHA, OK, ERROR_MSG'#10'  FROM'#10'    RDX_LOG_' +
              'CARGA'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'FECHA'
                TableField = 'FECHA'
              end
              item
                DatasetField = 'OK'
                TableField = 'OK'
              end
              item
                DatasetField = 'ERROR_MSG'
                TableField = 'ERROR_MSG'
              end
              item
                DatasetField = 'REPORT'
                TableField = 'REPORT'
              end>
          end>
        Name = 'EDILog'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REPORT'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OK'
            DataType = datBoolean
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ERROR_MSG'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'FECHA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REPORT'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OK'
            DataType = datBoolean
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ERROR_MSG'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'GFT_VARELA'
            TargetTable = 'RDX_LOG_CARGA'
            SQL = 
              'INSERT'#10'  INTO RDX_LOG_CARGA'#10'    (FECHA, REPORT, OK, ERROR_MSG)'#10' ' +
              ' VALUES'#10'    (:FECHA, :REPORT, :OK, :ERROR_MSG)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_EDILog'
      end>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 48
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    BufferSize = 262144
    IsCompatibleV4 = True
    Left = 48
    Top = 80
  end
end
