Ir para conteúdo
Fórum Script Brasil
  • 0

Erro no código contendo abort


Nélio Silva

Pergunta

Olá, preciso de uma ajuda em programação Delphi.

Estou com esta linha de código, no evento BeforePost de um table tblProduto (formulário cadastro de produtos) onde retorna um erro na linha do ABORT; e eu não consigo descobrir o que é, alguém poderia me ajudar? Agradeço desde já.
O erro que aparece é: statement expected, but expression of type ''''Integer'''' found

procedure TfrmCadProdutos.tblProdutoBeforePost(DataSet: TDataSet);
begin
if (dbedtDescricao.text = '''''''') then
begin
MessageBox(handle,''''Informe a Descrição do produto'''',''''Produtos'''',MB_ICONEXCLAMATION);
Abort;
end;

if MessageBox(handle,''''Salvar as informações do produto?'''',''''Produtos'''',MB_ICONQUESTION+MB_YESNO)<>ID_YES then
Abort;

if tblProduto.State=dsInsert then
tblProdutoCodigo_Prd.Value:=NovoNumero(''''AulaBD'''',''''Produtos'''',''''Codigo_Prd'''');

end;

end.

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...