Показать сообщение отдельно
Старый 11.11.2011, 14:34   #1  
Fly is offline
Fly
Участник
Аватар для Fly
 
102 / 10 (1) +
Регистрация: 05.10.2007
Всем привет!
Обнаружил следуюищй код в 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;
...
Т.е. если раздел заканчивается на циферку (т.е. его можно увеличить с помощью функции INCSTR), то после учета этот раздел удаляется и создается новый.
Ладно, это один странный момент. Но второй кусок кода создает пусную строку с этим разделом. Вопрос: Есть предположения почему так сделано?

Благодарю за ответы!