!!! Обороты по счету !!! ПОМОГИТЕ !!!
08.09.2005
13:47
#1
"Проблема в следующем:
по счету 19 (он делится по субсчетам, но программе надо по всем и каждому) необходимо получить кредитовый оборот за период по 2-м субконто. Ограничение одно - не должны учитываться обороты по корреспонденциям: 19-19 и 68-19. Сижу уже 2 часа, полный ступор, как никручу, но получаю весь оборот по 19 счету.
Привожу пример кода:
НДС=0;
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контраг);
Ит.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные,Док.ДокументОснование);
Ит.ВключатьСубсчета(1,1);
Ит.ВыполнитьЗапрос(НачМесяца(Док.ДатаДок),КонМесяца(Док.ДатаДок),"19");
НДС=Ит.КО();
Ит.ВыполнитьЗапрос(НачМесяца(Док.ДатаДок),КонМесяца(Док.ДатаДок),"19", "19,68");
НДС=НДС - Ит.КО();
В итоге НДС = 0
И всё, вошел в ступор
Вот где ошибка?"
по счету 19 (он делится по субсчетам, но программе надо по всем и каждому) необходимо получить кредитовый оборот за период по 2-м субконто. Ограничение одно - не должны учитываться обороты по корреспонденциям: 19-19 и 68-19. Сижу уже 2 часа, полный ступор, как никручу, но получаю весь оборот по 19 счету.
Привожу пример кода:
НДС=0;
Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контраг);
Ит.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные,Док.ДокументОснование);
Ит.ВключатьСубсчета(1,1);
Ит.ВыполнитьЗапрос(НачМесяца(Док.ДатаДок),КонМесяца(Док.ДатаДок),"19");
НДС=Ит.КО();
Ит.ВыполнитьЗапрос(НачМесяца(Док.ДатаДок),КонМесяца(Док.ДатаДок),"19", "19,68");
НДС=НДС - Ит.КО();
В итоге НДС = 0
И всё, вошел в ступор
Вот где ошибка?"
09.09.2005
11:03
#2
"Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, Контраг, 2);
Ит.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные, Док.ДокументОснование, 2);
Ит.ВыполнитьЗапрос(НачМесяца(Док.ДатаДок),КонМесяца(Док.ДатаДок),"19", , , 3, ,"С");
НДС = Ит.КО("С");
Если Ит.ПолучитьКорСчет(,"19") = 1 Тогда
НДС = НДС - Ит.КорКО("С");
КонецЕсли;
Если Ит.ПолучитьКорСчет(,"68") = 1 Тогда
НДС = НДС - Ит.КорКО("С");
КонецЕсли; "
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, Контраг, 2);
Ит.ИспользоватьСубконто(ВидыСубконто.СчетаФактурыПолученные, Док.ДокументОснование, 2);
Ит.ВыполнитьЗапрос(НачМесяца(Док.ДатаДок),КонМесяца(Док.ДатаДок),"19", , , 3, ,"С");
НДС = Ит.КО("С");
Если Ит.ПолучитьКорСчет(,"19") = 1 Тогда
НДС = НДС - Ит.КорКО("С");
КонецЕсли;
Если Ит.ПолучитьКорСчет(,"68") = 1 Тогда
НДС = НДС - Ит.КорКО("С");
КонецЕсли; "
Читают тему
(гостей: 1)