[Legalalliance]

"тыцнуть" - надо запомнить...

[raus]

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

а их не надо заполнять, только "удержано всего" и выбрать 1/3, 1/4....

и еще процент удержаний проверить. Стоит дефолтно "70" но это не всегда так. Бывает и другие цифры. Зависит от доброты пристава.....

[yuma]

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

и еще процент удержаний проверить. Стоит дефолтно "70" но это не всегда так. Бывает и другие цифры. Зависит от доброты пристава.....

Само собой . Проверяла: 70 на 50 легко меняется, ежели пристав подобрел

[eashilets]

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

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

ЗЫ - сваял 15 минут назад, еще не показывал никому... Но кажется формула верная забита....

Да, скачала, а вот открываться не хочет супер таблица))))

[yyy-ipristav]

Сообщение от Елена Ши

Да, скачала, а вот открываться не хочет супер таблица))))

У меня все открывается. Это, что то у Вас.

[raus]

Сообщение от Елена Ши

Да, скачала, а вот открываться не хочет супер таблица))))

это не таблица. В какой операционке запускаете?

[raus]

сегодня этот скрипт скачали со ста уникальных IP адресов



ура....

[МилоСвета]

'raus'

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

[raus]

Сообщение от Ветка555

какую сумму (и почему именно эту сумму) необходимо вносить в первую строчку "удержанно всего"..

сумму, удержанную на работе у должника.

[raus]

ура, блин... нашел исходник... пилите...

#Region;**** Directives created by AutoIt3Wrapper_GUI **** 
#AutoIt3Wrapper_icon=..\..\..\..\..\soft\Mac-OSX-Leopard-10.5-Transformation-Pack\Mac-OSX-Leopard-10.5-Transformation-Pack\Mac_OSX_Leopard_10.5_Transformation_Pack\Icons\Drop Box Vol2 by Plexform\ICO\Brop Box empty orange.ico 
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** 
 
#include <GuiConstantsEx.au3> 
#include <ClipBoard.au3> 
#include <WindowsConstants.au3> 
#include <GuiConstantsEx.au3> 
 
Opt('MustDeclareVars', 1) 
 
_Main() 
 
Func _Main() 
	Local $Label_1,$Label_2, $Combo_2, $button1, $msg, $data, $alim,  $SumAlim, $result,$procent , $cfst, $procentRead, $procenDolg, $dataAlim, $tekusch 
 
	 
	GUICreate("Расчетчик 0.1.1", 400, 250, (@DesktopWidth - 300) / 2, (@DesktopHeight - 300) / 2) 
	 
	$Label_1 = GUICtrlCreateLabel("_", 150, 90, 131, 21, 0x1000) 
	GUICtrlCreateLabel("	задолженность", 40, 90,100) 
	$Label_2 = GUICtrlCreateLabel("_", 150, 120, 131, 21, 0x1000) 
	GUICtrlCreateLabel("текущие платежи", 40, 120,100) 
 	$Combo_2 = GUICtrlCreateCombo("", 150, 60, 130, 21 )	 
	GUICtrlSetData($Combo_2, "6|4|3|2", "4") 
	GUICtrlCreateLabel("удержания по листу 1/", 30, 63,120) 
 
	$button1 = GUICtrlCreateButton("Считать!!!", 150, 210, 130, 20) 
	 
	$alim = GUICtrlCreateInput("", 150, 10) 
	GUICtrlCreateLabel("	   удержано всего:", 30, 10,120) 
	$procent = GUICtrlCreateInput("70", 150, 35) 
	GUICtrlCreateLabel(" процент удержаний:", 30, 35,120) 
	GUICtrlCreateLabel("Введите данные по удержанной сумме, процентам удержания и часть (1/4, и др.) удержания по ИЛ и нажмите <Считать>. Данные копируются в буфер обмена.", 30, 150,300, 50) 
 
; Run the GUI until it is closed 
	GUISetState() 
	While 1 
		$msg = GUIGetMsg() 
		Select 
			Case $msg = $GUI_EVENT_CLOSE 
				ExitLoop 
				 
			Case $msg = $button1 
				$data = GUICtrlRead($Combo_2) 
				 
				$SumAlim = GUICtrlRead($alim) 
				 
			 
				 
				$procentRead = GUICtrlRead($procent)				 
				 
				 
				$cfst = 100 / $data; перевожу части в проценты взыскания по листу  
				 
			 
				$procenDolg =   $procentRead - $cfst; проценты удержания минус проценты по листу 
			 
				$result = $SumAlim * $procenDolg / $procentRead; это на долг 
				 
			; делаю отсечение до копеек 
				 
				$result = $result * 100  
				$result = Int ($result) 
				$result = $result / 100 
				 
			; заканчиваю отсечени до копеек 
				 
 				$tekusch =  $SumAlim - $result 
				 
				MsgBox (1, "результат", "Всего взыскано "  & $SumAlim &  "руб. Из них задолженность по алиментам " & $result & "руб. Текущие платежи по алиментам составили: " & $tekusch & "руб.") 
				  
				_ClipBoard_SetData ("Всего взыскано "  & $SumAlim &  "руб. Из них задолженность по алиментам " & $result & "руб. Текущие платежи по алиментам составили: " & $tekusch & "руб."); результат в буфер 
				 
				GUICtrlSetData($Label_1, $result) 
				GUICtrlSetData($Label_2, $tekusch) 
		EndSelect 
	WEnd 
	Exit 
EndFunc  ;==>_Main