[admin]

* Save this script as R-ORDTEN.MAC
* and place in \CAPITAL directory

Declare MySalesman Type Character

If IsEmpty(Orders->Oorderby)
MySalesman := LookUp("Comrate", 1)

If .NOT. IsEmpty(MySalesman) .And. Type("Mysalesman") = "C"
Orders->OOrderby := MySalesman
Endif
Endif

[BobG]

I think that this script was created for my installation, it looks familiar! What needs to be modified to make the script apply to a quotation?

Thanks Bob

[Guest]

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