Parents
  • So hier mal mein skript.
    ein paar fragen habe ich nun noch, ich will wenn mein skript den eintrag  'DISPLACED!' rot in die liste wegen der übersicht einträgt und wenn man auf meinetwegen den ersten eintrag (das ist ein sbfr) klickt er gleich in der hierachy auf das ce springt.
    und später habe ich noch vor die list zu exportieren in excel oder text.
    ps.. super forum hier!!! bin in hochturen am lernen!!!
    gruß gunnar



    SETUP FORM !!list size 60 10

     

      list    .Listm      Anchor all columns Multiple  width 50  heigh 15
     
    !Headings = Array()
    !Headings.append('MONORAIL')  
    !Headings.append('CONNECT')  
    !Headings.append('CHECK')
    !Headings.append('USER')  
    !Headings.append('DATE')
    !this.Listm.SetHeadings(!Headings)

    /1HN-LP--0
     var !member mem count
       do !member from 1 to $!member
         $!member
         
         add ce
          first member
           var !connmit desc
           var !sollpos func
             if !connmit eq 'unset' then
             
              var !check ' '
             else
                $!connmit
                ---add ce
                var !connpos pos wrt/*
                   if !sollpos eq !connpos then
                     var !check 'OK'
                     
                    else
                    var !check 'DISPLACED!'
                    autocol off add ce col2 autocol on
                   
                  endif
                 sam
           
              endif
           
           
         
           var !namemono[!member] name + ' ' +desc + ' ' +!check +' ' +usermod + ' ' +lastmod
           
          owner
         end
       enddo
        !this.Listm.DTEXT = !namemono
     
      SHOW !!list AT XR0.595 YR0.245
     
Reply
  • So hier mal mein skript.
    ein paar fragen habe ich nun noch, ich will wenn mein skript den eintrag  'DISPLACED!' rot in die liste wegen der übersicht einträgt und wenn man auf meinetwegen den ersten eintrag (das ist ein sbfr) klickt er gleich in der hierachy auf das ce springt.
    und später habe ich noch vor die list zu exportieren in excel oder text.
    ps.. super forum hier!!! bin in hochturen am lernen!!!
    gruß gunnar



    SETUP FORM !!list size 60 10

     

      list    .Listm      Anchor all columns Multiple  width 50  heigh 15
     
    !Headings = Array()
    !Headings.append('MONORAIL')  
    !Headings.append('CONNECT')  
    !Headings.append('CHECK')
    !Headings.append('USER')  
    !Headings.append('DATE')
    !this.Listm.SetHeadings(!Headings)

    /1HN-LP--0
     var !member mem count
       do !member from 1 to $!member
         $!member
         
         add ce
          first member
           var !connmit desc
           var !sollpos func
             if !connmit eq 'unset' then
             
              var !check ' '
             else
                $!connmit
                ---add ce
                var !connpos pos wrt/*
                   if !sollpos eq !connpos then
                     var !check 'OK'
                     
                    else
                    var !check 'DISPLACED!'
                    autocol off add ce col2 autocol on
                   
                  endif
                 sam
           
              endif
           
           
         
           var !namemono[!member] name + ' ' +desc + ' ' +!check +' ' +usermod + ' ' +lastmod
           
          owner
         end
       enddo
        !this.Listm.DTEXT = !namemono
     
      SHOW !!list AT XR0.595 YR0.245
     
Children
No Data