TransLine2.RESET;
TransLine2.SETFILTER("Document No.",TransHeader."No.");
IF TransLine2.FIND('+') THEN
"Line No." := TransLine2."Line No." + 10000;
Удаляем этот код -> Получаем первый раз сторку с "Line No." = 0, первый раз это пройдет, если нет в данном документе номера строки = 0, второй - получим error по ключу. При условии, конечно, что вы не вписываете номер строки вручную.