TOPIC:

function BearbeiteAuftragsPosition(IDAuftrag: integer; IDPosition: integer; Neu: boolean): boolean;
var
  Suchtext: string;
  LastRec: integer;
  PosNeu: integer;
  IDArtikel, IDPreis: integer;
  StSatz, FStSatz: string;
  F: TfrmPosition;
  LDat: boolean;
begin
  with dtmAuftrag do
  begin
    if IDPosition = 0 then
      if MessageDlg('Es sind noch keine Positionen vorhanden. Wollen Sie jetzt eine anlegen?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        Neu := True
      else
      begin
        Result := False;
        exit;
      end;
    LDat := False;
    case dtmAuftrag.qryAuftragsListe.FieldByName('auf_typ').AsInteger of
      10, 40, 50, 53, 59: LDat := True;
    end;
    if Neu then
    begin
      CreateNewPosition(IDPosition);
      case dtmAuftrag.qryAuftragsListe.FieldByName('auf_typ').AsInteger of
        10, 40, 50, 53, 59:
        begin
          with dtmBasis.Calendar do
          begin
            Title := 'Leistungsdatum';

            Date :=now;
            if Execute then
            begin
              WriteIniFile('Auftrag', 'Leistungsdatum', FormatDateTime('dd.mm.yyyy', Date));
              ExecSQLDirect(dtmBasis.qrySQL, 'UPDATE AuftragsPositionen SET apo_leistungsdatum ="' + FormatDateTime(
                'yyyymmdd', Date) + '" where idauftragsposition=' + IntToStr(IDPosition));
            end
            else
            begin
              WriteIniFile('Auftrag', 'Leistungsdatum', FormatDateTime('dd.mm.yyyy', Date));
              ExecSQLDirect(dtmBasis.qrySQL, 'UPDATE AuftragsPositionen SET apo_leistungsdatum ="' + FormatDateTime(
                'yyyymmdd', Date) + '" where idauftragsposition=' + IntToStr(IDPosition));
              ShowMessage('Heutiges Datum wird als Leistungsdatum übernommen!');
            end;
          end;
        end;
      end;
    end;
    if IDPosition > 0 then
    begin
      OpenSQLSet(qryPosition, 'Select * from AuftragsPositionen where idauftragsposition = ' + IntToStr(IDPosition));
      BerechnePosition;

      F := TfrmPosition.Create(nil);
      F.dbdLeistungsdatum.Visible := LDat;
      F.lblLeistungsdatum.Visible := LDat;
      F.dbeMitarbeiter.Visible := LDat;
      F.lblMitarbeiter.Visible := LDat;

      if qryPositionsListe.FieldByName('colorn').AsVariant <> NULL then
        F.pnlHeader.Color := qryPositionsListe.FieldByName('colorn').AsVariant;
      if qryAuftragsListe.FieldByName('fk_auftragssteuerart').AsInteger = 3 then // §13b UStG
      begin
        F.lblUStG.Visible := True;
        F.dblSteuersatz.Enabled := False;
      end
      else
      begin
        F.lblUStG.Visible := False;
        F.dblSteuersatz.Enabled := True;
      end;
      try
        F.ShowModal;                                                          // ALL OK UNTIL NOW - form is shown. DoSave is public
        if DoSave then                                                       
        begin
          if qryPosition.State = dsEdit then
            qryPosition.ApplyUpdates;
          if qryPosition.FieldByName('fk_posart').AsInteger=2 then
             ExecSQLDirect(dtmBasis.qrySQL,'Update AuftragsPositionen set apo_artikelgruppe=0 ,  apo_herstellernummer="", apo_seriennummer="",'+
             'apo_mengeneinheit="", apo_staffel=0, apo_zeit=0, apo_lohn=0, apo_service=0, apo_material=0, apo_geraet=0, apo_fremdleistung=0,'+
             'apo_menge=0, apo_netto_vk=0, apo_rabatt=0,  apo_mitarbeiter="" '+
             'where idauftragsposition=' + qryPosition.FieldByName('idauftragsposition').AsString);


          qryPositionsListe.Refresh;
          qryPositionsListe.Locate('idauftragsposition', qryPosition.FieldByName('idauftragsposition').AsInteger, []);
          Result := True;
        end
        else
        begin
          qryPosition.CancelUpdates;
          Result := False;
        end;
      finally
        FreeAndNil(F);
      end;
    end;
  end;
end;     


procedure TfrmPosition.btnSpeichernClick(Sender: TObject);
begin
  DoSave := True;
  Close;                                              // <<<<<<<<<<<<<<<<<<<<<<<<<<< THE ERROR RISES HERE
end;

DoSave := True;