HELENO de Sant'Anna

Boa noite, Jhonas. Primeiramente obrigado pelo comentário. Acabei de Resolver o problema descrito acima. Era um erro em um CAMPO CALCULADO. Pense numa sofrência. Segui seu conselho e debuguei o Projeto com paciência até identificar com precisão onde estava o erro. Valeu mesmo!

Boa tarde, Não consegui ainda resolver o problema acima descrito. No entanto pensei: se o erro só ocorre quando aciono o botão NOVO então ele (erro) deve estar relacionado ao código desse botão?. Então deletei praticamente todo o código desse botão (numeração automática etc.) e deixei apenas a linha de código: dm_dadosSeduc.tbl_requerimentos.Append; Resultado: a mensagem não aparece mais quando aciono o botão NOVO, no entanto, não consigo inserir um novo registro pois digito qualquer valor no primeiro campo do formulário (que é um campo integer) e dou um TAB aí a irritante mensagem retorna a aparecer (Could not convert variant of type (Null) into type (Integer)). Ou seja, é como se existisse um problema de conexão entre o formulário e o banco, mas já olhei todo o código e não consegui descobrir. IMPORTANTE 01: Diretamente no banco consigo inserir registros normalmente. IMPORTANTE 02: Quando aciono o botão NOVO do formulário descrito nos posts anteriores, cria-se um registro em branco no DBGrid do formulário, mas não consigo inserir dados nesse registro. Alguém já teve alguma experiência semelhante? Aguardo resposta, por favor.

Muito obrigado Jhonas, Vou dar uma olhada no meu código, qualquer coisa volto.

Galera, estou precisando muito dessa ajuda. No meu projeto tenho um formulário cujo nome é frmRequerimentos. Ele vinha funcionando normalmente, mas de uns dias pra cá passou apresentar o seguinte problema: quando clico no botãoNOVO dá um erro com a mensagem: 'Could not convert variant of type (Null) into type (Integer)'. IMPORTANTE: A seta verde fica posicionada na seguinte linha de código: dm_dadosSeduc.tbl_requerimentos['NomePeriodo']:= (IntToStr(dm_dadosSeduc.tbl_requerimentos['REQ_PERIODO'])+' '+'DIAS'+' '+'('+'DE:'+' '+DateToStr(dm_dadosSeduc.tbl_requerimentos['REQ_DATAINICIO'])+ ' '+'ATÉ'+' '+DateToStr(dm_dadosSeduc.tbl_requerimentos['REQ_DATATERMINO'])+')'); Acontece que apaguei essa linha de código e continua apresentando o mesmo erro. Não sei mas como resolver. Um abraço, por favor me ajudem.

Na tabela seguinte faço o cadastro de todas as escolas municipais do município aonde moro: -------------------------------------------------------------------------------------------------------------------------- CREATE TABLE "ESCOLAORGAO" ( "ESC_CODIGO" INTEGER NOT NULL, "ESC_NOME" VARCHAR(50) NOT NULL, "ESC_CODINEP" VARCHAR(8), "ESC_LOGRADOURO" INTEGER NOT NULL, "ESC_ENDERECO" VARCHAR(60), "ESC_NUMERO" VARCHAR(10), "ESC_BAIRRO" VARCHAR(40), "ESC_CIDADE" INTEGER NOT NULL, "ESC_ESTADO" INTEGER NOT NULL, "ESC_TELEFONE" VARCHAR(15), "ESC_EMAIL" VARCHAR(40), "ESC_CEP" VARCHAR(9), "ESC_ALUNOS" VARCHAR(5), "ESC_LOCALIZACAO" CHAR(1), "ESC_DATACADASTRO" TIMESTAMP, "ESC_OBSERVACOES" VARCHAR(150), "ESC_CNPJ" VARCHAR(18), "ESC_LOGO" VARCHAR(50), "ESC_CADASTROESCOLAR" VARCHAR(10), "ESC_PORTARIA" VARCHAR(10), "ESC_DATAPORTARIA" TIMESTAMP, "ESC_COMPLEMENTO" VARCHAR(20), "ESC_TIPOINSTITUICAO" CHAR(1), CONSTRAINT "ESCOLAORGAO_PK" PRIMARY KEY ("ESC_CODIGO") ); CREATE INDEX "IND_COD_ESCOLAORGAO" ON "ESCOLAORGAO"("ESC_CODIGO"); CREATE INDEX "IND_NOME_ESCOLAORGAO" ON "ESCOLAORGAO"("ESC_NOME"); ALTER TABLE "ESCOLAORGAO" ADD CONSTRAINT "ESCCID_FK" FOREIGN KEY ("ESC_CIDADE") REFERENCES "CIDADES" ("CID_CODIGO"); ALTER TABLE "ESCOLAORGAO" ADD CONSTRAINT "ESCESTADO_FK" FOREIGN KEY ("ESC_ESTADO") REFERENCES "ESTADOS" ("EST_CODIGO"); ALTER TABLE "ESCOLAORGAO" ADD CONSTRAINT "ESLOG_FK" FOREIGN KEY ("ESC_LOGRADOURO") REFERENCES "LOGRADOUROS" ("LOG_CODIGO"); --------------------------------------------------------------------------------------------------------------------------------------------------------------------- Como os DIRETORES já são cadastrados na tabela FUNCIONÁRIOS, então eu pretendo criar um CAMPO CALCULADO direto na tabela ESCOLAS para EXIBIR o nome do(a) Diretor(a). Então usei o seguinte código SQL: alter table escolaOrgao add esc_diretor COMPUTED BY (( select fun_nome from funcionarios join cargoFuncao on (fun_funcao = car_codigo) where car_nome = 'DIRETOR(A)')); Só que dá ERRO quando vou abrir a tabela ESCOLAS pois o código SQL acima lista o nome de todos os diretores de todas as escolas e não de uma escola específica. Desse modo, como eu posso incrementar o código SQL acima para para que ele liste apenas o nome do diretor cadastrado para a escola na tabela funcionários? Parte do código da tabela funcionários: CREATE TABLE "FUNCIONARIOS" ( "FUN_CODIGO" INTEGER NOT NULL, "FUN_NOME" VARCHAR(60) NOT NULL, "FUN_VINCULOEMPREGATICIO" INTEGER NOT NULL, "FUN_CARGO" INTEGER NOT NULL, "FUN_FUNCAO" INTEGER NOT NULL, "FUN_DATAADMISSAO" TIMESTAMP, "FUN_ESCOLAORGAO" INTEGER NOT NULL, . . . Ficarei muito grato por quem puder me ajudar. Desde já um abraço a todos.