Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.24;
Скачать: CL | DM;

Вниз

1С данные за предыдущие месяцы   Найти похожие ветки 

 
xyzzz   (2009-03-20 09:32) [0]

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


 
tesseract_   (2009-03-20 10:26) [1]

У нас что тут миста, что про 1с вопросы ? К тому же я такого извращенного кода не видел в жизни - оборотка по счету, чем не устраивает ?


 
nnov   (2009-03-20 10:32) [2]

1с сам по себе извращенный.
как именно по счету? желательно наброски в виде кода)


 
tesseract_   (2009-03-20 10:39) [3]


> 1с сам по себе извращенный.


1с нормальный, просто извращенцы всякие внедряют. По счету пример  в виде кода в отчетах начинающихся с "Оборотно-сальдовая".


 
nnov   (2009-03-20 10:41) [4]

понял. сейчас попробую



Страницы: 1 вся ветка

Текущий архив: 2009.05.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
6-1203280510
Strate
2008-02-17 23:35
2009.05.24
Определение имени процесса, которому пришёл пакет.


2-1239624079
Dimon_
2009-04-13 16:01
2009.05.24
Распечатка html документа


2-1239372348
Alex_C
2009-04-10 18:05
2009.05.24
Thread и CriticalSection


15-1237277918
_Андрей
2009-03-17 11:18
2009.05.24
переход c D6 на D7


2-1239116506
CodeMaster
2009-04-07 19:01
2009.05.24
Помогите перевести с С++ на Delphi