object srvFormasPago: TsrvFormasPago
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schFormasPago
  ServiceAdapter = DABINAdapter
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  Height = 202
  Width = 392
  object Diagrams: TDADiagrams
    Left = 150
    Top = 90
    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'FormasPago_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_REFERENCIA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Referencia'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_DESCRIPCION'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Descripci'#243'n'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_TITULAR'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Titular'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_ENTIDAD'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'C'#243'd. Entidad'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_SUCURSAL'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'C'#243'd. Sucusal'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_DC'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'DC'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPago_CUENTA'
        DataType = datString
        Size = 15
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'C'#243'd. Cuenta'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPagoPlazos_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPagoPlazos_ID_FORMA_PAGO'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPagoPlazos_NUM_DIAS'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Num. d'#237'as'
        Alignment = taLeftJustify
      end
      item
        Name = 'FormasPagoPlazos_PORCENTAJE'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = '% aplazado'
        Alignment = taRightJustify
      end>
    Left = 150
    Top = 24
  end
  object schFormasPago: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO'
            SQL = 
              'SELECT '#10'    ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCUR' +
              'SAL, '#10'    DC, CUENTA'#10'  FROM'#10'    FORMAS_PAGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'TITULAR'
                TableField = 'TITULAR'
              end
              item
                DatasetField = 'ENTIDAD'
                TableField = 'ENTIDAD'
              end
              item
                DatasetField = 'SUCURSAL'
                TableField = 'SUCURSAL'
              end
              item
                DatasetField = 'DC'
                TableField = 'DC'
              end
              item
                DatasetField = 'CUENTA'
                TableField = 'CUENTA'
              end>
          end>
        Name = 'FormasPago'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_TITULAR'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_ENTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_SUCURSAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_DC'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPago_CUENTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO_PLAZOS'
            SQL = 
              'SELECT '#10'    ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE'#10'  FROM'#10'    F' +
              'ORMAS_PAGO_PLAZOS'#10'  WHERE'#10'    FORMAS_PAGO_PLAZOS.ID_FORMA_PAGO =' +
              ' :ID_FORMA_PAGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_FORMA_PAGO'
                TableField = 'ID_FORMA_PAGO'
              end
              item
                DatasetField = 'NUM_DIAS'
                TableField = 'NUM_DIAS'
              end
              item
                DatasetField = 'PORCENTAJE'
                TableField = 'PORCENTAJE'
              end>
          end>
        Name = 'FormasPagoPlazos'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPagoPlazos_ID'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPagoPlazos_ID_FORMA_PAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUM_DIAS'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPagoPlazos_NUM_DIAS'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PORCENTAJE'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'FormasPagoPlazos_PORCENTAJE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO'
            SQL = 
              'INSERT'#10'  INTO FORMAS_PAGO'#10'    (ID, REFERENCIA, DESCRIPCION, TITU' +
              'LAR, ENTIDAD, SUCURSAL, '#10'     DC, CUENTA)'#10'  VALUES'#10'    (:ID, :RE' +
              'FERENCIA, :DESCRIPCION, :TITULAR, :ENTIDAD, '#10'     :SUCURSAL, :DC' +
              ', :CUENTA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_FormasPago'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO'
            SQL = 'DELETE '#10'  FROM'#10'    FORMAS_PAGO'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_FormasPago'
      end
      item
        Params = <
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO'
            SQL = 
              'UPDATE FORMAS_PAGO'#10'  SET '#10'    REFERENCIA = :REFERENCIA,'#10'    DESC' +
              'RIPCION = :DESCRIPCION, '#10'    TITULAR = :TITULAR, '#10'    ENTIDAD = ' +
              ':ENTIDAD, '#10'    SUCURSAL = :SUCURSAL, '#10'    DC = :DC, '#10'    CUENTA ' +
              '= :CUENTA'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_FormasPago'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NUM_DIAS'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PORCENTAJE'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO_PLAZOS'
            SQL = 
              'INSERT'#10'  INTO FORMAS_PAGO_PLAZOS'#10'    (ID, ID_FORMA_PAGO, NUM_DIA' +
              'S, PORCENTAJE)'#10'  VALUES'#10'    (:ID, :ID_FORMA_PAGO, :NUM_DIAS, :PO' +
              'RCENTAJE)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_FormasPagoPlazos'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO_PLAZOS'
            SQL = 'DELETE '#10'  FROM'#10'    FORMAS_PAGO_PLAZOS'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_FormasPagoPlazos'
      end
      item
        Params = <
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NUM_DIAS'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PORCENTAJE'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'FORMAS_PAGO_PLAZOS'
            SQL = 
              'UPDATE FORMAS_PAGO_PLAZOS'#10'  SET '#10'    ID_FORMA_PAGO = :ID_FORMA_P' +
              'AGO,'#10'    NUM_DIAS = :NUM_DIAS, '#10'    PORCENTAJE = :PORCENTAJE'#10'  W' +
              'HERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_FormasPagoPlazos'
      end>
    RelationShips = <>
    UpdateRules = <
      item
        Name = 'Insert FormasPago'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'FormasPago'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert FormasPagoPlazos'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'FormasPagoPlazos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update FormasPago'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'FormasPago'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update FormasPagoPlazos'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'FormasPagoPlazos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete FormasPagoPlazos'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'FormasPagoPlazos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete FormasPago'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'FormasPago'
        FailureBehaviour = fbRaiseException
      end>
    Left = 48
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 90
  end
  object bpFormasPagoPlazos: TDABusinessProcessor
    Schema = schFormasPago
    InsertCommandName = 'Insert_FormasPagoPlazos'
    DeleteCommandName = 'Delete_FormasPagoPlazos'
    UpdateCommandName = 'Update_FormasPagoPlazos'
    ReferencedDataset = 'FormasPagoPlazos'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 248
    Top = 90
  end
  object bpFormasPago: TDABusinessProcessor
    Schema = schFormasPago
    InsertCommandName = 'Insert_FormasPago'
    DeleteCommandName = 'Delete_FormasPago'
    UpdateCommandName = 'Update_FormasPago'
    ReferencedDataset = 'FormasPago'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 248
    Top = 24
  end
end