Отчет по задолженности
20.08.2009
14:36
#12
нет, в таблице выражение ДопТаб.Документ, а в модуле ДопТаб.Документ=Таб.Документ и всё...
20.08.2009
14:42
#14
"ДопТаб=СоздатьОбъект("ТаблицаЗначений");
ДопТаб.НоваяКолонка("Долг","Число",15,2);
ДопТаб.НоваяКолонка("Дата","Дата");
ДопТаб.НоваяКолонка("Документ","Документ");
ДопТаб.НоваяКолонка("ДатаПогашения","Дата");
Если Таб.КоличествоСтрок()=0 Тогда
Если СальдоКон>0 Тогда
ПолучитьДокументы(ТекКА,ДопТаб,Д1-31,Д1-1,СальдоКон);
Иначе
Возврат СальдоНач;
КонецЕсли;
Иначе
Ном=-1;
Таб.Сортировать("-Позиция");
Таб.ВыбратьСтроки();
Пока (Таб.ПолучитьСтроку()=1)и(СальдоКон>0) Цикл
Если Таб.Приход>0 Тогда
ДопТаб.НоваяСтрока();
ДопТаб.Документ=Таб.Документ;
ДопТаб.Дата=Таб.Дата;
ДопТаб.ДатаПогашения=Таб.ДатаПогашения;
ДопТаб.Долг=Таб.Приход;
КонецЕсли;
СальдоКон=СальдоКон-Таб.Приход;
КонецЦикла;"
ДопТаб.НоваяКолонка("Долг","Число",15,2);
ДопТаб.НоваяКолонка("Дата","Дата");
ДопТаб.НоваяКолонка("Документ","Документ");
ДопТаб.НоваяКолонка("ДатаПогашения","Дата");
Если Таб.КоличествоСтрок()=0 Тогда
Если СальдоКон>0 Тогда
ПолучитьДокументы(ТекКА,ДопТаб,Д1-31,Д1-1,СальдоКон);
Иначе
Возврат СальдоНач;
КонецЕсли;
Иначе
Ном=-1;
Таб.Сортировать("-Позиция");
Таб.ВыбратьСтроки();
Пока (Таб.ПолучитьСтроку()=1)и(СальдоКон>0) Цикл
Если Таб.Приход>0 Тогда
ДопТаб.НоваяСтрока();
ДопТаб.Документ=Таб.Документ;
ДопТаб.Дата=Таб.Дата;
ДопТаб.ДатаПогашения=Таб.ДатаПогашения;
ДопТаб.Долг=Таб.Приход;
КонецЕсли;
СальдоКон=СальдоКон-Таб.Приход;
КонецЦикла;"
Читают тему
(гостей: 1)