DECLARE
THIS COMPRA_TP;
BEGIN
THIS := COMPRA_TP();
THIS.CARREGAR(1);
THIS.RETIRAR_ESTOQUE();
END;