[Вова-ipristav]

Здравствуйте! Помогите, пожалуйста, с проблемой. При передаче в архив оконченных ИП, одно ИП не передаётся. По всем пяти критериям пишет, что нет таких ИП (ИП - поручение СПИ о совершении исполнительных действий).

[sarapul-mro]

Сообщение от Вова

Здравствуйте! Помогите, пожалуйста, с проблемой. При передаче в архив оконченных ИП, одно ИП не передаётся. По всем пяти критериям пишет, что нет таких ИП (ИП - поручение СПИ о совершении исполнительных действий).

Новый релиз 4.04 сб1 по части сдачи в архив достаточно глючный, попробуй для сдачи этого одного ИП временно подцепить старую прежнюю сборку.

[sarapul-mro]

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

Доброе утро! У меня вот такая ошибка: Внимание ООИП, ООКР и СМИ: по и/п занижен исполнительский сбор. Кто нибудь сталкивался с таким?))

Эта проблема уже давно и до сих пор кое где она актуальна.
Первое что предлагаю проверить соответствия полей в карточке.
Поле предмет исполнения-"Исполнительский сбор" (Это заполняет канцелярия)
далее как классифицирует карточку СПИ: Сущность исполнения "Исполнительский сбор",
в назначении платежа также "Исполнительский сбор" и самое главное это проверить в поле назначение платежа КБК, а еще лучше перещелкать такие ИП.
Есть еще вариант в одном из обновлений примерно июль 2010 был скрипт который автоматически что то делает с такими записями точно не скажу, но как раз для этого кировцы и его и писали.

[raus]

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

[Вова-ipristav]

Применить фильтр по статусу, там можно статус прописать, по коду шаблона.

[bariknm]

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

[raus]

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

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

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

[bariknm]

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

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

а можно где-нибудь этот скрипт достать? а то требуют выгрузку, а как это сделать фиг знает

[bariknm]

Помогите пожалуйста!!! Очень срочно нужен этот скрипт (выгрузки данных в сбербанк) или что-то типа того. Где скачать или скиньте на мыло =(

[raus]

Сообщение от 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("Конец.")