object srvComisiones: TsrvComisiones
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schComisiones
  ServiceAdapter = DABINAdapter
  Left = 586
  Top = 327
  Height = 300
  Width = 300
  object schComisiones: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'FECHAINI'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAFIN'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT 1 as SELECCION, ALBARANPAGO.CODIGOEMPRESA, ALBARANPAGO.CO' +
              'DIGO,'#10'       ALBARANPAGO.REFERENCIA, ALBARANPAGO.CODIGOCONTACTO,' +
              ' CONTACTOS.NOMBRE,'#10'       ALBARANPAGO.FECHAALBARAN, ALBARANPAGO.' +
              'SITUACION, ALBARANPAGO.FECHAPAGO,'#10'       ALBARANPAGO.IMPORTETOTA' +
              'L, ALBARANPAGO.CODIGOPRESUPUESTO,'#10'       PRESUPUESTOS.REFERENCIA' +
              ' as REFERENCIAPRESUPUESTO'#10'FROM ALBARANPAGO'#10'   INNER JOIN CONTACT' +
              'OS ON (ALBARANPAGO.CODIGOCONTACTO = CONTACTOS.CODIGO)'#10'   INNER J' +
              'OIN PRESUPUESTOS ON (ALBARANPAGO.CODIGOPRESUPUESTO = PRESUPUESTO' +
              'S.CODIGO)'#10#10'WHERE FECHAALBARAN between :FECHAINI and :FECHAFIN'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'SELECCION'
                TableField = 'SELECCION'
              end
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'FECHAALBARAN'
                TableField = 'FECHAALBARAN'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHAPAGO'
                TableField = 'FECHAPAGO'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'CODIGOPRESUPUESTO'
                TableField = 'CODIGOPRESUPUESTO'
              end
              item
                DatasetField = 'REFERENCIAPRESUPUESTO'
                TableField = 'REFERENCIAPRESUPUESTO'
              end>
          end>
        Name = 'ALBARANESCOMISION'
        Fields = <
          item
            Name = 'SELECCION'
            DataType = datInteger
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'digo'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Referencia'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. contacto'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALBARAN'
            DataType = datDateTime
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Fecha'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Situaci'#243'n'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPAGO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Fecha de pago'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Importe total'
            ReadOnly = True
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPRESUPUESTO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Referencia'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'select VEN.NOMBRE as VENDEDOR, COM.COMISION as PORCENTAJE, 0 as ' +
              'COMISION'#10'from CONTACTOS VEN, CONTACTOSCATEGORIAS CAT, COMISIONES' +
              ' COM'#10'where CAT.CODIGOCONTACTO = VEN.CODIGO'#10'and COM.CODIGOCONTACT' +
              'O = VEN.CODIGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'VENDEDOR'
                TableField = 'VENDEDOR'
              end
              item
                DatasetField = 'PORCENTAJE'
                TableField = 'PORCENTAJE'
              end
              item
                DatasetField = 'COMISION'
                TableField = 'COMISION'
              end>
          end>
        Name = 'VENDEDORESCOMISION'
        Fields = <
          item
            Name = 'VENDEDOR'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Vendedor'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PORCENTAJE'
            DataType = datFloat
            BlobType = dabtUnknown
            DefaultValue = '0'
            DisplayWidth = 0
            DisplayLabel = 'Porcentaje'
            ReadOnly = True
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'COMISION'
            DataType = datFloat
            BlobType = dabtUnknown
            LogChanges = False
            DefaultValue = '0'
            DisplayWidth = 0
            DisplayLabel = 'Comisi'#243'n'
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COMISIONES'
            SQL = 
              'SELECT '#10'    COMISION'#10'  FROM'#10'    COMISIONES'#10'WHERE CODIGOCONTACTO ' +
              '= :CODIGOCONTACTO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'COMISION'
                TableField = 'COMISION'
              end>
          end>
        Name = 'COMISIONES'
        Fields = <
          item
            Name = 'COMISION'
            DataType = datFloat
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'FECHAINI'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAFIN'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT , ALBARANPAGO.CODIGOEMPRESA, ALBARANPAGO.CODIGO,'#10'       A' +
              'LBARANPAGO.REFERENCIA, ALBARANPAGO.CODIGOCONTACTO, CONTACTOS.NOM' +
              'BRE,'#10'       ALBARANPAGO.FECHAALBARAN, ALBARANPAGO.SITUACION, ALB' +
              'ARANPAGO.FECHAPAGO,'#10'       ALBARANPAGO.IMPORTETOTAL, ALBARANPAGO' +
              '.CODIGOPRESUPUESTO,'#10'       PRESUPUESTOS.REFERENCIA as REFERENCIA' +
              'PRESUPUESTO'#10'       '#10'SELECT'#10'    1 as SELECCION, PAGOS.CODIGOEMPRE' +
              'SA, PAGOS.CODIGO, PAGOS.IMPORTE, PAGOS.FORMAPAGO, PAGOS.DESCRIPC' +
              'ION,'#10'    PAGOS.FECHAPAGO, PAGOS.FECHAMODIFICACION, PAGOS.CODIGOC' +
              'ONTACTO,'#10'    CON.NOMBRE, CC.CODIGOCATEGORIA, CAT.DESCRIPCION as ' +
              'CATEGORIA'#10#10'FROM PAGOS'#10'LEFT JOIN CONTACTOS CON ON (PAGOS.CODIGOCO' +
              'NTACTO = CON.CODIGO)'#10'LEFT JOIN CONTACTOSCATEGORIAS CC ON (CON.CO' +
              'DIGO = CC.CODIGOCONTACTO)'#10'LEFT JOIN CATEGORIAS CAT ON (CC.CODIGO' +
              'CATEGORIA = CAT.CODIGO)'#10#10'ORDER BY PAGOS.FECHAPAGO DESC, PAGOS.FE' +
              'CHAALTA DESC'#10'       '#10'       '#10'FROM ALBARANPAGO'#10'   INNER JOIN CONT' +
              'ACTOS ON (ALBARANPAGO.CODIGOCONTACTO = CONTACTOS.CODIGO)'#10'   INNE' +
              'R JOIN PRESUPUESTOS ON (ALBARANPAGO.CODIGOPRESUPUESTO = PRESUPUE' +
              'STOS.CODIGO)'#10#10'WHERE FECHAALBARAN between :FECHAINI and :FECHAFIN'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'SELECCION'
                TableField = 'SELECCION'
              end
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'FECHAALBARAN'
                TableField = 'FECHAALBARAN'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHAPAGO'
                TableField = 'FECHAPAGO'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'CODIGOPRESUPUESTO'
                TableField = 'CODIGOPRESUPUESTO'
              end
              item
                DatasetField = 'REFERENCIAPRESUPUESTO'
                TableField = 'REFERENCIAPRESUPUESTO'
              end>
          end>
        Name = 'COBROSCOMISION'
        Fields = <
          item
            Name = 'SELECCION'
            DataType = datInteger
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'digo'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Referencia'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. contacto'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALBARAN'
            DataType = datDateTime
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Fecha'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Situaci'#243'n'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPAGO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Fecha de pago'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Importe total'
            ReadOnly = True
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPRESUPUESTO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Referencia'
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'COMISION'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COMISIONES'
            SQL = 
              'INSERT'#10'  INTO COMISIONES'#10'    (CODIGOCONTACTO, COMISION)'#10'  VALUES' +
              #10'    (:CODIGOCONTACTO, :COMISION)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_COMISIONES'
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COMISIONES'
            SQL = 
              'DELETE '#10'  FROM'#10'    COMISIONES'#10'  WHERE'#10'    (CODIGOCONTACTO = :COD' +
              'IGOCONTACTO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_COMISIONES'
      end
      item
        Params = <
          item
            Name = 'COMISION'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'COMISIONES'
            SQL = 
              'UPDATE COMISIONES'#10'  SET '#10'    COMISION = :COMISION'#10'  WHERE'#10'    (C' +
              'ODIGOCONTACTO = :CODIGOCONTACTO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_COMISIONES'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 32
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 32
    Top = 80
  end
end