14 lines
402 B
Plaintext
14 lines
402 B
Plaintext
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 |