Тэг "1С7.7" (4)
Получить название месяца ... Показать код
Функция ПолучитьНазваниеМесяца(НомерМесяца=0)
Если (НомерМесяца<=0) ИЛИ (НомерМесяца>12) тогда
Возврат "";
Иначе
Возврат Формат(Дата(1980,НомерМесяца,1),"ДММММ");
КонецЕсли;
КонецФункции //ПолучитьНазваниеМесяца
Для отправки файла из 1С на фтп-сервер и обратно можно использовать бесплатную консольную программу ncftp
Страница загрузки: http://www.ncftp.com/download/
Скачать установщик фтп-клиента для Windows и установить. (там же есть исходники)
Описание параметров для PUT http://www.ncftp.com/ncftp/doc/ncftpput.html
Описание параметров для GET http://www.ncftp.com/ncftp/doc/ncftpget.html ... Показать код
Процедура ОтправитьФайл()
Если флПоказыватьЛог=1 Тогда
ПутьЛогФайла = "stdout";
Иначе
ПутьЛогФайла = ""+КаталогОбмена+"ftplog_put.txt";
КонецЕсли;
КомандаСистемы("ncftpput -S .tmp -d "+ПутьЛогФайла+" -o useFEAT=0,useCLNT=0,useMLST=0,usePASV=1 -u "+USER+" -p "+PASS+" "+FTP+" / "+ПутьКФайлуДляОтправки);
КонецПроцедуры;
Процедура ПолучитьФайл()
Если флПоказыватьЛог=1 Тогда
ПутьЛогФайла = "stdout";
Иначе
ПутьЛогФайла = ""+КаталогПриемник+"ftplog_get.txt";
КонецЕсли;
КомандаСистемы("ncftpget.exe -d "+ПутьЛогФайла+" -o useFEAT=0,useCLNT=0,useMLST=0,usePASV=1 -u "+USER+" -p "+PASS+" "+FTP+" "+КаталогПриемник+" /"+ИмяФайла);
КонецПроцедуры
Максимизировать (развернуть) окно формы ... Показать код
Процедура ПриОткрытии()
Попытка
WSHShell = СоздатьОбъект("WScript.Shell");
WSHShell.SendKeys("%");
WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
Исключение
КонецПопытки;
КонецПроцедуры
Получить список принтеров ... Показать код
Процедура ПолучитьСписокПринтеров()
wshNetwork=createObject("WScript.Network");
oPrinters=wshNetwork.EnumPrinterConnections();
i=0;
Пока i
2 
0 
871 
10 
Keep. Track. Share.