Ir para conteúdo
Fórum Script Brasil

Nélio Silva

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Nélio Silva

Nélio Silva's Achievements

0

Reputação

  1. 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.
×
×
  • Criar Novo...