[Sirius34]

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

# подключаем наш модуль с функциями
require "C:\\perl_scripts\\general.pl";

вот этот модуль точно еще будет нужен

# строка параметров для соединения с бд
my $dsn = "Driver=Firebird/InterBase® driver;Uid=$user;Pwd=$pwd;DbName=$bdway; ";

to_log("Соединяемся с базой данных");

# соединяемся с БД
my $dbh = DBI->connect("dbi:ODBC:$dsn", "dbuser", "dbpassword",
{ RaiseError => 1, AutoCommit => 0 }) or die $DBI::errstr;

вот все бы хорошо, но где путь к файлу БД и его имя??

[bariknm]

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

это перл... я в нем нифигга не понимаю.... так что вопросы не задавайте...

Ну всё бы хорошо, но я тоже не силен в перле.
С помощью чего бы его запустить?

[raus]

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

вот этот модуль точно еще будет нужен

лови

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;

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

вот все бы хорошо, но где путь к файлу БД и его имя??

рядом лежит файл 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]

звездочки меняйте на свои данные

[Sirius34]

bariknm
нужно будет интерпретатор perl установить
выбираем нужный здесь

[Восток-ipristav]

У кого есть скрипты по исправлению ошибок по новому chekstat (переход на ПК ОСП) .... ?

[sarapul-mro]

Сообщение от Восток

У кого есть скрипты по исправлению ошибок по новому chekstat (переход на ПК ОСП) .... ?

А что есть скрипты которые автоматом могут распознать, например какой должник правильный в ИД забит или в ИП? По-моему по тем ИП которые выпадают в ошибку приставу нужно смотреть самому, я конечно понимаю есть еще такой косяк как два пробела, реально все одинаково но есть лишний пробел между ФИО.
Аналогично и почти по всем другим ошибкам, конечно можно и автоматом исправить но таких будет мало.
У меня например выпали в ошибку ИП к которых якобы нет постановления о возбуждении хотя реально в описи документ есть и с правильным кодом 1, дело в том что из за длинного названия пришлось сократить имя "Постановление о возб ИП (ФИЗИКИ)", именно не полное слово "Возб" и ИП падает в ошибку, хотя шаблон верный, как вы поступаете в подобных случаях?

[bariknm]

Люди добрые подскажите, у кого-нибудь есть новые формы ВСО по Приказу ФССП № 13 от 27.01.2011 года? Где их можно взять, на фтп Кирова их нет. А то у меня аналитики требуют, заколебался отбиваться.

[Sirius34]

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

Люди добрые подскажите, у кого-нибудь есть новые формы ВСО по Приказу ФССП № 13 от 27.01.2011 года? Где их можно взять, на фтп Кирова их нет. А то у меня аналитики требуют, заколебался отбиваться.

забирай
здесь
пароль 123

[bariknm]

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

забирай
здесь
пароль 123

Спасибо! А как их подключить к ПК СП, меняю шаблоны, а он ошибку пишет : " com.sun.star.lang.IndexOutOfBoundsExcept ion:" Формат форм менял на разные расширения, а ошибка всё та же.

[Sirius34]

bariknm
ПК СП с новыми отчетами работать еще не умеет, только с ОПД пока
ошибка, которую ты указал, возникает с большинством новых версий ООо, что-то там кировчане не доделали, поэтому ПК СП нормально, без проблем, работает только с 3.1.0 и 3.1.1
3.2 и выше вызывают кучу ошибок, хотя визуально работают быстрее...