[Нострадамус]

Сначала я тоже так думал пока не проверил все старые копии баз, которые я делаю после формирования отчета. Все там так же как и сейчас в том числе и в копии базы за 2010 год((((

[undermind]

4.5.2 не пробовали?

[scalesmann]

Сообщение от Люка

Спасибо ребята за участие, но... эта ошибка только у одного пристава, пересмотрела я все её дела, и по суммам, и по возбужке , и по окончанию, и по сводникам прошлась... не нашла... бред получается.... 2+2=6 и всё тут. Понимаю что что-то у неё не так, а вот что! прям загадка природы, ладно, буду информатизацию пытать, пусть они голову поломают, я то ведь простой пристав :rap:

округление до тысяч?

[sergon]

как у вас идет процесс исправления ошибок перед АИС?

[Нострадамус]

4.5.2 не пробовали?

не имею такого релиза и тем более полномочий на его установку!

[sergon]

вы про 4,05 сб 2?

[Нострадамус]

Да.

[magadanist]

Здравствуйте. Помгите пожаласта метками. Надеюсь что найду у вас новые, которых нет у меня. Подскажите как выдрать индекс из адреса должника или взыскателя. Нужно для формирования шаблонов конвертов в ПКСП. Также прошу подкинтуь инструкции к конструктору запросов ПКСП и IBexpert если они существуют. Страшно использовать ваши наработки без понятия. заранее спасибо.

[Нострадамус]

Заметил такую особенность в ПК СП:
формируем отчет ОПД в строке 96 ИП по налогам. Если отнять 97 строку мы должны получить сколько из них постановлений налоговой!
формируем полугодовую норму 1-2 на туже отчетную дату и о неожиданность строка 3 графы 1 не равняется вышеуказанной разнице.
В чем прикол кто знает?

[hongdida]

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

наверно в делфях что то похожее


ЗЫ - надо бы спойлеры запилить как то.... (мысли вслух)

делфях?