1:
2:
3:
4:
5:
6:
7:

    TransactionCommit(trsAuftragsDaten);  // Commitet die Transaktion wenn noch offen
    StartTransaction(qryAuftragsDaten);   // Startet die Transaktion die an der IBSQL hängt
    qryAuftragsDaten.ParamByName('ACod').AsString := AuftragInfo.ACod;
    qryAuftragsDaten.ParamByName('APos').AsString := AuftragInfo.APos;
    qryAuftragsDaten.ParamByName('BJahr').AsInteger := AuftragInfo.BJahr;
    qryAuftragsDaten.ParamByName('BPos').AsInteger := AuftragInfo.BPos;
    qryAuftragsDaten.ExecQuery;