powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
10 сообщений из 10, страница 1 из 1
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36666785
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем, здравствуйте!!! Объясните, пожалуйста, такую ситуации: программно создаю документ РеализацияТоваровУслуг, указываю валюту. Если обработка не находит договор контрагента и бухгалтер вручную выбирает его, то появляется окно "не задана валюта документа" и предлагает сделать пересчет. После пересчета исчезают суммы из табличной части.

ДокРеализацияТоваровУслуг.ВалютаДокумента = Справочники.Валюты.НайтиПоНаименованию("Руб");

Вопрос: почему отличаются валюты договора контрагента и документа, ведь при создании документа я определяю валюту? объясните как я должен определять валюту документа, чтобы не возникала проблема несоответствия валют?

Спасибо за помощь.
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36666792
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
суммы исчезают - ну наверное у вас 20 элементов "Руб" и все без курсов. Хрен знает что у вас происходит...
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36666843
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я просмотрел справочник Номенклатура, оказалось, что в данной услуге не указана цена, очевидно поэтому и исчезают суммы при перерасчете.
Но почему не совпадают валюты документа и договора контрагента?
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36666964
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну потому что

Если НЕ ЭтотОбъект.ВалютаДокумента = ЭтотОбъект.Договор.Валюта Тогда
Сообщить("Бинго!")
КонецЕсли;

ну и отладчки опять в курсе
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36666992
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Господин ПЖну потому что

Если НЕ ЭтотОбъект.ВалютаДокумента = ЭтотОбъект.Договор.Валюта Тогда
Сообщить("Бинго!")
КонецЕсли;

ну и отладчки опять в курсе

Это понятно. Неясно почему, ОПРЕДЕЛИВ валюту документа, при выборе договора система говорит, что валюты не совпадают. Валюту определяю так:

ДокРеализацияТоваровУслуг.ВалютаДокумента = Справочники.Валюты.НайтиПоНаименованию("Руб");
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36667054
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
конфа какая?
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36667141
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
чо непонятно...

НовыйВалютаДокумента = Договор.ВалютаВзаиморасчетов;

.........................

Если ДокументОбъект.ВалютаДокумента <> НовыйВалютаДокумента Тогда
НеобходимоПересчитать = Истина;
ТекстВопроса = ТекстВопроса + Символы.ПС +
"Валюта документа: """ +
?(НЕ ЗначениеЗаполнено(ДокументОбъект.ВалютаДокумента), "Не задана",СокрЛП(ДокументОбъект.ВалютаДокумента)) +
""", договора: """ + СокрЛП(НовыйВалютаДокумента) + """.";
КонецЕсли;

А почему у вас к этому моменту оно пустое (НЕ ЗначениеЗаполнено(ДокументОбъект.ВалютаДокумента), "Не задана") - хз чо вы там вытворяете...

у меня например рубль - это "руб."
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36667469
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ситуацию получилось исправить путем использования константы ВалютаРегламентированногоУчета:

ДокРеализацияТоваровУслуг.ВалютаДокумента = Константы.ВалютаРегламентированногоУчета.Получить();

Т.е. использование справочника было неверным, правда не понял почему.
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36667476
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что-то где-то напорото... а так в принципе верно. Валюта документа может быть 2-х вариантов. Регл. учета или их договора.
...
Рейтинг: 0 / 0
Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
    #36667499
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Господин ПЖчто-то где-то напорото... а так в принципе верно. Валюта документа может быть 2-х вариантов. Регл. учета или их договора.

Спасибо за помощь
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Реквизит ВалютаДокумента. Программное создание документа РеализацияТоваровУслуг.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]