SELECT WRHCONTD.TYPETRX AS CODE, ;
ARCODE.DESCR AS DESCR;
FROM WRHCONTD;
LEFT OUTER JOIN ARCODE ON ARCODE.ACTIVITY = "WRHSE" AND ALLTRIM(WRHCONTD.TYPETRX) == ALLTRIM(ARCODE.CODE);
WHERE WRHCONTD.CONTRATID = THISFORM.CONTID;
INTO CURSOR CUR_CODE


SELECT CUR_CODE
BROWSE
THISFORM.WScombobox1.RowSource = "CUR_CODE.CODE,DESCR"
THISFORM.WScombobox1.RowSourceType = 6