------------------------------------------------------------------------------------
|cd_setor | ds_setor |ds_local | etc | etc |
------------------------------------------------------------------------------------
|1 | adm |grajau | etc | etc |
------------------------------------------------------------------------------------
|2 | almox |grajau | etc | etc |
------------------------------------------------------------------------------------
informei que nesse bloco é exibido 5 items. no final de cada linha tem um botão que ao clicar eu quero que atualize uma tabela..
o código do botão é o seguinte:
ALERT NUMBER;
BEGIN
-- UPDATE DBAMV.CARRINHO_PARADA SET SN_REABASTECEU = 'S' WHERE CD_ITMVTO_ESTOQUE = :CARRINHO_PARADA.CD_ITMVTO_ESTOQUE;
UPDATE dbamv.carrinho_parada
SET sn_reabasteceu = 'S' ,
cd_usuario_reabasteceu = user ,
dt_reabasteceu = sysdate
WHERE cd_itmvto_estoque = :CARRINHO_PARADA.CD_ITMVTO_ESTOQUE;
COMMIT;
SET_ALERT_PROPERTY('ALERTA',alert_message_text,'O REGISTRO '|| :CARRINHO_PARADA.CD_ITMVTO_ESTOQUE || ' FOI ATUALIZADO COM SUCESSO!!!');
ALERT := SHOW_ALERT('ALERTA');
GO_BLOCK('CARRINHO_PARADA');
CLEAR_BLOCK;
FIRST_RECORD;
FOR RECORD IN ( SELECT * FROM DBAMV.CARRINHO_PARADA WHERE SN_REABASTECEU = 'N') LOOP
:CARRINHO_PARADA.CD_ITMVTO_ESTOQUE := RECORD.CD_ITMVTO_ESTOQUE;
:CARRINHO_PARADA.CD_MVTO_ESTOQUE := RECORD.CD_MVTO_ESTOQUE ;
:CARRINHO_PARADA.CD_USUARIO_REABASTECEU := RECORD.CD_USUARIO_REABASTECEU;
:CARRINHO_PARADA.SN_REABASTECEU := RECORD.SN_REABASTECEU;
:CARRINHO_PARADA.DT_REABASTECEU := RECORD.DT_REABASTECEU;
:CARRINHO_PARADA.CD_SOLSAI_PRO := RECORD.CD_SOLSAI_PRO;
:CARRINHO_PARADA.CD_ITSOLSAI_PRO := RECORD.CD_ITSOLSAI_PRO;
CREATE_RECORD;
END LOOP;
END;
alguém tem ideia do que pode ser?
Thanks