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