IF THEN ELSE - NAV: Программирование

srg · 23.10.2013, 16:22

Уважаемые форумчане, помогите.
Выгружаю в цыкле строки, делаю условие if then else, Для выгрузки сумм с + в поле б, с суммой -, в поле г, но оно почему-то выгружает лишь ноли, и все время в одну строку, хотя в строках суммы и с плюсом и минусом ???WTF??

Код:

i:=18;
VendorLEDENTRY.RESET;
VendorLEDENTRY.SETRANGE(VendorLEDENTRY."Vendor No.",VendorCode);
VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE);
IF VendorLEDENTRY.FINDSET THEN
      REPEAT
      ExcelMgt.FillCell('B'+FORMAT(i),FORMAT(VendorLEDENTRY."Posting Date"));
      ExcelMgt.FillCell('C'+FORMAT(i),FORMAT(VendorLEDENTRY.Description));
      IF VendorLEDENTRY."Original Amount"<0 THEN
            ExcelMgt.FillCell('F'+FORMAT(i),FORMAT(VendorLEDENTRY.Amount))
            ELSE
                 ExcelMgt.FillCell('G'+FORMAT(i),FORMAT(VendorLEDENTRY.Amount));
 i+=1;
UNTIL VendorLEDENTRY.NEXT=0;

zuzka · 23.10.2013, 16:34

Если в фильтре VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE); OnDate < DateAE - он выбирает 0 записей (попробуйте отфильтровать прямо в классике таблицу по такому фильтру).
В Вашем случае придется перебирать отдельно 2 раза, что-то в таком роде:

Код:

VendorLEDENTRY.SETRANGE("Posting Date",0D,OnDate);
... перебор записей.....

VendorLEDENTRY.SETRANGE("Posting Date",DateAE,WORKDATE); //за последнюю дату принимается рабочая, либо по TODAY выбирать
... перебор записей.....

Хотя вообще странно что FINDSET что-то нашел....
З.Ы. а проверяете вы "Original Amount", но выгружаете Amount - тоже странно

/>

srg · 23.10.2013, 16:36

Цитата:

Сообщение от zuzka

фильтр VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE) работает корректно? попробуйте отфильтровать прямо в классике таблицу по такому фильтру.

фильтр корректно работает, строки выводит именно за период, но проблема именно в условии, если сумма<0
оно лупит все в одну строку,и лупит только ноли))

Проверяю, "Original Ammount", выгружаю тоже, это ошибка была)

zuzka · 23.10.2013, 16:48

Цитата:

Сообщение от Fierce

Цитата:

Сообщение от zuzka

фильтр VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE) работает корректно? попробуйте отфильтровать прямо в классике таблицу по такому фильтру.

фильтр корректно работает, строки выводит именно за период, но проблема именно в условии, если сумма<0
оно лупит все в одну строку,и лупит только ноли))

проверьте еще раз что вы выгружаете... Amount или нужен "Original Amount"?
На счет что все в одну строку - после фильтров, перед FINDSET, допишите
MESSAGE(FORMAT(VendorLEDENTRY.COUNT)) - и увидите сколько записей нашлось, ну и MESSAGE(FORMAT(i)) внутри цикла - тоже ради интереса.

Eugeny_F · 23.10.2013, 16:50

Если мне не изменяет память, "Original Amount" в Vendor Ledger Entry это FlowField. Добавьте после REPEAT CALCFIELDS("Original Amount"), и будет Вам счастье.

srg · 23.10.2013, 16:51

Цитата:

Сообщение от zuzka

Цитата:

Сообщение от Fierce

Цитата:

Сообщение от zuzka

фильтр VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE) работает корректно? попробуйте отфильтровать прямо в классике таблицу по такому фильтру.

фильтр корректно работает, строки выводит именно за период, но проблема именно в условии, если сумма<0
оно лупит все в одну строку,и лупит только ноли))

проверьте еще раз что вы выгружаете... Amount или нужен "Original Amount"?

выгружаю "Original Amount", но проблема одна и та же.
calcfields сделал, не помогло,.

Captain · 23.10.2013, 16:53

Цитата:

Сообщение от Fierce

Уважаемые форумчане, помогите.
Выгружаю в цыкле строки, делаю условие if then else, Для выгрузки сумм с + в поле б, с суммой -, в поле г, но оно почему-то выгружает лишь ноли, и все время в одну строку, хотя в строках суммы и с плюсом и минусом ???WTF??

Код:

i:=18;
VendorLEDENTRY.RESET;
VendorLEDENTRY.SETRANGE(VendorLEDENTRY."Vendor No.",VendorCode);
VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE);
IF VendorLEDENTRY.FINDSET THEN
      REPEAT
      ExcelMgt.FillCell('B'+FORMAT(i),FORMAT(VendorLEDENTRY."Posting Date"));
      ExcelMgt.FillCell('C'+FORMAT(i),FORMAT(VendorLEDENTRY.Description));
      IF VendorLEDENTRY."Original Amount"<0 THEN
            ExcelMgt.FillCell('F'+FORMAT(i),FORMAT(VendorLEDENTRY.Amount))
            ELSE
                 ExcelMgt.FillCell('G'+FORMAT(i),FORMAT(VendorLEDENTRY.Amount));
 i+=1;
UNTIL VendorLEDENTRY.NEXT=0;

Поле Amount имеет тип FlowField.Перед проверкой условия сделайте вызов

Код:

VendorLEDENTRY.CALCFIELDS(Amount);

zuzka · 23.10.2013, 16:53

Цитата:

Сообщение от Eugeny_F

Если мне не изменяет память, "Original Amount" в Vendor Ledger Entry это FlowField. Добавьте после REPEAT CALCFIELDS("Original Amount"), и будет Вам счастье.

точно подмечено, сам часто спотыкаюсь)) но уже привык смотреть в свойство поля если такое происходит.

srg · 23.10.2013, 16:55

добавил калкфилдс еще, до советов, но не помогло.
количество строк выгружает правильное.
но вот сумма, всегда грузит "0" и лишь в одну из строк, в строку F, либо G
столько же раз, сколько и строк.

Код:

i:=18;
VendorLEDENTRY.RESET;
VendorLEDENTRY.SETRANGE(VendorLEDENTRY."Vendor No.",VendorCode);
VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE);
VendorLEDENTRY.CALCFIELDS("Original Amount");
IF VendorLEDENTRY.FINDSET THEN
      REPEAT
      ExcelMgt.FillCell('B'+FORMAT(i),FORMAT(VendorLEDENTRY."Posting Date"));
      ExcelMgt.FillCell('C'+FORMAT(i),FORMAT(VendorLEDENTRY.Description));
     
       IF VendorLEDENTRY."Original Amount"<0 THEN
            ExcelMgt.FillCell('F'+FORMAT(i),FORMAT(VendorLEDENTRY."Original Amount"))
            ELSE
                 ExcelMgt.FillCell('G'+FORMAT(i),FORMAT(VendorLEDENTRY."Original Amount"));
 i+=1;
UNTIL VendorLEDENTRY.NEXT=0;
END;

zuzka · 23.10.2013, 16:58

Цитата:

Сообщение от Fierce

добавил калкфилдс еще, до советов, но не помогло.
количество строк выгружает правильное.
но вот сумма, всегда грузит "0" и лишь в одну из строк, в строку F, либо G
столько же раз, сколько и строк.

Код:

i:=18;
VendorLEDENTRY.RESET;
VendorLEDENTRY.SETRANGE(VendorLEDENTRY."Vendor No.",VendorCode);
VendorLEDENTRY.SETFILTER("Posting Date",'<=%1&>=%2',OnDate,DateAE);
VendorLEDENTRY.CALCFIELDS("Original Amount");
IF VendorLEDENTRY.FINDSET THEN
      REPEAT
      ExcelMgt.FillCell('B'+FORMAT(i),FORMAT(VendorLEDENTRY."Posting Date"));
      ExcelMgt.FillCell('C'+FORMAT(i),FORMAT(VendorLEDENTRY.Description));
     
       IF VendorLEDENTRY.Amount<0 THEN
            ExcelMgt.FillCell('F'+FORMAT(i),FORMAT(VendorLEDENTRY."Original Amount"))
            ELSE
                 ExcelMgt.FillCell('G'+FORMAT(i),FORMAT(VendorLEDENTRY."Original Amount"));
 i+=1;
UNTIL VendorLEDENTRY.NEXT=0;
END;

делаем i строкой и увеличивем счетчик через INCSTR (или code - тип).

Eugeny_F · 23.10.2013, 17:02

CALCFIELDS надо делать уже после того как встали на нужную запись, а не перед FINDSET

srg · 23.10.2013, 17:04

надо было прост калкфилдс в цикл добавиь

alexb_imported · 01.11.2013, 23:32

Если NAV2013 то для скорости можно прописать SETAUTOCALCFIELDS на требуемое поле перед FINDSET'ом, тогда не нужно выполнять CALCFIELDS в цикле для каждой записи.