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