IMPORT util
FUNCTION itbis_descuento()
  DEFINE parametros   RECORD
         prima_us   DEC(12,2),
         itbis      DEC(12,2),
         porc_desc  DEC(12,2)
       END RECORD

       
       SELECT a.prima,a.itbi,a.porciento 
       INTO parametros.* FROM vetb00019 a WHERE a.disponible = 'S'
      DISPLAY "ITBIS ",parametros.itbis
  RETURN util.JSON.stringify(parametros)
END FUNCTION