17. April 2014 12:00
17. April 2014 13:54
17. April 2014 15:20
20. April 2014 17:57

SetFAReversalMark(VAR ReversalEntry : Record "Reversal Entry";VAR FALedgEntry : Record "FA Ledger Entry";NextEntryNo : Integer)
IF FALedgEntry."Reversed Entry No." <> 0 THEN BEGIN
  FALedgEntry2.GET(FALedgEntry."Reversed Entry No.");
  IF FALedgEntry2."Reversed Entry No." <> 0 THEN
    ERROR(Text005);
  CloseReversal := TRUE;
  FALedgEntry2."Reversed by Entry No." := 0;
  FALedgEntry2.Reversed := FALSE;
  //OS001s os.jgl
  IF FALedgEntry2."Canceled from FA No." <> '' THEN BEGIN
    FALedgEntry2."FA No." := FALedgEntry2."Canceled from FA No.";
    FALedgEntry2."Canceled from FA No." := '';
  END ELSE BEGIN
    FALedgEntry2."Canceled from FA No." := FALedgEntry2."FA No.";
    FALedgEntry2."FA No." := '';
  END;
  //OS001e os.jgl
  FALedgEntry2.MODIFY;
END;
FALedgEntry."Reversed by Entry No." := NextEntryNo;
IF CloseReversal THEN
  FALedgEntry."Reversed Entry No." := NextEntryNo;
FALedgEntry.Reversed := TRUE;
//OS001s os.jgl
IF FALedgEntry."FA No." <> '' THEN BEGIN
  FALedgEntry."Canceled from FA No." := FALedgEntry."FA No.";
  FALedgEntry."FA No." := '';
END ELSE BEGIN
  FALedgEntry."FA No." := FALedgEntry."Canceled from FA No.";
  FALedgEntry."Canceled from FA No." := '';
END;
//OS001e os.jgl
FALedgEntry.MODIFY;
FALedgEntry."Reversed by Entry No." := 0;
FALedgEntry."Reversed Entry No." := FALedgEntry."Entry No.";
IF CloseReversal THEN
  FALedgEntry."Reversed by Entry No." := FALedgEntry."Entry No.";
ReversalEntry.SETCURRENTKEY("Entry Type");
ReversalEntry.SETRANGE("Entry Type",ReversalEntry."Entry Type"::"Fixed Asset");
IF ReversalEntry.FIND('-') THEN
  REPEAT
    IF ReversalEntry."Entry No." = FALedgEntry."Entry No." THEN
      FALedgEntry.Description := ReversalEntry.Description;
  UNTIL ReversalEntry.NEXT = 0;
...
    //OS001s os.jgl
    FALedgEntry3."FA No." := CheckAccNo;
    //OS001e os.jgl
    FACheckConsistency.RUN(FALedgEntry3);
...
28. April 2014 10:29