|
|
#1 |
|
Участник
|
Всем привет!
Обнаружил следуюищй код в CU 13 Gen. Jnl.-Post Batch: Код: ...
GenJnlLine3.RESET;
GenJnlLine3.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine3.SETRANGE("Journal Batch Name","Journal Batch Name");
IF NOT GenJnlLine3.FINDLAST THEN
IF INCSTR("Journal Batch Name") <> '' THEN BEGIN
GenJnlBatch.DELETE;
IF GenJnlTemplate.Type = GenJnlTemplate.Type::Assets THEN
FAJnlSetup.IncGenJnlBatchName(GenJnlBatch);
GenJnlBatch.Name := INCSTR("Journal Batch Name");
IF GenJnlBatch.INSERT THEN;
"Journal Batch Name" := GenJnlBatch.Name;
END;
GenJnlLine3.SETRANGE("Journal Batch Name","Journal Batch Name");
IF (GenJnlBatch."No. Series" = '') AND NOT GenJnlLine3.FINDLAST THEN BEGIN
GenJnlLine3.INIT;
GenJnlLine3."Journal Template Name" := "Journal Template Name";
GenJnlLine3."Journal Batch Name" := "Journal Batch Name";
GenJnlLine3."Line No." := 10000;
GenJnlLine3.INSERT;
TempGenJnlLine2 := GenJnlLine2;
TempGenJnlLine2."Balance (LCY)" := 0;
GenJnlLine3.SetUpNewLine(TempGenJnlLine2,0,TRUE);
GenJnlLine3.MODIFY;
END;
...Ладно, это один странный момент. Но второй кусок кода создает пусную строку с этим разделом. Вопрос: Есть предположения почему так сделано? Благодарю за ответы! |
|
|