Как установить дату документа?

[Ciz]

в зависимости что у вас в колонке Склад, код или название склада!

Проблема в том, что там нет такой колонки, она появляется только после смены вида операции с "оплата от покупателя" на "розничная выручка".
Тут 1с естественно ругается:

Поле объекта не обнаружено (Склад)
{ВнешняяОбработка.ОбработкаExcel.Форма.ОбработкаExcel.Форма(136)}:   НовыйДокумент.Склад = Справочники.Склады.НайтиПоНаименованию("розн", ложь);
{ВнешняяОбработка.ОбработкаExcel.Форма.ОбработкаExcel.Форма(162)}:   ЗагрузитьНаСервере();

[LexaK]

так у вас конфигуратор под рукой! посмотрите как правильно называются реквизиты и укажите правильные имена!
ни у кого вашей базы нет! все подсказки - это пример, в котором надо подставить свои названия!

[Ciz]

LexaK,

Код Выделить Развернуть

Если НЕ ФормаРасшифровкиПлатежа Тогда
Элементы.ГруппаПолучениеНаличныхВБанке.Видимость = (Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПолучениеНаличныхВБанке);
Элементы.СтатьяДвиженияДенежныхСредств.Видимость = Не ВидимостьАналитики(Объект.ВидОперации);
Если Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ЛичныеСредстваПредпринимателя
Или Объект.ВидОперации = Перечисления.ВидыОперацийПКО.ПрочийПриход Тогда
Элементы.Контрагент.Видимость = Ложь;
ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка Тогда
Элементы.Контрагент.Видимость = Не Объект.БезЗакрывающихДокументов
И Справочники.Склады.ИспользуетсяНесколькоСкладов();
Иначе
Элементы.Контрагент.Видимость = Истина;
КонецЕсли;
КонецЕсли;


Код Выделить Развернуть

ИначеЕсли Объект.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка Тогда
Элементы.Контрагент.Видимость = Не Объект.БезЗакрывающихДокументов
И Справочники.Склады.ИспользуетсяНесколькоСкладов();
Внезапно оказалось, что Склад и Контрагент это одно и тоже.

Добавлено: 03 фев 2021, 17:43

Теперь игнорирует установку Ставки НДС

Код Выделить Развернуть

НовыйДокумент.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
Сообщить(НовыйДокумент.СтавкаНДС);

В итоге пишет что СтавкаНДС = БезНДС, но по факту в документе строка не заполнена.

Добавлено: 03 фев 2021, 18:45

Сделал вот так

Код Выделить Развернуть

НовыйДокумент = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();

ДатаДокумента = Excel.Cells(СтрокаОтсчета, ДатаДокументаНомерКолонки).Text;
ДатаДокумента = СтрЗаменить(ДатаДокумента,Символы.НПП," ");
ДатаДокумента = СтрЗаменить(ДатаДокумента,"  "," ");
//добавляем секунды
ДатаДокумента = ДатаДокумента + ":00";
//форматируем строку как дату (работает)
ДатаДокумента = Дата(ДатаДокумента);
//переводим дату в формат ГГГГММДДччммсс (работает)
ДатаДокумента = Формат(ДатаДокумента, "ДФ='yyyyMMddHHmmss'");
НовыйДокумент.Дата = ДатаДокумента;
//Сообщить("Ставим дату: " + ДатаДокумента + " НовыйДокумент.Дата: " + НовыйДокумент.Дата);


НовыйДокумент.Ответственный = ПараметрыСеанса.ТекущийПользователь;
НовыйДокумент.Комментарий = "Загружено из файла " + Объект.ФайлExcel;
НовыйДокумент.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
НовыйДокумент.Организация = Справочники.Организации.НайтиПоНаименованию(ОрганизацияИмя);// Справочники.Организации.ОрганизацияПоУмолчанию();
НовыйДокумент.ВидОперации = Перечисления.ВидыОперацийПКО.РозничнаяВыручка;
НовыйДокумент.СчетКасса = ПланыСчетов.Хозрасчетный.КассаОрганизации;
НовыйДокумент.Контрагент = Справочники.Склады.НайтиПоНаименованию("розн", ложь);

СуммаДокумента = Excel.Cells(СтрокаОтсчета, СуммаДокументаНомерКолонки).Value;
НовыйДокумент.СуммаДокумента = СуммаДокумента;
НовыйДокумент.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;    // игнорирует
//НовыйДокумент.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию("Розничная выручка");



НоваяСтрока  = НовыйДокумент.РасшифровкаПлатежа.Добавить();
//  НоваяСтрока.СчетУчетаРасчетовСКонтрагентом = Объект.РТУ_СчетУчетаРасчетовСКонтрагентом;
НоваяСтрока.КурсВзаиморасчетов = 1;
НоваяСтрока.КратностьВзаиморасчетов = 1;
НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
НоваяСтрока.СуммаНДС = УчетНДСКлиентСервер.РассчитатьСуммуНДС(Число(СуммаДокумента), Истина, 0);
//НоваяСтрока.СчетУчетаРасчетовПоАвансам = Объект.РТУ_СчетУчетаРасчетовПоАвансам;
НоваяСТрока.СуммаПлатежа = СуммаДокумента;
НоваяСтрока.ДоговорКонтрагента = Справочники.Склады.НайтиПоНаименованию("розн", ложь);
Сообщить(НоваяСтрока.ДоговорКонтрагента);
новаястрока.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоНаименованию("Розничная выручка");
НоваяСтрока.СуммаВзаиморасчетов = СуммаДокумента * (-1);
НоваяСтрока.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически;


Если НовыйДокумент.СуммаДокумента > 0
и ЗначениеЗаполнено(НовыйДокумент.Дата) Тогда
// Запись и проведение документа       
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
Сообщить("Создан и заполнен документ " + Строка(НовыйДокумент));
КонецЕсли;

В итоге оборотка пустая, документ туда не тянется.