plm befehl list

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
 

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