Главная страница
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
10-1157121608
MixAnOL
2006-09-01 18:40
2009.05.24
Как установить OLE объект из dll в delphi


4-1197823589
MetalFan
2007-12-16 19:46
2009.05.24
ReadFile c Overlapped, ньюансы работы.


15-1237305706
Кое кто
2009-03-17 19:01
2009.05.24
Как решить уравнение(если можно)?


2-1239018375
Summer
2009-04-06 15:46
2009.05.24
Нажатие мышью в TChart


4-1210156637
A.L.E.X.A.N.D.E.R.
2008-05-07 14:37
2009.05.24
Создание процесса от имени системы .