Porque esta linha não precisa de ponto-e-vírgula ( ; ) ?
Linha
Código
Linha
Código:
TableItensValorUnitario.AsCurrency := TableProdutos.FieldByName('Preco').AsCurrency
Código:
if TableItensCodigoProduto.AsString <> '' then begin if TableProdutos.FindKey([TableItensCodigoProduto.AsInteger]) then TableItensValorUnitario.AsCurrency := TableProdutos.FieldByName('Preco').AsCurrency else begin ShowMessage('Código Inválido'); Abort; end;
Comment