Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Выгрузить остатки из 7.7 БухУчет в Dbf
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
Agapov_Stas
В основном специализируюсь на 1С 8 поэтому в 7ке иногда сложновато бывает
Возникла задача выгрузить остатки по складам (281 счет) и по взаиморасчетам (361 и 631 счета) в DBF
Подскажите, Пожалуйста, код запроса и цикла. в 7ке просто знаю это выбирается расчетом бухгалтерских итогов и перебором в цикле
В 8ке все по другому поэтому и прошу помощи Google.gif
MATEVI
приблизительно так
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(РазделительУчета); //фирма
Ит.ИспользоватьСубконто(ВидыСубконто.Склады,);
Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,)
//возможно и партии??? 3 субконто

Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "281"); // здесь читаем синтаксис остальных параметров
Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1) = 1 Цикл


А вообще конструкторы - бух. запрос

пример работы с дбф

//процедура записывает данные об использовании отчёта в файл dBase формата DBF
Процедура гЗаписатьСтатистикуИспользованияОтчета(ИдентификаторОтчета) Экспорт
     //путь к файлу; имя файла не должно превышать 8 знаков
     Путь=КаталогИБ()+"Stat.dbf";
     //создание нового файла
     Б=СоздатьОбъект("XBase");
     Если ФС.СуществуетФайл(Путь)=0 Тогда
          //добавление полей
          Б.ДобавитьПоле("REPORT","S",100,0);
          Б.ДобавитьПоле("USER","S",50,0);
          Б.ДобавитьПоле("DATE","D",10,0);
          Б.ДобавитьПоле("TIME","S",5,0);
          //создание файла
          Б.СоздатьФайл(Путь);
          Б.ЗакрытьФайл();
     КонецЕсли;
     //открытие файла
     Б.ОткрытьФайл(Путь);
     Если Б.Открыта()=0 Тогда
          Сообщить("Не удалось открыть файл DBF","!");
          Возврат;
     КонецЕсли;
     //добавление записи
     Б.Добавить();
     Б.Date=ТекущаяДата();
     Б.Time=ТекущееВремя();
     Б.Report=СокрЛП(ИдентификаторОтчета);
     Б.User=гПользователь.Наименование;
     Б.Записать();
     //закрытие файла
     Б.ЗакрытьФайл();
КонецПроцедуры
Agapov_Stas
Я так понимаю что если три субконто то Цикл будет выглядеть примерно так ?
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
    Пока Ит.ПолучитьСубконто(2) =1 Цикл
        Пока Ит.ПолучитьСубконто(3)=1 Цикл
                  
        КонецЦикла;
   КонецЦикла;
КонецЦикла;

Количество по какому уровню срезать ? 1 , 2 , 3 ?
mister-x
Цитата
Я так понимаю что если три субконто то Цикл будет выглядеть примерно так ?
так, тільки перед Получить потрібно їх вибирати - Выбрать
Читатель
Цитата(Agapov_Stas @ 13.02.12, 18:16) необходимо зарегистрироваться для просмотра ссылки
...
Количество по какому уровню срезать ? 1 , 2 , 3 ?

Если у Вас есть на 281-ом счёте 3-е субконто, то по 3-му и количество. А может Вам достаточно и 2-го субконто. Это смотря куда Вы потом загружать будете - может там нет трёх уровней аналитики.
Agapov_Stas
грузить буду в УТП 8.2 (насчет партий еще не уверен может и не будет там в разрезе партий )
Спасибо за ответы - буду пробовать !
MATEVI
Если метод фифо или партионный, то партии нужны. Т.к. себестоимость партий может отличатся. Если средневзвешеная тогда нет. Но это только для расчета в 7-ке.
Ну а в УТП не надо партий. Партию ручной учет сделает ввод остатков по 2хх счетам.
Agapov_Stas
Всем спасибо за помощь. На основании Ваших советов выкрутил остатки по 281, 361 и 631 Итоги сошлись 10000000.gif
Стрелок
Цитата(Agapov_Stas @ 14.02.12, 1:31) необходимо зарегистрироваться для просмотра ссылки
Всем спасибо за помощь. На основании Ваших советов выкрутил остатки по 281, 361 и 631 Итоги сошлись 10000000.gif



Серьёзно? И партии и заказы тоже? или по счёту в целом? проверьте внимательно. Могу ошибаться конечно, но новички не обращают внимания на субконта вида "документ"
Agapov_Stas
Цитата(Стрелок @ 14.02.12, 9:19) необходимо зарегистрироваться для просмотра ссылки
Серьёзно? И партии и заказы тоже? или по счёту в целом? проверьте внимательно. Могу ошибаться конечно, но новички не обращают внимания на субконта вида "документ"

Выгрузил в разрезе партий - по третьему субконто цикл выгрузки(я как бы не совсем новичок - просто я пишу на 8ке и начинал с 8ки)
Грузить в документы остатков буду Свернув по номенклатуре - просуммировав Количество и Сумму (ТМЦ)
Взаиморасчеты свернув по контрагенту.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.