Старый 04.07.2011, 17:13   #751
Нострадамус
Ipristav
 
Аватар для Нострадамус
 
Регистрация: 13.10.2009
Адрес: Россия
Сообщений: 545
Благодарности: 1
Поблагодарили 42 раз(а) в 42 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Сначала я тоже так думал пока не проверил все старые копии баз, которые я делаю после формирования отчета. Все там так же как и сейчас в том числе и в копии базы за 2010 год((((
 
В Минюст Цитата Спасибо
Старый 05.07.2011, 11:31   #752
undermind
Пользователь
 
Аватар для undermind
 
Регистрация: 09.05.2010
Сообщений: 182
Благодарности: 0
Поблагодарили 12 раз(а) в 12 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

4.5.2 не пробовали?
 
В Минюст Цитата Спасибо
Старый 06.07.2011, 01:07   #753
scalesmann
Пользователь
 
Аватар для scalesmann
 
Регистрация: 05.07.2011
Адрес: Россия / Ульяновская обл. / Новоульяновск
Сообщений: 2
Благодарности: 0
Поблагодарили 0 раз(а) в 0 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Цитата:
Сообщение от Люка Посмотреть сообщение
Спасибо ребята за участие, но... эта ошибка только у одного пристава, пересмотрела я все её дела, и по суммам, и по возбужке , и по окончанию, и по сводникам прошлась... не нашла... бред получается.... 2+2=6 и всё тут. Понимаю что что-то у неё не так, а вот что! прям загадка природы, ладно, буду информатизацию пытать, пусть они голову поломают, я то ведь простой пристав :rap:
округление до тысяч?
 
В Минюст Цитата Спасибо
Старый 06.07.2011, 07:20   #754
sergon
Пользователь
 
Аватар для sergon
 
Регистрация: 28.01.2010
Адрес: Россия / Сахалин / Тымовское
Сообщений: 19
Благодарности: 0
Поблагодарили 0 раз(а) в 0 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

как у вас идет процесс исправления ошибок перед АИС?
 
В Минюст Цитата Спасибо
Старый 06.07.2011, 10:33   #755
Нострадамус
Ipristav
 
Аватар для Нострадамус
 
Регистрация: 13.10.2009
Адрес: Россия
Сообщений: 545
Благодарности: 1
Поблагодарили 42 раз(а) в 42 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Цитата:
4.5.2 не пробовали?
не имею такого релиза и тем более полномочий на его установку!
 
В Минюст Цитата Спасибо
Старый 06.07.2011, 12:31   #756
sergon
Пользователь
 
Аватар для sergon
 
Регистрация: 28.01.2010
Адрес: Россия / Сахалин / Тымовское
Сообщений: 19
Благодарности: 0
Поблагодарили 0 раз(а) в 0 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

вы про 4,05 сб 2?
 
В Минюст Цитата Спасибо
Старый 06.07.2011, 14:12   #757
Нострадамус
Ipristav
 
Аватар для Нострадамус
 
Регистрация: 13.10.2009
Адрес: Россия
Сообщений: 545
Благодарности: 1
Поблагодарили 42 раз(а) в 42 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Да.
 
В Минюст Цитата Спасибо
Старый 07.08.2011, 04:22   #758
magadanist
Пользователь
 
Аватар для magadanist
 
Регистрация: 07.02.2011
Сообщений: 67
Благодарности: 1
Поблагодарили 3 раз(а) в 3 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Здравствуйте. Помгите пожаласта метками. Надеюсь что найду у вас новые, которых нет у меня. Подскажите как выдрать индекс из адреса должника или взыскателя. Нужно для формирования шаблонов конвертов в ПКСП. Также прошу подкинтуь инструкции к конструктору запросов ПКСП и IBexpert если они существуют. Страшно использовать ваши наработки без понятия. заранее спасибо.
 
В Минюст Цитата Спасибо
Старый 08.08.2011, 15:52   #759
Нострадамус
Ipristav
 
Аватар для Нострадамус
 
Регистрация: 13.10.2009
Адрес: Россия
Сообщений: 545
Благодарности: 1
Поблагодарили 42 раз(а) в 42 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Заметил такую особенность в ПК СП:
формируем отчет ОПД в строке 96 ИП по налогам. Если отнять 97 строку мы должны получить сколько из них постановлений налоговой!
формируем полугодовую норму 1-2 на туже отчетную дату и о неожиданность строка 3 графы 1 не равняется вышеуказанной разнице.
В чем прикол кто знает?
 
В Минюст Цитата Спасибо
Старый 23.07.2014, 08:21   #760
hongdida
Пользователь
 
Аватар для hongdida
 
Регистрация: 23.07.2014
Адрес: Гонконг / Гонконг / Гонконг
Сообщений: 1
Благодарности: 0
Поблагодарили 0 раз(а) в 0 сообщениях

Обратиться по нику
Цитата выделенного
По умолчанию

Цитата:
Сообщение от raus Посмотреть сообщение
вот так это выглядит в VB OO

Код:
Public Function make_code128(chaine) 
  Dim i as integer 
  dim checksum as integer 
  dim mini as integer 
  dim dummy as integer 
  dim tableB As Boolean 
  code128 = "" 
 
  dim c as integer 
  c = Len(chaine) 
   
  If c > 0 Then 
 
  'Check for valid characters 
    For i = 1 To c 
      Select Case Asc(Mid(chaine, i, 1)) 
      Case 32 To 126, 203 
      Case Else 
        i = 0 
        Exit For 
      End Select 
    Next 
 
    'Calculation of the code string with optimized use of tables B and C 
    code128 = "" 
    tableB = True 
    If i > 0 Then 
      i = 1 'i become the string index 
      Do While i <= c 
        If tableB Then 
          'See if interesting to switch to table C 
          'yes for 4 digits at start or end, else if 6 digits 
           
          if i = 1 or (i + 3 = c) then 
            mini = 4 
          else 
            mini = 6 
          end if 
         
          mini = mini - 1 
  If i + mini <= c Then 
    Do While mini >= 0 
      If Asc(Mid(chaine, i + mini, 1)) < 48 Or Asc(Mid(chaine, i + mini, 1)) > 57 Then Exit Do 
      mini = mini - 1 
    Loop 
  End If 
           
          If mini < 0 Then 'Choice of table C 
            If i = 1 Then 'Starting with table C 
              code128 = Chr(210) 
            Else 'Switch to table C 
              code128 = code128 & Chr(204) 
            End If 
            tableB = False 
          Else 
           
            If i = 1 Then code128 = Chr(209) 'Starting with table B 
          End If 
        End If 
        If Not tableB Then 
          'We are on table C, try to process 2 digits 
          mini = 2 
           
            mini = mini - 1 
  If i + mini <= c Then 
    Do While mini >= 0 
      If Asc(Mid(chaine, i + mini, 1)) < 48 Or Asc(Mid(chaine, i + mini, 1)) > 57 Then Exit Do 
      mini = mini - 1 
    Loop 
  End If 
   
          If mini < 0 Then 'OK for 2 digits, process it 
            dummy = Val(Mid(chaine, i, 2)) 
            if dummy < 95 then 
             dummy = dummy + 32 
            else 
             dummy = dummy + 105 
            end if 
             
            code128 = code128 & Chr(dummy) 
             
            i = i + 2 
          Else 'We haven't 2 digits, switch to table B 
            code128 = code128 & Chr(205) 
            tableB = True 
          End If 
        End If 
        If tableB Then 
          'Process 1 digit with table B 
          code128 = code128 & Mid(chaine, i, 1) 
          i = i + 1 
        End If 
      Loop 
      'Calculation of the checksum 
      For i = 1 To Len(code128) 
        dummy = Asc(Mid(code128, i, 1)) 
        if dummy < 127 then 
          dummy = dummy - 32 
        else 
          dummy = dummy - 105 
        end if 
 
        If i = 1 Then checksum = dummy 
        checksum = (checksum + (i - 1) * dummy) Mod 103 
      Next 
      'Calculation of the checksum ASCII code 
      if checksum < 95 then 
        checksum = checksum + 32 
      else 
        checksum = checksum + 105 
      end if 
      'Add the checksum and the STOP 
      code128 = code128 & Chr(checksum) & Chr(211) 
    End If 
  End If 
  make_code128 = code128  
End Function
наверно в делфях что то похожее


ЗЫ - надо бы спойлеры запилить как то.... (мысли вслух)
делфях?
 
В Минюст Цитата Спасибо
Ответить


Быстрый ответ

Сообщение:
Опции

Опции темы

Ваши права в разделе