Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   ЗиК77: загрузка выплат - поле период как указать??? (http://forums.kuban.ru/f1040/zik77_zagruzka_vyplat_-_pole_period_kak_ukazat--6420474.html)

dft2014 13.01.2015 22:25

ЗиК77: загрузка выплат - поле период как указать???
 
ЗиК 77
Подскажите, почему при загрузке из Эксель в док-т "Выплата заработной платы", в поле "За период" автоматически записывает воскресенье??? Вот картинка: [url]http://s019.radikal.ru/i609/1501/77/10f0d0a02d63.jpg[/url]

Как программно установить правильный период? Вот код:

Процедура Сформировать()

СпрС = СоздатьОбъект("Справочник.Сотрудники");
Докум = СоздатьОбъект("Документ.ВыплатаЗаработнойПлаты");
Докум.Новый();
Докум.ДатаДок = КонМесяца(ДатаОтч);
Докум.АвтоВремяКонецДня();
Докум.УстановитьНовыйНомер();

Excel = СоздатьОбъект("Excel.Application");
Excel.Workbooks.Open(ФормИмяФайлаДанных);
Книга = Excel.ActiveWorkbook;
Строк = Excel.Cells.CurrentRegion.Rows.Count;

Для х = 1 По Строк Цикл

ФИО = СокрЛП(Строка(Excel.Cells(х, 1).Value));
Сумма = Число(Excel.Cells(х, 2).Value);

Если СпрС.НайтиПоНаименованию(ФИО,0,1) = 1 Тогда
ФЛ = СпрС.ТекущийЭлемент();
Иначе
Сообщить("Не найден: " + ФЛ);
Продолжить;
Конецесли;

Докум.НоваяСтрока();
Докум.Сотрудник = ФЛ;
Докум.Сумма = Сумма;

КонецЦикла;

Докум.Записать();

Excel.Workbooks.Close();

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

VZ 14.01.2015 00:02

Заполнить поле ДатаПериода не пробовал?

dft2014 14.01.2015 00:12

(1)
Пробовала написать:
Докум.Новый();
Докум.ДатаПериода = ДатаОтч; //где ДатаОтч выбор даты на форме обработки

Не получилось, все равно воскресенье подтягивает... Смотрела как в конфигураторе в самом док-те заполняется период, но там все так хитро и мудрено написано, что так и не разобралась с периодом (((

VZ 14.01.2015 00:25

2-dft2014 > Докум.ДатаПериода = КонМесяца(<значение типа дата>);


Текущее время: 14:59. Часовой пояс GMT +3.