"Gen. Journal Line".Description := AnsiToAscii.Ansi2Ascii(COPYSTR(Desc,1,50)); IF Dim1 <> '' THEN "Gen. Journal Line".VALIDATE("Shortcut Dimension 1 Code",Dim1); IF Dim2 <> '' THEN "Gen. Journal Line".VALIDATE("Shortcut Dimension 2 Code",Dim2); IF Dim3 <> '' THEN "Gen. Journal Line".ValidateShortcutDimCode(3,Dim3); IF Amount=0 THEN BEGIN InsertLogDesc('Ligne avec montant = 0 -> ',FORMAT(LineNo)); CurrDataport.SKIP; END; "Gen. Journal Line".INSERT(TRUE); lineInsert := lineInsert + 1; CODEUNIT.RUN(CODEUNIT::"Gen. Jnl.-Check Line","Gen. Journal Line");
Comments
Have you tried running with the debugger?
Regards
TrippyZ