15 lines
524 B
Plaintext
15 lines
524 B
Plaintext
FUNCTION suplidor(xcod_sp,xcod_sp_Sec,xtipo_ncf)
|
|
DEFINE xcod_sp,xcod_sp_Sec,xtipo_ncf INT,
|
|
descripcion_ncf,nom_sup VARCHAR(80),
|
|
cuenta_mayor VARCHAR(8)
|
|
|
|
SELECT a.descripcion INTO descripcion_ncf FROM cgtb00074 a
|
|
WHERE a.codigo_fiscal=xtipo_ncf
|
|
|
|
SELECT a.nom_sp,a.cuenta_no INTO nom_sup,cuenta_mayor FROM cotb00001 a
|
|
WHERE a.cod_sp = xcod_sp and
|
|
a.cod_sp_sec = xcod_sp_sec
|
|
|
|
|
|
RETURN nom_sup,descripcion_ncf,cuenta_mayor
|
|
END FUNCTION |