Menu de navegação

[MagraowaRParticipante]

Ola a todos, este é o meu primeiro post pois estou iniciando os estudos na area Oracle forms.

Minha duvida:

criei uma tela para cadastro e consultas de cidade e nela coloquei um botao para inserir o cadastro com a seguinte trigger:

——————
BEGIN
IF :B01.CD_CIDADE IS NOT NULL THEN
INSERT INTO CIDADE
(CD_CIDADE,CD_PAIS,CD_UF,DS_CIDADE)
VALUES (:B01.CD_CIDADE,:B01.CD_PAIS,:B01.CD_UF,:B01.DS_CIDADE);
MENSAGEM(‘Cidade cadastrada com sucesso!’);

ELSE
MENSAGEM(‘Digite um codigo de Cidade para cadastrar ou consultar!’);
END IF;

EXCEPTION
WHEN NO_DATA_FOUND THEN
MENSAGEM(‘Cidade não cadastrada!’);
:B01.CD_PAIS := NULL;
:B01.DS_PAIS := NULL;
:B01.CD_UF := NULL;
:B01.DS_UF := NULL;
:B01.DS_CIDADE:=NULL;
WHEN DUP_VAL_ON_INDEX THEN
MENSAGEM(‘Cidade já cadastrada!’);
:B01.CD_PAIS := NULL;
:B01.DS_PAIS := NULL;
:B01.CD_UF := NULL;
:B01.DS_UF := NULL;
:B01.DS_CIDADE:=NULL;
WHEN OTHERS THEN
MENSAGEM(‘Erro ao Cadastrar ou Consultar Cidade!’|| CHR(10) || ‘Erro: ‘ || SQLERRM);
END;
———————-

feito isso compilou tudo certinho. salvei e quando vou testar no sistema, ele trava depois que eu aperto o botao. E tenho q fechar o programa.

Gostaria de uma ajuda, no q estou errando ou esquecendo

Obrigado a todos!

-edit-
Estou usando o Forms 6i, e tambem se eu for salvar o cadastro pelo botao padrao nada acontece e nao salva. Fiz outras janelas de cadastro e tudo funcionou normalmente, somente nesta q nao.

[MagraowaRParticipante]

-caso resolvido- Os campos de descriçao da cidade que puxava de outra tabela estava na paleta de propriedades como Item de Banco de Dados, só coloquei como ‘Não’ e agora esta tudo fuincionando.

[Autor]

Posts