Цитата:
Сообщение от Alex Dark
Почему? Причина в том, что ты хочешь потом автоматом что то получить?
Если нет, если тебе просто нужна портянка - Excel самый простой выход. У меня именно так.
|
Даже если есть необходимость чтотто потом вытянуть из Excel в 1с то тоже есть достаточно много наработок по загрузке данных в 1с.
Имхо если нужно простое ведение табеля и введение данных в 1с для расчета зп то городить огород с ЗУП-ом или ЗиК-ом нет смысла...
Если нет Excel то можно сделать в OpenOffice.
Вот кусок кода для инициализации ole объекта Openoffice для 8.1
Код:
ФайлОО = "file:///"+СтрЗаменить(Файл,"\","/");
scr = Новый ComОбъект("MSScriptControl.ScriptControl");
scr.language = "javascript";
scr.eval("Mass=new Array()");
Массив = scr.eval("Mass");
ServiceManager = Новый ComОбъект("com.sun.star.ServiceManager");
Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
Document = Desktop.LoadComponentFromURL(ФайлОО, "_blank", 0, Массив );
Листы = Document.getSheets();
ЛистДанных = Листы.getByIndex(0);
//извраты для "градусника"
Cursor = Лист.createCursorByRange(Лист.GetCellbyPosition(0,0));
Cursor.GotoEndOfUsedArea(1);
Address = Cursor.RangeAddress;
LastRow = Address.EndRow; //колличество строк
Состояние("Файл "+Файл+" открыт, идет обработка данных...");
Функция чтения данных из ячейки:
Код:
Функция ПолучитьЗначениеВЯчейке(ЛистДанных,Строка,Столбец, Тип="Строка") Экспорт
Если Тип = "Строка" тогда
Значение = СокрЛП(ЛистДанных.getCellByPosition(Столбец-1,Строка-1).String);
Иначеесли Тип = "Число" Тогда
Значение = СокрЛП(ЛистДанных.getCellByPosition(Столбец-1,Строка-1).Value);
Конецесли;
Возврат Значение;
Конецфункции
у меня этот код работает в загрузке данных из докуметов заказчика в 1с:Логистика управление складом