Erro no evento BeforPost do delphi, na linha onde aparece escrito abort;

10/09/2021

3

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.
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar