Робот регистрации

Alisia-ipristav · 09.03.2011, 21:08

Ну, не знаю.... Может я что то не то объясняю..или не то понимаю?... Пристав трижды отправляет пс о возбуждении на отправку: при первой отправке пишет в поле краткое содержание: ФИО должника, затем отправляет второй раз это же пс о возбуждении , но уже взыскателю ( в поле краткое содержание пишет взыскателя), и третий раз в орган , выдавший(пишет в этом поле кратко наименование органа).В канцелярию приходят 3 пс о возбуждении по одному и тому же производству. Если он там ничего не напишет, то в канцелярии эти три принятых постановления на регистрацию не понятно кому и куда. Ну как?

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

raus · 09.03.2011, 21:40

Цитата:

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

при первой отправке пишет в поле краткое содержание: ФИО должника, затем отправляет второй раз это же пс о возбуждении , но уже взыскателю ( в поле краткое содержание пишет взыскателя), и третий раз в орган , выдавший(пишет в этом поле кратко наименование органа)

так!!! Начинаю понимать! Последний вопрос: Когда пристав проделывает эту операцию второй и третий раз он стирает данные из поля "краткое содержание" и поверх пишет новые?

Снежная Королева · 09.03.2011, 21:48

Цитата:

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

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

Я единственный даун, не понимающий, для чего всё это?

Alisia-ipristav · 09.03.2011, 21:49

ДА! Оправили должнику, затем снова нажимаем на пс - стираем должника - пишем взыскателя, отправляем взыскателю, то же проделываем и с органом. Ну если это просто штраф в доход государства, то 2 раза осуществляется отправка: должнику и в орган. Манипуляции те же.

raus · 09.03.2011, 21:55

понял... сделаю...

Цитата:

Сообщение от Снежная Королева

Я единственный даун, не понимающий, для чего всё это?

у каждого свое делопроизводство... НО.... Alisia - мне вас жаль, таки мучения... Если бы меня вручную заставили писать по три раза в "постановлении о возбуждении" я бы сошел с ума....

Alisia-ipristav · 09.03.2011, 22:22

Выхода не было...Но(!) появился свет в конце туннеля в виде вашей чудо -программы, поэтому ждем с большим нетерпением . Когда в отделе показала первого Робота - радость неимоверная.Но, оказалось, у нас еще много недоработок.Поэтому и прошу Вашей помоши.

Как же все таки ВЫ начинали? Ведь не сразу было чудо.

raus · 09.03.2011, 22:33

Alisia - раньше бы знал, побыстрее бы сделал, я не знал что вас так мучают....
Завтра постараюсь одну техпроблему решить (нужно еще почитать форумы, и потеснить), и если все ОК, послезавтра скомпилирую (хотя обещать не могу ,ибо работа с чужими формами часто несколько ммм.... ээээ.... забавна чтоли)

Как начал заниматься этой фигней - лень, обычная лень. Мне легче [s]выучить [/s] почитать о языке программирования, и что нибудь сварганить, чем каждый день тупо нажимать на "Вставить - Выделить - Отправить - закрыть" по полчаса..... Я от этого схожу с ума....

raus · 10.03.2011, 17:53

попробуй

исходник

Код:

#Region;**** Directives created by AutoIt3Wrapper_GUI **** 
#AutoIt3Wrapper_icon=C:\Downloads\crystal_xp_tux_2\Overtux 2\devil-may-cry_overlord59-tux.ico 
#AutoIt3Wrapper_outfile=RegRobot_0.4.27.exe 
#AutoIt3Wrapper_Res_Fileversion=0.4.27.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("WinWaitDelay",100) 
Opt("WinTitleMatchMode",1) 
Opt("WinDetectHiddenText",1) 
Opt("MouseCoordMode",1) 
 
 
 
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, $AAOrg, $AADolg, $AAvsis  ;переменные $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("for Alisia", 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("Исполнительное производство","") 
	 
; собираю данные для вставления в документ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
	 
	;  обнуляю переменые 
	 
	$AAOrg = ""  
	$AADolg = ""  
	$AAvsis = ""  
	 
	 
	WinWait("Исполнительное производство") 
	$AADolg = ControlGetText("Исполнительное производство","","TRxDBComboEdit1") 
	$AAvsis = ControlGetText("Исполнительное производство","","TDBEdit12") 
 
   ;MsgBox (0, "", $AADolg) 
 
   ;MsgBox (0, "", $AAvsis) 
	 
	if  $Regim2 = 1 Then 
		 
 
	 
;; получаю данные организации  
	Opt("MouseCoordMode",0) 
	WinWait("Исполнительное производство","") 
If Not WinActive("Исполнительное производство","") Then WinActivate("Исполнительное производство","") 
WinWaitActive("Исполнительное производство","") 
MouseMove(255,40) 
MouseDown("left") 
MouseUp("left") 
 
 
 
WinWait("Редактирование исполнительного документа","") 
If Not WinActive("Редактирование исполнительного документа","") Then WinActivate("Редактирование исполнительного документа","") 
WinWaitActive("Редактирование исполнительного документа","") 
 
 
Opt("WinTitleMatchMode", 4) 
WinWait("Редактирование исполнительного документа","Отмена") 
$AAOrg = ControlGetText("Редактирование исполнительного документа","Отмена","TRxDBComboEdit1") 
 
ControlClick("Редактирование исполнительного документа","Отмена","TBitBtn1") 
 
 
;MsgBox (0, "", $AAOrg) 
 
Opt("MouseCoordMode",1) 
; конец данные организации 
	 
		 
	EndIf	 
	 
	 
; Конец собираю данные  
	 
	 
	 
	 
	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 $Dolg2 = 1 Then; если моя галка по должнику нажата нажимаю галку 
 
; тут идет вставка должника в документ из переменной ------------------------------------------ 
MouseMove($pos3[0],$pos3[1]); подвожу мыш к документу 
MouseClick("left"); нажимаю на кнопку (выделен документ) 
MouseClick("right"); нажимаю на кнопку контекстного меню 
Send("{DOWN}") 
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{ENTER}"); зашел на форму с  
 
WinWait("Опись документа","") 
If Not WinActive("Опись документа","") Then WinActivate("Опись документа","") 
WinWaitActive("Опись документа","") 
 
ControlClick("Опись документа","","TDBMemo1") 
 
;Send("{HOME}{SHIFTDOWN}{END}{SHIFTUP}{DEL}") 
 
Send("{END}{SHIFTDOWN}{CTRLDOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L 
EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTUP}{CTRLUP}{DEL}") 
 
ControlSend("Опись документа","","TDBMemo1", $AADolg) 
 
ControlClick("Опись документа","","TBitBtn2") 
 
;; Конец  тут идет вставка должника в документ из переменной ------------------------------------------ 
 
	 
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("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{ENTER}"); зашел на форму с  
 
WinWait("Опись документа","") 
If Not WinActive("Опись документа","") Then WinActivate("Опись документа","") 
WinWaitActive("Опись документа","") 
 
ControlClick("Опись документа","","TDBMemo1") 
 
;Send("{HOME}{SHIFTDOWN}{END}{SHIFTUP}{DEL}") 
 
Send("{END}{SHIFTDOWN}{CTRLDOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L 
EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTUP}{CTRLUP}{DEL}") 
 
ControlSend("Опись документа","","TDBMemo1", $AAvsis) 
 
ControlClick("Опись документа","","TBitBtn2") 
 
;; Конец  тут идет вставка должника в документ из переменной ------------------------------------------ 
 
 
	 
 
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("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{DOWN}")  
sleep(200) 
Send("{ENTER}"); зашел на форму с  
 
WinWait("Опись документа","") 
If Not WinActive("Опись документа","") Then WinActivate("Опись документа","") 
WinWaitActive("Опись документа","") 
 
ControlClick("Опись документа","","TDBMemo1") 
 
;Send("{HOME}{SHIFTDOWN}{END}{SHIFTUP}{DEL}") 
 
Send("{END}{SHIFTDOWN}{CTRLDOWN}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{L 
EFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTUP}{CTRLUP}{DEL}") 
 
ControlSend("Опись документа","","TDBMemo1", $AAOrg) 
 
ControlClick("Опись документа","","TBitBtn2") 
 
;; Конец  тут идет вставка должника в документ из переменной ------------------------------------------ 
 
	 
	 
	 
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

попробуй

Alisia-ipristav · 10.03.2011, 20:43

Попробую, завтра отпишусь, как прошли испытания.

raus · 10.03.2011, 20:54

Цитата:

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

Попробую, завтра отпишусь, как прошли испытания.

у меня работает... Если что то не будет работать - с подробными описаниями и скринами....

09.03.2011, 21:08	#51
Alisia-ipristav Сотрудник ФССП Регистрация: 16.02.2011 Сообщений: 234 Благодарности: 2 Поблагодарили 11 раз(а) в 11 сообщениях Обратиться по нику Цитата выделенного	Ну, не знаю.... Может я что то не то объясняю..или не то понимаю?... Пристав трижды отправляет пс о возбуждении на отправку: при первой отправке пишет в поле краткое содержание: ФИО должника, затем отправляет второй раз это же пс о возбуждении , но уже взыскателю ( в поле краткое содержание пишет взыскателя), и третий раз в орган , выдавший(пишет в этом поле кратко наименование органа).В канцелярию приходят 3 пс о возбуждении по одному и тому же производству. Если он там ничего не напишет, то в канцелярии эти три принятых постановления на регистрацию не понятно кому и куда. Ну как? Расскажите, а до создания Робота Регистрации какой у Вас был процесс отправки постановлений на регистрацию. У нас так изначально показали, как отправлять, вот так и отправляем. __________________ Все будет хорошо.
	В Минюст Цитата Спасибо

09.03.2011, 21:49	#54
Alisia-ipristav Сотрудник ФССП Регистрация: 16.02.2011 Сообщений: 234 Благодарности: 2 Поблагодарили 11 раз(а) в 11 сообщениях Обратиться по нику Цитата выделенного	ДА! Оправили должнику, затем снова нажимаем на пс - стираем должника - пишем взыскателя, отправляем взыскателю, то же проделываем и с органом. Ну если это просто штраф в доход государства, то 2 раза осуществляется отправка: должнику и в орган. Манипуляции те же. __________________ Все будет хорошо.
	В Минюст Цитата Спасибо

09.03.2011, 22:22	#56
Alisia-ipristav Сотрудник ФССП Регистрация: 16.02.2011 Сообщений: 234 Благодарности: 2 Поблагодарили 11 раз(а) в 11 сообщениях Обратиться по нику Цитата выделенного	Выхода не было...Но(!) появился свет в конце туннеля в виде вашей чудо -программы, поэтому ждем с большим нетерпением . Когда в отделе показала первого Робота - радость неимоверная.Но, оказалось, у нас еще много недоработок.Поэтому и прошу Вашей помоши. Как же все таки ВЫ начинали? Ведь не сразу было чудо. __________________ Все будет хорошо.
	В Минюст Цитата Спасибо

09.03.2011, 22:33	#57
raus Модератор ФССП Регистрация: 16.01.2009 Адрес: Россия / / Сообщений: 3,373 Благодарности: 153 Поблагодарили 548 раз(а) в 528 сообщениях Обратиться по нику Цитата выделенного	Alisia - раньше бы знал, побыстрее бы сделал, я не знал что вас так мучают.... Завтра постараюсь одну техпроблему решить (нужно еще почитать форумы, и потеснить), и если все ОК, послезавтра скомпилирую (хотя обещать не могу ,ибо работа с чужими формами часто несколько ммм.... ээээ.... забавна чтоли) Как начал заниматься этой фигней - лень, обычная лень. Мне легче [s]выучить [/s] почитать о языке программирования, и что нибудь сварганить, чем каждый день тупо нажимать на "Вставить - Выделить - Отправить - закрыть" по полчаса..... Я от этого схожу с ума.... __________________ Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G
	В Минюст Цитата Спасибо

10.03.2011, 20:43	#59
Alisia-ipristav Сотрудник ФССП Регистрация: 16.02.2011 Сообщений: 234 Благодарности: 2 Поблагодарили 11 раз(а) в 11 сообщениях Обратиться по нику Цитата выделенного	Попробую, завтра отпишусь, как прошли испытания. __________________ Все будет хорошо.
	В Минюст Цитата Спасибо

Робот регистрации

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

Онлайн-консультация

Авторизация

Сообщение форума

Отменить изменения

Быстрый ответ
При отправке были допущены следующие ошибки

Ок
Сообщение: Опции Вставить цитату в ответ? Отправка быстрого ответа. Пожалуйста, подождите...

Робот регистрации

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

«Закония» в соц. сетях

Онлайн-консультация

Авторизация