Ответить
Страница 5 из 9 1234 5 6789

 

Опции темы
Старый 18.02.2011, 21:44   #41
raus
Модератор ФССП
 
Аватар для raus
 
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548 раз(а) в 528 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Цитата:
Сообщение от Alisia Посмотреть сообщение
в канцелярии приходит только одно п /с о возбуждении.( По идее должно быть всем,т.е. хотя бы 3 шт).
особенности ПК СП - у отправленного документа откройте вкладку "Адресат" - там увидите что все три адресата на месте. Пруф в студии... (внизу поста) ... Хотя, если принципиально, можно заточить, чтобы именно три документа в каждом чтобы был один из адресатов - подумаю, обещаю... Пока же совет - прогоняйте робота три раза - в каждом из разов ставьте поочередно "Должник", "Взыскатель", "Орган" - фича однако....

Цитата:
И еще такая проблемка: если раньше в ручную приставы вносили в поле : краткое содержание:- кому именно направляется документ, то по регистратору так чего то не идет. Поле пустое. В канцелярии для отправки кому- ничего не видно.Можно ли сделать , чтобы копировалось наименование получателя для отправки В ПОЛЕ : краткое содержание
- не понял, можно скриншоты?

__________________
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
  		В Минюст Цитата Спасибо
Старый 18.02.2011, 21:56   #42
Alisia-ipristav
Сотрудник ФССП
 
Аватар для Alisia-ipristav
 
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11 раз(а) в 11 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Попробую В понедельник.
__________________
Все будет хорошо.
  		В Минюст Цитата Спасибо
Старый 24.02.2011, 09:06   #43
raus
Модератор ФССП
 
Аватар для raus
 
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548 раз(а) в 528 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Схватить Робота Регистрации версии 0.4.25
попробовал запилить функцию "каждому контрагенту свою копию" но работает коряво из - за особенности ПК СП

это исходник. У кого паранойя, можете собрать. Тут найдете компилятор.

Код:
#Region;**** Directives created by AutoIt3Wrapper_GUI **** 
#AutoIt3Wrapper_icon=..\..\..\Program Files\Chameleon Clock\mainico.ico 
#AutoIt3Wrapper_outfile=RegRobot_0.4.25.exe 
#AutoIt3Wrapper_Res_Fileversion=0.4.25.1 
#AutoIt3Wrapper_Res_LegalCopyright=raus 
#AutoIt3Wrapper_Res_Language=1049 
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** 
#include <Date.au3> 
#include <GUIConstantsEx.au3> 
#include <GUIConstants.au3> 
 
Opt("WinTitleMatchMode",4) 
 
 
 
Sleep(500) 
 
Global   $pos1, $pos2, $pos3, $Paused, $value, $Dolg2, $Vzis2, $Org2, $Dolg, $Vzis, $Org, $i, $Down, $Down2, $value2, $timer, $Secs, $Mins, $Hour, $Time, $timer2, $Secs2, $Mins2, $Hour2, $Time2, $Time3 , $Regim, $Regim2  ;переменные $pos1, $pos2, $pos3 позици курсоров, $Paused пауза, $value пауза 
 
HotKeySet("{HOME}", "ShowMessage")  
HotKeySet("{PAUSE}", "TogglePause") 
HotKeySet("{ESC}", "Terminate") 
 
 
Opt("GUIOnEventMode",1) 
 
GUICreate("Ввод данных", 300, 350) ; will create a dialog box that when displayed is centered 
 
; ввод количества ИП 
GuiCtrlCreateGroup("Сколько ИП прощелкать?", 10, 155, 250, 50) 
	$value = GUICtrlCreateInput("1", 20, 180, 30, 20) 
	GUICtrlSetState(-1, $GUI_DROPACCEPTED) 
; конец ввода количества ИП 
 
GuiCtrlCreateGroup("Кому направить?", 10, 10, 250, 90) 
$Dolg = GUICtrlCreateCheckbox ("Должник", 20, 30, 120, 20)  
GUICtrlSetState (-1,1) 
$Vzis = GUICtrlCreateCheckbox ("Взыскатель", 20, 50, 120, 20) 
GUICtrlSetState (-1,1) 
$Org = GUICtrlCreateCheckbox ("Орган", 20, 70, 120, 20) 
GUICtrlSetState (-1,1) 
$OK_Btn = GUICtrlCreateButton("OK", 15, 315, 70, 25) 
GUICtrlSetOnEvent($OK_Btn,"OnYes") 
; это для версии найти нижний документ 
GuiCtrlCreateGroup("Если документ внизу списка", 10, 105, 250, 40) 
$Down = GUICtrlCreateCheckbox ("Попытаться захватить ПОСЛЕДНИЙ документ", 20, 120, 230, 20) 
GUICtrlSetState (-1,0) 
; конец  это для версии найти нижний документ 
 
; для каждого контрагента отдельный документ 
GuiCtrlCreateGroup("Режим отправки", 10, 215, 250, 40) 
$Regim  = GUICtrlCreateCheckbox ("Каждому контрагенту копию", 20, 230, 230, 20) 
GUICtrlSetState (-1,0) 
 
 
; КОНЕЦ для каждого контрагента отдельный документ 
 
GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit") 
 
GUISetState ()	  ; will display an  dialog box with 1 checkbox 
 
; Run the GUI until the dialog is closed 
While 1 
   Sleep (100) 
WEnd 
 
Func OnExit() 
	Exit 
EndFunc 
 
Func OnYes() 
	 
		  
		 $Dolg2 = GUICtrlRead($Dolg); записываю в переменные 1  - галка стоит 4  пустой чекбокс (почему так не знаю) 
		 $Vzis2 = GUICtrlRead($Vzis) 
		 $Org2 = GUICtrlRead($Org) 
		 $Down2 = GUICtrlRead($Down) 
		 $value2 = GUICtrlRead($value) 
		 $Regim2 = GUICtrlRead($Regim) 
		  
		 GUIDelete("Ввод данных"); удаляю форму 
		 
		 if $Dolg2 = 4 And $Vzis2 = 4  And $Org2 = 4 Then  
			 MsgBox(16, "Ошибка. Некому направлять...", "Сняты все галки контрагентов! Продолжение невозможо... Некому направлять...  ", 5) 
	 
			 Exit 0 
		EndIf	  
 
		  
		 TrayTip("Инструкция","Подведите мыш к меню <Свойства> и нажмите HOME" , 2, 1) 
EndFunc 
 
;;;;;;;; 
 
Func Terminate() 
	MsgBox(16, "Отмена", "Отменено пользователем... ", 5) 
	 
	Exit 0 
EndFunc 
 
Func TogglePause() 
	$Paused = NOT $Paused 
	While $Paused 
		sleep(100) 
		ToolTip('Script is "Paused"',0,0) 
	WEnd 
	ToolTip("") 
EndFunc 
 
Func ShowMessage() 
	 
	 
;Start timer 
	$timer = TimerInit() 
	 
If $pos1 = 0 Then 
		 
	$pos1  = MouseGetPos() 
	MouseMove($pos1[0],$pos1[1]) 
	MouseClick("left") 
	TrayTip("Инструкция",  "Подведите мыш к вкладке <Опись документов> и нажмите HOME" , 2, 1) 
	 
	ElseIf $pos2 = 0 Then 
	$pos2  = MouseGetPos() 
	MouseMove($pos2[0],$pos2[1]) 
	MouseClick("left") 
		TrayTip("Инструкция", "Подведите мыш к отправляемому документу и нажмите HOME", 2, 1) 
	Sleep(500)  
	 
	ElseIf $pos3 = 0 Then 
	$pos3  = MouseGetPos() 
	MouseMove($pos3[0],$pos3[1]) 
	MouseClick("left") 
	TrayTip("Инструкция", "Введите количество необходимых ИП", 2, 1) 
	 
	 
	 
	TrayTip(" Шаг 3", "Автоматическая работа робота... Ждите..." , 2, 1) 
	 
Do		 
	 
	MouseMove($pos1[0],$pos1[1]); подвожу мыш к свойствам 
	MouseClick("left"); нажимаю на кнопку 
; ----------------------------------- ждать вкладку исполнительное производство 
	WinWait("Исполнительное производство","")  
	If Not WinActive("Исполнительное производство","") Then WinActivate("Исполнительное производство","") 
	WinWaitActive("Исполнительное производство","") 
	 
	MouseMove($pos2[0],$pos2[1]); подвожу мыш к вкладке 
	MouseClick("left"); нажимаю на кнопку 
	 
; для распечатки последнего документа	 
	 
	if $Down2 = 1 Then; если моя галка по поиску нижнего документа нажата нажимаю галку 
	 
	sleep(100) 
	MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
	MouseClick("left"); нажимаю на кнопку (выделен документ) 
	 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	sleep(200) 
	Send("{PGDN}{PGDN}") 
	 
 
EndIf 
 
if  $Regim2 = 4 Then; если галка не стоит - нормальное развитие событий //////////////////////////////////////////// 
 
MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
MouseClick("left"); нажимаю на кнопку (выделен документ) 
MouseClick("right"); нажимаю на кнопку контекстного меню 
Send("{DOWN}"); готовлю документ к отправке 
sleep(200) 
Send("{DOWN}"); подведен к меню "готовлю документ к отправке" 
sleep(200) 
Send("{ENTER}"); зашел на форму с галками  
 
; -------------------------- жду форму - отправка документов 
 
WinWait("Отправка документа","") 
If Not WinActive("Отправка документа","") Then WinActivate("Отправка документа","") 
WinWaitActive("Отправка документа","") 
 
  
	  
	  
sleep(200) 
if $Dolg2 = 1 Then; если моя галка по должнику нажата нажимаю галку 
Send("{SPACE}"); должник 
EndIf 
if $Dolg2 = 4 Then; если моя галка нажата нажимаю галку 
Send("{DOWN}")  
EndIf 
Send("{DOWN}") 
sleep(200) 
if $Vzis2 = 1 Then; если моя галка нажата нажимаю галку 
Send("{SPACE}") 
EndIf 
Send("{DOWN}") 
sleep(200) 
If $Org2 = 1 Then; если моя галка нажата нажимаю галку 
Send("{SPACE}") 
EndIf 
Send("{DOWN}") 
sleep(400) 
 
WinWait("Отправка документа","") 
ControlClick("Отправка документа", "","TBitBtn2") 
 
 
sleep(500)	 
; отправляю документ 
MouseMove($pos3[0],$pos3[1]) 
MouseClick("left") 
MouseClick("right") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{ENTER}") 
sleep(100)	 
 
;EndIf; КОНЕЦ если галка не стоит - нормальное развитие событий //////////////////////////////////////////// 
 
; тут ненормальное развитие событий т.е. каждый документ каждому контрагенту единолично \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////// 
Else 
sleep(200) 
;if  $Regim2 = 4 Then  
if $Dolg2 = 1 Then; если моя галка по должнику нажата нажимаю галку 
MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
MouseClick("left"); нажимаю на кнопку (выделен документ) 
MouseClick("right"); нажимаю на кнопку контекстного меню 
Send("{DOWN}"); готовлю документ к отправке 
sleep(200) 
Send("{DOWN}"); подведен к меню "готовлю документ к отправке" 
sleep(200) 
Send("{ENTER}"); зашел на форму с галками  
WinWait("Отправка документа","") 
If Not WinActive("Отправка документа","") Then WinActivate("Отправка документа","") 
WinWaitActive("Отправка документа","") 
 
sleep(50)	 
Send("{SPACE}"); должник 
 
WinWait("Отправка документа","") 
ControlClick("Отправка документа", "","TBitBtn2") 
 
 
sleep(500)	 
; отправляю документ 
MouseMove($pos3[0],$pos3[1]) 
MouseClick("left") 
MouseClick("right") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{ENTER}") 
sleep(100)	 
 
 
EndIf 
 
 
sleep(200) 
 
if $Vzis2 = 1 Then; если моя галка нажата нажимаю галку 
 
MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
MouseClick("left"); нажимаю на кнопку (выделен документ) 
MouseClick("right"); нажимаю на кнопку контекстного меню 
Send("{DOWN}"); готовлю документ к отправке 
sleep(200) 
Send("{DOWN}"); подведен к меню "готовлю документ к отправке" 
sleep(200) 
Send("{ENTER}"); зашел на форму с галками  
WinWait("Отправка документа","") 
If Not WinActive("Отправка документа","") Then WinActivate("Отправка документа","") 
WinWaitActive("Отправка документа","") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}")  
sleep(50) 
Send("{SPACE}"); взыскатель 
 
WinWait("Отправка документа","") 
ControlClick("Отправка документа", "","TBitBtn2") 
 
 
sleep(500)	 
; отправляю документ 
MouseMove($pos3[0],$pos3[1]) 
MouseClick("left") 
MouseClick("right") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{ENTER}") 
sleep(100)	 
 
EndIf 
 
sleep(200) 
If $Org2 = 1 Then; если моя галка нажата нажимаю галку 
MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
MouseClick("left"); нажимаю на кнопку (выделен документ) 
MouseClick("right"); нажимаю на кнопку контекстного меню 
Send("{DOWN}"); готовлю документ к отправке 
sleep(200) 
Send("{DOWN}"); подведен к меню "готовлю документ к отправке" 
sleep(200) 
Send("{ENTER}"); зашел на форму с галками  
WinWait("Отправка документа","") 
If Not WinActive("Отправка документа","") Then WinActivate("Отправка документа","") 
WinWaitActive("Отправка документа","") 
sleep(50) 
Send("{DOWN}")  
sleep(50) 
Send("{DOWN}")  
sleep(50) 
Send("{DOWN}") 	 
sleep(50) 
Send("{SPACE}"); орган 
sleep(50) 
WinWait("Отправка документа","") 
ControlClick("Отправка документа", "","TBitBtn2") 
 
 
sleep(500)	 
; отправляю документ 
MouseMove($pos3[0],$pos3[1]) 
MouseClick("left") 
MouseClick("right") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{DOWN}") 
sleep(50) 
Send("{ENTER}") 
sleep(100)	 
 
 
EndIf 
 
sleep(400) 
 
EndIf 
 
Send("!{F4}"); Закрываю ИП 
 
MouseWheel("Down", 1) 
 
 
	$i = $i + 1 
TrayTip("","Автоматическая работа робота. Прощелкано ИП " & $i & " из "&$value2& "  Ждите..."   , 2, 1)  
Until $i = $value2 
 
; время   ----------------------------------------- 
 _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs) 
 $Time = StringFormat("%02i ч.%02i м.%02i с.", $Hour, $Mins, $Secs) 
  
; время   ----------------------------------------- 
	 
TrayTip("Все...","Обработка закончена..." , 2, 1) 	 
MsgBox(64,'Робот Регистрации' , 'Я закончил работу! Спасибо за внимание!!! Обще время работы составило:' & $Time  )  
 
 
Exit 0 
EndIf 
 
 
 
; Return 	 
EndFunc
__________________
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
  		В Минюст Цитата Спасибо
Старый 05.03.2011, 19:29   #44
Alisia-ipristav
Сотрудник ФССП
 
Аватар для Alisia-ipristav
 
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11 раз(а) в 11 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
За недолгое отсутствие прошу прощения, попробую заново свою проблему показать:

Если в этом поле при отправке пс о возб. пристав не пишет, кому он его отправляет, то в канцелярии не видно кому пс о возб. направлено.

Вот как то так
Миниатюры
2.jpg  
__________________
Все будет хорошо.
  		В Минюст Цитата Спасибо
Старый 05.03.2011, 19:29   #45
raus
Модератор ФССП
 
Аватар для raus
 
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548 раз(а) в 528 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Цитата:
Сообщение от Alisia Посмотреть сообщение
Если в этом поле при отправке пс о возб. пристав не пишет, кому он его отправляет, то в канцелярии не видно кому пс о возб. направлено.
какое предложение? Чтобы робот вписывал туда ФИО должника?
__________________
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
  		В Минюст Цитата Спасибо
Старый 05.03.2011, 19:31   #46
Alisia-ipristav
Сотрудник ФССП
 
Аватар для Alisia-ipristav
 
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11 раз(а) в 11 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
А что, можно?
__________________
Все будет хорошо.
  		В Минюст Цитата Спасибо
Старый 05.03.2011, 19:41   #47
raus
Модератор ФССП
 
Аватар для raus
 
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548 раз(а) в 528 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Цитата:
Сообщение от Alisia Посмотреть сообщение
А что, можно?
да...
__________________
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
  		В Минюст Цитата Спасибо
Старый 09.03.2011, 18:03   #48
raus
Модератор ФССП
 
Аватар для raus
 
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548 раз(а) в 528 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Цитата:
Сообщение от Alisia Посмотреть сообщение
Вот как то так
точно ничего другого не нужно кроме ФИО должника?
__________________
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
  		В Минюст Цитата Спасибо
Старый 09.03.2011, 20:35   #49
Alisia-ipristav
Сотрудник ФССП
 
Аватар для Alisia-ipristav
 
Регистрация: 16.02.2011
Сообщений: 234
Благодарности: 2
Поблагодарили 11 раз(а) в 11 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Вообщем, когда 1 пс направляется должнику, то ФИО должника, когда 2 пс взыскателю - ФИО взыскателя. И соответственно, 3 - орган , выдавший... (наименование "РОВД " ГИБДД" кратенько) Понимаете , если в этом поле пристав не прописывает адресатов , кому направляет, в канцелярии ничего не видят...

Попыталась загрузить еще скрин, что-то не удалось...
__________________
Все будет хорошо.
  		В Минюст Цитата Спасибо
Старый 09.03.2011, 20:47   #50
raus
Модератор ФССП
 
Аватар для raus
 
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548 раз(а) в 528 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию
Цитата:
Сообщение от Alisia Посмотреть сообщение
1 пс направляется должнику, то ФИО должника, когда
2 пс взыскателю - ФИО взыскателя.
И соответственно, 3 - орган , выдавший... (наименование "РОВД " ГИБДД" кратенько)
т.е. три разных записи в одном документе?

мда, давайте уж скрин.... Вернее три.... Грузите на радикал, чтоли....
__________________
Yo Way Yo, Home Va-Ray,
Yo Ay-Rah, Jerhume Brunnen-G
  		В Минюст Цитата Спасибо
Ответить
Страница 5 из 9 1234 5 6789


Быстрый ответ

Сообщение:
Опции

« Предыдущая тема | Следующая тема »

Ваши права в разделе