Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Выгрузить остатки из 7.7 БухУчет в Dbf , Выгрузить остатки из 7.7 БухУчет в DBF          
Agapov_Stas Подменю пользователя
сообщение 13.02.12, 16:21
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 217
Из: Днепропетровск
Спасибо сказали: 18 раз
Рейтинг: 0

В основном специализируюсь на 1С 8 поэтому в 7ке иногда сложновато бывает
Возникла задача выгрузить остатки по складам (281 счет) и по взаиморасчетам (361 и 631 счета) в DBF
Подскажите, Пожалуйста, код запроса и цикла. в 7ке просто знаю это выбирается расчетом бухгалтерских итогов и перебором в цикле
В 8ке все по другому поэтому и прошу помощи Google.gif

MATEVI Подменю пользователя
сообщение 13.02.12, 16:49
Сообщение #2

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2203
Из: Одесса
Спасибо сказали: 968 раз
Рейтинг: 796.3

приблизительно так
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьРазделительУчета(РазделительУчета); //фирма
Ит.ИспользоватьСубконто(ВидыСубконто.Склады,);
Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ,)
//возможно и партии??? 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 Подменю пользователя
сообщение 13.02.12, 17:16
Сообщение #3

Завсегдатай
****
Группа: Пользователи
Сообщений: 217
Из: Днепропетровск
Спасибо сказали: 18 раз
Рейтинг: 0

Я так понимаю что если три субконто то Цикл будет выглядеть примерно так ?
Пока Ит.ПолучитьСубконто(1) = 1 Цикл
    Пока Ит.ПолучитьСубконто(2) =1 Цикл
        Пока Ит.ПолучитьСубконто(3)=1 Цикл
                  
        КонецЦикла;
   КонецЦикла;
КонецЦикла;

Количество по какому уровню срезать ? 1 , 2 , 3 ?

mister-x Подменю пользователя
сообщение 13.02.12, 17:31
Сообщение #4

...
Иконка группы
Модератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 3477
Из: Тернопіль
Спасибо сказали: 1422 раз
Рейтинг: 0

Цитата
Я так понимаю что если три субконто то Цикл будет выглядеть примерно так ?
так, тільки перед Получить потрібно їх вибирати - Выбрать

Читатель Подменю пользователя
сообщение 13.02.12, 17:35
Сообщение #5

Говорящий
Иконка группы
Группа: Местный
Сообщений: 56
Из: Киевская обл.
Спасибо сказали: 20 раз
Рейтинг: 0

Цитата(Agapov_Stas @ 13.02.12, 18:16) *
...
Количество по какому уровню срезать ? 1 , 2 , 3 ?

Если у Вас есть на 281-ом счёте 3-е субконто, то по 3-му и количество. А может Вам достаточно и 2-го субконто. Это смотря куда Вы потом загружать будете - может там нет трёх уровней аналитики.

Agapov_Stas Подменю пользователя
сообщение 13.02.12, 17:55
Сообщение #6

Завсегдатай
****
Группа: Пользователи
Сообщений: 217
Из: Днепропетровск
Спасибо сказали: 18 раз
Рейтинг: 0

грузить буду в УТП 8.2 (насчет партий еще не уверен может и не будет там в разрезе партий )
Спасибо за ответы - буду пробовать !

MATEVI Подменю пользователя
сообщение 13.02.12, 20:13
Сообщение #7

Отдыхающий
Иконка группы
Ветеран троянской войныМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 2203
Из: Одесса
Спасибо сказали: 968 раз
Рейтинг: 796.3

Если метод фифо или партионный, то партии нужны. Т.к. себестоимость партий может отличатся. Если средневзвешеная тогда нет. Но это только для расчета в 7-ке.
Ну а в УТП не надо партий. Партию ручной учет сделает ввод остатков по 2хх счетам.

Agapov_Stas Подменю пользователя
сообщение 14.02.12, 0:31
Сообщение #8

Завсегдатай
****
Группа: Пользователи
Сообщений: 217
Из: Днепропетровск
Спасибо сказали: 18 раз
Рейтинг: 0

Всем спасибо за помощь. На основании Ваших советов выкрутил остатки по 281, 361 и 631 Итоги сошлись 10000000.gif

Стрелок Подменю пользователя
сообщение 14.02.12, 9:19
Сообщение #9

Говорящий
***
Группа: Пользователи
Сообщений: 96
Спасибо сказали: 8 раз
Рейтинг: 0

Цитата(Agapov_Stas @ 14.02.12, 1:31) *
Всем спасибо за помощь. На основании Ваших советов выкрутил остатки по 281, 361 и 631 Итоги сошлись 10000000.gif



Серьёзно? И партии и заказы тоже? или по счёту в целом? проверьте внимательно. Могу ошибаться конечно, но новички не обращают внимания на субконта вида "документ"


Signature
Программист 1С - любимчик бухгалтеров

Agapov_Stas Подменю пользователя
сообщение 14.02.12, 13:28
Сообщение #10

Завсегдатай
****
Группа: Пользователи
Сообщений: 217
Из: Днепропетровск
Спасибо сказали: 18 раз
Рейтинг: 0

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

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

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 16.06.25, 17:11
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!