11.11.2011, 14:34 | #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; ... Ладно, это один странный момент. Но второй кусок кода создает пусную строку с этим разделом. Вопрос: Есть предположения почему так сделано? Благодарю за ответы! |
|