Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику g789 ::: Спасибо сказали: 14 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
23.08.12, 16:35 Остатки на складах
Цитата(MATEVI @ 23.08.12, 16:43) *
g789
1. Ознакомьтесь с пунктом правил №16
2. "Как правило" в Вашей цитате не означает, того что других вариантов не может быть...

"Как правило" - цитата из официального описания типовой конфигурации. Учите матьчать матчасть. За сим откланиваюсь.
Cthulhu,
23.08.12, 11:38 Остатки на складах
Цитата(vadim007 @ 23.08.12, 11:28) *
Теперь главный вопрос: когда нужно включать управленческий учет?
Если вы ведете в одной базе несколько НЕЗАВИСИМЫХ фирм, управленческий учет нужно выключить. Для чего? При включенном управленческом учете, при проведении расходных документов происходит списание партий товаров. При этом партии могут списываться не только Вашей фирмы, но и любой ДРУГОЙ, если найденная партия вписывается в выбранную стратегию списания (FIFO/LIFO). Это Вам надо?!
НО, если у вас корпорация, то вам нужен будет консолидированный учет по всем входящим в корпорацию фирмам. Вот здесь и нужен управленческий учет. Но при этом помните, что фирмы уже не независимы, а входят в корпорацию.

Феерический бред. Вы бы хоть описание типовых конфигураций удосужились почитать. Не преднозначены они для ведения учета нескольких независимых фирм в одной базе.
Цитата
Комплексная конфигурация позволяет вести в одной информаци¬онной базе учет от имени нескольких организаций, фирм — различ¬ных юридических лиц. Как правило, в этом случае все юридические лица имеют общее руководство и составляют вместе одну компанию (корпорацию, холдинг). Ведение всех фирм в единой базе Комплекс¬ной конфигурации позволяет учесть следующие особенности дея¬тельности компании:
• юридические лица, составляющие компанию, работают с
одними и теми же поставщиками, покупателями, товара¬
ми (т. е. с одними и теми же объектами учета);
• владельцев, руководителей, менеджеров компании инте¬
ресует, в первую очередь, сводная отчетность по всей
компании в целом, а для бухгалтеров необходим учет по
каждой из фирм.
• разделение между фирмами присутствует только в
документах; реально товар лежит на общем складе;
менеджер может продать товар от имени любой из фирм.



 ! 

Правила п.16
 
Cthulhu,
23.08.12, 7:53 Остатки на складах
Цитата(vadim007 @ 23.08.12, 8:08) *
Нет, не ошибаетесь.

Ну так добавьте
|Условие(Фирмав = ВыбФирма);

где ВыбФирма реквизит или переменная со значением фирмы или
ВыбФирма = ПолучитьПустоеЗначение("Справочники.Фирмы");

где - то так
bereznoy,
04.07.12, 11:01 Права доступа СпрКонтрагенты
СокрЛП(глПользователь.Наименование)

или
СокрЛП(глПользователь.Сотрудник.Наименование)
bereznoy,
26.06.12, 14:56 Права доступа СпрКонтрагенты
Может быть так
Процедура ПриОткрытии()
    ИерархическийСписок(1,0);
    Спр = СоздатьОбъект("Справочник.Контрагенты");
    Спр.НайтиПоНаименованию("Гр1",0,0);
    ИспользоватьРодителя(Спр.ТекущийЭлемент(),0);
КонецПроцедуры
bereznoy,
25.05.12, 9:10 Загрузка прайса из Экселя
igmig65
Можно так, без 1с++ (имяФайла - реквизит формы, тбл - ТаблицаЗначений на форме)
    Если ФС.СуществуетФайл(СокрЛП(имяФайла))=0 Тогда
        Возврат;
    КонецЕсли;
    тбл.Очистить();
    
    Excel = СоздатьОбъект("Excel.Application");
    Excel.Displayalerts = 0;//отключить встроенные предупреждения Excel
    
    Excel.Workbooks.Open(СокрЛП(имяФайла));
    Excel.Worksheets(1).Activate();
    Excel.Range("B2").CurrentRegion.Select();//Выделить область
    tbl = Excel.ActiveCell.CurrentRegion;
    str = tbl.AddressLocal();
    str = "$" + СтрЗаменить(str,"$","");
    ListName = Excel.Worksheets(1).Name;
    стр = ListName + str;
    Excel.ActiveWindow.Close();

    Состояние("Считывание файла excel...");

    СтрокаПодключения ="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" +СокрЛП(имяФайла);

    ТекстЗапроса ="
    |select  *
    |from ["+стр+"]
    |";

    Connection = СоздатьОбъект("ADODB.Connection");
    // Подключение к источнику данных
    Попытка
        Connection.Open(СтрокаПодключения);
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    Command = СоздатьОбъект("ADODB.Command");
    Command.ActiveConnection = СтрокаПодключения;
    Command.CommandText = ТекстЗапроса;
    Command.CommandType = 1;
    // Создание объекта набора записей
    RecordSet = СоздатьОбъект("ADODB.RecordSet");
    // Выполнение и получение набора данных
    RecordSet.Open(Command);
    КоличествоПолей = RecordSet.Fields.Count;
    спИменаПолей = СоздатьОбъект("СписокЗначений");
    Для НомерКолонки = 0 По КоличествоПолей-1 Цикл
        ИмяПоля = RecordSet.Fields.Item(НомерКолонки).Name;
        спИменаПолей.ДобавитьЗначение(ИмяПоля);
        тбл.НоваяКолонка(ИмяПоля);
    КонецЦикла;

    // Перебор данных
    Пока RecordSet.EOF() = 0 Цикл
        тбл.НоваяСтрока();
        Для н=1 По КоличествоПолей Цикл
            тбл.УстановитьЗначение(тбл.НомерСтроки,н,RecordSet.Fields(н-1).Value);
        КонецЦикла;
        RecordSet.MoveNext();
    КонецЦикла;
    RecordSet.Close ();
    Connection.Close();

но так буде медленее, долго заполняется таблица
igmig65,
24.05.12, 9:38 Загрузка прайса из Экселя
В качестве офтопа, если есть 1с++ то как-то так:
    Excel = СоздатьОбъект("Excel.Application"); 
    Excel.Displayalerts = 0;//отключить встроенные предупреждения Excel
    
    Excel.Workbooks.Open(СокрЛП(имяФайла));
    Excel.Worksheets(1).Activate();
    Excel.Range("B2").CurrentRegion.Select();//Выделить область
    tbl = Excel.ActiveCell.CurrentRegion;
    str = tbl.AddressLocal();
    str = "$" + СтрЗаменить(str,"$","");
    ListName = Excel.Worksheets(1).Name;
    стр = ListName + str;
    Excel.ActiveWindow.Close();

    Состояние("Считывание файла excel...");
    _база =СоздатьОбъект("ODBCDatabase");
    Если _база.Соединение("DRIVER=Microsoft Excel Driver (*.xls); DBQ=" +СокрЛП(имяФайла)) =0 Тогда
        Предупреждение("Ошибка открытия файла", 60);
        Возврат;
    КонецЕсли;
    _рс =СоздатьОбъект("ODBCRecordSet");
    _рс.УстБД(_база);
    ТекстЗапроса ="
    |select  *
    |from ["+стр+"]
    |";
    
    ит = _рс.ВыполнитьИнструкцию(ТекстЗапроса);
Flexy, igmig65,
09.12.11, 17:20 Передача списка в запрос
Цитата(Домовик @ 09.12.11, 16:17) *
примеры приведите.... лбы они закрывают smile.gif.
функции нужны для обработки полученных данных внутри запроса. при этом фомируется новое поле таблицы. Стрелок, вы имели ввиду частный случай- чтение значения ресурсов.

ЖКК -
Операторы функций в запросе можно опускать, тогда запрос просто не бу­дет ничего вычислять, а просто во временный набор данных заносятся записи со значениями Группировок. Однако это справедливо только для работы запро­сов по справочникам и по документам. При работе запроса по регистрам следу­ет помнить, что в этом случае обязательно наличие Функций, причем только в том случае, когда их вычисленные значения отличны от нуля (хотя бы одной из заданных Функций), найденные объекты включаются во временный набор данных, формируемый запросом. Если при работе запроса по регистрам в тек­сте запроса операторы функций опущены, то программа не выдаст никакого сообщения об ошибке, добросовестно пройдет по всем Группировкам, не вы­числит никаких значений Функций и, значит, ничего не запишет во временном файле
Домовик,
02.11.11, 11:50 1C++ nysysimara,
31.10.11, 12:16 Средняя маржа
(СуммаПродаж - СуммаЗакупки)/Количество
Talkman,
06.10.11, 10:20 не проводится документ "ввод в эксплуатацию"
Цитата(wmatik @ 06.10.11, 11:15) *
проверила, все равно КвоТМЦОстатки = 0

но документ провелся! как такое может быть


Скорее всего не отрабатывает
Если Ит.ПолучитьСчет(, СчетТМЦ) = 1 Тогда
            КвоТМЦОстатки = Ит.СКД(3);
            СуммаТМЦОстатки = Ит.СКД(1);
КонецЕсли;

а после инициализации 0 (КвоТМЦОстатки = 0) стал корректно работать
  РазнНУБУ = ?(КвоТМЦОстатки = 0, 0, СуммаНУОстатки/КвоТМЦОстатки*КвоИнвестиций);

т.е.
Если КвоТМЦОстатки = 0 Тогда
  РазнНУБУ = 0;
Иначе
  РазнНУБУ = СуммаНУОстатки/КвоТМЦОстатки*КвоИнвестиций;
КонецЕсли;
wmatik,
23.08.11, 13:44 Поиск строки таблицы значений по нескольким параметрам
как вариант при формировании ТаблицыЗначений добавить ключевое поле (тбл.Поле1 + "$$$"+тбл.Поле2) - потом искать по нему. ну или 1с++ - индексированная таблица
Batchir,
29.06.11, 10:58 1С вылетает
Вот похожая проблема обратите внимание на последний пост
wasdik,

RSS Текстовая версия Сейчас: 27.04.24, 10:58
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!