Перейти к содержимому

Добро пожаловать на Форум неформального общения сотрудников УИС

Добро пожаловать на Форум неформального общения сотрудников УИС. Без регистрации вам доступна вся информация на форуме только для чтения. Создание новых тем и ответы в существующие будут доступны после регистрации:
  • Данный форум не является официальным форумом и не имеет никакого отношения к ФСИН России. Разъяснения здесь каких-либо вопросов юридической силы не имеют и являются личным мнением участников форума. За официальными разъяснениями просим обращаться непосредственно в ФСИН России и территориальные органы ФСИН.
Регистрация.
Локализация от IP-Board.Ru
 

* * * * - 6 Голосов

АКУС ИК(КП), СИЗО - вопросы, поиск решений

Автор iqmaster, 18 дек 2011 12:14
АКУС

Сообщений в теме: 1698

#1036 amber

    Ефрейтор


    • НЕ В СЕТИ
  • Участники

  • 26 сообщений
  • Время: 04:14
  • 5 Спасибо!
  • Место службы:ИК (КП,ВК)

Репутация: 0

Отправлено 03 Март 2016 - 13:40

Доброго всем дня!
У кого-нибудь была такая проблема: после переноса осужденной из действующей картотеки в картотеку выбывших и обратно, в беседах ИВР перестают отображаться поля "Содержание ИВР" и "Примечание"?

#1037 TwoFace

    Младший унтер-офицер


    • НЕ В СЕТИ
  • Участники

  • 66 сообщений
  • Время: 06:14
  • 25 Спасибо!
  • Служба:Группа автоматизации
  • Место службы:ИК (КП,ВК)
  • Интересы:Аниме, Мотоциклы, Компьютеры, Программирование, Рисование

Репутация: 7

Отправлено 10 Март 2016 - 12:58

Кому нужен был адресный листок прибытия:
1. Закинуть файл "Адресный листок прибытия.dot" в папку Reports: https://yadi.sk/i/SIdLnqFCq3hpB
2. Создаете макрос "Адресный листок прибытия". Вызывать стоя на выбранном абоненте

LOCAL loWord, loDoc, loMyItem, lnWordRowNum
LOCAL loTable as Word.Table
LOCAL Rng as Word.Range
LOCAL oRng as Word.Range
LOCAL oShp as Word.Shape
LOCAL lcResult
LOCAL FotoFile
LOCAL path, lcBuffer, lcBuffer1
LOCAL lcI, lcJ
LOCAL DOCX
LOCAL TEXT, FLAG

DECLARE INTEGER GetPrivateProfileString IN Win32API;
STRING cSection, STRING cKey, STRING cDefault, STRING @cBuffer, ;
INTEGER nBufferSize, STRING cINIFile

path = addbs(_prg) + gcstationinifile

lcBuffer = space(1024)

GetPrivateProfileString("System", "Reports", "", @lcBuffer, len(lcBuffer), path)

for lcI = 1024 to 1 step -1
if substr(lcBuffer, lcI, 1) = ""
exit
endif
next

lcBuffer1 = space(1024)

GetPrivateProfileString("System", "Docs", "", @lcBuffer1, len(lcBuffer1), path)

for lcJ = 1024 to 1 step -1
if substr(lcBuffer1, lcJ, 1) = ""
exit
endif
next


loWord = createobject('Word.Application')

loDoc = m.loWord.Documents.Add(substr(lcBuffer, 1, lcI) + 'Адресный листок прибытия.dot')
m.loWord.Visible = .T.

for my_formCount = 1 to _screen.FormCount
if _screen.Forms(my_formCount).name = 'kart_lf'
SELECT (_screen.Forms(my_formCount).my_MainCursor)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Фамилия]', .F., .F., .F., .F., .F., .T., .F., .F., proper(alltrim(vfamily)), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Имя]', .F., .F., .F., .F., .F., .T., .F., .F., alltrim(vname), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Отчество]', .F., .F., .F., .F., .F., .T., .F., .F., alltrim(vlastname), 2)

* ItemPerson
loMyItem = itemperson

select vdatar, vpol, vmestorgos, vmestorobl, vmestorgor, vmestoradr, ;
vmestopgos, vmestopobl, vmestopgor, vmestopadr, vnachsroka, vkonecsrok, ;
vgrajdanst from card where itemperson==loMyItem into cursor buf_cursor1

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Д]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor1.vdatar, 1, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Месяц]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor1.vdatar, 4, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Год]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor1.vdatar, 7, 4), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Пол]', .F., .F., .F., .F., .F., .T., .F., .F., SField(buf_cursor1.vpol,")g"), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Страна рождения]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vmestorgos), 'pc1', ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Край рождения]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vmestorobl), 'pc2', ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Город рождения]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vmestorgor), 'pc3', ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Страна жительства]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vmestorgos), 'pc1', ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Край жительства]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vmestopobl), 'pc2', ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Город жительства]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vmestopgor), 'pc3', ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Адрес рождения]', .F., .F., .F., .F., .F., .T., .F., .F., alltrim(buf_cursor1.vmestoradr), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Адрес жительства]', .F., .F., .F., .F., .F., .T., .F., .F., alltrim(buf_cursor1.vmestopadr), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Гражданство]', .F., .F., .F., .F., .F., .T., .F., .F., RField(alltrim(buf_cursor1.vgrajdanst), "pc1", ", ", ""), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Н]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor1.vnachsroka, 1, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Месяц Н]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor1.vnachsroka, 4, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[ГН]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor1.vnachsroka, 7, 4), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Конец срока]', .F., .F., .F., .F., .F., .T., .F., .F., buf_cursor1.vkonecsrok, 2)

select vseria, vnomer, vdatavyd, vkemvydan from docum where itemparent==loMyItem and vdokum=='()' into cursor buf_cursor2

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Серия]', .F., .F., .F., .F., .F., .T., .F., .F., alltrim(buf_cursor2.vseria), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Номер]', .F., .F., .F., .F., .F., .T., .F., .F., alltrim(buf_cursor2.vnomer), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[П]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor2.vdatavyd, 1, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Месяц П]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor2.vdatavyd, 4, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[ГП]', .F., .F., .F., .F., .F., .T., .F., .F., substr(buf_cursor2.vdatavyd, 7, 4), 2)

for each oRng in loDoc.StoryRanges
oRng.Fields.Update
for each oShp In oRng.ShapeRange
if oShp.Name == "Надпись 2"
oShp.TextFrame.TextRange.Text = " " + alltrim(buf_cursor2.vkemvydan)
endif
oShp.TextFrame.TextRange.Fields.Update
next oShp
oRng = oRng.NextStoryRange
Loop Until oRng is Nothing
next oRng

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Т]', .F., .F., .F., .F., .F., .T., .F., .F., substr(dtoc(date()), 1, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[Месяц Т]', .F., .F., .F., .F., .F., .T., .F., .F., substr(dtoc(date()), 4, 2), 2)

m.loWord.Selection.Find.ClearFormatting
m.loWord.Selection.Find.Replacement.ClearFormatting
m.loWord.Selection.Find.Execute('[ГТ]', .F., .F., .F., .F., .F., .T., .F., .F., substr(dtoc(date()), 7, 4), 2)

endif
next

Сообщение отредактировал TwoFace: 10 Март 2016 - 13:10

Поблагодарил (и): 1 пользователь:

#1038 ahtak

    Фельдфебель


    • НЕ В СЕТИ
  • Активные участники

  • 123 сообщений
  • Время: 08:14
  • 14 Спасибо!
  • Служба:35

Текущее настроение: Не выбрано
Репутация: 21

Отправлено 10 Март 2016 - 13:36

это что за штуку ты скинул

#1039 GREEN

    Вечнозелёный


    • НЕ В СЕТИ
  • Вечнозелёные

  • 3 210 сообщений
  • Время: 03:14
  • 1431 Спасибо!
  • Служба:Пенсионер..., была сложна и многогранна...
  • Место службы:ГУФСИН (УФСИН)

Текущее настроение: Ангел
Репутация: 962

Отправлено 10 Март 2016 - 14:02

а под спойлер спрятать религия не позволяет?

#1040 IskanderMax

    Зауряд-прапорщик


    • НЕ В СЕТИ
  • Активные участники

  • 386 сообщений
  • Время: 03:14
  • 74 Спасибо!
  • Служба:Пенсионер
  • Место службы:пенсионер
  • Интересы:IT

Текущее настроение: Пивасик
Репутация: 32

Отправлено 10 Март 2016 - 15:15

Просмотр сообщенияTwoFace (10 Март 2016 - 12:58) писал:

Кому нужен был адресный листок прибытия:
1. Закинуть файл "Адресный листок прибытия.dot" в папку Reports: https://yadi.sk/i/SIdLnqFCq3hpB
2. Создаете макрос "Адресный листок прибытия". Вызывать стоя на выбранном абоненте
Это моя просьба была. Спасибо огромное! Я так понял, это не через отчёты на печать будет выводится?

Сообщение отредактировал IskanderMax: 11 Март 2016 - 07:15

#1041 slavatitov

    Ефрейтор


    • НЕ В СЕТИ
  • Участники

  • 28 сообщений
  • Время: 03:14
  • 19 Спасибо!
  • Служба:ГА
  • Интересы:Спорт

Репутация: 7

Отправлено 10 Март 2016 - 16:14

Через макросы, будет выводиться сразу в WORD.

#1042 лоер

    Зауряд-прапорщик


    • НЕ В СЕТИ
  • Активные участники

  • 319 сообщений
  • Время: 03:14
  • 134 Спасибо!
  • Служба:космодесант на пенсии
  • Место службы:пенсионер

Текущее настроение: В гармонии
Репутация: 40

Отправлено 10 Март 2016 - 23:26

Просмотр сообщенияIskanderMax (10 Март 2016 - 15:15) писал:

Это моя просьба была. Спасибо огромное! Я так понял, это не через отчёты на пичать будет выводится?

так вроде всем уже скинули отчётом без макросов всяких там

#1043 IskanderMax

    Зауряд-прапорщик


    • НЕ В СЕТИ
  • Активные участники

  • 386 сообщений
  • Время: 03:14
  • 74 Спасибо!
  • Служба:Пенсионер
  • Место службы:пенсионер
  • Интересы:IT

Текущее настроение: Пивасик
Репутация: 32

Отправлено 11 Март 2016 - 07:18

Просмотр сообщениялоер (10 Март 2016 - 23:26) писал:

так вроде всем уже скинули отчётом без макросов всяких там
Не заметил. Скиньте если не трудно отчетом, и если есть еще и "адресный листок убытия"

Просмотр сообщенияslavatitov (10 Март 2016 - 16:14) писал:

Через макросы, будет выводиться сразу в WORD.
Может макросы и удобнее, но выгрузить(поделиться) их нельзя, а в крае я один наверное сижу на данном форуме. ))

Сообщение отредактировал IskanderMax: 11 Март 2016 - 07:38

#1044 ahtak

    Фельдфебель


    • НЕ В СЕТИ
  • Активные участники

  • 123 сообщений
  • Время: 08:14
  • 14 Спасибо!
  • Служба:35

Текущее настроение: Не выбрано
Репутация: 21

Отправлено 11 Март 2016 - 12:45

а ты в каком городе

#1045 ЕвгенияСедая

    Рядовой


    • НЕ В СЕТИ
  • Участники

  • 18 сообщений
  • Время: 06:14
  • 0 Спасибо!
  • Место службы:не скажу

Репутация: 0

Отправлено 16 Март 2016 - 17:42

Добрый вечер. Подскажите пожалуйста, но компьютере стоит Windows 7, офис тоже семерка. Из АКУСа в ворд переводятся все бланки и отчеты кроме "Бланк требования в ИЦ". Открывается текстовый документ, но вместо учетных данных осужденного серый фон и нули. В чем проблема? На других станциях база работает без нареканий, все отчеты и бланки выгружаются без проблем.

#1046 Гость_Мичил_Владимиров_*


    • НЕ В СЕТИ
  • Гости
  • Спасибо!

Репутация: 0

Отправлено 17 Март 2016 - 06:35

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

#1047 Гость_aleksandr174_*


    • НЕ В СЕТИ
  • Гости
  • Спасибо!

Репутация: 0

Отправлено 19 Март 2016 - 10:07

Добрый день!
Не могу скачать АКУС 1.45 с фтп твери.
Помогите скачать это обновление или может есть альтернативные ссылки, или скиньте в почту
Пароль к архивам где взять?
Заранее СПАСИБО!!!!

Сообщение отредактировал aleksandr174: 19 Март 2016 - 10:09

#1048 d0ct0rfs

    Член команды fsin-russia.ru


    • НЕ В СЕТИ
  • Главные администраторы

  • 3 825 сообщений
  • Время: 03:14
  • 5915 Спасибо!
  • Служба:ТЕХНИКА
  • Место службы:не скажу

Текущее настроение: Жуткий
Репутация: 1 542

Отправлено 19 Март 2016 - 10:19

Просмотр сообщенияaleksandr174 (19 Март 2016 - 10:07) писал:

Добрый день!
Не могу скачать АКУС 1.45 с фтп твери.
Помогите скачать это обновление или может есть альтернативные ссылки, или скиньте в почту
Пароль к архивам где взять?
Заранее СПАСИБО!!!!
Фига себе, сколько взаимо исключающих вопросов .....
Коллега, заранее спасибо, если вы не будете у коллег вызывать когнитивный диссонанс .....

З.Ы. Чё нужно то ?

#1049 Гость_aleksandr174_*


    • НЕ В СЕТИ
  • Гости
  • Спасибо!

Репутация: 0

Отправлено 19 Март 2016 - 10:28

Просмотр сообщенияd0ct0rfs (19 Март 2016 - 10:19) писал:

Фига себе, сколько взаимо исключающих вопросов .....
Коллега, заранее спасибо, если вы не будете у коллег вызывать когнитивный диссонанс .....

З.Ы. Чё нужно то ?
ссылку на FTP сервер где можно скачать дистрибутив

#1050 ЕвгенияСедая

    Рядовой


    • НЕ В СЕТИ
  • Участники

  • 18 сообщений
  • Время: 06:14
  • 0 Спасибо!
  • Место службы:не скажу

Репутация: 0

Отправлено 21 Март 2016 - 18:09

Добрый день. Ситуация такова, нет у нас человека, кто бы смог составлять запросы в "Интеграторе УИИ". Самой разобраться не под силу. Может быть у кого есть созданные собственноручно запросы по контролю заполняемости баз УИИ? Поделитесь!. буду безмерно благодарна.
Обратно в Информационные технологии на службе УИС · Следующая непрочитанная тема →
  1. Форум неформального общения сотрудников УИС
  2. → Информационно-технический раздел
  3. → Информационные технологии на службе УИС
  4. Правила форума
Яндекс.Метрика