Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (03-04-2009 02:03): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1
 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тема для программирования !!!
Это продолжение темы, предыдущие части доступны тут


ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям

ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х

Топик 1C Ebooks
ЗДЕСЬ (обновлено 27.03.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:30 06-02-2008 | Исправлено: vkramnik, 21:26 27-03-2009
tdr1225



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus

Цитата:
не от "ручных" операция, а интерактивных действий пользователей...  

Это я и имел в виду, высказался коряво...
St01en

Цитата:
Как это дело можно вычислить?

Думаю, никак.
Если есть резервная копия - восстановить, сравнить, что было - что стало.
Но это не поможет вычислить кто/что выполнило нежелательные действия.

Всего записей: 282 | Зарегистр. 07-12-2005 | Отправлено: 09:40 28-11-2008
Akam1



Комса
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexis72
Не знаю точно как у Вас, поищите в константах периферийной базы что стоит как "Валюта учета". Если "руб.", то скорее всего после обновления и обмена слетела эта константа. Ну, это предположение. Потому как обычно в печатные формы берется и проставляется наименование этой валюты учета. Хотя очень странно, т.к. эту валюту нельзя менять после ввода документов.
 
DARKDEAD
Ничего экстравагантного У нас офис и один магазин связаны оптикой, вроде как одна сеть, но нагружать один сервак 50+ пользователями 1С - сложновато. В магазине свой сервак, обмен раз в полчаса, дискретность нормальная. Тем более, что выключат свет в офисе - магазин продолжит работу.

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.

Всего записей: 26400 | Зарегистр. 20-04-2006 | Отправлено: 09:59 28-11-2008 | Исправлено: Akam1, 10:00 28-11-2008
Le_Cri



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здраствуйте.  
У меня такой вопрос.
Нужно найти документ обределённый СписаникТМЦ по коду.
 
Пишу  
 

Код:
Док = СоздатьОбъект("Документ.СписаниеТМЦ");
Док.НайтиПоКоду(КодПоиска);

 
Он с ходу ругается: Поле агрегатного объекта не обнаружено (НайтиПоКоду)
В чём ошибка?

Всего записей: 473 | Зарегистр. 11-06-2004 | Отправлено: 10:15 28-11-2008
St01en

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Да не все так просто. Внешних обработок такого плана на той машине я не нашел. Стандартная обработка документов пишет в журнал все действия. 7.7, конфа - 7.70.264.  
 
Добавлено:
Le_Cri
Метод НайтиПоКоду применяется а Справочникам. Для Док  используй НайтиПоНомеру

Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 10:17 28-11-2008
Le_Cri



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
St01en
Спасибо... теперь не ругаеться.
Но вот только ничего не находит. Хотя, документ с таким номером есть.
 
    
Код:
Док = СоздатьОбъект("Документ.СписаниеТМЦ");
    Док.НайтиПоНомеру(НомПоиска,Дата(0),);
    
    Если Док.НайтиПоНомеру(НомПоискаДата(0),) = 0 Тогда
        Предупреждение("Ничего не найдено!");
        Возврат;
    КонецЕсли;

Всего записей: 473 | Зарегистр. 11-06-2004 | Отправлено: 12:00 28-11-2008 | Исправлено: Le_Cri, 12:21 28-11-2008
Alexis72

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Akam1

Цитата:
поищите в константах периферийной базы что стоит как "Валюта учета"

в константах (ни в конфигураторе, ни в предприятии) вообще нет валюты
 
интересно (для меня во всяком случае), что "Поиск во всех тестах" по слову "тенге" выдает абсолютно одинаковый результат что в основной, что в периферийной конфигурациях...

Всего записей: 107 | Зарегистр. 07-10-2005 | Отправлено: 12:18 28-11-2008
St01en

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Le_Cri
Так нужно сначала выборку в цикле сделать
 
Док.ВыбратьДокументы();
Пока Док.ПолучитьДокумент() = 1 Цикл
   Если Док.НайтиПоНомеру(НомПоиска) = 0 Тогда
        Предупреждение("Ничего не найдено!");
        Возврат;
    КонецЕсли;
Иначе *******************
 
КонецЦикла;
 
Ну или по другому, Для По, например.

Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 12:20 28-11-2008
tdr1225



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Le_Cri
здесь ошибка

Цитата:
Док.НайтиПоНомеру(НомПоиска,Дата(0),);

Вторую запятую можно опустить, а вот в качестве даты надо передать дату из диапазона, в котором выполняется поиск. Диапазон определяется периодичностью нумерации документов данного вида. У "СписанияТМЦ" периодичность - "в пределах года", значит, в качестве второго параметра достаточно указать любую дату года, в котором ищется списание с данным номером, напр., РабочаяДата()

Всего записей: 282 | Зарегистр. 07-12-2005 | Отправлено: 12:59 28-11-2008
Akam1



Комса
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexis72
Оч. странно. На Вашем месте я бы посмотрел откуда она берет и подставляет в печатную форму валюту. Дело пяти минут. А в документах кстати какую пишет? Кстати, это во всех печатных формах? или только в самописных?

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.

Всего записей: 26400 | Зарегистр. 20-04-2006 | Отправлено: 16:10 28-11-2008
Igor_V_Mitichev

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я с 1с дел не имел. А тут в бухгалтерии косяк. При попытке распечатать документ выскакивает сообщение, что нет доступа к файлу:
 
   
 
куда копать? Где он этот безымянный сохранить не может?

Всего записей: 32 | Зарегистр. 26-07-2008 | Отправлено: 16:22 28-11-2008
DARKDEAD

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igor_V_Mitichev
сложновать, вот так, дистанционно вас направить
у мня есть ася: 306622360
Стучите в понедельник, гляну

Всего записей: 249 | Зарегистр. 04-02-2008 | Отправлено: 16:37 28-11-2008
pavlika2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igor_V_Mitichev
Как вариант для начала можно попробовать:
- настроить антивирус, сказав ему, что файлы с расширением mxl проверять не надо. А так же, md, dd, dbf, cdx, ert, xml
- сделай переиндексацию, удалив все cdx-файлы из каталога базы данных и запустив потом монопольно

Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 17:36 28-11-2008 | Исправлено: pavlika2, 17:38 28-11-2008
An4eus



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Le_Cri
слушай tdr1225 здесь
 
tdr1225

Цитата:
Диапазон определяется периодичностью нумерации документов данного вида.

а что делать, если контроль уникальность не отмечен?
 
Igor_V_Mitichev
1. его сохраняли изначально?
2. какие права на Extforms ?
3. Каков номер платформы?
 
St01en
ну ты эе понимаешь, что само собой ничего не может произойти!
а где ж ты искал? а ты не думал, что обработку можно с флешки запустить?
можно проверить! не помни, где храняться они, но можно сделать так:
-сохрани users.usr
-зайди под каждым пользвотель в БД
-помотри: меню -> файл: там перед выходом есть последние открытые файлы!
 


----------
Век живи - век учись!

Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 22:08 28-11-2008
Uljna



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
tdr1225

Цитата:
ОткрытьФорму("Отчет",Тбл,"1C_Word.ert");  
 
 
Обработка не моя. Работает достаточно долго. Сначала потренируйся на небольшой таблице.

А вы не могли бы мне подогнать эту обработку под ТОРГ 12 можно не бесплатно.
Просто нет времени сейчас заниматься программированием.

Всего записей: 789 | Зарегистр. 28-10-2004 | Отправлено: 08:09 29-11-2008 | Исправлено: Uljna, 08:10 29-11-2008
Alexis72

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Akam1
 
Методом "научного тыка" выяснил следующее:
В процедуре ФайлыПрописи()  из модуля Справочник.Валюты  (конфигурации основной базы) отсутствовала нужная валюта (тенге). Добавил. Произвел обмен данными между базами. ... ничего не изменилось.
Вручную скопировал в периферийную базу отсутствующий файл  1CV7.SPL   ... ничего не изменилось.
Перезагрузил компьютер... случилось чудо, заработало
 
Экспериментировал на двух разных компьютерах, поведение абсолютно одинаковое.
P.S. Проблема была только с тенге и только в периферийной базе, все остальные валюты отображались в печатных формах нормально  
 

Всего записей: 107 | Зарегистр. 07-10-2005 | Отправлено: 07:39 01-12-2008 | Исправлено: Alexis72, 07:45 01-12-2008
Akam1



Комса
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexis72
Цитата:
случилось чудо, заработало  
Ну тогда "Аминь".

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.

Всего записей: 26400 | Зарегистр. 20-04-2006 | Отправлено: 07:48 01-12-2008
Alexis72

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Шаман, однако

Всего записей: 107 | Зарегистр. 07-10-2005 | Отправлено: 09:11 01-12-2008
tdr1225



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus

Цитата:
а что делать, если контроль уникальность не отмечен?  

Не знаю, не силен в подобных заморочках.
Uljna

Цитата:
А вы не могли бы мне подогнать...  

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

Всего записей: 282 | Зарегистр. 07-12-2005 | Отправлено: 09:43 01-12-2008
Kashey69



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет. Возник вопрос: как можно получить ссылку на документ, на основании которого было введено это субконто
 
код вида
 
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
    Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1);
    Ит.ВключатьСубсчета(-1,);
    Ит.ВыполнитьЗапрос(, ВыбКонПериода,,,, 1,"Операция", "С");
    Ит.ВыбратьСчета();
    Пока Ит.ПолучитьСчет()=1 Цикл
        Ит.ВыбратьСубконто(1);    
        Пока Ит.ПолучитьСубконто(1) = 1 Цикл
            Таб.ВывестиСекцию("Субконто1");
            Ит.ВыбратьСубконто(2);
            Пока Ит.ПолучитьСубконто(ВидыСубконто.Договоры) = 1 Цикл  
            Ит.ВыбратьОперации();
                Пока Ит.ПолучитьОперацию()=1 Цикл
                    Док=Ит.Операция.Документ;
                    Cообщить (Док);
                КонецЦикла;
            Таб.ВывестиСекцию("Субконто2");
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
 
не работает.Интересует вот эта строчка
Док=Ит.Операция.Документ;
что я делаю не так?

Всего записей: 36 | Зарегистр. 27-11-2008 | Отправлено: 10:56 01-12-2008
An4eus



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
tdr1225

Цитата:
Не знаю, не силен в подобных заморочках.


Код:
ВыбратьПоНомеру(<?>)

 
Alexis72
Файл прописи (*.spl) привязан в справочнике Валюты, как путь! => Для отображения нужно указать в справочнике (нужной валюты) файл прописи, если нету - написать самому!
А печатные формы ищут файл прописи по пути
Код:
КаталогИБ()
=> в перефирийных тоже должен быть этот (эти) файл (файлы)
 
Добавлено:
Kashey69
замени

Код:
 
              Ит.ВыбратьОперации();  
                Пока Ит.ПолучитьОперацию()=1 Цикл  
                    Док=Ит.Операция.Документ;  
                    Cообщить (Док);  
                КонецЦикла;  
            Таб.ВывестиСекцию("Субконто2");
 

на этот:

Код:
 
              Ит.ВыбратьПериоды();  
                Пока Ит.ПолучитьПериод()=1 Цикл  
                    Док=Ит.Операция.Документ;  
                    Cообщить (Док);  
                КонецЦикла;  
            Таб.ВывестиСекцию("Субконто2");
 


----------
Век живи - век учись!

Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 10:57 01-12-2008
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (03-04-2009 02:03): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru