ActiveDelphi

[lukas1239]

procedure TfForma.IncluirClick(Sender: TObject);
begin
with DM.QFORMA do
begin
Close;
sql.Clear;
sql.add('select * from FORMAPAGAMENTO where FormaCod = :vFormaCod');
parambyname('vFormaCod').AsString := FormaCod.Text;
prepare;
Open;
end;
if not DM.QForma.Eof then
begin
beep;
Application.Messagebox('Código utilizado para outro Forma de Pagamento verifique último registro...','Atenção',MB_IconExclamation+MB_Ok);
with DM.QForma do
begin
Close;
sql.Clear;
sql.add('select * from FORMAPAGAMENTO where FormaCod = :vFormaCod');
parambyname('vFormaCod').AsString := FormaCod.Text;
prepare;
Open;
Last;
end;