Блог: Tymbys: марта 2011

воскресенье, 20 марта 2011 г.

1С: Проверка доступности чтения\записи в файла

Понадобилось проверить в 1С есть ли в данный момент доступ на чтение\запись к некоторому файлу. Так как родными средствами 1С_ки я не нашел как это сделать, пришлось писать dll_ку для нее в Delphi 7. Вот сами исходники и откомпилированная dll FileAccess.rar. В 1С надо будет добавить следующий код

Объект = СоздатьОбъект("FileAccess.TFileAccess");
А = Объект.Access("c:\file.txt"); 
сообщить(А);

Для регистрации своей dll в системе надо выполнить следующий код в bat файле



chcp 1251

regsvr32.exe "C:\FileAccess.dll".

В переменной А могут быть следующие значения:
0 - Файл доступен для чтения\записи;
1 - Файл не доступен для чтения\записи;
2 - Другие ошибки;

пятница, 18 марта 2011 г.

1С: Экспорт справочника в Xls

В общем понадобилось экспортировать из справочника некоторые данные в Microsoft Excel, для удобства пользователя. Собственно получился вот такая процедура.

Процедура ЭкспортXls(Справочник,Фаил)     //Сотрудники
СпрСотр = СоздатьОбъект("Справочник."+Справочник); 

Попытка
Эксель = СоздатьОбъект("Excel.Application"); 
Исключение
Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); 
Возврат;
КонецПопытки; 
Книга = Эксель.WorkBooks.Add(); 

Лист = Книга.WorkSheets(1);

Номер = 3;   

Лист.Columns("A:A").Select();
Область=Лист.Range(Лист.Cells(Номер,1), Лист.Cells(Номер,1).End(-4121));
Область.NumberFormat = "@";

Лист.Columns("B:B").Select();
Область=Лист.Range(Лист.Cells(Номер,2), Лист.Cells(Номер,2).End(-4121));
Область.NumberFormat = "@"; 

Лист.Columns("C:C").Select();
Область=Лист.Range(Лист.Cells(Номер,3), Лист.Cells(Номер,3).End(-4121));
Область.NumberFormat = "0";



Лист.Cells(1,1).Font.Bold = 1;
Лист.Columns(1).ColumnWidth = 30;
Лист.Cells(1,2).Font.Bold = 1;
Лист.Columns(2).ColumnWidth = 20;
Лист.Cells(1,3).Font.Bold = 1;
Лист.Columns(3).ColumnWidth = 10;

Лист.Cells(1, 1).Value ="Наименование";
Лист.Cells(1, 2).Value ="Должность";
Лист.Cells(1, 3).Value ="Оклад";


СпрСотр.ВыбратьЭлементы(); 
Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл  
 
 Лист.Cells(Номер, 1).Value =Строка(СпрСотр.Наименование);
 Лист.Cells(Номер, 2).Value =Строка(СпрСотр.Должность);
 Лист.Cells(Номер, 3).Value =Число(СпрСотр.Оклад);
 
 Номер=Номер+1;
 
КонецЦикла;

Попытка
Книга.SaveAs(Фаил);  
Исключение
Сообщить(ОписаниеОшибки()+" Файл не сохранен!"); 
Возврат;
КонецПопытки; 

Эксель.Quit();
КонецПроцедуры

воскресенье, 6 марта 2011 г.

1С: Отправка таблицы в PDF формате на почту

Решил разобраться с 1С бухгалтерией в целях самообразования )). Вообще начну с отправки почты ж). Для отправки сообщения я использовал готовую библиотеку ROM-Mail.dll так как родная 1С мне не понравилась, а свою писать было впадло))). Для того чтобы создать PDF документ я взял виртуальный принтер BullzipPDFPrinter, с помощью него можно отправлять любой документ на печать в BullzipPDFPrinter, а на выходе получать PDF файлик и отправлять его на почту. Вот и сам код этого чуда)

Процедура ОтправитьПочту()

Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
КонецЕсли;

Почта=СоздатьОбъект("AddIn.AddInMail");
Почта.СерверОтправки=СокрЛП("smtp.mail.ru");
Почта.ПортОтправки=СокрЛП(2525);
Почта.Логин=СокрЛП("Логин");
Почта.Пароль=СокрЛП("Пароль");
Почта.АутентификацияПриОтправке="1";

Если Почта.Соединение=0 Тогда
Если Почта.Подключиться("Отправка")=0 Тогда
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
КонецЕсли;
КонецЕсли;

Почта.АдресОтправителя=СокрЛП("tymbys_tymbys@mail.ru");
Почта.ИмяОтправителя=СокрЛП("tymbys_tymbys@mail.ru");
Почта.АдресПолучателя=СокрЛП("tymbys@gmail.com");
Почта.Тема=СокрЛП("Тема");
Почта.Тело="";
Почта.Кодировка="windows-1251";
Почта.ТипПисьма=0;
Почта.Вложения="e:\Отчет.pdf";

Если Почта.Отправить()=1 Тогда
Предупреждение("Сообщение отправлено!");
Иначе
Предупреждение("Не удалось отправить сообщение!");
КонецЕсли;
Почта.Отключиться();

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

Процедура Печать()

ФС.УдалитьФайл("e:\Отчет.pdf");


Таб1=СоздатьОбъект("Таблица");
Таб1.ИсходнаяТаблица("ПриемНаРаботу");
Таб1.Вывести();
Таб1.Опции(,,,,"Опции1");
Таб1.ПараметрыСтраницы(,,,,,,,,,,,"Bullzip PDF Printer");

Принтер=СоздатьОбъект("Bullzip.PDFPrinterSettings");
Принтер.SetValue("output", "e:\Отчет.pdf");
Принтер.SetValue("ShowSaveAS", "never");
Принтер.SetValue("ShowProgress", "no");
Принтер.SetValue("ShowProgressFinished", "no");
Принтер.SetValue("ShowSettings", "never");
Принтер.SetValue("ShowPDF", "no");
Принтер.SetValue("ConfirmOverwrite","no");
Принтер.WriteSettings();
Таб1.Напечатать(0);

Пока ФС.СуществуетФайл("e:\Отчет.pdf")<1 Цикл КонецЦикла; 

Если ФС.СуществуетФайл("e:\Отчет.pdf")=1 Тогда ОтправитьПочту(); КонецЕсли; КонецПроцедуры

Страницы

воскресенье, 20 марта 2011 г.