Модераторы: stron
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> нумерация документов, поменять программно 
:(
    Опции темы
larabelle
Дата 30.10.2007, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2



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

larabelle
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
SaschaL
Дата 30.10.2007, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9



Теоретически программно можно, нужно смотреть только какие компаненты этиидокументы используют.
Можно программно выбрать с сортировкой по дате чтобы они стояли по порядку и затем в цикле присваивать номер.
Например:
Цитата

Пока Запрос.Группировка(1) =1 цикл
      НомДок = НомДок + 1;
КонецЦикла;

PM MAIL ICQ   Вверх
larabelle
Дата 30.10.2007, 18:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2



Цитата

Пока Запрос.Группировка(1) =1 цикл
      НомДок = НомДок + 1;
КонецЦикла;


Генеральная идея понятна,  если можно, то было бы интересно чуть подробнее.
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
SaschaL
Дата 30.10.2007, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9



Хорошо милая Larabelle!
Завтра вечером постраюсь сделать для вас примерчик!
Конечно если у Вас этот вопрос не горит.
PM MAIL ICQ   Вверх
larabelle
Дата 31.10.2007, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2



Цитата(SaschaL @ 30.10.2007,  17:06)
Завтра вечером постраюсь сделать для вас примерчик!

Буду весьма признательна и столь же благодарна, уважаемый SaschaL
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
SaschaL
Дата 2.11.2007, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 880
Регистрация: 13.12.2006
Где: Челябинская обл г .Нязепетровcк

Репутация: 8
Всего: 9



ДОбрый день, Larabelle!
Прошу простить за задержку с ответом, было много работы.

Вот алгоритм как можно справиться с вашей проблемой, я воспользовался запросом по документу (для примера мною был взят один вид документа).


Процедура Сформировать()
    Перем Запрос, ТекстЗапроса, Таб, ном;
        ном = 0;
    //Создание объекта типа Запрос
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса = 
    "//{{ЗАПРОС(Сформировать)
    |Период с ВыбНачПериода по ВыбКонПериода;
    |Обрабатывать НеПомеченныеНаУдаление;
    |НомерДок = Документ.КадровоеПеремещение.НомерДок;
    |ДатаДок = Документ.КадровоеПеремещение.ДатаДок;
.............
        |Группировка НомерДок;
Далее при обработке результатов запроса я воспользовался циклической обработкой результата запроса
       Пока Запрос.Группировка(1) =1 цикл
       Ном = Ном+1;
       Док=СоздатьОбъект("Документ.КадровоеПеремещение");
           Док.НайтиПоНомеру(Строка(Ном), Дата(0));        
            Если Док.Выбран() = 1 Тогда
                   Док.НомерДок = Ном;
 Док.Записать();


Вот в общем то и все


  

   

PM MAIL ICQ   Вверх
fx9
Дата 3.11.2007, 01:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 3.11.2007

Репутация: нет
Всего: нет



larabelle попробуйте прикрепленную обработку перенумерации документов, она выручала меня пару раз ;)

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  ________________________.ert 30,00 Kb
PM MAIL   Вверх
larabelle
Дата 3.11.2007, 05:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 116
Регистрация: 18.5.2007

Репутация: 2
Всего: 2



To fx9, SaschaL 
спасибо, оле, респект, ура!

все получилось.
файл fx9 сработал мгновенно (даже испугаться не успела).

обработка Saschal'a задала пару вопросов "на подумать" - но в итоге все разрулилось.  smile 
--------------------
«Две вещи наполняют душу всегда новым изумлением и восторгом , чем чаще и продолжительнее мы размышляем о них, – это звездное небо надо мной и моральный закон во мне». Иммануил Кант
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "1C: Предприятие, SAP, ERP и учётные системы"
stron

Запрещается!

1. Обсуждение крэков, кейгенов и других подобных программ

Пробуйте искать сами или обращайтесь в приват к участникам форума.

Темы с подобными вещами будут немедленно удаляться, а нарушители - получать предупреждения.

Также запрещается обсуждение проблем работы этих программ (что куда вписать, куда что скопировать и т.п...)

2. Давать ссылки на взломанные продукты

  • Пожалуйста, пользуйтесь поиском перед тем, как задать вопрос - возможно ответ уже есть на форуме.
  • Название темы должно отражать её суть
  • Действия модераторов можно обсудить здесь

С уважением, stron, Pegas.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | 1C: Предприятие, SAP, ERP и учётные системы | Следующая тема »


 




[ Время генерации скрипта: 0.3876 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.