by Guest » Mon Oct 10, 2005 11:47 pm
Try the following script. Be sure to save the text file as 'R-QUOTEN.MAC'
* Save this script as R-QUOTEN.MAC
* and place in \CAPITAL directory
Declare MySalesman Type Character
If IsEmpty(Quotes->Qorderby)
MySalesman := LookUp("Comrate", 1)
If .NOT. IsEmpty(MySalesman) .And. Type("Mysalesman") = "C"
Quotes->QOrderby := MySalesman
Endif
Endif