Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Проведение проводок автоматом без документа  (Прочитано 7098 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Valerra
Гость
« : 24-11-2008 07:47 » 

Здравствуйте, я новичек в 1С помгите пожалуйста
есть бухгалтерия бюджетная, 7.7. нужно загрузить из dbf файла проводки
атоматически, желательно без документа, существует ли такая возможность
если есть то каким образом можно это реализовать. Заранее благодарен,
всем ответившим.  
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 24-11-2008 11:39 » 

Читай о таком понятии, как Документ.Операция (существует всегда, если есть компонента бух.учет именно для ручных проводок)
Записан
Valerra
Гость
« Ответ #2 : 25-11-2008 03:37 » 

к сожалению информацию о Документе Операция исчерпывающую
найти не смог, да опыта в 1С у меня малова - то
если можно подскажите по подробней, с первого раза не дошло.  
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 25-11-2008 09:05 » 

Код:
	Оп=СоздатьОбъект("Операция");
Оп.Новая();
Оп.ДатаОперации=КонДата;
Оп.Содержание="Описание ручной операции";
Оп.СуммаОперации=ОбщаяСуммаОперации; // Никакого смысла не несет - просто для информации (в журнале, например)
//Оп.<РеквизитОперации>=Значение;

Пока <Условие цикла> Цикл // В твоем случае - обход по строкам dbf
Оп.НоваяПроводка();
Дт=Оп.Дебет;
Дт.Счет=СчДт;
Дт.Субконто(1,СкДт1);
Дт.Субконто(2,СкДт2);
Дт.Субконто(3,СкДт3);

Кт=Оп.Кредит;
Кт.Счет=СчКт;
Кт.Субконто(1,СкКт1);
Кт.Субконто(2,СкКт2);
Кт.Субконто(3,СкКт3);

// Один из счетов возможен "00", если это внесение остатков
// Один из блоков может отсутствовать, если счет забалансовый

Оп.Сумма=Сумма;
//Оп.Количество=Кво; // Если счет количественный

//Оп.<РеквизитПроводки>=Значение;
КонецЦикла;

Оп.Записать();
Записан
Valerra
Гость
« Ответ #4 : 25-11-2008 09:25 » new

Спасибо за помощь, действительно просто и понятно.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines