AlonsoYSal_FactuGES/Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm

object srvCuentas: TsrvCuentas
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schCuentas
  ServiceAdapter = DABINAdapter
  Left = 911
  Top = 182
  Height = 300
  Width = 300
  object schCuentas: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CUENTAS'
            SQL = 
              'SELECT '#10'    CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, NOMBRE, '#10 +
              '    OTROSDATOS, ULTIMOCIERRE, PENULTIMOCIERRE'#10'  FROM'#10'    CUENTAS'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'FECHAALTA'
                TableField = 'FECHAALTA'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'OTROSDATOS'
                TableField = 'OTROSDATOS'
              end
              item
                DatasetField = 'ULTIMOCIERRE'
                TableField = 'ULTIMOCIERRE'
              end
              item
                DatasetField = 'PENULTIMOCIERRE'
                TableField = 'PENULTIMOCIERRE'
              end>
          end>
        Name = 'Cuentas'
        Fields = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOEMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datAutoInc
            BlobType = dabtUnknown
            GeneratorName = 'GEN_CUENTAS'
            DictionaryEntry = 'CODIGOCUENTA_GEN'
            InPrimaryKey = True
            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 = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OTROSDATOS'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ULTIMOCIERRE'
            DataType = datDateTime
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = #218'ltimo cierre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PENULTIMOCIERRE'
            DataType = datDateTime
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'Penultimo cierre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CUENTAS'
            SQL = 'DELETE '#10'  FROM'#10'    CUENTAS'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Cuentas'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 40
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 80
  end
end