Fórum Como deixar um formulário em modo de inserção e edição ??? #213112
11/02/2004
0
Saudações a todos... como faço para que um formulário que é o cadastro de Entrada de um controle de estoque que quando for inserida uma nota fiscal já cadastrada o formulário passe do modo de Inserção para o modo de edição.
Para inserir um novo registro estou usando : dtm.tblEntrada.Insert;
Mas dai quando é cadastrada uma NF que já foi cadastrada é mostrada uma mensagem de violação de chave primária.
Obrigado a todos ate +
Para inserir um novo registro estou usando : dtm.tblEntrada.Insert;
Mas dai quando é cadastrada uma NF que já foi cadastrada é mostrada uma mensagem de violação de chave primária.
Obrigado a todos ate +
Jeancainelli
Curtir tópico
+ 0
Responder
Posts
11/02/2004
Vinicius2k
Colega,
Vc pode checar no OnExit do Edit com o número, com uma query , por exemplo, se o número da N.F já existe... se existir vc aborta a inserção, localiza o registro na tabela e entra em modo de edição...
Essa é só a idéia geral... se quiser posta outra vez q a gente te ajuda com o código...
Espero ter ajudado...
T+
Vc pode checar no OnExit do Edit com o número, com uma query , por exemplo, se o número da N.F já existe... se existir vc aborta a inserção, localiza o registro na tabela e entra em modo de edição...
Essa é só a idéia geral... se quiser posta outra vez q a gente te ajuda com o código...
Espero ter ajudado...
T+
Responder
Gostei + 0
11/02/2004
Aroldo Zanela
Colega,
Faça uma pesquisa antes, a seguir utilize o método apropriado, por exemplo:
Faça uma pesquisa antes, a seguir utilize o método apropriado, por exemplo:
If dtm.tblEntrada.Locate(´cnpj;numero´, VarArrayOf([cCNPJ, cNumero]), []) then dtm.tblEntrada.Edit else dtm.tblEntrada.Append;
Responder
Gostei + 0
17/03/2004
Jeancainelli
Amigos...
Não entendi o funcionamento desta :
If dtm.tblEntrada.Locate(´cnpj;numero´, VarArrayOf([cCNPJ, cNumero]), []) then
dtm.tblEntrada.Edit
else
dtm.tblEntrada.Append;
Também não consegui realizar a pesquiza para saber se ja foi digitado a NF,
Tenho como principais campos da pesquisa :
NumNota : integer; //Numero da NF
CodFor : integer //Codigo do Fornecedor
Serie : string; // Serie da NF
Não entendi o funcionamento desta :
If dtm.tblEntrada.Locate(´cnpj;numero´, VarArrayOf([cCNPJ, cNumero]), []) then
dtm.tblEntrada.Edit
else
dtm.tblEntrada.Append;
Também não consegui realizar a pesquiza para saber se ja foi digitado a NF,
Tenho como principais campos da pesquisa :
NumNota : integer; //Numero da NF
CodFor : integer //Codigo do Fornecedor
Serie : string; // Serie da NF
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)