22. April 2010 10:50
lr_impLog.RESET;
lr_impLog.SETCURRENTKEY(Importnummer,Laufnummer);
lr_impLog.SETRANGE(Importnummer);
IF lr_impLog.FINDFIRST THEN
  BEGIN
     REPEAT
       lr_geldein."Import-Nr" := lr_impLog.Importnummer;
       lr_geldein.INSERT(FALSE);
     UNTIL lr_impLog.NEXT = 0;
  END;
22. April 2010 10:59
22. April 2010 11:01
lr_impLog.RESET;
lr_impLog.SETCURRENTKEY(Importnummer,Laufnummer);
lr_impLog.SETRANGE(Importnummer);
IF lr_impLog.FINDSET(FALSE) THEN  // <-- FINDSET anstelle von FINDFIRST
  REPEAT
    lr_geldein."Import-Nr" := lr_impLog.Importnummer;
    IF lr_geldein.INSERT(FALSE) THEN  // <-- Rückgabewert abfragen
      ;
  UNTIL lr_impLog.NEXT = 0;22. April 2010 11:24