declare
WW_mês VARCHAR(30);
WW_ANO NUMBER(40);
BEGIN
:BL001.DT_REFERENCIA := LPAD(:BL001.DT_REFERENCIA,6,0);
WW_mês := SUBSTR(REPLACE(REPLACE(:BL001.DT_referencia,'-',''),'/',NULL),1,2);
WW_ANO := SUBSTR(REPLACE(REPLACE(:BL001.DT_referencia,'-',''),'/',NULL),3,4);
WW_mês := RPAD(WW_mês,3,'/');
IF (ww_mês < TO_CHAR(TRUNC(SYSDATE),'MM/')) and (ww_ano <= to_char(trunc(sysdate),'yyyy')) THEN
ALERTA('Não é possível alterar as informações com data anterior ao dia de hoje: '||to_char(sysdate,'dd/mm/yyyy'),'A',1);
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
GO_BLOCK('BL001');
GO_ITEM('BL001.DT_REFERENCIA');
alerta ('erro... '||sqlerrm,'A',0);
END;
eu coloquei isso um when_validate_item e aparentimente esta certo mais não funciona.... alguém poderia mi ajudar?