Имя: Пароль:
1C
Админ
Как проверить нумерацию
0 KRolexx
 
28.09.12
12:09
Как проверить нумерацию у документов в 1С?
1 Нуф-Нуф
 
28.09.12
12:10
бухгалтером
2 KRolexx
 
28.09.12
12:10
Есть мнение что не хватает каких-то документов. Можно ли как-то проверить нумерацию на пропущенные номера?
3 Мимо Проходил
 
28.09.12
12:11
открыжить
4 KRolexx
 
28.09.12
12:11
Бухгалтер не в силах так как за день бывает более 150 док. Еще есть предложения?
5 KRolexx
 
28.09.12
12:12
(3) подскажите как? есть обработка или самому написать?
6 AntoninaS
 
28.09.12
12:14
(5) типовой нет, я сама писала.
там же всё просто...
7 pessok
 
28.09.12
12:15
запрос к документу, порядок по номеру. и смотрим, где дырки
8 dsdred
 
28.09.12
12:17
пишешь обработочку в которой берешь все номера из файла (зарание созданного с номерами) и проверяешь наличие данных номеров в регистре или документе, не знаю как у вас там... и все
9 hhhh
 
28.09.12
12:17
(5) сравниваешь последний номер и количество документов.

Например последний номер 100, а количество документов 97. Значит, по-любому где-то есть три дырки.
10 Godofsin
 
28.09.12
12:21
проверить каждый номер не сложно
11 KRolexx
 
28.09.12
12:21
а можно вот так?

   А= "0000000000";
   ДокВыборка= документы.РасходныйКассовыйОрдер.Выбрать();
   Пока ДокВыборка.Следующий() Цикл
       Если ДокВыборка.Проведен Тогда
           Если ДокВыборка.номер = А+1 тогда
               А = ДокВыборка.Номер;
               иначе сообщить (ДокВыборка.Номер);
           КонецЕсли;
       КонецЕсли;    
   КонецЦикла;
12 Godofsin
 
28.09.12
12:22
(11) нет
13 hhhh
 
28.09.12
12:23
(11) ну и что у вас получится в А+1 ??
14 KRolexx
 
28.09.12
12:24
номер предположительно следующего документа? нет?
15 Godofsin
 
28.09.12
12:24
+(13) номера имеют и непроведеныые и даже помеченные на удаление
16 cw014
 
28.09.12
12:24
Тут более интересный момент

Если ДокВыборка.Проведен Тогда

То есть непроведенные не считаем. Дыр при этом такая тьма будет
17 kolanych
 
28.09.12
12:24
выгружаете список в ексель, рядок длаете колонку с автовозрастанием, и сравниваете
18 KRolexx
 
28.09.12
12:24
просто нумерация каждый год с начала начинается
19 Godofsin
 
28.09.12
12:24
(14) вы программист? вы к строке прибавляете число
20 KRolexx
 
28.09.12
12:25
(16) не учел, тоже верно
21 D_Pavel
 
28.09.12
12:25
(0)

   Запрос=Новый Запрос("ВЫБРАТЬ ПЕРВЫЕ 1
                       |    Накладная1.Код + 1 КАК ПропущенныйКод
                       |ИЗ
                       |    Документ.Накладная КАК Накладная1
                       |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.Накладная КАК Накладная
                       |        ПО (Накладная.Код = Накладная1.Код + 1)
                       |ГДЕ
                       |    Накладная.Код ЕСТЬ NULL ");
   Результат=Запрос.Выполнить();
   Если НЕ Результат.Пустой() Тогда
       Выборка=Результат.Выбрать();
       Выборка.Следующий();
       Объект.Код=Выборка.ПропущенныйКод;
   КонецЕсли;
22 D_Pavel
 
28.09.12
12:27
(21) Находит один пропущенный код.
Слегка изменить, будет находить все коды
23 KRolexx
 
28.09.12
12:28
Спс, сейчас попробую