21 lines
616 B
Plaintext
21 lines
616 B
Plaintext
|
|
FUNCTION cvendedor()
|
|
DEFINE k1vendedor SMALLINT, dvendedor CHAR(60),
|
|
k2vendedor ui.ComboBox
|
|
|
|
LET k2vendedor = ui.combobox.forname("formonly.kvendedor")
|
|
|
|
DECLARE bvendedor CURSOR FOR
|
|
SELECT UNIQUE b.num_emp,RTRIM(CAST(b.nom1_emp AS CHAR(30)))+" " +
|
|
RTRIM(CAST(b.apell1_emp AS CHAR(30)))+"("+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+")" FROM vetb00028 a,
|
|
adtb00003 b
|
|
WHERE a.sec_vend = b.num_emp
|
|
order by 2
|
|
CALL k2vendedor.clear()
|
|
|
|
FOREACH bvendedor INTO k1vendedor,dvendedor
|
|
CALL k2vendedor.additem(k1vendedor,dvendedor)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|