кодконтрагента » Поиск

Результаты по ключевому слову: кодконтрагента

Документ "Операция" - Как программно создать и заполнить?

В бухгалтерских подсистемах типовых конфигураций есть всем известный документ «Операция». Бухгалтерам не приходится долго объяснять, как им пользоваться. Все по-бухгалтерски просто и лаконично: счет дебета, счет кредита, субконто, количество, сумма и прочие атрибуты бухгалтерских проводок. Проводки вводятся вручную, поэтому результат абсолютно прозрачен и понятен.

Время от времени возникает необходимость массово ввести большое количество проводок. Ситуации могут быть самыми разными: загрузка остатков или наоборот - списание с учета, исправление ошибок в учете и т. д. И тут уже дело за программистом.

На первый взгляд задача может показаться простой: создать документ, заполнить таблицу проводок данными и провести. Но не тут-то было! Как только дело доходит до «Конфигуратора», начинаются сюрпризы. Оказывается, у документа «Операция» вообще нет таблицы проводок, которую мы видим в пользовательском режиме.

Как же так? А вот так! Документ «Операция" используется в качестве регистратора, а проводки пишутся непосредственно в регистр бухгалтерии.

Решается задача довольно просто. Рассмотрим в качестве примера фрагмент кода обработки загрузки остатков по счету 001 «Арендованные основные средства» из dbf-таблицы.

Код 1C v 8.х

 

ДокОперация = Документы.ОперацияБух.СоздатьДокумент();

ДокОперация.Дата = ДатаДокумента;

ДокОперация.Организация = Организация;

ДокОперация.Ответственный = Ответственный;

ДокОперация.Содержание = Содержание;

ДокОперация.Комментарий = Комментарий;

ДокОперация.Записать();

ДокОперацияСсылка = ДокОперация.Ссылка;

   

РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;

ДБФ.Первая();

Пока Не ДБФ.ВКонце() Цикл

    КодКонтрагента = СокрП(ДБФ.CA);

    Контрагент = Справочники.Контрагенты.НайтиПоКоду(КодКонтрагента);

    Если Контрагент.Пустая() Тогда

        Сообщить("Не найден контрагент с кодом " + КодКонтрагента, СтатусСообщения.Внимание);

    КонецЕсли;

    КодОС = СокрП(ДБФ.OS);

    ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(КодОС);

    Если ОсновноеСредство.Пустая() Тогда

        Сообщить("Не найдено ОС с кодом " + КодОС, СтатусСообщения.Внимание);

    КонецЕсли;

    

    РегЗапись = РегХозрасчетный.Добавить();

    РегЗапись.Период = ДатаДокумента;

    РегЗапись.Регистратор = ДокОперацияСсылка;

    РегЗапись.Организация = Организация;

    РегЗапись.Содержание  = "Корректировка стоимости ОС с 0 стоимостью";

    РегЗапись.СчетДт = Сч001;

    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", Контрагент);

    БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);

    РегЗапись.Сумма = ДБФ.Sum;

    

    ДБФ.Следующая();

КонецЦикла;   

РегХозрасчетный.Записать();

Я полагаю, принцип работы кода понятен из примера. Сначала создаем и записываем документ «Операция». Сам документ не содержит никаких проводок. Затем создаем набор записей регистра бухгалтерии и записываем в него проводки, используя документ «Операция» в качестве регистратора.

Источник

Категория: Документы

Пример загрузки остатков в документ 1С из DBF файла

Код 1C v 8.х

 ФайлОстатков = Новый XBase;

ФайлОстатков.Кодировка = КодировкаXBase.OEM;

ФайлОстатков.ОткрытьФайл(ПутьКТаблицеОстатков);

ФайлОстатков.Первая();        

Пока Не ФайлОстатков.ВКонце() Цикл

	КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("ZKPO"));

	Если КодКонтрагента = "" Тогда

		КодКонтрагента = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("IDENKOD"));

	КонецЕсли;

	НаименованиеКонтрагента = СокрЛП(СтрЗаменить(ФайлОстатков.ПолучитьЗначениеПоля("NAME"),"?","і"));

	Контрагент = ПолучитьКонтрагента(КодКонтрагента,НаименованиеКонтрагента);

	СимволСчета = СокрЛП(ФайлОстатков.ПолучитьЗначениеПоля("SYMBOL"));

	ОстатокДебет = ФайлОстатков.ПолучитьЗначениеПоля("DB_PP");

	ОстатокКредит = ФайлОстатков.ПолучитьЗначениеПоля("KR_PP");

	

	Документ = Документы.КорректировкаДолга.СоздатьДокумент(); 	

	Документ.Организация = Организация;

	Документ.Дата = "20090630235959";

	Документ.ВидОперации = Перечисления.ВидыОперацийКорректировкаДолга.ВводНачальныхОстатков;

	Если ОстатокДебет > 0 Тогда

		Документ.КонтрагентДебитор = Контрагент;

		Документ.СуммыДолга.Очистить();

		СтрокаСуммыДолга = Документ.СуммыДолга.Добавить();

		СтрокаСуммыДолга.ВидЗадолженности = Перечисления.ВидыЗадолженности.Дебиторская;

		СтрокаСуммыДолга.ДоговорКонтрагента = ПолучитьДоговор(Документ.КонтрагентДебитор);

		Если Лев(СимволСчета,3) = "361" Тогда

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Покупатель;

		Иначе

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Поставщик;

		КонецЕсли;

		СтрокаСуммыДолга.КратностьВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.КурсВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.Сумма = ОстатокДебет;

		СтрокаСуммыДолга.СуммаВзаиморасчетов = ОстатокДебет;

		СтрокаСуммыДолга.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

		СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета);

	Иначе

		Документ.КонтрагентДебитор = Контрагент;

		Документ.СуммыДолга.Очистить();

		СтрокаСуммыДолга = Документ.СуммыДолга.Добавить();

		СтрокаСуммыДолга.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторская;

		СтрокаСуммыДолга.ДоговорКонтрагента = ПолучитьДоговор(Документ.КонтрагентДебитор);

		Если Лев(СимволСчета,3) = "361" Тогда

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Покупатель;

		Иначе

			СтрокаСуммыДолга.ТипКонтрагента = Перечисления.СтатусыКонтрагентов.Поставщик;

		КонецЕсли;

		СтрокаСуммыДолга.КратностьВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.КурсВзаиморасчетов = 1.00;

		СтрокаСуммыДолга.Сумма = ОстатокКредит;

		СтрокаСуммыДолга.СуммаВзаиморасчетов = ОстатокКредит;

		СтрокаСуммыДолга.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;

		СтрокаСуммыДолга.СчетУчетаРасчетов = ПланыСчетов.Хозрасчетный.НайтиПоКоду(СимволСчета);

	КонецЕсли;

	Документ.ВалютаДокумента = Валюта;

	Документ.СчетДт = ПланыСчетов.Хозрасчетный.Вспомогательный;

	Документ.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;

	Документ.Записать(РежимЗаписиДокумента.Проведение);

	ФайлОстатков.Следующая();

КонецЦикла;

ФайлОстатков.ЗакрытьФайл();

Категория: XML, DBF, TXT, CSV

Поиск элемента, найти элемент справочника

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПоКнопкеНайти(Команда)

    // Вставить содержимое обработчика.

   

    Сообщить(НайтиКонтрагента("000000001"));

   

КонецПроцедуры



&НаСервере

Функция НайтиКонтрагента(КодКонтрагента)

   

    Перем КонрагентДляПоиска, СсылкаНайденногоКонрагента;

    КонрагентДляПоиска = Справочники.Контрагенты;

    СсылкаНайденногоКонрагента = КонрагентДляПоиска.НайтиПоКоду(КодКонтрагента);

    Если СсылкаНайденногоКонрагента = КонрагентДляПоиска.ПустаяСсылка() Тогда

        Возврат "Контрагент не найден";

   Иначе

        Возврат СсылкаНайденногоКонрагента.Наименование;

    КонецЕсли;

   

КонецФункции;

Код 1C v 8.х

 // Ниже перечислены несколько способов поиска,если элемент найден, то он возвращается,

// иначе возвращается Неопределено

СпрСотр = Справочники.Сотрудники;

НайденныйСотр = СпрСотр.НайтиПоКоду(123);

НайденныйСотр = СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович");

НайденныйСотр СпрСотр.НайтиПоРеквизиту("Оклад", 5000);



//далее нужно проверить найденное значение так:

РезультатПоиска = Справочники.Номенклатура.НайтиПоКоду("00030"); 

Если РезультатПоиска.Пустая() Тогда 

	// Выполнить действия, предусмотренные в случае, когда элемент не найден.  

КонецЕсли; 

// или так:

НайденныйСотр = СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович");

Если НайденныйСотр = Неопределено Тогда

.....//элемент не найден

КонецЕсли;

Код 1C v 7.x

  СпрСотр = СоздатьОбъект("Справочник.Сотрудники");



СпрСотр.НайтиЭлемент(Сотрудник);

СпрСотр.НайтиПоКоду(123);

СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович");

СпрСотр.НайтиПоРеквизиту("Оклад", 5000);



//если элемент найден, он становится текущим и его можно прочитать так:

Если СпрСотр.НайтиПоНаименованию("Иванов Иван Иванович")=1 Тогда

........НайденныйСотр = СпрСотр.ТекущийЭлемент();

КонецЕсли; 



//еще пример

спр=СоздатьОбъект("Справочник.Материалы");

Если спр.НайтиПоНаименованию("Пряжа шерстяная")=1 Тогда

    Предупреждение("Найденный элемент справочника имеет код "+спр.ТекущийЭлемент().Код);

Иначе

    Предупреждение("Элемент с заданным наименованием не найден");

КонецЕсли;

Категория: Справочники