Користувач:Sr.voland
//Создаем в СКД НаборДанных - объект
//Создаем в СКД колонки, такиеже как в тз
//Создаем в СКД Печатную форму
//Создаем на форме ТабличныйДокумент
Процедура ВставляемВСКД(тз)
ВнешниеНаборыДанных = Новый Структура;
ВнешниеНаборыДанных.Вставить("тз",тз); // Вот здесь и заполняется таблица значений
СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");// твой макет СКД
Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки);
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных); // а вот здесь передается в скд
табдок = ЭлементыФормы.ПолеТабличногоДокумента1;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
ТабДок.ПоказатьУровеньГруппировокСтрок(0); //сворачиваем группы
КонецПроцедуры
ЭлементыФормы.ЗадачиАдминуТЗ.Значение = запрос.Выполнить().Выгрузить();
ЭлементыФормы.ЗадачиАдминуТЗ.СоздатьКолонки();
//Выгрузить Запрос в Табличную Часть на форму
Товары.Загрузить(запрос.Выполнить().Выгрузить());
ЭлементыФормы.Товары.ОбновитьСтроки();
формат(ТекущаяДата(),"ДЛФ=Д");
http://localhost/testW/ws/DanRashNakl?WSDL //ссылка на xml ответа (ws-ссылка)
http://localhost/testW/ws/shipment.1cws?wsdl
//“C:\www” сюда установлен Apache стандартным “некст,некст,...,ок”
SoapUI 5.0.0
Изображение 1
<?xml version="1.0" encoding="UTF-8"?>
<point xmlns="http://v8.1c.ru/8.2/virtual-resource-system"
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
base="/testW"
ib="File="C:\Documents and Settings\krushenicky\Мои документы\1C\DemoBudgetAccountingUkr";Usr=Web;Pwd=Web;"
enable="false">
<ws>
<point name="DanRashNakl"
alias="shipment.1cws"
enable="true"/>
<point name="Balans"
alias="Balans.1cws"
enable="true"/>
</ws>
</point>
ссылка: http://localhost/testW/ws/DanRashNakl?WSDL
проксиСервер = WSСсылки.WSСсылка1.СоздатьWSПрокси("http://www.MyCompany.ru/shipment","DanRashNakl","DanRashNaklSoap");
рез = проксиСервер.Получить("222");
Изображение 2
<?xml version="1.0" encoding="UTF-8"?>
<point xmlns="http://v8.1c.ru/8.2/virtual-resource-system"
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
base="/testW"
ib="File="C:\Documents and Settings\krushenicky\Мои документы\1C\DemoBudgetAccountingUkr";Usr=Web;Pwd=Web;"
enable="false">
<ws>
<point name="DanRashNakl"
alias="shipment.1cws"
enable="true"/>
<point name="Balans"
alias="Balans.1cws"
enable="true"/>
</ws>
</point>
53: ssh -L 82.193.96.11:3389:10.71.1.53:3389 localhost //Rdstop делаем на 82.193.96.11:3389
52: ssh -L 82.193.96.11:3389:10.71.1.52:3389 localhost
psql -U www uni_ip -h owl3.nest.ipnet //Запрос уже в путти
db_uni_ip //Подлючение к базе
1С подневный баланс bill_unit = 1 - юрлицо, bill_unit = 2 - физ лицо на 2015-02-01 ПРАТ
[ред. | ред. код]SELECT date(abstime(m.date)), SUM(m.amount) FROM money m JOIN shadow_users_other suo ON m.user_id=suo.info_id WHERE m.bill_unit = 1 AND m.am_type = 7478365 AND date(abstime(m.date)) >= DATE('2015-02-01') AND date(abstime(m.date)) <= DATE('2015-02-05') GROUP BY date(abstime(m.date)); //Оплата по дням (С,ПО) одной суммой по всем
SELECT date(abstime(m.date)), SUM(m.amount) FROM money m JOIN shadow_users_other suo ON m.user_id=suo.info_id WHERE m.bill_unit = 1 AND m.am_type = 7478365 AND date(abstime(m.date)) = DATE('2015-02-12') GROUP BY date(abstime(m.date)); //Оплата всех на Прат одной суммой
select sum(services), count(1) from snapshot_users_bill where bank_balance<0 and services>0 and date='2015-02-01'; //Все
select sum(services), count(1) from snapshot_users_bill where bank_balance<0 and services>0 and user_type=0 and date='2015-01-27'; //Без юр лиц
Качаем stunnel, устанавливаем в каталог c:\stunnel. Прописываем в stunnel.conf :
socket = l:TCP_NODELAY=1
socket = r:TCP_NODELAY=1
debug = 7
output = stunnel.log
client = yes
[ssmtp]
accept = 127.0.0.1:5465
connect = smtp.gmail.com:465
[pop3s]
accept = 127.0.0.1:5995
connect = pop.gmail.com:995
Выполняем в консоли команду для установки сервиса:
c:\stunnel\stunnel.exe -install
И стартуем сервис
net start gmail
Должна появится новая служба под названием "Gmail".
Прописываем в почтовом клиенте 1С настройки POP3/SMTP сервера:
Изображение 3
ВидыКонтактнойИнформации.Родитель.Наименование ПОДОБНО &Шаблончик //В зтексте апросе Запрос.УстановитьПараметр("Шаблончик","%"+СокрЛП(ЧастьНаименования)+"%");
СтрокаСАдресом = "Provider=MSDASQL.1;
|DRIVER={PostgreSQL ANSI};
|Server=10.71.1.240;
|UID=odins;
|PWD=;
|DATABASE=uni_ip;
|PORT=5432";
пСоед = Новый ПараметрыСоединенияВнешнегоИсточникаДанных;
пСоед.СтрокаСоединения= СтрокаСАдресом;
ВнешниеИсточникиДанных.Ipnet.УстановитьОбщиеПараметрыСоединения(пСоед);
ВнешниеИсточникиДанных.Ipnet.УстановитьСоединение();
запр = новый запрос;
запр.Текст = "ВЫБРАТЬ
| ДанныеАбонента.ЕДРПОУ,
|ИЗ
| ВнешнийИсточникДанных.Ipnet.Таблица.ДанныеАбонента КАК ДанныеАбонента";
|ГДЕ
| ДанныеАбонента.ФизЮрЛицо = 1";
тз = запр.Выполнить().Выгрузить();
Функция ПрочитатьЛистExcel(ПутьС,ТЗ = Неопределено, ЛистЭксель = Неопределено, НомерПервойСтроки = 1, НомерПервойКолонки = 1, ВсегоСтрок = 0, ВсегоКолонок = 0) Экспорт
Если ЛистЭксель = Неопределено Тогда
ЛистЭксель = Новый COMОбъект("Excel.Application");
КонецЕсли;
ЛистЭксель.Workbooks.Open(ПутьС);
Если ВсегоСтрок = 0 Тогда
ВсегоСтрок = ЛистЭксель.Cells.SpecialCells(11).Row;
КонецЕсли;
Если ВсегоКолонок = 0 Тогда
ВсегоКолонок = ЛистЭксель.Cells.SpecialCells(11).Column;
КонецЕсли;
Если ТЗ = Неопределено Тогда
ТЗ = Новый ТаблицаЗначений;
Для Счетчик = 1 По ВсегоКолонок Цикл
ТЗ.Колонки.Добавить("Колонка"+Счетчик, Новый ОписаниеТипов("Строка"));
КонецЦикла;
КонецЕсли;
Для Счетчик = НомерПервойСтроки По ВсегоСтрок Цикл
НоваяСтрока = ТЗ.Добавить();
КонецЦикла;
Область = ЛистЭксель.Range(ЛистЭксель.Cells(НомерПервойСтроки,НомерПервойКолонки), ЛистЭксель.Cells(ВсегоСтрок,ВсегоКолонок));
Данные = Область.Value.Выгрузить();
Для Счетчик = 0 По ВсегоКолонок-1 Цикл
ТЗ.ЗагрузитьКолонку(Данные[Счетчик], Счетчик);
КонецЦикла;
ЛистЭксель = Неопределено;
Возврат ТЗ;
КонецФункции
Функция ПолучитьUnixTS(ПараметрДата) Возврат УниверсальноеВремя(ПараметрДата) - '19700101'; КонецФункции
И наоборот: Функция СконвертироватьВремяUnixTS(UnixTime) Возврат МестноеВремя('19700101' + UnixTime); КонецФункции
Процедура ТЗПечать(ТЗ,Заголовок="") Экспорт
Перем Таб, Кол,Стр;
#Если Клиент Тогда
Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная,1);
ТолстаяЛиния = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 2);
Таб=Новый ТабличныйДокумент;
Таб.Область(1,1).Текст=Заголовок;
Таб.Область(1,1).ШиринаКолонки = 4;
Таб.Область(1,1).Обвести(ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния);
Для Кол=1 По ТЗ.Колонки.Количество() Цикл
врЗаголовок = "";
Если СокрЛП(Строка(ТЗ.Колонки[Кол-1].Заголовок)) <> "" Тогда
врЗаголовок = Строка(ТЗ.Колонки[Кол-1].Заголовок);
Иначе
врЗаголовок = Строка(ТЗ.Колонки[Кол-1].Имя)
КонецЕсли;
Таб.Область(2,Кол+1).Текст = врЗаголовок;
Таб.Область(2,Кол+1).Шрифт = Новый Шрифт(,,Истина);// жирный
Таб.Область(2,Кол+1).Обвести(ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния,ТолстаяЛиния);
врШир = ТЗ.Колонки[Кол-1].Ширина;
Если врШир > 0 Тогда
Таб.Область(2,Кол+1).ШиринаКолонки = врШир;
КонецЕсли;
КонецЦикла;
i=0;
Для Каждого Ном ИЗ ТЗ Цикл
i=i+1;
Таб.Область(i+2,1).Текст=Строка(i);
Таб.Область(i+2,1).Обвести(Линия, Линия, Линия, Линия);
Для Кол=1 По ТЗ.Колонки.Количество() Цикл
Таб.Область(i+2,Кол+1).Текст=СокрЛп(Строка(ТЗ[i-1][кол-1]));
Таб.Область(i+2,Кол+1).Обвести(Линия, Линия, Линия, Линия);
КонецЦикла;
Если i/10=Цел(i/10) Тогда
Состояние(Заголовок+", печать: "+Строка(i));
КонецЕсли;
КонецЦикла;
Таб.Показать(Заголовок);
#КонецЕсли
КонецПроцедуры
Удаленный сеанс отключен из-за отсутствия доступных лицензий клиента сервера терминалов для этого компьютера
32-bit
HKLM\SOFTWARE\Microsoft\MSLicensing
64-bit
HKLM\SOFTWARE\Microsoft\MSLicensing
HKLM\SOFTWARE\Wow6432Node\Microsoft\MSLicensing
Индикатор Заполнения
Элемент на форме "ИндикаторЗаполнения", тип:Индикатор
Индикатор = ЭлементыФормы.ИндикаторЗаполнения;
Индикатор.МаксимальноеЗначение = тзАбон.Количество();
Индикатор.Значение = 0;
Индикатор.ОтображатьПроценты = Истина;
Индикатор.СтильОтображения = РежимСглаживанияИндикатора.Плавный;
Индикатор.Ориентация = Ориентация.Горизонтально;
Индикатор.Шаг = 1;
Для Каждого стр Из тзАбон цикл
Индикатор.Значение = Индикатор.Значение + 1;
КонецЦикла;;
Название месяца в запросе