object srvAsientos: TsrvAsientos
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schAsientos
  ServiceAdapter = DABINAdapter
  Left = 842
  Top = 171
  Height = 300
  Width = 300
  object schAsientos: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'CODIGOCUENTA'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT CODIGO, FECHAASIENTO, DESCRIPCION'#10'FROM asientos'#10'WHERE COD' +
              'IGOCUENTA = :CODIGOCUENTA'#10'AND TIPOASIENTO = '#39'C'#39#10'ORDER BY FECHAAS' +
              'IENTO DESC, CODIGO DESC'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'FECHAASIENTO'
                TableField = 'FECHAASIENTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'darPenultimoCierre'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAASIENTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ASIENTOS'
            SQL = 
              'SELECT'#10'ASIENTOS.CODIGO, ASIENTOS.CODIGOCUENTA, ASIENTOS.TIPOASIE' +
              'NTO, ASIENTOS.PUNTEADO, ASIENTOS.FECHAALTA, ASIENTOS.USUARIO,'#10'AS' +
              'IENTOS.FECHAASIENTO, ASIENTOS.FORMAPAGO, ASIENTOS.DESCRIPCION, A' +
              'SIENTOS.CODIGOPAGO,'#10'ASIENTOS.IMPORTE, CAST(0 as FLOAT) as IMPORT' +
              'EANT, CAST(0 as FLOAT) as IMPORTEPOS'#10#10'FROM ASIENTOS'#10#10'order by AS' +
              'IENTOS.FECHAASIENTO DESC, ASIENTOS.CODIGO DESC'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'CODIGOCUENTA'
                TableField = 'CODIGOCUENTA'
              end
              item
                DatasetField = 'FECHAALTA'
                TableField = 'FECHAALTA'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'IMPORTE'
                TableField = 'IMPORTE'
              end
              item
                DatasetField = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CODIGOPAGO'
                TableField = 'CODIGOPAGO'
              end
              item
                DatasetField = 'FECHAASIENTO'
                TableField = 'FECHAASIENTO'
              end
              item
                DatasetField = 'PUNTEADO'
                TableField = 'PUNTEADO'
              end
              item
                DatasetField = 'TIPOASIENTO'
                TableField = 'TIPOASIENTO'
              end>
          end>
        Name = 'Asientos'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datAutoInc
            BlobType = dabtUnknown
            GeneratorName = 'GEN_ASIENTOS'
            DisplayWidth = 0
            Alignment = taLeftJustify
            DictionaryEntry = 'CODIGOASIENTO_GEN'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCUENTA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPOASIENTO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Tipo asiento'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PUNTEADO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Punteado'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAASIENTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Fecha asiento'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'FORMAPAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPAGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTE'
            DataType = datCurrency
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Cuantia'
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEANT'
            DataType = datCurrency
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            DisplayLabel = 'Importe anterior'
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = True
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEPOS'
            DataType = datCurrency
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            DisplayLabel = 'Importe posterior'
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = True
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOCUENTA'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAFIN'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAINI'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'select SUM(IMPORTE) as SUMA'#10'from ASIENTOS'#10'WHERE (CODIGOCUENTA = ' +
              ':CODIGOCUENTA)'#10'AND (FECHAASIENTO between :FECHAFIN and :FECHAINI' +
              ')'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'SUMA'
                TableField = 'SUMA'
              end>
          end>
        Name = 'darSumaAcumulada'
        Fields = <
          item
            Name = 'SUMA'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'VALORPUNTEADO'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end
          item
            Name = 'CODIGOCUENTA'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end
          item
            Name = 'FECHAINI'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end
          item
            Name = 'FECHAFIN'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'UPDATE ASIENTOS'#10'SET PUNTEADO = :VALORPUNTEADO'#10'WHERE (CODIGOCUENT' +
              'A = :CODIGOCUENTA)'#10'AND (FECHAASIENTO <= :FECHAINI and FECHAASIEN' +
              'TO > :FECHAFIN)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'AsignarPunteo'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 40
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 72
  end
end