Тема: IF THEN ELSE
Показать сообщение отдельно
Старый 23.10.2013, 16:55   #9  
srg is offline
srg
Участник
 
116 / 10 (1) +
Регистрация: 20.08.2013
добавил калкфилдс еще, до советов, но не помогло.
количество строк выгружает правильное.
но вот сумма, всегда грузит "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;