12.05.2011, 23:39 | #711 | ||
Пользователь
Регистрация: 19.07.2010
Сообщений: 392
Благодарности: 0
Поблагодарили 76
раз(а) в 76 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
Цитата:
|
||
В Минюст Цитата Спасибо |
13.05.2011, 08:42 | #712 |
Пользователь
Регистрация: 19.04.2010
Адрес: Россия / Архангельская обл. / Нарьян-Мар
Сообщений: 56
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
|
В Минюст Цитата Спасибо |
13.05.2011, 09:03 | #713 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
лови
Код:
use IO::File; #------------------------------------------------------------------------------- my $WriteLogs = 0; # установка основных параметров sub read_config { my $configfile = "C:\\perl_scripts\\config.ini"; my $fh = new IO::File($configfile, "<") or die "could not open $configfile: $!\n"; my $master_config = ""; while (<$fh>) { $master_config .= $_; } $fh->close; # для выбора первой и последней секции $master_config = "\n" .$master_config ."["; # логи $master_config =~ m/\n\s*\[logs\](.*?)\[/si; my $section = "$1"; # где лежит лог-файл $section =~ m/^\s*logdir\s*=\s*"?([^\n#"]*)/m; $logfile = "$1"; # вкл/выкл логов $section =~ m/^\s*On_Off_Log\s*=\s*"?([^\n#"]*)/m; $WriteLogs = "$1"; $section =~ m/^\s*Rewrite_Log\s*=\s*"?([^\n#"]*)/m; $rewrlog = "$1"; to_log("Параметры"); to_log("$logfile; $WriteLogs; $rewrlog"); # отдел $master_config =~ m/\n\s*\[department\](.*?)\[/si; $section = "$1"; # откуда данные $section =~ m/^\s*from_base\s*=\s*"?([^\n#"]*)/m; $from_base = "$1"; # номер отдела $section =~ m/^\s*num_department\s*=\s*"?([^\n#"]*)/m; $num_department = "$1"; # наименование отдела $section =~ m/^\s*name_department\s*=\s*"?([^\n#"]*)/m; $name_department = "$1"; to_log("$num_department; $name_department; $from_base"); # бд $master_config =~ m/\n\s*\[database\](.*?)\[/si; $section = "$1"; # логин $section =~ m/^\s*user\s*=\s*"?([^\n#"]*)/m; $user = "$1"; # пароль $section =~ m/^\s*password\s*=\s*"?([^\n#"]*)/m; $pwd = "$1"; # путь к бд $section =~ m/^\s*path\s*=\s*"?([^\n#"]*)/m; $bdway = "$1"; to_log("$user; ***; $bdway"); # файлы # входящие $master_config =~ m/\n\s*\[files\](.*?)\[/si; $section = "$1"; $section =~ m/^\s*inbox_dir\s*=\s*"?([^\n#"]*)/m; $inbx = "$1"; $section =~ m/^\s*outbox_dir\s*=\s*"?([^\n#"]*)/m; $outbx = "$1"; to_log("$inbx; $outbx"); # unlink($outbx."error.txt"); # Бухгалтерия $master_config =~ m/\n\s*\[accounts_department\](.*?)\[/si; $section = "$1"; $section =~ m/^\s*okato\s*=\s*"?([^\n#"]*)/m; $okato = "$1"; $section =~ m/^\s*inn\s*=\s*"?([^\n#"]*)/m; $inn = "$1"; $section =~ m/^\s*kpp\s*=\s*"?([^\n#"]*)/m; $kpp = "$1"; $section =~ m/^\s*account\s*=\s*"?([^\n#"]*)/m; $account = "$1"; to_log("$okato; $inn; $kpp; $account"); to_log("Параметры установлены"); return 1; } #------------------------------------------------------------------------------ # для отладки и тестирования sub to_log { if ($WriteLogs != 1) { return 1; } my ($msg) = splice(@_,0,1); my $dt = localtime(); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $dat = "$mday$mon$year"; $yday++; $this_script =~ m/^(.*)\.pl$/; my $lfile = $logfile.$yday.".".$1.".log"; if($rewrlog == 1){ unlink($lfile); $rewrlog = 0; } my $fh = new IO::File($lfile, ">>") or die "could not open $lfile: $!\n"; print $fh "$dt {$this_script}: $msg;\n"; $fh->close(); return 1; } #------------------------------------------------------------------------------ # для отладки и тестирования sub to_err { my ($msg) = splice(@_,0,1); to_log("start to_err: $msg"); my $dt = localtime(); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $dat = "$mday$mon$year"; $yday++; $this_script =~ m/^(.*)\.pl$/; my $errfile = $outbx.$1."_error_$yday.txt"; my $fh = new IO::File($errfile, ">>") or die "could not open $errfile: $!\n"; print $fh "$dt {$this_script}: $msg;\n"; $fh->close(); to_log("stop to_err"); return 1; } #------------------------------------------------------------------------------ # Новый файл sub to_new_file{ my ($namefile,$text) = splice(@_,0,2); my $outfile = "$outbx$namefile"; to_log("Вызов to_new_file($namefile,TEXT)"); if ($namefile) { unlink("$outfile"); my $fl = new IO::File; unlink($outfile); $fl->open(">> $outfile") or die "error $outfile"; print $fl "$text"; $fl->close; } to_log("Завершение to_new_file"); return 1; } #------------------------------------------------------------------------------- # Упаковываем в архив zip sub to_new_archive{ my ($namefile,$namearchive) = splice(@_,0,2); to_log("Упаковка файла $namefile в архив $namearchive"); # Create a Zip file my $zip = Archive::Zip->new(); # Add a file from disk my $file_member = $zip->addFile($outbx.$namefile,$namefile); unless ( $zip->writeToFileNamed($outbx.$namearchive) == AZ_OK ) { print 'write error'; to_log('Ошибка записи!'); } to_log('Архивирование завершено'); return 1; } return 1; рядом лежит файл config.ini с содержимым Код:
[logs] logdir = "C:\perl_scripts\log\" On_Off_Log = "1" Rewrite_Log = "1" [department] from_base = "1" num_department = "48" name_department = "Отдел судебных приставов по ************************" [files] outbox_dir = "C:\perl_scripts\outbox\" inbox_dir = "C:\perl_scripts\inbox\" [database] user = "*********" password = "*************" path = "********************************\2011\EX_PROD.FDB" [accounts_department] секция настройки банковских реквизитов okato = "*****************" inn = "*****************" kpp = "*****************" account = "**************************" [other]
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
13.05.2011, 09:23 | #714 |
Пользователь
Регистрация: 19.07.2010
Сообщений: 392
Благодарности: 0
Поблагодарили 76
раз(а) в 76 сообщениях
Обратиться по нику Цитата выделенного |
|
В Минюст Цитата Спасибо |
20.05.2011, 04:30 | #715 |
Пользователь
Регистрация: 07.07.2010
Сообщений: 50
Благодарности: 0
Поблагодарили 2
раз(а) в 2 сообщениях
Обратиться по нику Цитата выделенного |
У кого есть скрипты по исправлению ошибок по новому chekstat (переход на ПК ОСП) .... ?
|
В Минюст Цитата Спасибо |
28.05.2011, 14:16 | #716 | |
Пользователь
Регистрация: 05.10.2010
Сообщений: 119
Благодарности: 0
Поблагодарили 8
раз(а) в 8 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
Аналогично и почти по всем другим ошибкам, конечно можно и автоматом исправить но таких будет мало. У меня например выпали в ошибку ИП к которых якобы нет постановления о возбуждении хотя реально в описи документ есть и с правильным кодом 1, дело в том что из за длинного названия пришлось сократить имя "Постановление о возб ИП (ФИЗИКИ)", именно не полное слово "Возб" и ИП падает в ошибку, хотя шаблон верный, как вы поступаете в подобных случаях? |
|
В Минюст Цитата Спасибо |
30.05.2011, 10:18 | #717 |
Пользователь
Регистрация: 19.04.2010
Адрес: Россия / Архангельская обл. / Нарьян-Мар
Сообщений: 56
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
Люди добрые подскажите, у кого-нибудь есть новые формы ВСО по Приказу ФССП № 13 от 27.01.2011 года? Где их можно взять, на фтп Кирова их нет. А то у меня аналитики требуют, заколебался отбиваться.
|
В Минюст Цитата Спасибо |
30.05.2011, 12:12 | #718 | |
Пользователь
Регистрация: 19.07.2010
Сообщений: 392
Благодарности: 0
Поблагодарили 76
раз(а) в 76 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
здесь пароль 123 |
|
В Минюст Цитата Спасибо |
30.05.2011, 13:56 | #719 | |
Пользователь
Регистрация: 19.04.2010
Адрес: Россия / Архангельская обл. / Нарьян-Мар
Сообщений: 56
Благодарности: 0
Поблагодарили 0
раз(а) в 0 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
|
|
В Минюст Цитата Спасибо |
30.05.2011, 14:24 | #720 |
Пользователь
Регистрация: 19.07.2010
Сообщений: 392
Благодарности: 0
Поблагодарили 76
раз(а) в 76 сообщениях
Обратиться по нику Цитата выделенного |
bariknm
ПК СП с новыми отчетами работать еще не умеет, только с ОПД пока ошибка, которую ты указал, возникает с большинством новых версий ООо, что-то там кировчане не доделали, поэтому ПК СП нормально, без проблем, работает только с 3.1.0 и 3.1.1 3.2 и выше вызывают кучу ошибок, хотя визуально работают быстрее... |
В Минюст Цитата Спасибо |
|
|
«Закония» в соц. сетях