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

Хранилище

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

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



История благодарностей участнику kalyamov ::: Спасибо сказали: 31 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
10.05.12, 17:28 Отобрать в Запросе Операции по опр. виду документа
Цитата(Читатель @ 10.05.12, 17:02) *
Я просто не знаю что такое ТекущийДокумент в объекте Операция (ОперацияДокумент=Операция.ТекущийДокумент) - видимо какой-то реквизит.


В данном случае - это атрибут.
Читатель,
10.05.12, 13:27 Отобрать в Запросе Операции по опр. виду документа
А почему такое условие не подходит ?
|Условие (ОперацияДокумент.Вид()<>"Перемещение");


Домовик,
08.05.12, 13:04 ошибка SQL при добавлении реквизита
Цитата(sercher @ 08.05.12, 13:00) *
переустановил на машинах с 1С, и стал ждать новой ошибки, ее не возникало до тех пор пока я опять не полез в конфу


У меня после отката к 25 релизу проблема исчезла. Почему 25 - в 27 особо ничего измененного и нужного мне нет, а ставить кругом 27 влом.
sercher,
22.03.12, 13:35 В "Первый запуск" не заполняется справочник
Цитата(vadim007 @ 22.03.12, 13:07) *
ТекущийРодитель типа Справочник


А типа он элемент или группа ?

Не увидел ответ мистера-х, пардон.
vadim007,
18.01.12, 18:11 Варианты реализации возможности пользователям выбрать строки из Таблицы
Цитата(Kaliban @ 18.01.12, 16:38) *
в 7-ке нет булево.


Очень тонкое замечание. Что же теперь делать ? Зачем Вы открыли эту тайну ?
Valdi77,
27.12.11, 15:14 Слетает ТА при восстановлении из архива
Цитата(go1c @ 27.12.11, 15:06) *
Я бы тоже наверное оставил 25, вот только она не поддерживает вертикальный вывод текста в печатных формах)

Я оставил 25 потому, что выбрал меньшее из-зол -переустановить на одной машине значительно проще, чем на всех. Тут дело в конфликтах платформ. Если я выгружу из 27 и попытаюсь загрузить в 25, наверняка выскочит такая ошибка и наоборот.

Цитата(go1c @ 27.12.11, 15:06) *
Корень зла содержался в документах с пустой датой. После удаления таких документов при загрузке из архива ТА не слетает. Кто то может объяснить почему так получается?

А зачем вам документы с пустой датой ?
Домовик,
22.12.11, 8:51 Ошибки 290 релиза Бухии
Цитата(Олег Крам @ 22.12.11, 8:43) *
Меня больше интересует формат даты в табличной части . Поясните , пожалуйста .

P.S. И ещё не влазит дата во вторую колонку , если в "Настройке параметров системы " "Число цифр года в представлении даты " = 4.


Дата и должна быть с четырьмя цыфрами в годе. Вся информация в журнале "Все о бух учете", оттуда ее черпали надоедливые бухи. В табличной части сначала оставили дату как она была, но они заявили, что хренушки, должна быть и как дата выписки - 16122011. Мол все даты должны так выглядеть. Если не влазит - раздвинте поля.
Олег Крам,
24.11.11, 16:07 Каталоги справочника.
Функция Записать(спр,КодТовара1,НаименованиеТовара1,ПолнНаименование1,Цена1,НаименованиеПоста
вшика1,Родитель1);

    Товар1=спр.НайтиПоКоду(КодТовара1);
    Товар1=спр.НайтиПоНаименованию(НаименованиеТовара1);
    
    Если Товар1=0 тогда
        
            спр.Новый();
            Если ПустоеЗначение(Родитель1)=0 Тогда
                   Спр.Родитель = Родитель1;
            КонецЕсли;  
            спр.Артикул=КодТовара1;
            спр.Наименование=НаименованиеТовара1;
            спр.ПолноеНаименование=ПолнНаименование1;
            спр.ОтпЦена=Цена1;
            спр.Записать();
        
    КонецЕсли;

КонецФункции
//Определение номера необходимых колонок
    НомерКолонкиАртикулаТовара=1;
    НомерКолонкиНаименованияТовара= 2;
    НомерКолонкиПолнНаименованияТовара= 3;
    НомерКолонкиЕдИзмТовара=4;
    НомерКолонкиНаименованияПоставщика=5;
    НомерКолонкиЦеныТовара=6;
  
    
    // Выбираем данные из файла
    Для а = 1 по ФайлСтрок Цикл          
        //Полуим данные из ячеек
        КодТовара=СокрЛП(Excel.Cells(а,НомерКолонкиАртикулаТовара).Value);
        НаименованиеТовара=СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияТовара).Value);
        ПолнНаименование=СокрЛП(Excel.Cells(а,НомерКолонкиПолнНаименованияТовара).Value);
        НаименованиеПоставшика=СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияПоставщика).Value);
        Цена= Число(Excel.Cells(а,НомерКолонкиЦеныТовара).Value);
        
        Товар = СоздатьОбъект("Справочник.Номенклатура");
        РодительТовара = СоздатьОбъект("Справочник.Номенклатура");
                
                Если ПустоеЗначение(НаименованиеПоставщика)=0) Тогда

                Если (РодительТовара.НайтиПоНаиенованию(НаименованиеПоставщика)=0) Тогда
                       РодительТовара.НоваяГруппа();
                       РодительТовара.Наименование = НаименованиеПоставщика;
                       РодительТовара.Записать();
                КонецЕсли;
                       Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш
ика,РодительТовара.ТекущийЭлемент());
                Иначе
                       Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш
ика,НаименованиеПоставщика);
        КонецЕсли;


Ну может так будет работать.
akella,
24.11.11, 15:09 Допоможіть в картку товару внести Виробника(країну)
Цитата(ketrih @ 24.11.11, 11:21) *
Потрібно шоб в розходній накладній була країна-виробник тому,що товар однаковий а різниця тільки в країнах ...та булоб мені легше...а можливо є інший варіант?


Вам действительно надо помочь или просто развлекаетесь ? Если надо, то ж напишите более менее подробнее зачем и в чем ?
ketrih,
24.11.11, 15:07 Каталоги справочника.
Ну если все срабатывает и запинка только в этом месте, тогда попробуйте так:

    иначеЕсли ИндГруппы=0 тогда
                ТоварГр=СоздатьОбъект("Справочник.Номенклатура");
                ТоварГр.НоваяГруппа();
                ТоварГр.Наименование=НаименованиеПоставшика;
                ТоварГр.Записать();
                Товар.Родитель=ТоварГр;
                Записать(Товар,КодТовара,НаименованиеТовара,ПолнНаименование,Цена,НаименованиеПоставш
ика);

    КонецЕсли;


Но повторюсь - подозрительно, что все нормально срабатывает.
akella,
24.11.11, 14:46 Каталоги справочника.
А вот на эту строку - Товар.Родитель=НаименованиеПоставшика; - Ваша обработка ничего вульгарного не пишет ? Товар.Родитель - это тоже объект ("Справочник.Номенклатура"), а Вы его строкой хотите сделать. Да и вообще, как то странно написана обработка. Может фрагмент xls файла покажите ?
akella,
24.11.11, 11:37 Как поменять единицу измерения в расходках?
В печатной форме идет пересчет ящиков в кг. Кво*Коэффициент. Надо и в запросе это учесть. Сейчас найду Ваш запрос и попробую изобразить.

Есть два варианта - изменить запррос:
 |Коэф = Документ.ПриходнаяНакладная.Коэффициент, Документ.РасходнаяНакладная.Коэффициент, Документ.ВозвратнаяНакладная.Коэффициент, Документ.ВозвратПоставщику.Коэффициент, Документ.Перемещение.Коэффициент;
|Кол = Документ.ПриходнаяНакладная.Кво, Документ.РасходнаяНакладная.Кво, Документ.ВозвратнаяНакладная.Кво, Документ.ВозвратПоставщику.Кво, Документ.Перемещение.Кво;
|Функция Колво = Сумма(Кол*Коэф);


или добавить в запрос переменную коэффициента, а когда в ДБФ записывается количество умножить его на этот коэффициент.

 |Коэф = Документ.ПриходнаяНакладная.Коэффициент, Документ.РасходнаяНакладная.Коэффициент, Документ.ВозвратнаяНакладная.Коэффициент, Документ.ВозвратПоставщику.Коэффициент, 

Процедура Заполнить(ДБ,ТМЦ)
...
Если Запрос.УникальныйКод.Вид() = "Перемещение" Тогда
        ДБ.KOL_VO = Запрос.Колво*Запрос.Коэф;
    ИначеЕсли Запрос.Цена + Запрос.Колво = 0 Тогда
        ДБ.УстановитьЗначениеПоля("PRICE_1C",Запрос.Сумма);
        ДБ.УстановитьЗначениеПоля("KOL_VO",1);
    ИначеЕсли Запрос.Цена = 0 Тогда
        ДБ.PRICE_1C = Запрос.Сумма/Запрос.Колво;
        ДБ.KOL_VO = Запрос.Колво*Запрос.Коэф;
    ИначеЕсли Запрос.Колво = 0 Тогда
        ДБ.PRICE_1C = Запрос.Цена;
        ДБ.KOL_VO = 1;
    Иначе
        ДБ.УстановитьЗначениеПоля("PRICE_1C",Запрос.Цена);
        ДБ.УстановитьЗначениеПоля("KOL_VO",Запрос.Колво*Запрос.Коэф);
    КонецЕсли;
Pendalf, Домовик,
23.11.11, 15:03 Как поменять единицу измерения в расходках?
В конфигураторе откройте форму документа расходная накладная, найдите в табличной части колонку в которой отображаются килограммы и идентификатор этой колонки и будет нужным реквизитом. Но мне кажется - он и должен был бы быть Кво, так как ящики - это тара. Но может у Вас по другому. Я не знаю как сюда картинку вставить, но Вы и так справитесь-правой кнопкой на Документе расходнаянакладная (в дереве документов конфигурации )=редактировать форму, и ищите колонку в которой у Вас кг. На ней два раза и в окошке свойств поле идентификатор и есьт реквизит который указан в запросе как : Документ.Расходнаяакладная.Кво.
Pendalf,
23.11.11, 11:26 Как поменять единицу измерения в расходках?
Колво = Документ.ПриходнаяНакладная.Кво, Документ.РасходнаяНакладная.Кво, Документ.ВозвратнаяНакладная.Кво, Документ.ВозвратПоставщику.Кво, Документ.Перемещение.Кво;
Вот то ,что попадает в количество. Посмотрите, какой реквизит в выше указанных документах кг.,а который ящики и замените в запросе.
Pendalf,
28.10.11, 12:18 Выборка в запросе
Они много чего говорят, не обязательно их слушать. А случай действительно тот. Если это ПУБ, то там и движения по регистрам должны быть.
wmatik,
28.10.11, 10:48 Выборка в запросе
Таким запросом как делаете Вы будет тяжело получить нужные данные. Субконто3 как и 1 и 2 - неопределенного типа. Ваш запрос должен был бы выглядеть примерно так :
ДокРасх = Документ.БанковскаяВыписка.Субконто3;
Контрагент = Документ.БанковскаяВыписка.Субконто3.Контрагент
ДатаОплаты = Документ.БанковскаяВыписка.ДатаДок;
СуммаОплаты = Документ.БанковскаяВыписка.СуммаСНДС
Группировка Контрагент;



Но так как Субконто3 не всегда ДокРасх , то такой запрос не получится, или делать выборку с условием, что субконто3 это Документ и уже в обходе запроса делать нужные отборки.
Можно сделать через проводки бух. Запросом. Там есть ИспользоватьСубконто() - где и будут Ваши договора. По идее это 361 счет, но там два субконто, а у Вас получается , что три.

Второй вариант проще и правильней, но хотелось бы увидеть проводки Банк.Выписки которые Вам нужны.
wmatik,
10.09.11, 22:41 Улыбнуло
Цитата(oleynik @ 05.07.11, 13:28) *
Попробуйте сделать следующее: Создайте документ в Microsoft Word и напечатайте: =rand(200,99) . Потом нажмите на Enter и удерживайте клавишу 3 секунды. Даже Microsoft не может это объяснить.

http://ru.wikipedia.org/wiki/Word
oleynik,
31.08.11, 10:59 печать сертификатов при печати расходной накладной
Цитата(gorik77 @ 31.08.11, 11:33) *
пока чистил чтоб вам отправить все подправил и не выводит пустую страницу)))) но я все равно отправил. теперь буду думать как дальше делать. в том варианте что я отправил печатает все нормально, но по дополнению к тех заданию необходимо теперь чтоб у одного ТМЦ была возможность хъранить несколько сертификатов. так как товар может быть один и тот же но от разных поставщиков, соответственно и сертификаты разные. и еще одна загвоздочка, при сохранении новой картинки периодический реквизит сертификат сохраняется на конец дня, и необходимо в ручную менять время сохранения.


Подкорректировали размер картинки, чтоб влазила на одну страницу. Периодический реквизит в семерке может быть только один в один день (вроде, там ведь только Дата и значение) . Если надо хранить для одного ТМЦ несколько путей к картинкам, то наверное придется делать подчиненный справочник этому ТМЦ с полем строка Сертификат. Таким образом их будет сколько угодно.
gorik77,
29.08.11, 9:59 Подскажите команду закрытия 1С
Цитата(l2d808 @ 29.08.11, 10:56) *
Подскажите, а как закрывать чтоб не просило подтвеждения ))) "Точно ли хотите закрыть?"


В процедуре ПриЗавершенииРаботыСистемы() найти этот вопрос и закоментировать.
l2d808,
29.08.11, 9:38 Подскажите команду закрытия 1С
ЗавершитьРаботуСистемы()
l2d808,
25.08.11, 12:41 печать сертификатов при печати расходной накладной
Сейчас покушаю и напишу что делать.

Цитата(gorik77 @ 25.08.11, 13:24) *
Все вроди как у вас красиво и правильно написано, но вот как я не пытался собрать все до кучи ничего не получалось. максимум могу из справочника создать пустую таблицу. а чтоб вывести секцию сертификаты в таблице, необходимо ее сперва создать, а в справочнике я так понимаю можно работать с таблицами только кодом. но создать секцию и еще впихнуть туда фотку никак не могу. максимум чистую таблицу показать могу (((. весь код для анализа приведен ниже. если у есть мысли по етому поводу буду рад обсудить. реально уже замучался с ними.


Создайте в форме элемента справочника таблицу (правой кнопкой мыши рядом с закладками"диалог,модуль" - добавитьТаблицу). Назовите ее "Сертификат". В ней создайте секцию и в этой секции добавте картинку, в свойтвах на закладке текст напишите как говорилось Выше. Эта таблица ни чем не отличается от любой другой

Процедура ПечатьСертификата()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сертификат");
   Таб.ВывестиСекцию("Сертификат");
   Таб.ТолькоПросмотр();
   Таб.Показать();
КонецПроцедуры


Если что-то не получается - пишите сразу.
gorik77,
22.08.11, 14:28 Итог по колонке в запросе
А не пробовали вместо
    Если (ПустоеЗначение(ВыбКод) = 0)и((Лев(СокрЛП(Запрос.КодДК),СтрДлина(СокрЛП(ВыбКод))) <> СокрЛП(ВыбКод))или(СтрДлина(СокрЛП(ВыбКод))>СтрДлина(СокрЛП(Запрос.КодДК)))) Тогда
            Продолжить;
    КонецЕсли;

добавить в запрос условие
    | Условие (КодДК = ВыбКод);

и тут наверное так
    Итог =Итог+ Запрос.Всего;




А наверное даже так :
    Итог = Итог +Запрос.СуммаЗаГод;
wmatik,
22.08.11, 10:40 Отбор в журнале документов по пользователю
Цитата(vaStar @ 22.08.11, 10:53) *
1.Вибачаюсь, що не вказав конфігурацію (перший раз все-таки пишу) - виправляюсь: типова (стандартна) "Бухгалтерский учет" для Украины.
2.Підравив тип в УстановитьОтбор - не працює!
3. Змінна "Автор" - це СправочникПользователи - вона пишеться у всіх документах.
4. Ввів новий реквізит СчетАвтор в документі Счет.
5.Записав УстановитьОтбор("СчетАвтор",Пользователь); в формі док-а Повного журналу
6. зробив декілька "свіжих" документів Счет - а відбір не працює. Всі документи так і є в Повному журналі!


Попробуйте отладчиком - может до строки УстановитьОтбор оно и не доходит. Достаточно было подправить тип.

Процедура ПриОткрытии()
    Форма.Фирма.Видимость(глИспользуетсяРазделительУчета);
    Форма.кПравоваяПоддержка.Видимость(глВидимостьПравовойПоддержки);

    Если ПустоеЗначение(Форма.Параметр)=0 Тогда
        Если ВРег(ТипЗначенияСтр(Форма.Параметр))="ДОКУМЕНТ" Тогда
            // в качестве параметра был передан документ, спозиционируемся на него
            Док = Форма.Параметр.ТекущийДокумент();
            Если Док.Выбран()>0 Тогда
                Нач=?(Док.ДатаДок<НачалоИнтервала(), Док.ДатаДок, НачалоИнтервала());
                Кон=?(КонецИнтервала()<Док.ДатаДок, Док.ДатаДок, КонецИнтервала());
                
                Если (НачалоИнтервала()<>Нач) ИЛИ (КонецИнтервала()<>Кон) Тогда
                    УстановитьИнтервал(Нач, Кон);
                КонецЕсли;              
                
                Попытка
                    АктивизироватьОбъект(Док);
                Исключение КонецПопытки;    
            КонецЕсли;
        КонецЕсли;    
    КонецЕсли;
    УстановитьОтбор("новый1",Пользователь);
КонецПроцедуры

Вот фрагмент кода из Вашей конфигурации, только отбор я вынес за условие. "Новый1" - это графа отбора с указателем на общий реквизит документов "Автор". Все работает.
Batchir,
19.08.11, 16:37 Отбор в журнале документов по пользователю
Цитата(vaStar @ 19.08.11, 17:29) *
1.Полный Журнал - имеет тип "общий".
2.Существуеет графа "Автор", куда пишется имя пользователя, кто создал документ.
3.Пробую через метод "УстановитьОтбор", чтобы отобрать документы, где указан конкретный "Автор" - но, видно, чего-то не так пишу в коде . . .

А почему бы не написать, что именно пишите в коде ?
vaStar,
19.08.11, 9:49 печать сертификатов при печати расходной накладной
Цитата(kalyamov @ 19.08.11, 10:38) *
Процедура ВывестиКартинку(ф) 
    к=СоздатьОбъект("Картинка");
    к.Загрузить("D:\IMAGE\"+СокрЛП(ТекТМЦ.ИмяФайла)+".bmp");
    ф.УстановитьКартинку(к);
КонецПроцедуры //ВывестиКартинку(ф)
Процедура ПечатьСертификата(ТекТМЦ)
   Таб = СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Сертификат");
КонецПроцедуры

Процедура Печать()
    ВыбратьСтроки();
    Пока ПолучитьСтроку()=1 Цикл
        Если ПечСертификат=1 Тогда
              ПечатьСертификата(ТМЦ);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

В справочнике ТМЦ прийдется хранить путь к картинке сертификата
gorik77,

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