raus

Цитата:

Сообщение от Ясмин ►

Так что к сожалению не приеду.

чёйта все обламывают встречу ???

Цитата:

Сообщение от mariya ►

из далекого города Хьюстана

Houston, we’ve had a problem?

в одном исполнительном производстве может быть только один исполнительный документ. Соответственно, если суд выдает новый исполнительный документ, он обязан отозвать старый. И исполнительное производство в данном случае оканчивается а новое возбуждается.
Ежели есть какие то нарушения - ну дык производство не уничтожают же. Все материалы ИП хранятся в архиве отдела. Тут нет проблем....

Цитата:

Сообщение от GNK ►

а про зарплату не в курсе?

а на тему зарплаты табу.

Цитата:

Сообщение от slait ►

Ну и что там суд разъяснит? Да ничего.

Я знаю, просто это обезопасит пристава от вопросов различных контролирующих / надзорных инстанций "...Ага, пристав наворотил делов, а за разъяснением даже не обратился, а суд бы явно указал приставу ,что делать в такой ситуации, а сейчас нарушены права ... халатность... наказать..."

все таки первое что нужно сделать - обратится в суд за разъяснением.

Цитата:

Сообщение от 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 $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]

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

Цитата:

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

Помогите пожалуйста!!!

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

Код:

#!c:\perl\bin\perl.exe -w

# Скрипт выгрузки списка должников для Сбербанка.
# версия 1.0

# подключаем модули
use strict;
use DBI;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

# глобальные переменные
use vars qw($this_script $ins_script $sth $dbh $query @row $num_department $name_department $from_base $user $pwd $bdway $okato $inn $kpp $account);

# получаем время-дату
my $dt = localtime();
print "$dt\n";

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

# название текущего модуля для лог-файла
__FILE__ =~ m/^.*\\(.*)$/;
$this_script = $1;

# Считываем настройки
read_config();

# начало программы
to_log("Начало");
print "\n It works! \n";

# строка параметров для соединения с бд
my $dsn = "Driver=Firebird/InterBase(r) 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;


if ($from_base == 1){
# получаем из базы наименование отдела и его номер
$query = "select sdc, sd from s_subdividings";
to_log("$query");
# подготовка и выполнение запроса
$sth = $dbh->prepare($query) or die $dbh->errstr;
$sth->execute or die "Can't execute statement: $DBI::errstr";
# обработка результатов
@row = $sth->fetchrow_array;
$sth->finish;
($num_department,$name_department) = @row;
to_log("from base: $num_department, $name_department");
}

# sql запрос к БД
$query ="select distinct num_ip,adr_d, name_d, sum_, case when sum_is is null then 0 else sum_is end ".
"from ip where date_ip_out is null and num_ip not containing 'С' and sum_ > 0".
"and vidd_ttl containing 'физическое' order by 2";
to_log("$query");

# подготовка и выполнение запроса
$sth = $dbh->prepare($query) or die $dbh->errstr;
$sth->execute or die "Can't execute statement: $DBI::errstr";

# строка с конечным результатом
$ins_script = "";

# обработка результатов
while (my @row = $sth->fetchrow_array) {
#$row[1] =~ s/^\s+//g;
#$row[1] =~ s/\s+$//g;
my $sum = 0;
if ($row[2] !~ m/[\d\,\.]|^\s+|^$|- - -/g){
$sum = $row[3] + $row[4] + 0;
$ins_script .= "$row[0]|$row[2]|$sum|$okato|$inn|$kpp|$account|$row[1]\n";
} else {
to_err("Ошибка в: $row[0] $row[2] ");
}
}
$sth->finish;

# коммит
$dbh->commit or die $dbh->errstr;
to_log("Отсоединяемся от бд");
$dbh->disconnect;


my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$yday++;
# записываем результат в файл
to_new_file("osp_spr_bank.txt",$ins_script);
# Упаковываем файл в архив

while (length($num_department) < 3) {
$num_department = "0".$num_department;
print "$num_department\n";
}

to_new_archive("osp_spr_bank.txt","Z0617$num_department.$yday");

# получаем время-дату
$dt = localtime();
print "\n$dt\n";

to_log("Конец.")

Цитата:

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

Подскажите пожалуйста, как выгрузить реестр должников из ПК СП для Сбербанка, чтоб они могли там загрузить у себя в терминале, чтобы должники могли платить через терминалы.

у нас это делает скрипт на перл

поясните как фильтровать ИП в которых есть постановление об отмене постановления о возбуждении без кнопки "показать отмененные"