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

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

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

ShIvADeSt (29-09-2006 09:19): продолжаем здесь
http://forum.ru-board.com/topic.cgi?forum=33&topic=7403
 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 101 102 103 104 105

   

batva



crazy administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Предыдущая тема доступна здесь.
 
1С Предприятие "Конфигурирование и Администрирование"
 
Тема посвящена вопросам разработки, функционирования и обслуживания конфигураций 1С Предприятие.
 
Обсуждаются все версии, можно задавать любые вопросы, кроме нарушающих авторское право.  
Советы в подборе конфигураций в разделе программы
За  вопросами "где достать?", "откуда скачать?" Специальный сериал в Варезнике
 
Так же вопросы можно задавать и много полезного узнать на:
  • Волшебный форум
  • Территория 1С на кубани
     
    Некоторые из форумов посвященных бухучету:
  • Клерк.Ру (тут в основном Россияне)
  • Дебет-Кредит (тут в основном Украина)
     
    Для тех кто осознал что лучший способ эксплуатации 1С это вариант 1С+SQL:
  • Некоторое количество информации по этому вопросу (1С:Предприятие и SQL Server: практика использования. Решение проблем связки 1С и SQL, оптимизация. Книги по 1С, обработки, отчеты.)
  • Еще один ресурс по 1С+SQL  
     
    Ну и неплохо бы зайти еще вот сюда и сюда

    Некоторые вопросы касательно работы с SQL сервером можно задать здесь, например как установить, почему неработает, как написать SQL запрос для получения остатков склада
    Вопросы о том где взять SQL сервер можно задать здесь

     
    Для начинающих и не только:
  • Учебник по 1с  
  • Первые шаги  

    Коллеги,если вы решили спросить,или посоветоваться по возникшим у Вас вопросам,убедительная просьба придерживаться двух простых правил:
    1.Указывайте версию платформы 1С и ,желательно, конфигурацию.
    2.Постарайтесь сформулировать свой вопрос так,чтобы он был понятен другим участникам конференции.

     
    Желающие получить билеты для сдачи экзамена 1С:Специалист могут обращаться ко мне в ПМ //fol

  • Всего записей: 12593 | Зарегистр. 07-01-2001 | Отправлено: 18:41 07-06-2005 | Исправлено: fol, 12:38 28-09-2006
    Pazan



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    2 All
    vjick
    ладно, остыньте маненько. Как грил товарисч Ленин, мы пойдём другим путём...
     
    Вопрос другой:
    Нужно из даты выделить название месяца в родительном падеже, а тут чего-то не получается получить точную длину строки в данном примере:

    Код:
    Місяць=СокрЛП(СтрДлина(Формат(ДатаДок,"Д ММММ")));
    МісяцьДок=Сред((Формат(ДатаДок,"Д ДДММММГГГГ")),3,Місяць);

    из-за чего не полностью печатается название некоторых месяцев, типа "Лютог, Листоп...", вместо "Лютого, Листопада". чего опять не то делаю?


    ----------
    Почему глупый, потому что бедный... Почему бедный, потому что глупый...

    Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 18:08 08-09-2005
    KapralBel



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

    Код:
     
    стрДата=Формат(ДатаДок+50-15,"Д ДДММММГГГГ") ;            //Получим - "5 Августа 2005 г."
    чПервыйПробел=Найти(стрДата);                                       // Получим - 2
    стрДатаБезЧисла=Сред(стрДата,чПервыйПробел+1);          // Получим - "Августа 2005 г."
    чВторойПробел=Найти(стрДатаБезЧисла," ");                      // Получим - 8
    стрМесяц=СокрЛП(Лев(стрДатаБезЧисла,чВторойПробел)); // Получим - "Августа"
     


    Всего записей: 11354 | Зарегистр. 16-02-2005 | Отправлено: 18:28 08-09-2005 | Исправлено: KapralBel, 10:59 09-09-2005
    KF



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Pazan
    Используй файл прописи *.spl

    Всего записей: 277 | Зарегистр. 06-05-2003 | Отправлено: 08:14 09-09-2005
    Pazan



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    KF
    Так я и использую. там всё тип-топ. Лютого, Листопада і т.д.
     
    Добавлено:
    KapralBel

    Цитата:
    Попробуй  

    Код:
     
    Код:  
    стрДата=Формат(ДатаДок+50-15,"Д ДДММММГГГГ") ;            //Получим - "5 Августа 2005 г."  
    чПервыйПробел=Найти(стрДата);                                       // Получим - 2  
    стрДатаБезЧисла=Сред(стрДата,чПервыйПробел+1);          // Получим - "Августа 2005 г."  
    чВторойПробел=Найти(стрДатаБезЧисла," ");                      // Получим - 8  
    стрМесяц=СокрЛП(Лев(стрДатаБезЧисла,чВторойПробел)); // Получим - "Августа"  
     
     

    сначал 1С ругалась на это:

    Код:
    чПервыйПробел=Найти(стрДата);                                       // Получим - 2  

    мол пропущен символ ","
    сделал так:

    Код:
    чПервыйПробел=Найти(стрДата," ");                                       // Получим - 2  

    всё хорошо но:

    Код:
     
    стрДата=Формат(ДатаДок+50-15,"Д ДДММММГГГГ") ;          // Получим - "5 Августа 2005 г."  
    чПервыйПробел=Найти(стрДата," ");                       // Получим - 2  
    стрДатаБезЧисла=Сред(стрДата,чПервыйПробел+1);       // Получим - "Августа 2005 г."  
    чВторойПробел=Найти(стрДатаБезЧисла," ");              // Получим - 8  
    стрМесяц=СокрЛП(Лев(стрДатаБезЧисла,чВторойПробел)); // Получим - "Августа"  
     

    выводит месяц вперёд, напр., в документе 09.09.2005, а в таблице "Октября", вместо "Сентября".
    Где я что пропустил?

    ----------
    Почему глупый, потому что бедный... Почему бедный, потому что глупый...

    Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 17:55 09-09-2005 | Исправлено: Pazan, 18:12 09-09-2005
    tswanea



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    есть у кого нибудь код который проверяет в ХХХХ Справочнике небыло больше (например) 5 элементов, иначе невозможно ввести 6-ого элемента и тд
     
    а то никак не получяеться у меня его написать

    ----------
    ... И развернутся врата ада, и силы тьмы обрушатся на землю ...

    Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 18:38 09-09-2005
    FOLD

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

    Цитата:
    стрДата=Формат(ДатаДок+50-15,"Д ДДММММГГГГ") ;  //Получим - "5 Августа 2005 г."  
     
    Если ДатаДок "9 сентября 2005 г."  то считаем :9  +50дней-15 -и получается
    Октябрь.Датадок просто поставь
    Недавно на мисте Содрал : в глобальнике
     
    Функция МесяцСтрокой(Парам,Падеж=1)    Экспорт  
       Если ТипЗначенияСтр(Парам)="Дата" тогда  
           Пар=ДатаМесяц(Парам);  
       ИначеЕсли ТипЗначенияСтр(Парам)="Число" тогда  
           Пар=Парам;  
       КонецЕсли;    
       Если Падеж=1 тогда   //Именительный падеж  
           Если Пар=1 тогда возврат "Январь"; КонецЕсли;  
           Если Пар=2 тогда возврат "Февраль"; КонецЕсли;  
           Если Пар=3 тогда возврат "Март"; КонецЕсли;  
           Если Пар=4 тогда возврат "Апрель"; КонецЕсли;  
           Если Пар=5 тогда возврат "Май"; КонецЕсли; // и т.д.
         //...................................................................
            Если Пар=11 тогда возврат "Ноябрь"; КонецЕсли;  
           Если Пар=12 тогда возврат "Декабрь"; КонецЕсли;      
       ИначеЕсли Падеж=2 тогда  //Родительный падеж                        
           Если Пар=1 тогда возврат "Января"; КонецЕсли;  
           Если Пар=2 тогда возврат "Февраля"; КонецЕсли; // и т.д.
         //...................................................................
     
              Если Пар=11 тогда возврат "Ноября"; КонецЕсли;  
           Если Пар=12 тогда возврат "Декабря"; КонецЕсли;  
       КонецЕсли;  
    КонецФункции

    все остальные падежи прописать
     
    //и тогда в твоей процедуре/функции
    стрМесяц=МесяцСтрокой(ДатаДок,2);
     
     

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 20:41 09-09-2005 | Исправлено: FOLD, 20:51 09-09-2005
    ifs

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Всем привет! Есть вопрос.
    Где в 1С бухии в документе "платежное поручение" поменять расчетный счет, выскакивающий по умолчанию при открытии формы? У фирмы несколько р/счетов. Выскакивает "основной", а надо - "дополнительный".
    С ув.

    Всего записей: 111 | Зарегистр. 14-10-2004 | Отправлено: 18:31 11-09-2005
    KazanAlex



    Advanced Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    ifs
    В левом верхнем углу есть кнопочка с тремя точками. Ее нажимаешь, вываливается список расчетных счетов, выьираешь какой тебе надо.
    А что бы поумолчанию выходил "дополнительный": Сервис->Сведения об организации->Банк

    Всего записей: 659 | Зарегистр. 08-04-2005 | Отправлено: 18:52 11-09-2005
    ifs

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    KazanAlex
    Виноват! Не всю инфу выдал!
    Бухия для Украины, вот в чем прикол!
    А там нет в сервисе сведений об организации.

    Всего записей: 111 | Зарегистр. 14-10-2004 | Отправлено: 19:31 11-09-2005
    gavril

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ifs
    Иди Справочники-Фирмы-Основной счет....
    Выбери и будут у тебя "вываливатся" тот счет, который выбирешь

    Всего записей: 240 | Зарегистр. 07-10-2004 | Отправлено: 19:46 11-09-2005 | Исправлено: gavril, 19:53 11-09-2005
    terrapin



    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    tswanea  
     
    например вот так в форме списка:
     
    Процедура ПриВводеСтроки()
    Спр=СоздатьОбъект("Справочник.XXX");
    Спр.ВыбратьЭлементы();
    КоличествоЭлементов=0;
    Пока Спр.ПолучитьЭлемент()=1  Цикл
    КоличествоЭлементов=КоличествоЭлементов+1;
    КонецЦикла;
    Если КоличествоЭлементов>=5 Тогда
    Предупреждение("Нельзя ввести больше 5 элементов!");
    Спр.Блокировка(1);
    КонецЕсли;
    КонецПроцедуры

    Всего записей: 272 | Зарегистр. 14-06-2002 | Отправлено: 20:39 11-09-2005
    FOLD

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

    Цитата:
    форме списка
    для элемента делать,

    Цитата:
    Процедура ПриВводеСтроки()  
    , для справочника это ВводНового()

    Цитата:
    Спр.Блокировка(1);
    СтатусВозрата()
     
     
     
    Спр=СоздатьОбъект("Справочник.ххх");  
    Спр.ВыбратьЭлементы();  
    Н=0;  
    Пока Спр.ПолучитьЭлемент()=1 Цикл  
    Н=Н+1;  
    Если Н>5 Тогда  
    Предупреждение("Нельзя ввести больше 5 элементов!",10);  
     СтатусВозврата(0);  
     Возврат;  
    КонецЕсли;  
    КонецЦикла;

    Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 23:42 11-09-2005 | Исправлено: FOLD, 23:54 11-09-2005
    Pazan



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

    Цитата:
    Если ДатаДок "9 сентября 2005 г."  то считаем :9  +50дней-15 -и получается  

    а зачем вообще такой финт? что он даёт в принципе? пока не понял

    Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 10:17 12-09-2005
    KapralBel



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

    Цитата:
    Код:чПервыйПробел=Найти(стрДата);                                       // Получим - 2  
    мол пропущен символ ","  
    сделал так:  
    Код:чПервыйПробел=Найти(стрДата," ");                                       // Получим - 2  

    Сорри, когда копировал - забыл вставить (," ")
     

    Цитата:
    стрДата=Формат(ДатаДок+50-15,"Д  
    ДДММММГГГГ") ;            //Получим - "5 Августа 2005 г."  


    Цитата:
    а зачем вообще такой финт? что он даёт в принципе? пока не понял  

    Просто я писал код сразу в отладчике а тренировался на июльском документе
    И мне надо было попасть на августовский документ - поэтому и включил +50-15
     
    Почему "Августовский"
    Июль - Июля - в обоих случаях 4 символа
    Август (6 символов) - августа (7 символов) - именно в этом случае и происходил глюк
     
    PS. Сорри что привел не совсем корректный код  

    Всего записей: 11354 | Зарегистр. 16-02-2005 | Отправлено: 11:04 12-09-2005
    Pazan



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    KapralBel
    я так и понял, что:

    Цитата:
    стрДата=Формат(ДатаДок+50-15,"Д ДДММММГГГГ") ;  

    в целях тестирования, но потом подумал, а вдруг там какой-то скрытый смысл

    Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 11:24 12-09-2005
    Child



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Господа и дамы,  скажи, а у вас есть какие-то логистические решения по транспорту в 1с?
    Как можно на них поглядеть?


    ----------
    Аренда сервера по выгодным ценам.
    Почемучка! Ответы на ваши вопросы..

    Всего записей: 1349 | Зарегистр. 25-04-2003 | Отправлено: 12:09 12-09-2005
    Pazan



    Advanced Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    КАК ГРИТЬСЯ ПАЗЛ 1С УЖЕ ВЫРИСОВЫВАЕТСЯ.
    Но, вопрос такой:
    есть журнал документов "НалоговыеНакладные"
    внизу в форме списка поставил кнопку "Сформировать реестр". как создать список документов:
    1. по возрастанию
    2. по возрастанию и сортированию  по реквизиту журнала, напр., продавец?

    Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 18:20 12-09-2005
    gavril

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Child
    Сам ищу в Варезе.
    К 7.7 нашел, а вот к 8.0 нет пока (РАРУС Автопредприятие)
     
    Pazan
    В реестре (отчете) сортировать хочешь или в журнале (форме) документов?

    Всего записей: 240 | Зарегистр. 07-10-2004 | Отправлено: 22:30 12-09-2005
    Pazan



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

    Цитата:
    внизу в форме списка поставил кнопку "Сформировать реестр".  

    прямо в форме списка журнала "НалоговыеНакладные". Нужно -- кнопку тыкнул -- выбрал диапазон дат и получил реэстр документов для распечатки

    Всего записей: 924 | Зарегистр. 17-11-2002 | Отправлено: 09:16 13-09-2005
    jakcson



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Pazan
     
    Можно взять из типовой(обработка документов), там есть печать реестра документов. Вставляешь в любом журнале кнопку. В интервале дат журнала распечатывает документы.

    Всего записей: 158 | Зарегистр. 10-06-2005 | Отправлено: 10:20 13-09-2005
       

    Страницы: 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 101 102 103 104 105

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
    ShIvADeSt (29-09-2006 09:19): продолжаем здесь
    http://forum.ru-board.com/topic.cgi?forum=33&topic=7403


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

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

    LiteCoin: LgY72v35StJhV2xbt8CpxbQ9gFY6jwZ67r

    Рейтинг.ru