procedure TFPedidoMod.BitBtn2Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
QHistorico.SQL.Text:= 'Insert Into historico (no, no_ped, dpto, responsable, fecha_rec_ped, status, user, date)'+
' values ('+QuotedStr(DBEdit18.Text)+', '+QuotedStr(DBEdit7.Text)+', '+QuotedStr(DBLookupComboBox6.Text)+', '+QuotedStr(DBLookupComboBox8.Text)+', '+QuotedStr(DBEdit15.Text)+', '+QuotedStr(DBLookupComboBox1.Text)+', '+QuotedStr(DBEdit16.Text)+', '+QuotedStr(DBEdit17.Text)+')';
QHistorico.ExecSQL;
MessageDlg('Los Datos se grabaron exitosamente!',mtError,[mbOK],0);
end;
end;