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

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

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

ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715  Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

ShIvADeSt



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

ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям
ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х
Топик 1C Ebooks
ЗДЕСЬ  (обновлено 17.10.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
 
Предыдущие темы были здесь часть 4 | часть 3 | часть 1
 
Как убить рекламу при обновлении отчетности | конфигурации (ИБ)?
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:02 03-04-2009 | Исправлено: vkramnik, 12:06 23-10-2009
gorlanovmax



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
egerLESHIK
 
Так тогда надо было вставлять проверку на наличие галки в цикле
 
Если ТЗИмпЧ.К>0 Тогда    
   КодТМЦ=ТзИмпЧ.НомНомер;  
   Если ЭлементСправочника.НайтиПоКоду(КодТМЦ, 0) = 1 Тогда  
     РНК.НоваяСтрока(); // Новую строку добавляем только если найден товар  
     РНК.ТМЦ = ЭлементСправочника.ТекущийЭлемент();  
     РНК.Ед = ЭлементСправочника.ЕдиницаПоУмолчанию;    
     РНК.Коэффициент = ("1");  
     РНК.КвоЗаказПокупатель=ТЗИмпЧ.Количество;  
     РНК.КвоЗаказ=ТЗИмпЧ.Количество;  
     РНК.Кво=ТЗИмпЧ.Количество;  
     РНК.ЦенаСНДС=ТЗИмпЧ.Цена;  
     РНК.ЦенаБезНДС=РНК.ЦенаСНДС-РНК.ЦенаСНДС/6;  
     РНК.СуммаСНДС=ТЗИмпЧ.Сумма;  
   Иначе  
     Сообщить("Товар с кодом "+КодТМЦ+" не найден!");    
  КонецЕсли;            
КонецЕсли;
Всего записей: 141 | Зарегистр. 27-06-2006 | Отправлено: 12:43 21-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вставлял, но все равно чего-то пустую формирует.
 
Добавлено:

Цитата:
Если ТЗИмпЧ.К>0 Тогда    
   КодТМЦ=ТзИмпЧ.НомНомер;  

 
Извинияюсь.
Да, этот момент действительно помог с отбором и экспортом именно отмеченных данных в расходную накладную.
 
 
 
Добавлено:
А возможно ли выполнение полностью этого кода в цикле?  
Допустим в таблице значений есть колонка НомерЧека. То есть нужно найти позиции с одинаковыми номерами чеков и по ним произвести формирование расходной накладной. Для следующей накладной новые строки из таблицы значений, но уже с другими одинаковыми номерами чеков. А в самой накладной вывести: то ли над таблицей то ли в самой таблице сообщение о том по какому чеку сформирована та или иная накладная.
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 12:46 21-04-2009
yliamik

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый вечер! Главбух созрел переходить с 7.7 на 8.1 Подскажите пож-та, где можно найти конвертацию Зарплата+Кадры. Редакция 2.3 --> ЗарплатаИУправлениеПерсоналом
Всего записей: 5 | Зарегистр. 19-12-2008 | Отправлено: 17:01 21-04-2009
dimaxmaster

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос по семерке. Насколько я знаю, установить отбор в Журнале документов по какому-либо реквизиту можно только в Полном журнале. Если Журнал не полный, а Обычный, в котором лежат несколько или один тип документов, то установить такой отбор нельзя. Ситуация такая: в базе ведется три фирмы. В Журнале например РасходныеНакладные видятся сразу документы всех трех фирм. Нельзя ли установить отбор, чтобы фильтровались документы только по одной фирме, при чем журнал это не полный, а обычный. Если ли варианты или надо писать форму своего журнала с использованием ТаблицыЗначений?
Всего записей: 333 | Зарегистр. 05-06-2008 | Отправлено: 17:34 21-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
Цитата:
Цитата:напиши полную структуру ТЗ  
Что конкретно написать?
колонки напиши ...


----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 19:10 21-04-2009
deman_ru

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые знатоки программирования 1С!
я новичек в этом деле и пришел к вам с вопросом, надеюсь поможете
я в институте стал изучать 1с, а именно программирование, делаем лабораторки, не сложные конечно, работали со справочниками, перечислениями, обработками, отчетами, писали простенькие модули и др. ну и в итоге курсовая работа, у меня попалась тема: "Автоматизация учета материалов и их использование в строительстве".
В ней мне нужно сделать все что учили, и сделать дополнительно что нибудь тогда я получу 5=)
вот я хотел бы просить у вас помощи, что мне можно почитать по своей теме, что делать, как правильно автоматизировать данный процесс, ну и все такое, помогите пожалуйста.
Всего записей: 96 | Зарегистр. 28-04-2008 | Отправлено: 20:37 21-04-2009
egerLESHIK



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

Цитата:
колонки напиши ...

 
Ну не вопрос =)
 
Колонки кодом:
 

Цитата:
Процедура ПриОткрытии()
     ТЗИмпЧ.НоваяКолонка("К","Число",2,0,,);
     ТЗимпЧ.ВыводитьПиктограммы("К",);
    ТЗИмпЧ.НоваяКолонка("КП","Число",2,0,,);
    ТЗИмпЧ.ВыводитьПиктограммы("КП",);
    ТЗИмпЧ.НоваяКолонка("ОЧ","Число",2,0,,);
    ТЗИмпЧ.ВыводитьПиктограммы("ОЧ",);
    ТЗИмпЧ.НоваяКолонка("НомерЧека","Число",5);
    ТЗИмпЧ.НоваяКолонка("Тип","Число",5);
    ТЗИмпЧ.НоваяКолонка("ДатаЧека","Дата",5);
    ТЗИмпЧ.НоваяКолонка("КодЭкка","Число",5);
    ТЗИмпЧ.НоваяКолонка("НомНомер","Строка",11); //Номенклатурный номер
    ТЗИмпЧ.НоваяКолонка("Количество","Число",10,2);
    ТЗИмпЧ.НоваяКолонка("Цена","Число",10,2);
    ТЗИмпЧ.НоваяКолонка("Сумма","Число",10,2);
 
КонецПроцедуры
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 21:21 21-04-2009
mityaev007

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
deman_ru
Чтобы ответить на твой вопрос маловато данный, какую версию вы изучали (7.7,8.0,8.1).
А почитать по  теме "Автоматизация учета материалов и их использование в строительстве", можно взяв описание отраслевой конфигурации типа- "Подрядчик строительства".
Всего записей: 4 | Зарегистр. 26-02-2006 | Отправлено: 23:07 21-04-2009
deman_ru

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

Цитата:
mityaev007

изучал 8.0, может подскажите обучающие учебники по работе в конфигураторе, где детально объясняется создание конфигурации для той или иной отрасли.
Всего записей: 96 | Зарегистр. 28-04-2008 | Отправлено: 23:35 21-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
deman_ru
Я думаю, что учебника, как писать конфу строительной конфигурации - нет
Возьми Радченко "Пособие разработчика". Там рассматривается создание конфигурации "Добрых дел мастер" с нуля...

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 05:52 22-04-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dimaxmaster
 
"Во всех журналах, кроме журнала подчиненных документов, работает отбор по виду документа" - это из справки 1С.
 
есть стандартная обработка 1С "Универсальный журнал документов" UniJourn.ert (есть на диске ИТС). она как раз и позволяет по всем журналам установить разные условия и т.д.
 
из справки по этому отчету:
"   Это универсальный, т.е. работающий в любой конфигурации,  
отчет. Он позволяет просматривать и выводить на печать любой из  
существующих в конфигурации журналов документов, а также  
добавлять произвольное количество новых журналов с возможностью  
настройки состава документов, входящих в журнал, отбора документов  
по условиям и в интервале дат, настройки колонок и их  
упорядочивания, и возможностью получения итогов по колонкам."
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 06:08 22-04-2009
dimaxmaster

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

Цитата:
есть стандартная обработка 1С "Универсальный журнал документов" UniJourn.ert (есть на диске ИТС). она как раз и позволяет по всем журналам установить разные условия и т.д.  

 
Я об этой обработке конечно же знаю. В той  обработке UniJourn.ert нельзя работать как с полноценным журналом. Т.е. в этом универсальном журнале нельзя создавать новые документы. А мой вопрос как раз об этом. Думал, может кто сталкивался с таким.
Всего записей: 333 | Зарегистр. 05-06-2008 | Отправлено: 10:23 22-04-2009
Master598

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Повторюсь может всетки кто делал
 
 
подскажите пожалуйста, как сделать двойно отбор для документов в "журнале документов"?  
 
есть документы с реквизитами "серномер" и "контрагент", требуется когда нажимаешь на "отбор" в справочнике,  чтобы отбор происходил только тех документов в которых совпадает "серномер" и "контрагента" из текущей строки справочника.  
 
делаю  
    Установитьотбор("контрагент",Форма.Параметр.контргент);  
    Установитьотбор("Серномер",Форма.Параметр.Серийный);  
 
делает только по 1 отбору 2 не видит.
Всего записей: 28 | Зарегистр. 16-12-2007 | Отправлено: 10:47 22-04-2009
gorlanovmax



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Master598
 
Никак. Только если делать свой журнал на основе ТаблицыЗначений.
Всего записей: 141 | Зарегистр. 27-06-2006 | Отправлено: 10:52 22-04-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Master598
 
поводу фильтра по нескольким реквизитам есть такой выход:
 
сделать в документе реквизит, например, "СерномерКонтрагент" типа строка.
в него при записи документа писать что-то типа;  

Код:
СерномерКонтрагент=СокрЛП(Серномер)+"; "+СокрЛП(Контрагент);

 
ну а затем отбор делать так:
 

Код:
 
Установитьотбор("СерномерКонтрагент",СокрЛП(Форма.Параметр.Серномер)+"; "+СокрЛП(Форма.Параметр.Контрагент));  
 

 
как вариант можете попробовать так сделать
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 11:12 22-04-2009
Master598

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
хм.. сп. попробую так выйтииз положения
Всего записей: 28 | Зарегистр. 16-12-2007 | Отправлено: 11:52 22-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Master598
но проще нарисовать ТЗ в обработке, как предложил gorlanovmax
 => не надо будет конфу менять!
т.к. если журанл разрастётся - индексы будут тормозить...

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 13:27 22-04-2009
Oks9I

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Хочу обратиться с просьбой к читателям форума, очень надеюсь на вашу помощь!. Сложилась такая ситуация, что мне нужно решить одну задачу 1С:Специалист 8.1, а я в этом деле новичок и еще очень много не знаю. Задача: Склады, торговля со скидками, управленческий бухгалтерский учет и окладно–премиальная схема оплаты.
 
Большую часть задачи я сделала. Осталось только начислить зарплату и премию работникам.
В этом у меня загвоздка. Пыталась сделать на примере из книги Радченко, но у него в примере один регистр расчета - "Начисления" и один план видов расчета (в котором 2 предопределенных - оклад и премия).
 
В каркасной конфигурации (которая дана по заданию) два регистра расчета - ОсновныеНачисления и ДополнительныеНачисления; также два плана видов расчета (ОсновныеНачисления и ДополнительныеНачисления в каждом свой предопределенный, соответственно Оклад и Премия).  
 
С окладом я разобралась, движения в регистре расчета ОсновныеНачисления у меня проводятся, все работает правильно. А премия должна насчитываться так:
Премиальная часть зарплаты зависит от суммы продаж, выполненных данным менеджером в прошлом месяце. Если менеджер осуществил продаж на сумму больше нормы за месяц, то ему положена премия:
если норма превышена на 1/2 - 20% от оклада,  
если норма превышена на 3/4 - 30% от оклада,  
если норма превышена на 100 процентов - 50% от оклада.  
 
Я не знаю как высчитать премию, гуру 1с, подскажите, пожалуйста.
Заранее спасибо, очень буду ждать ответа.
 
Всего записей: 8 | Зарегистр. 10-02-2009 | Отправлено: 15:03 22-04-2009 | Исправлено: Oks9I, 10:20 23-04-2009
ReqVieM

Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем, здравствуйте.
Столкнулся с такой задачей: В документы надо добавить кнопку "Изменить", при нажатие на  которую, документ будет закрываться, распроводиться и открываться снова. (Все это делается для того что бы не искать в журнале и руками распроводить его и изменять). Все до чего я дошел:
Глобальный модуль    

Код:
 
Процедура ОткрытьНаИзменение(Конт) Экспорт            
    Конт.Форма.толькоПросмотр(1);
    Журнал=СоздатьОбъект("Документ."+Конт.Вид());
    Журнал.НайтиДокумент(Конт.ТекущийДокумент());    
    Журнал.СделатьНеПроведенным();    
    Док=Конт.ТекущийДокумент();
    Конт.форма.Закрыть(0);
    Форм.добавитьЗначение(Док);
КонецПроцедуры
Процедура ОбработкаФорм()  
    Пока Форм.РазмерСписка()>0 цикл
        Зн    = Форм.ПолучитьЗначение(1);
        ОткрытьФорму(ЗН,1,0);
        Форм.УдалитьЗначение(1);
    КонецЦикла;
Конецпроцедуры;
ОбработкаОжидания("ОбработкаФорм",1);
 

Соответственно из документа при нажатие кнопки "Изменить" вызывается процедура ОткрытьНаИзменение(контекст) ,в которую передается контекст формы. Вся это вещь работает, но есть маленькая проблема что бы вот эта строка, Журнал.СделатьНеПроведенным(); ,заработала необходимо, что бы документ был открыт только на просмотр. Решение которое пришло в голову это добавить в документ в процедуру ПриОткрытии следующие строки:  
 
Код:
Если ПустоеЗначение(новый)=1 тогда  
        Попытка                    
            Если Форма.Параметр = 1 тогда    
                Форма.Толькопросмотр(0);  
                Форма.Обновить(0);
            Иначе                                
                Форма.ТолькоПросмотр(1);
                Форма.Обновить(0);
            КонецЕсли;
        Исключение                              
            Форма.ТолькоПросмотр(1);
            Форма.Обновить(0);            
        КонецПопытки;
    КонецЕсли;

Но все равно при вызове  СделатьНеПроведенным(); Получаем сообщение что запись заблокирована. Если кто сможет помочь как это подправить или решить всю задачу другим способом, поделитесь. Версия 1с 7.7 Конфигурация Торговля+Склад
Всего записей: 24 | Зарегистр. 05-07-2007 | Отправлено: 17:01 22-04-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ReqVieM
 
из формы документа такие действия стандартными методами сделать нельзя.
 
An4eus подсказал, как можно сделать
Ссылка
 
или:
 
в конфигурации ТиС во всех документах есть стандартная кнопка "Действие" - "Перейти в журнал"
 
при этом форма документа закрывается, открывается журнал этого документа и журнал позиционируется на этом документе. Далее как обычно, правой клавишей "Отменить проведение" и два клика левой клавишей для открытия уже не проведенного документа.
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 08:43 23-04-2009 | Исправлено: vizlipuzli, 11:57 23-04-2009
   

Страницы: 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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru