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