(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › Прямые запросы к БД › Прямой запрос к "Бухгалтерская справка".
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Прямой запрос к "Бухгалтерская справка". (число прочтений - 2630 )
Aswed
Junior Member
**
Отсутствует


Не навижу 1С

Сообщений: 76
Зарегистрирован: 13. Ноября 2007
Пол: Мужской
Прямой запрос к "Бухгалтерская справка".
11. Декабря 2007 :: 06:06
Печать  
Нужно выбрать товары по 41 счёту. Точнее 41.1 Пишу:
     ТекстЗапроса = "
           |SELECT $БухгалтерскаяСправкаСтроки.СчетДт [СчетДт $Счет.Основной]
           |      , $БухгалтерскаяСправкаСтроки.СубконтоДт1 СубконтоДт1
           |FROM $ДокументСтроки.БухгалтерскаяСправка AS БухгалтерскаяСправкаСтроки
           |      INNER JOIN _1SACCS AS ПланыСчетов ON $БухгалтерскаяСправкаСтроки.СчетДт = ПланыСчетов.ID
           |";
Само собой выбирает все документы которые есть. Как выбрать документы только по счёту 41.1?
  
Я вообще то парень хоть куда, но туда не все девушки соглашаются...
Наверх
ICQ  
IP записан
 
Nick
God Member
*****
Отсутствует



Сообщений: 1599
Местоположение: г.Новокузнецк
Зарегистрирован: 21. Февраля 2007
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #1 - 11. Декабря 2007 :: 06:46
Печать  
Aswed писал(а) 11. Декабря 2007 :: 06:06:
Нужно выбрать товары по 41 счёту. Точнее 41.1 Пишу:
     ТекстЗапроса = "
           |SELECT $БухгалтерскаяСправкаСтроки.СчетДт [СчетДт $Счет.Основной]
           |      , $БухгалтерскаяСправкаСтроки.СубконтоДт1 СубконтоДт1
           |FROM $ДокументСтроки.БухгалтерскаяСправка AS БухгалтерскаяСправкаСтроки
           |      INNER JOIN _1SACCS AS ПланыСчетов ON $БухгалтерскаяСправкаСтроки.СчетДт = ПланыСчетов.ID
           |";
Само собой выбирает все документы которые есть. Как выбрать документы только по счёту 41.1?


Что значит "Нужно выбрать товары" ? Получить список товаров которые использовались в док?
  
Наверх
ICQ  
IP записан
 
Aswed
Junior Member
**
Отсутствует


Не навижу 1С

Сообщений: 76
Зарегистрирован: 13. Ноября 2007
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #2 - 11. Декабря 2007 :: 07:25
Печать  
ДаУлыбка По счёту 41.1
  
Я вообще то парень хоть куда, но туда не все девушки соглашаются...
Наверх
ICQ  
IP записан
 
Nick
God Member
*****
Отсутствует



Сообщений: 1599
Местоположение: г.Новокузнецк
Зарегистрирован: 21. Февраля 2007
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #3 - 11. Декабря 2007 :: 07:44
Печать  
Вот в качестве примера:

Код
Выбрать все
|	SELECT
	|		DATE_TIME_DOCID,
	|		ISNULL(Sum_,0) Sum_,
	|		(CASE
	|			WHEN ACCDTID in (SELECT VAL From #Счета (nolock))
	|			THEN 1
	|			ELSE -1
	|		END) as ДТ,
	|		ACCDTID ,
	|		ACCKTID,
	|		DTSC1,
	|		KTSC1
	|	FROM _1SENTRY Проводки (nolock), _1SACCS ПланСчетов (NOLOCK INDEX=CODE)
	|	WHERE (DATE_TIME_DOCID between :НачДата AND :КонДата~) AND Проводки.ACTIVE = ' ' AND ((VDTSC1 = 1065) or (VKTSC1 = 1065))
	|	AND (ПланСчетов.SC1 = 1065) AND substring(SCHKOD,1,7)=' 62. 1.' AND ((ACCDTID = ПланСчетов.ID)  or (ACCKTID = ПланСчетов.ID))
  
Наверх
ICQ  
IP записан
 
berezdetsky
1c++ power user
Отсутствует


barba non facit sisadminum

Сообщений: 1986
Местоположение: Москва
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #4 - 11. Декабря 2007 :: 11:11
Печать  
Код
Выбрать все
рс.УложитьСписокОбъектов(СчетПоКоду("41"), "#accs", "Основной");


Код
Выбрать все
WHERE $БухгалтерскаяСправкаСтроки.СчетДт IN (Select val From #accs)
  
пароль как коньяк, чем больше звездочек, тем лучше
Наверх
Skype/VoIP  
IP записан
 
Aswed
Junior Member
**
Отсутствует


Не навижу 1С

Сообщений: 76
Зарегистрирован: 13. Ноября 2007
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #5 - 11. Декабря 2007 :: 11:24
Печать  
2berezdetsky
Спасибо, так понятнее, а то я запарился в том коде разбиратьсяУлыбка
  
Я вообще то парень хоть куда, но туда не все девушки соглашаются...
Наверх
ICQ  
IP записан
 
Aswed
Junior Member
**
Отсутствует


Не навижу 1С

Сообщений: 76
Зарегистрирован: 13. Ноября 2007
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #6 - 11. Декабря 2007 :: 12:19
Печать  
В запросе всё выводится что нужно, но вот если пытаюсь вывести СубконтоДТ1 то выводится имена внутреннних переменных. Не знаю как привязать их к Субконто.Номенклатура. Оно в свою очередь естественно = Справочник.Номенклатура.

Текст запроса:

Процедура Сформировать()
     Перем тз; //:ТаблицаЗначений                                       
     
     НачДата = '01.01.2007';
     КонДата = '21.05.2007';
     
     рс = СоздатьОбъект("ODBCRecordset");
     //Данный фрагмент построен конструктором.
     //При повторном использовании конструктора внесенные вручную изменения будут потеряны!!!
     ТекстЗапроса = "-- qryMaker:Отчет1.2007.12.10.12.00.48
           |SELECT $БухгалтерскаяСправкаСтроки.СчетДт [СчетДт $Счет.Основной]
           |      , $БухгалтерскаяСправкаСтроки.СубконтоДт1 СубконтоДт1
           |FROM $ДокументСтроки.БухгалтерскаяСправка AS БухгалтерскаяСправкаСтроки
           |      INNER JOIN _1SACCS AS ПланыСчетов ON $БухгалтерскаяСправкаСтроки.СчетДт = ПланыСчетов.ID
           |      INNER JOIN $Документ.БухгалтерскаяСправка AS БухгалтерскаяСправка ON БухгалтерскаяСправка.IDDOC = БухгалтерскаяСправкаСтроки.IDDOC
           |      INNER JOIN _1SJOURN AS Жур ON Жур.IDDoc = БухгалтерскаяСправкаСтроки.IDDoc
           |WHERE
           |      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND
           |      Жур.Closed & 1 = 1 AND
           |   $БухгалтерскаяСправкаСтроки.СчетДт IN (Select val From #accs)
           |";
           
           РС.УложитьСписокОбъектов(СчетПоКоду("41"), "#accs", "Основной");
           
           РС.УстановитьТекстовыйПараметр("НачДата", НачДата);
           РС.УстановитьТекстовыйПараметр("КонДата", КонДата);
     
           тз = рс.ВыполнитьИнструкцию(ТекстЗапроса);
         тз.ВыбратьСтроку();
           тз.ВыбратьСтроки();
           Пока ТЗ.ПолучитьСтроку() = 1 Цикл
           КонецЦикла;
           
КонецПроцедуры
  
Я вообще то парень хоть куда, но туда не все девушки соглашаются...
Наверх
ICQ  
IP записан
 
leshik
1c++ donor
Отсутствует



Сообщений: 820
Местоположение: Пятигорск
Зарегистрирован: 22. Апреля 2007
Пол: Мужской
Re: Прямой запрос к "Бухгалтерская справка".
Ответ #7 - 12. Декабря 2007 :: 06:57
Печать  
Код
Выбрать все
|	, $БухгалтерскаяСправкаСтроки.СубконтоДт1 СубконтоДт1

заменить на
Код
Выбрать все
|	, $БухгалтерскаяСправкаСтроки.СубконтоДт1 [СубконтоДт1 $Неопределенный]
« Последняя редакция: 12. Декабря 2007 :: 09:06 - leshik »  
Наверх
Skype/VoIPICQ  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge