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

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

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

ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226  Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

LexusG

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

Цитата:
пользователь по своей принадлежности к тому или иному юрлицу имеет право просматривать (видеть) документы данного юрлица.

Имеется ввиду что, Пользователь - это сотрудник определенного Своего ЮрЛица или Своё ЮрЛицо закрепленное за данным сотрудником?
Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 16:04 09-01-2007
pavlika2



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Переходим c 7.7 на 8.1. Вопрос - можно ли использовать файл правил конвертации данных Acc77_80.xml, находящийся в подкаталоге Convert каталога установки шаблона конфигурации, для выгрузки в Бух 8.1 ред. 1.5.13.6? Или нужно создавать свои правила обмена через конфигурацию "Конвертация данных 2.0"?
Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 16:07 09-01-2007
Igor_Buzulutsky



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

Цитата:
Имеется ввиду что, Пользователь - это сотрудник определенного Своего ЮрЛица или Своё ЮрЛицо закрепленное за данным сотрудником?

 
Я наверное неправильно объяснился. Цель в том, чтобы дать некоторым пользователям видеть и редактировать документы другого юрлица (какого определить в настройках пользователя). А остальным только того, к которому они принадлежат (как это определить, неважно).
Например, бухгалтерия имеет доступ ко всем юрлицам.
А продавец магазина может видеть только документы (журнал) юрлица в которм он работает и где данный магазин фактически функционирует.
Всего записей: 41 | Зарегистр. 07-05-2005 | Отправлено: 17:32 09-01-2007
LexusG

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Igor_Buzulutsky
 
Значит так:
1. Нужно запретить использование Общего журнала определенной группе пользователей в которую входят продавцы магазинов.
2. Создать два новых журнала в Конфигурации: ПриходныеДокументы и РасходныеДокументы включив в них нужные документы и добавив обязательно графу ЮрЛицо с реквизитом Документ.Фирма.ЮрЛицо  
В создать в обоих журналах в модуле примерно следующее

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

 
А в переменную НужноеСвоеЮрЛицо надо получить то СвоеЮрЛицо по которому будем фильтровать документы на филиале.
Еще остается Отчет - Реестр документов...тут уже нужно отдельно думать.
Работоспособность кода не проверял но писал с фильтра по складам. Собственно чтобы показать направление в котором рыть.
Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 16:21 10-01-2007 | Исправлено: LexusG, 16:24 10-01-2007
Igor_Buzulutsky



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

Цитата:
....Работоспособность кода не проверял но писал с фильтра по складам. Собственно чтобы показать направление в котором рыть.

 
Я уловил основную идею и примерный метод реализации, чего вполне достаточно для того, чтобы начать действовать. Спасибо огроменное! Премного благодарен!
Всего записей: 41 | Зарегистр. 07-05-2005 | Отправлено: 17:13 10-01-2007
Sendman

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
И все таки кто-нить может дать ответ как в 1С v7.7 в Торговле и Склад, в ценнике отделить артикул товара от наименования....
Вот исходный код формирования ценника:
 
Процедура Сформировать(ТаблицаТоваров,ПечФирма)
 
    //  Создание Таблицы для выходного отчета
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    
    Столбик = 1;
     Ряд     = 0;
 
     ТаблицаТоваров.ВыбратьСтроки();
     Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл
        ПечРозн    = глФРМ(ТаблицаТоваров.Цена, ТаблицаТоваров.Валюта);
        ПечНаименование    = ТаблицаТоваров.Товар;  
        
        ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд);
         глОживить(1);
    КонецЦикла;
     
    //Вызов выходного отчета в окно просмотра и редактирования.
    Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников");
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Товарные ценники","");
КонецПроцедуры
 
ПечНаименование - содержит в себе наименование товара и его артикул.... А вот как их разделить чего-то не могу сообразить....
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 09:31 11-01-2007
Horex



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sendman
Если ПечНаименование состоит из текста вида "имятовара артикул" (т.е. разделены пробелом), то попробуй что-то вроде

Код:
НомерПробела=Найти(ПечНаименование," ");
ИмяТ=Лев(ПечНаименование, НомерПробела);
АртикулТ=Прав(ПечНаименование,СтрДлина(ПечНаименование)-НомерПробела+1);

 
могу напутать с ± 1, попробуй в отладчике.
Всего записей: 1547 | Зарегистр. 27-02-2002 | Отправлено: 10:04 11-01-2007
LexusG

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sendman
 
Приведи код как формируется переменная ПечНаименование. Найди поиском в модуле ценника.
Всего записей: 448 | Зарегистр. 14-09-2005 | Отправлено: 10:31 11-01-2007
Sendman

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

Цитата:
НомерПробела=Найти(ПечНаименование," ");  
ИмяТ=Лев(ПечНаименование, НомерПробела);  
АртикулТ=Прав(ПечНаименование,СтрДлина(ПечНаименование)-НомерПробела+1);

Чего-то так не получатся..
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 10:46 11-01-2007
Horex



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sendman
Напиши, как выглядит ПечНаименование.
Всего записей: 1547 | Зарегистр. 27-02-2002 | Отправлено: 10:57 11-01-2007
Sendman

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Horex
ПечНаименование    = ТаблицаТоваров.Товар;
 
А вот что за таблица товаров и как она формируется не могу понять и найти....
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 11:56 11-01-2007
FOLD

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sendman
ТЗ (ТаблицаТоваров) формируется в  других модулях  и передается параметром
в обработку ПечатьЦенников. Пользуйся отладчиком или просто проследи последовательно, начиная с того места откуда ты вызываешь ПечатьЦенников.В ТИС это можно сделать из нескольких форм. Например ГрупповаяОбработкаНоменклатуры
 
Процедура ДобавитьВтаблицу(Табл, Товар, Тип)
 Перем ВремЦена, ВремЕдиница, ВремВалюта;
 Если глВернутьЦену(Товар, Тип, РабочаяДата(), ВремЦена, ВремЕдиница, ВремВалюта) = 1 Тогда
 Табл.НоваяСтрока();
 Табл.Товар = СокрЛП(Товар.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Товар.Артикул), "");
 Табл.Цена = ВремЦена;
 Табл.Валюта = ВремВалюта;
 Табл.Единица = ВремЕдиница;
 
Процедура ДобавитьВтаблицу вызывается из процедуры ПечатьЦенников() (в модуле обработки ГрупповаяОбработкаНоменклатуры) в которой и создается ТЗ .
 
Думай.. дальше все просто
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 12:14 11-01-2007 | Исправлено: FOLD, 12:16 11-01-2007
Sendman

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
Спасибо, огромное за подсказку где копать... ща поковыряю.... думаю справлюсь...
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 12:24 11-01-2007
ITMRenny

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть задача:
2 кассира, с двух, соответственно, компов должны бить чеки на один фискальник.
Вопрос: как попроще это реализовать?  
Наверняка же задача стандартная весьма, не хочется велосипед изобретать...
Всего записей: 43 | Зарегистр. 27-12-2005 | Отправлено: 14:09 11-01-2007
Vagiz

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
МОЖЕТ КТО ЗНАЕТ?
 
Как чистить справочник товаров в 1С77? Стандартными способами он не чистится, ссылки на поставщиков и справочник цена товара мешают.  
А есть ли такая обработка которая не смотрит на эти связи, а просто по дате удаляет? А то столько хламу накопилось за пять лет...
Всего записей: 27 | Зарегистр. 02-10-2006 | Отправлено: 17:18 11-01-2007
tar3

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При проведении документоа: поступление товара,
расходный кассовый ордер, реализация товара и др. имею
СпособВеденияНУ=СоздатьОбъект(«Периодический»)
Глобальный модуль (872) Неудачная попытка создания объекта («Периодический»)  
Настройка стандартная типовая бухгалтерия, платформа 18,20,25,26,27
Из той же темы ошибки 296, 17 подскажите как победить и где настроить, или ссылку?
Всего записей: 34 | Зарегистр. 14-06-2006 | Отправлено: 17:42 11-01-2007
vjick

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uninstall 1cv8 ????
кто-нибудь сталкивался надо удаленно и попорядочнее (желательно не через протирание реестра)

Цитата:
УСТАНОВКА  
1. setup.exe /r  
2.копируем полученный setup.iss в сетевую папку  \\Server\Share\Setup  
3.создаем строку setup.exe /s (f1-при изменение пути setup.iss,f2-пути для логов)  
4.создаем bat-файл: 1. (функция копирования ярлыка 1С Предприятия v8 с путями (параметрами сервера)  
                   2.соответственно setup /s ...  
УДАЛЕНИЕ  
1.создаем файл ответов IDriver.exe /M{B7EA9849-.......-..203A} /r  
2.копируем полученный setup.iss в сетевую папку для деинсталяции \\Server\Share\Uninstall  
3.пишем строку \\Server\share\IDiver.exe /M{B7EA9849-.......-..203A} /x /s (f1-по необходимости)  
4.создаем bat (удаляем ярлык и удаляем программу)  
 
не помогло ничего не случилось
 
Добавлено:
вопрос снят (блин сам пробел поставил после ключа /m)дополню вдруг кому надо будет
"D:\Program Files\Common Files\InstallShield\Driver\7\Intel 32\IDriver.exe"  
- здесь находится файл(правда более новая версия не в папке 7\ а 9\)
Если устанавливали всем по образцу(или с одного setup) лезем в установочные файлы
в setup.ini ищем строчку:
ProductCode={4QQFA4CQ-09Q2-5055-9BC8-D2AAAE9C076U}
{4QQFA4CQ-09Q2-5055-9BC8-D2AAAE9C076U} - это и есть та фигня которую ставим после ключа /M
(!!!Только Для любителей чистить реестр ищем эту строчку в реестре и чистим)
IDriver.exe /M{4QQFA4CQ-09Q2-5055-9BC8-D2AAAE9C076U} /r
setup.iis - т.е. файл ответов (куда записываются ваши нажатия кнопок при деинсталяции) будет валяться в каталоге C:\WINDOWS\
- его оттуда и надо забрать будет
ну вроде все, удачи!
 
Добавлено:
З.Ы. Да так и не разобрался с ключем /x
если кто знает скажите пожалуйста - визуально что с ним что без него один фиг
Всего записей: 1809 | Зарегистр. 29-01-2002 | Отправлено: 18:55 11-01-2007 | Исправлено: vjick, 11:47 12-01-2007
Sherlock_kmw

Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Vagiz
 
Примерный код  
 
Спр = Создатьобъект("Справочник.ВидСправочника);
Спр.ВыбратьЭлементы(0); //т.е. без учета иерархии
Пока Спр.ПолучитьЭлемент() = 1 Цикл
     Спр.Удалить(1); //т.е. непосредственное удаление
КонецЦикла;
 
ПРЕДУПРЕЖДАЮ.
при выполнении такого кода справочник у тебя почистится, но ссылки на него останутся, а это не есть гуд.
советую для начала сделать свертку базы, чтобы не было старых доков, в которых эти товары были. а потом воспользоваться стандвртными возможностями 1С
Всего записей: 47 | Зарегистр. 15-05-2006 | Отправлено: 11:02 12-01-2007
Liliac

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всех поздравляю со Старым Новым Годом !!!
 
Специалисты, подскажите есть ли в 1С 8-й версии специальный модуль или какая-то другая возможность организовать учет по проектам и управление по проектам ?
Всего записей: 727 | Зарегистр. 20-04-2006 | Отправлено: 19:41 13-01-2007
BuxIvanov

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hi!
(Версия 1С7.7 Предприятие)
Пытался во внешнем отчете загрузить накладные и заполнить СчетФактураПолученные.
При этом операции прописались нормально со всеми проводками и субконто (приход, ндс, тара), а счет фактура заполняет только дебетовую часть и никак не хочет заполнить субконто кредита, а, следовательно, и проводки налогового учета.
Кусочек заполнения СчетФактураПолученные.
//                        ПРИХОД  ТОВАРА                  //
//********************************************************//
Процедура ПровестиНакладнуюПП() //ПровестиНакладнуюПП(БД)
...............................................
// тут код заполнения операции - все нормально отрабатывает
БД - это внешний файл ДБФ с накладными
.............................
    //--- Счёт-Фактура полученные -> заполнить
    
    //ОчиститьОкноСообщений();
    СФ = СоздатьОбъект("Документ.СчетФактураПолученный");
    СФ.Новый();
    //НовыйНомер = "y2"+БД.vnudok;
    СФ.НомерДок = НовыйНомер;
    СФ.ДатаДок = БД.Date_in; // ТекущаяДата();
    СФ.ДатаНомерСчетаФактуры = ""+БД.date_in+" № "+НовыйНомер;
    СФ.ДатаОприходования = ТекущаяДата();
    СФ.Контрагент = Контрагент;
    СФ.Договор = Дог;
    СФ.СуммаБезНДС20 = БД.Sum18; //200.0;
    СФ.НДС20 = БД.Nds18;  // 36.0;
    
    СФ.СуммаБезНДС10 = БД.Sum10;
    СФ.НДС10 = БД.Nds10;
    
    СФ.Всего = БД.SumTot;
    
    ОП = СФ.Операция;
    
    СФ.Субсчет19 = СчетПоКоду("19.3",ПланыСчетов.Основной);
 
// Вот эти 3 строки и не срабатывают    
    СФ.Счет = СчетПоКоду("60.1",ПланыСчетов.Основной);
    СФ.Субконто1 = Контрагент;    
    СФ.Субконто2 = Дог;      
 
    СФ.ФормироватьПроводки = 1;                                   
    
    ОП.СуммаОперации = БД.SumTot;
    ОП.Содержание = "Запись в счет-фактуру полученный (НДС)";
    
    СФ.Записать();
    СФ.Провести();  
    
    //***************************************************//
    // Дополнить запись в журнале операций
    //-- Укажем номер счета-фактуры по Субконто2 для счета 19,3
    Опер.ПолучитьПроводкуПоНомеру(2);  
    Опер.Дебет.СчетаФактурыПолученные = СФ.ТекущийДокумент();
    Опер.Записать();
    
КонецПроцедуры  // ОбработкаПроведения прихода  
 
Всего записей: 1 | Зарегистр. 15-01-2007 | Отправлено: 04:38 15-01-2007
   

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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru