37 lines
1.5 KiB
Plaintext
37 lines
1.5 KiB
Plaintext
|
|
FUNCTION cvendedor(xusuario)
|
|
DEFINE k1vendedor SMALLINT, dvendedor CHAR(60),
|
|
k2vendedor ui.combobox,
|
|
tipo_vendedor VARCHAR(10),
|
|
xusuario VARCHAR(50),
|
|
selec STRING
|
|
|
|
LET k2vendedor = ui.combobox.forname("formonly.kvendedor")
|
|
IF xusuario = "ALL" THEN
|
|
LET selec = "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 RTRIM(CAST(b.nom1_emp AS CHAR(30)))+' ' +
|
|
RTRIM(CAST(b.apell1_emp AS CHAR(30)))+'('+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+')' "
|
|
ELSE
|
|
LET selec = "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,seg0007 c
|
|
WHERE a.sec_vend = b.num_emp AND c.usuario ='",xusuario CLIPPED,"' AND c.sec_vend = b.num_emp ",
|
|
"order by RTRIM(CAST(b.nom1_emp AS CHAR(30)))+' ' +
|
|
RTRIM(CAST(b.apell1_emp AS CHAR(30)))+'('+LTRIM(CAST(b.num_emp AS VARCHAR(6)))+')' "
|
|
|
|
END IF
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE bvendedor CURSOR FOR comando
|
|
|
|
CALL k2vendedor.clear()
|
|
|
|
FOREACH bvendedor INTO k1vendedor,dvendedor
|
|
CALL k2vendedor.additem(k1vendedor,dvendedor)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|