[raus]

Сообщение от ZIS

Наверное в вашей управе есть кому работать передастом

две девочки и два мальчика....

Сообщение от Люка

raus ВМы начали работу с банком, и теперь все запросы мы им отправляем электронкой

Вордовские документы?

Сообщение от Люка

можно ли сделать так чтобы эти запросы скидывались после создания автоматом в одну папку

да, если Вордвовские файлы. Поточнее задай вопрос + порядок твоих действий.

Сообщение от Люка

может быть есть возможность создать групповой запрос, тоесть в Wordовский документ будут допустим вставлены все должники по выделенным ИП

стандартная возможность ПК СП. Не получается?

[raus]

Сообщение от Люка

А на счет HELPa, скину, мне не жалко

да не не скинь, а объясни нормальными русскими словами, а то что я пишу, только ты понимаешь

[Люка-ipristav]

Сообщение от raus

да не не скинь, а объясни нормальными русскими словами, а то что я пишу, только ты понимаешь

Уже надо объяснять?

Отправляем действительно Wird-овский документ.

Общий, нет не получается, нажимаешь создать оно пустое, думаю что там что-то должно быть... И подозреваю у тебя это всё просто чудесно работает

Теперь про поэтапно, ну вот, СПИ выделил ИП по которым надо сделать запрос в банк, далее выбираем создать документ Word, далее ставим галочку на нужном запросе и создаем, вот он создал 50 штук запросов, далее, пользуясь твоей программкой (которая распечатывает это всё самостоятельно) и вот они все распечатались и закрылись, а где они сохранены? сервер далее папка АРМ далее папка "док" далее ищим нужную папку с номером ИП, так? и вот чтобы отправить эту всю прелесть в банк мне надо зайти и каждый запрос извлечь от туда и собрать в кучу, потом уж ЭЛ. подпись и далее шифрование. Мне вчера просто этот глюк установили и радостно сказали - РАБОТАЙТЕ! работник банка был очень доволен тем что упростил нам жизнь, я чуть с ума не сошла когда осознала всю прелесть этого "...." Собственно по этому я и интересуюсь можно ли чтоб после закрытия они сохранились там где надо мне а не ПК? или как мне сделать групповой запрос?

[Люка-ipristav]

Сообщение от Aleks_72

уважаемые коллеги, читая тему не знаешь радоваться или плакать, в рассылаемых приказах и проектах на бумаге все выглядит очень гладко, и ПК СП и депозит и многое другое должно работать в принцепе, но сколько человек в отделе с компьютером на ты, и скольким это надо, работать скорой помощью для коллег и быть ответственным за все обновления и поступления, когда своей работай заниматься. даешь в каждый отдел сисидмана

Ну да, а еще лучше программу работающую для людей. Тогда и админов ни каких не надо. Далеко не все админы понимают чего и как делать. Наверное понимающий, знаюющий админ это прелесть и просто завидная партия для отдела.

[Пристав]

Повторно: Коллеги, поделитесь опытом, как выглядит в ПК СП такая штука: ИП окончено в 2008г. направлением копии ИД на удержание. Отчеты сданы, базы перерегистрированы. Копия ИД вернулась в 2009г., ИП надо бы возобновить, но как???

[raus]

Сообщение от Люка

Теперь про поэтапно, ну вот

попробуй это (вставь в шаблон Normal.dot)
+ создай на диске С папку запросы

Sub forLucaMacro() 
Dim MyData As DataObject, sFolderName As String, set_Path As String, name As String, datpath As String ' переменные 
 
 
	Set MyData = New DataObject 
 
   On Error GoTo nach 
	 
	Set fs = CreateObject("Scripting.FileSystemObject") 
	set_Path = "C:\запросы\" ' путь по умолчанию 
	sFolderName = Format(Now(), "dd-mmmm-yyyy") ' создаю попдпаку с сегодняшней датой 
	[name] = (set_Path & sFolderName) 
	 fs.CreateFolder [name] 
	 
nach: 
' 
 
 
If Application.Documents.Count > 0 Then 
 
  ' проверяю успел ли документ сохраниццо 
 
	If Windows(1).Document.Path = "" Then 
	   Application.OnTime When:=Now + TimeValue("00:00:1"), _ 
	   name:="forLucaMacroJdat" ' макрос ожидания 
	 Else 
   'для задержки документа 
	With Dialogs(wdDialogDocumentStatistics) 
		.Display TimeOut:=2000 
	End With 
'для задержки документа 
	 
 
	 
ChangeFileOpenDirectory [name] ' меняю директорию сохранения 
Windows(1).Document.SaveAs FileName:=Windows(1).Document.name 'сохраняю документ 
 
Windows(1).Document.Close ' закрываю 
 
On Error GoTo nach '  в случае ошибки в начало 
AppActivate "Внимание!" ' активирую форму ПК СП 
 
SendKeys "{ENTER}", True '  нажимаю на Ентер 
GoTo nach ' ну опять в начало 
 
End If 
 
Else 
Application.OnTime When:=Now + TimeValue("00:00:1"), _ 
	name:="forLucaMacroJdat" ' макрос ожидания 
End If 
 
 
End Sub 
 
Sub forLucaMacroJdat() 
Application.OnTime When:=Now + TimeValue("00:00:1"), _ 
	name:="forLucaMacro" ' макрос ожидания 
End Sub

[nholod]

Сообщение от raus

обратись в свой Отдел Информатизации. Не думаю что правильно сливать нашу прогу непроверенным лицам. мож ты шпиен омериканской

Если бы знать есть ли они вообще? . Регион Москва. По слухам, планируют после переезда в новое здание, внедрять ее авралом. А в том месте где сейчас находится наш отдел, не то чтобы о АРМ говорить, компьютеров толком нормальных нету, не говоря уже об ЛВС и т.д.

[Terminator-ipristav]

Сообщение от Северянин

ЦА обязало все управления опубликовывать списки должников на сайтах управлений как юрлиц так и физлиц. Все практически сведения публичны. На сайте судов также все публично, ну, становится публично. К чему тогда вся секретность?

Поделитесь сведениями, т.е. наименование № и дата документа?

[Северянин-ipristav]

Поделитесь сведениями, т.е. наименование № и дата документа?

Попробую найти, но не обещаю, т.к. это не мое направление работы.

[Legalalliance]

От «Судебного пристава» не скроется ни один должник

Судебные приставы осваивают новую компьютерную программу, которая представляет собой единую всероссийскую электронную базу данных о людях и организациях, не желающих платить по счетам.

Программа «Судебный пристав» написана кировскими разработчиками и уже передана во все регионы России. С ее помощью приставы всех 35 подразделений области общаются между собой, оперативно получают информацию и передают по всей стране. Уйти от ответственности, уехать и скрыться должникам теперь практически невозможно - о них будет знать вся страна.

По словам заместителя главного судебного пристава Пензенской области Натальи Исламкиной, происходит электронный обмен с органами федерального казначейства, с территориальным фондом обязательного медицинского страхования, с отделениями Сбербанка, а также с губернским банком «Тарханы».

Пока главная трудность для пензенских приставов - невысокий уровень компьютерной грамотности, а потому с использованием новой программы возникают небольшие проблемы. По словам Натальи Исламкиной, не во всех районах области люди подготовлены работать с такими программами, так как не имеют соответствующих навыков.

Для защиты базы данных от несанкционированного доступа, утечки информации и поражения вирусами в ФССП создан новый отдел, который занимается безопасностью и защитой информации.
***
Источник