Versions Compared

Old Version 2

changes.mady.by.user Rodrigo Rivero

Saved on

compared with

New Version Current

changes.mady.by.user Fabiola Arias Navia

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     Mthroutine Name(OnSort) Options(*Redefine) 

     Case (#Key)
     When (= EMPNO)
        #Result := #Empno.Compare( (#CompareTo.Design *As #EmployeePart).Empno ) 

     When (= GIVENAME)
        #Result := #Givename.Compare( (#CompareTo.Design *As #EmployeePart).Givename ) 

     When (= SURNAME)
        #Result := #Surname.Compare( (#CompareTo.Design *As #EmployeePart).Surname ) 

        Endcase 

     Endroutine

See also

All Component Classes

Technical Reference