IF THEN ELSE

[zuzka]

Цитата:

Сообщение от 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 - тип).