Вот такой кусок кода

   Пока Док.ПолучитьСтроку()=1 Цикл
   
           КолвоДок = Док.Количество;
           Поз      = 0;
       
           Ном=Ном+1;
           Проц=Окр((Ном*100)/КолВоЗаписей,2);
           Состояние("Идет выгрузка - "+Строка(Проц)+" %");
   
           Стр="";
           Пока (КолвоДок > 0) // здесь ругается что номер за пределами значения
                 и (ТабДвиж.НайтиЗначение(Док.Номенклатура, Поз, "Номенклатура") <> 0) // есть чем погашать
           Цикл

Кусок взят из формирования печатной формы торг13 ТИС

Атличный кусок кода!

торг13 в тисе ? где ?

Ради торг13: а чего в этот момент в Поз?

Спасибо забыл занулит в конце после цикла поз

(4) Не в конце, а в начале