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

Хранилище

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

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



2 страниц V   1 2 >

>  Отчет по продажам
Астахов
Отправлено: 05.05.15, 18:00


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Конфигурация "Торговля и склад" (7.70.010). При формировании приходной накладной формирует партию товара,потом потребовалось переоценить товар но документа переоценки нет ,начали менять в карточке товара и соответственно в партию новая цена не попала,продает по правильным ценам (ну берёт цены с карточки товара) а отчет по продажам берёт цену из партии товара (в общем бред полнейший) нужно сделать так что бы отчет брал цену из карточки товара . Прошу звонить в скайп(astahovsergey2) в любое время ,по результату отблагодарю!


 ! 

Правила, п.3
Для предложения работ есть свой раздел
 
  Форум: Разовые работы / удаленка · Просмотр сообщения: #98713 · Ответов: 0 · Просмотров: 1308
 

>  Задача "скобки"
Астахов
Отправлено: 21.03.15, 12:24


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Ребят помогите решить задачу))
вот сама задача:
1. Скобки
Составить обработку, которая проверяет корректность баланса скобок в арифметическом выражении, т.е.
что скобки установлены верно и правильно их вхождение, то есть если скобки так расположены [({})] , то это правильное вхождение, а вот [([) - неверное.
Входной параметр - Строка - арифметическое выражение;
Выходной параметр - "Верно"\"Не верно".
Использовать метод "Вычислить" нельзя

Вот как я решал!Но почему то не работает и ошибки нет
&НаКлиенте
Процедура ПроверитьСкобки(Команда)
    стр = объект.Выражение;
    ТекстОшибки = "";
    ПозицияОшибки=0;
    СкобкиРасставленыКорректно(Стр, ТекстОшибки , ПозицияОшибки);
    КонецПроцедуры


&НаКлиенте
Функция СкобкиРасставленыКорректно(Стр, ТекстОшибки = "", ПозицияОшибки=0)
    Перем к, с, ч, Стек;
    
    ч=0;
    Стек = "";
    
    Для к = 1 По СтрДлина(Стр) Цикл
        с = Сред(Стр, к, 1);
        ч = Найти("({[", с);
        Если ч > 0 Тогда
            Стек = Сред(")}]", ч, 1) + Стек;
        ИначеЕсли Найти(")}]", с) > 0  Тогда
            Если Стек = "" Тогда
                ПозицияОшибки = к;
                ТекстОшибки = "Неверная закрывающая скобка: " + Лев(Стр, к - 1) + " """ + Сред(Стр, к, 1) + """ " + Сред(Стр, к + 1);
                Возврат Ложь;
            КонецЕсли;
            Ожидается = Лев(Стек, 1);
            Если Ожидается <> с Тогда  
                ПозицияОшибки = к;
                ТекстОшибки = "Неверная закрывающая скобка: " + Лев(Стр, к - 1) + " """ + Сред(Стр, к, 1) + """ " + Сред(Стр, к + 1) + ". Ожидается """ + Ожидается + """ ";
                Возврат Ложь;
            КонецЕсли;
            Стек = Сред(Стек, 2);
        КонецЕсли;
    КонецЦикла;
    Если СтрДлина(Стек) > 0 Тогда
        ПозицияОшибки = СтрДлина(Стр) + 1;
        ТекстОшибки = "Отсутствует закрывающие скобки: " + Стек;
        Возврат Ложь;
    КонецЕсли;
    
    ПозицияОшибки = 0;
    ТекстОшибки = "Правильно";
    Возврат Истина;
    
КонецФункции
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #97368 · Ответов: 6 · Просмотров: 5669
 

>  Учетная цена при проведении
Астахов
Отправлено: 09.03.15, 17:29


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Правильный ответ
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    СуммаСНДС=Расход.Итог("СуммаСНДС");
    Для каждого ТекСтрокаРасход из Расход цикл
        ТекСтрокаРасход.УчЦена = ПолучитьУчЦену(ТекСтрокаРасход.ТМЦ,Дата,Склад);
        ТекСтрокаРасход.УчСумма = ТекСтрокаРасход.УчЦена * ТекСтрокаРасход.Количество;
    КонецЦикла;    
КонецПроцедуры

Функция ПолучитьУчЦену(тмц,дата,склад)
    Запрос = Новый Запрос;
    Запрос.Текст ="ВЫБРАТЬ
    |    ТМЦОстатки.ТМЦ,
    |    ТМЦОстатки.Склад,
    |    ТМЦОстатки.КоличествоОстаток,
    |    ТМЦОстатки.СуммаОстаток
    |ИЗ
    |    РегистрНакопления.ТМЦ.Остатки(
    |            &Дата,
    |            Склад = &Склад
    |                И ТМЦ = &ТМЦ) КАК ТМЦОстатки";    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ТМЦ", ТМЦ);
    Запрос.УстановитьПараметр("Склад",Склад);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    Выборка = РезультатЗапроса.Выбрать();
    
    Если Выборка.Следующий() Тогда
        УчЦена = Выборка.СуммаОстаток/Выборка.КоличествоОстаток;
        Возврат    УчЦена;
    КонецЕсли;    
КонецФункции
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #97001 · Ответов: 1 · Просмотров: 1695
 

>  При изменении ТМЦ заполняеться счет учета ТМЦ
Астахов
Отправлено: 09.03.15, 12:12


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Решено
&НаКлиенте
Процедура ПриходТМЦПриИзменении(Элемент)
стр = элементы.Приход.ТекущиеДанные;
стр.СчетУчетаТМЦ = ПолучитьСчетУчетаСервер(Стр.ТМЦ);
КонецПроцедуры

&НаСервере
Функция ПолучитьСчетУчетаСервер (ТМЦ)
Возврат Справочники.ТМЦ.НайтиПоНаименованию(ТМЦ).ВидТМЦ.СчетУчета;
КонецФункции
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96993 · Ответов: 1 · Просмотров: 1793
 

>  Учетная цена при проведении
Астахов
Отправлено: 08.03.15, 12:52


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


конфигурация учебная
в расходной накладной сделал что бы уч цена (формула остатокСумма / остатокКоличество) рассчитывалась в модуле формы мне сказали что это не правильно нужно обязательно при проведении вот я не пойму как это реализовать
в модуле формы у меня был вот такой запрос
&НаКлиенте
Процедура РасходТМЦПриИзменении(Элемент)
    стр = Элементы.Расход.ТекущиеДанные;
    стр.Цена = ПолучитьЦену.ПолучитьЦену(стр.ТМЦ,объект.Дата);
    стр.УчЦена = ПолучитьУчЦену(стр.ТМЦ,объект.Дата,объект.Склад);
    РаботаСдокументами.РассчитатьУчСумму(стр);
    РаботаСдокументами.РассчитатьСумму(стр);
    РаботаСдокументами.РассчитатьСуммуСНДС(стр,объект);
КонецПроцедуры

&НаСервере
Функция ПолучитьУчЦену(тмц,дата,склад)
    Запрос = Новый Запрос;
    Запрос.Текст ="ВЫБРАТЬ
    |    ТМЦОстатки.ТМЦ,
    |    ТМЦОстатки.Склад,
    |    ТМЦОстатки.КоличествоОстаток,
    |    ТМЦОстатки.СуммаОстаток
    |ИЗ
    |    РегистрНакопления.ТМЦ.Остатки(
    |            &Дата,
    |            Склад = &Склад
    |                И ТМЦ = &ТМЦ) КАК ТМЦОстатки";    
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ТМЦ", ТМЦ);
    Запрос.УстановитьПараметр("Склад",Склад);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    Выборка = РезультатЗапроса.Выбрать();
    
    Если Выборка.Следующий() Тогда
        УчЦена = Выборка.СуммаОстаток/Выборка.КоличествоОстаток;
        Возврат    УчЦена;
    КонецЕсли;    
КонецФункции

Кто может подсказать как это сделать при проведении расходной накладной?
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96984 · Ответов: 1 · Просмотров: 1695
 

>  При изменении ТМЦ заполняеться счет учета ТМЦ
Астахов
Отправлено: 08.03.15, 12:48


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


конфигурация учебная
нужно сделать что бы при заполнении тмц в табличной части, счет учета (который тоже в табл ч.) заполнился автоматически счетом в моём случает 28 (товары)
в справочнике тмц есть поле вид тмц и в поле вид тмц, счет учета
так вот в модуле формы
тмц при изменении пишу
&НаКлиенте
Процедура ПриходТМЦПриИзменении(Элемент)
    стр = элементы.Приход.ТекущиеДанные;
    стр.СчетУчетаТМЦ = стр.ТМЦ.ВидТМЦ.СчетУчета;
КонецПроцедуры

Но мне почему то выдаёт ошибку "поле объекту не виявленно "ВидТМЦ"
не пойму что я не так сделал
есть у кого советы?
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96983 · Ответов: 1 · Просмотров: 1793
 

>  Зависает 1С при попытке зайти в конструктор движений
Астахов
Отправлено: 06.03.15, 12:02


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


скиньте БД пожалуйсто
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96936 · Ответов: 10 · Просмотров: 5929
 

>  Условия Списания Партии
Астахов
Отправлено: 05.03.15, 22:21


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Нужно сделать условия на метод списания партий есть константа методСписанияПартий тип перечисления.перечисление\ЛИФО\вручную
так вот нужно сделать так что бы при выборе метода списание в запросе ниже менялось УПОРЯДОЧИТЬ ПО Остатки.Партия.Ссылка УБЫВ менялось на ВОЗР
вот сам запрос
ВЫБРАТЬ
                   |    РасходнаяНакладнаяРасход.ТМЦ,
                   |    СУММА(РасходнаяНакладнаяРасход.Количество) КАК Количество,
                   |    МИНИМУМ(РасходнаяНакладнаяРасход.НомерСтроки) КАК НомерСтроки
                   |ПОМЕСТИТЬ ДокТЧ
                   |ИЗ
                   |    Документ.РасходнаяНакладная.Расход КАК РасходнаяНакладнаяРасход
                   |ГДЕ
                   |    РасходнаяНакладнаяРасход.Ссылка = &Ссылка
                   |
                   |СГРУППИРОВАТЬ ПО
                   |    РасходнаяНакладнаяРасход.ТМЦ
                   |;
                   |
                   |////////////////////////////////////////////////////////////////////////////////
                   |ВЫБРАТЬ
                   |    ДокТЧ.ТМЦ КАК ТМЦ,
                   |    ДокТЧ.Количество КАК Количество,
                   |    Остатки.Партия,
                   |    ЕСТЬNULL(Остатки.КоличествоОстаток, 0) КАК КоличествоОстаток,
                   |    ЕСТЬNULL(Остатки.СуммаОстаток, 0) КАК СуммаОстаток,
                   |    ЕСТЬNULL(ОстаткиСКЛ.КоличествоОстаток, 0) КАК ОстатокНаСкладе,
                   |    ДокТЧ.НомерСтроки
                   |ИЗ
                   |    ДокТЧ КАК ДокТЧ
                   |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТМЦ.Остатки(
                   |                &МоментВремени,
                   |                ТМЦ В
                   |                    (ВЫБРАТЬ
                   |                        ДокТЧ.ТМЦ
                   |                    ИЗ
                   |                        ДокТЧ КАК ДокТЧ)) КАК Остатки
                   |        ПО ДокТЧ.ТМЦ = Остатки.ТМЦ
                   |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТМЦ.Остатки(
                   |                ,
                   |                Склад = &Склад
                   |                    И ТМЦ В
                   |                        (ВЫБРАТЬ
                   |                            ДокТЧ.ТМЦ
                   |                        ИЗ
                   |                            ДокТЧ КАК ДокТЧ)) КАК ОстаткиСКЛ
                   |        ПО ДокТЧ.ТМЦ = ОстаткиСКЛ.ТМЦ
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    Остатки.Партия.Ссылка УБЫВ
                   |ИТОГИ
                   |    МИНИМУМ(Количество),
                   |    МИНИМУМ(ОстатокНаСкладе)
                   |ПО
                   |    ТМЦ"

Знаю что можно применить стрЗаменить но не получаеться реализовать
Если Константы.МетодСписанияПартий.Получить() = Перечисления.ПеречислениеСписанияПартий.ЛИФО Тогда
  СтрЗаменить(Запрос.Текст, "Остатки.Партия.Ссылка УБЫВ", "Остатки.Партия.Ссылка ВОЗР");
Кто может подсказать?
КонецЕсли;


ой ребят извините тема закрыта
кому интерестно вот полностью готовый запрос
Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    РасходнаяНакладнаяРасход.ТМЦ,
                   |    СУММА(РасходнаяНакладнаяРасход.Количество) КАК Количество,
                   |    МИНИМУМ(РасходнаяНакладнаяРасход.НомерСтроки) КАК НомерСтроки
                   |ПОМЕСТИТЬ ДокТЧ
                   |ИЗ
                   |    Документ.РасходнаяНакладная.Расход КАК РасходнаяНакладнаяРасход
                   |ГДЕ
                   |    РасходнаяНакладнаяРасход.Ссылка = &Ссылка
                   |
                   |СГРУППИРОВАТЬ ПО
                   |    РасходнаяНакладнаяРасход.ТМЦ
                   |;
                   |
                   |////////////////////////////////////////////////////////////////////////////////
                   |ВЫБРАТЬ
                   |    ДокТЧ.ТМЦ КАК ТМЦ,
                   |    ДокТЧ.Количество КАК Количество,
                   |    Остатки.Партия,
                   |    ЕСТЬNULL(Остатки.КоличествоОстаток, 0) КАК КоличествоОстаток,
                   |    ЕСТЬNULL(Остатки.СуммаОстаток, 0) КАК СуммаОстаток,
                   |    ЕСТЬNULL(ОстаткиСКЛ.КоличествоОстаток, 0) КАК ОстатокНаСкладе,
                   |    ДокТЧ.НомерСтроки
                   |ИЗ
                   |    ДокТЧ КАК ДокТЧ
                   |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТМЦ.Остатки(
                   |                &МоментВремени,
                   |                ТМЦ В
                   |                    (ВЫБРАТЬ
                   |                        ДокТЧ.ТМЦ
                   |                    ИЗ
                   |                        ДокТЧ КАК ДокТЧ)) КАК Остатки
                   |        ПО ДокТЧ.ТМЦ = Остатки.ТМЦ
                   |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТМЦ.Остатки(
                   |                ,
                   |                Склад = &Склад
                   |                    И ТМЦ В
                   |                        (ВЫБРАТЬ
                   |                            ДокТЧ.ТМЦ
                   |                        ИЗ
                   |                            ДокТЧ КАК ДокТЧ)) КАК ОстаткиСКЛ
                   |        ПО ДокТЧ.ТМЦ = ОстаткиСКЛ.ТМЦ
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    Остатки.Партия.Ссылка УБЫВ
                   |ИТОГИ
                   |    МИНИМУМ(Количество),
                   |    МИНИМУМ(ОстатокНаСкладе)
                   |ПО
                   |    ТМЦ";
    
    Запрос.УстановитьПараметр("МоментВремени", МоментВремени() );
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    Запрос.УстановитьПараметр("Склад",Склад);
    Если Константы.МетодСписанияПартий.Получить()<> Перечисления.ПеречислениеСписанияПартий.ФИФО Тогда
        Запрос.Текст = СтрЗаменить(Запрос.Текст,"Остатки.Партия.Ссылка УБЫВ","Остатки.Партия.Ссылка Возр");
    КонецЕсли;
    
    РезультатЗапроса = Запрос.Выполнить();
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96916 · Ответов: 1 · Просмотров: 1910
 

>  Зависает 1С при попытке зайти в конструктор движений
Астахов
Отправлено: 05.03.15, 18:04


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


попробуйте подели ресурсы и создай 2 отчета и посмотриТЕ что получиться


 ! 

Правила, пункт 1
 
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96913 · Ответов: 10 · Просмотров: 5929
 

>  Видимость при условии
Астахов
Отправлено: 05.03.15, 12:33


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Цитата(Petre @ 05.03.15, 12:21) *
В свойствах формы в разделе "события" необходимо определить для события "ПриСозданииНаСервере" данную процедуру.

Понял,Спасибо
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96907 · Ответов: 14 · Просмотров: 4915
 

>  Видимость при условии
Астахов
Отправлено: 05.03.15, 12:16


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Цитата(Petre @ 05.03.15, 12:12) *
Наверное, вы не обратили внимание на обработчик в моем примере: "ПриСозданииНаСервере". Это событие формы.
В вашем же варианте с клиента идет вызов сервера, потом на клиенте устанавливается видимость, которая еще раз вызывает сервер. В итоге у вас два лишних вызова сервера.

Нет,я прописал полностью вашу процедуру а точнее скопировал ,и вот только что перепроверил
не знаю в чем проблема но процедура не ругаеться но и не работает
В любом случае ВАМ огромное спасибо
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96905 · Ответов: 14 · Просмотров: 4915
 

>  Видимость при условии
Астахов
Отправлено: 05.03.15, 11:39


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Цитата(Petre @ 05.03.15, 11:26) *
Это весь код. В смысле, вместо двух ваших процедур используйте то, что я написал.

Огромное списибо))
код так не роботает как вы написали
нужно всеравно через клиент
вот как
&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПриОткрытииНаСервере();
КонецПроцедуры

&НаСервере
Процедура ПриОткрытииНаСервере()
    Элементы.РасходПартия.Видимость = Константы.МетодСписанияПартий.Получить() = Перечисления.ПеречислениеСписанияПартий.Вручную;
КонецПроцедуры
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96903 · Ответов: 14 · Просмотров: 4915
 

>  Видимость при условии
Астахов
Отправлено: 05.03.15, 11:23


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Цитата(Petre @ 05.03.15, 11:20) *
Чтобы по несколько раз не вызывать сервер, делаете все это в обработчике события "ПриСозданииНаСервере".
Что еще не понятно по коду?

Извините ,что бы мне понятнее было можете скинуть мне полностью готовый код и на клиенте и на сервере
я запутался совсем
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96901 · Ответов: 14 · Просмотров: 4915
 

>  Видимость при условии
Астахов
Отправлено: 05.03.15, 11:10


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863



 ! 

Правила, пункт 1!!!
 


Цитата(Petre @ 05.03.15, 10:32) *
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Элементы.РасходПартия.Видимость = Константы.МетодСписанияПартий.Получить() = Перечисления.ПеречислениеСписанияПартий.Вручную;
КонецПроцедуры

извините я не понял ваш код
можете обьяснить пожалуйсто
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96897 · Ответов: 14 · Просмотров: 4915
 

>  Видимость при условии
Астахов
Отправлено: 05.03.15, 10:19


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Цитата(Petre @ 05.03.15, 9:32) *
Вы можете детально пояснить? Что не получается? Какой текст ошибки? Что видно по отладчику?

Извините ,реально вчера какуето ахинею написал
вотт более реальный код но опять же он роботает на половину
при любом перечислении партию не видно
&НаКлиенте
Процедура ПриОткрытии(Отказ)
    Если    ПриОткрытииНаСервере() = 1  Тогда
        Элементы.РасходПартия.Видимость=Истина;
    Иначе
        Элементы.РасходПартия.Видимость=Ложь;
        КонецЕсли;
КонецПроцедуры

&НаСервере
Функция ПриОткрытииНаСервере()
    Константы.МетодСписанияПартий.Получить();
    Если Константы.МетодСписанияПартий = Перечисления.ПеречислениеСписанияПартий.Вручную тогда
        Возврат 1;    
    Иначе
        Возврат 2;
        КонецЕсли;
КонецФункции
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96895 · Ответов: 14 · Просмотров: 4915
 

>  Видимость при условии
Астахов
Отправлено: 04.03.15, 23:15


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Проблема такая
есть константа "МетодСписанияПартий" тип перечисления.ПеречисленияСписанияПартий
в перечислении след. значения - ФИФО , ЛИФО , Вручную
и есть документ.расходная накладная с полем в табл.ч. Партия
Вот нужно зделать так что бы при выборе константы ФИФО ИЛИ ЛИФО партия ставала невидимой
я вот пробывал вот такой код но нечего не получаеться
&НаСервере
Процедура ПриОткрытии(Отказ)                      
    Константы.МетотСписанияПартий.Получить();
    Константы.МетотСписанияПартий.ФИФО = Перечисления.ПеречислениеСписанияПартий.ФИФО;
    Константы.МетотСписанияПартий.ЛИФО = Перечисления.ПеречислениеСписанияПартий.ЛИФО;
    Если Перечисления.ПеречислениеСписанияПартий.ЛИФО И Перечисления.ПеречислениеСписанияПартий.ФИФО Тогда
        Элементы.РасходПартия.Видимость = ложь;
    Иначе
        Элементы.РасходПартия.Видимость = Истина;
        КонецЕсли;
    
КонецПроцедуры



 ! 

Выделяйте код без дублирования тегов!
И не надо дубировать темы.
 
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96877 · Ответов: 14 · Просмотров: 4915
 

>  партионный учет
Астахов
Отправлено: 03.03.15, 19:52


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Цитата(logist @ 03.03.15, 18:35) *
В чем конкретно проблема? Создается некая форма для выбора партий, затем ПриНачалеВыбора в нее передается ТМЦ по которым фильтруются партии, в этой форме выбрали партию и передаем ее в нужное поле ТЧ.

вот я не пойму как её передать в нужную форму тч
не пойму как написать в модуле
вот у меня есть справочники тмц и партии (владелец.тмц) ,в справочники партии создаються партии ,и в расходной я добавил поле партии и не пойму как реализовать что бы при выборе партии из таблицы значений она попадала в табличную часть(

Розобрался!тема закрыта
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96828 · Ответов: 2 · Просмотров: 2323
 

>  партионный учет
Астахов
Отправлено: 03.03.15, 14:34


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


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

Есть ли у кого какие мысли?
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96818 · Ответов: 2 · Просмотров: 2323
 

>  Организовать расчет ставки НДС
Астахов
Отправлено: 28.02.15, 21:50


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Ребят попробывал вот етот код и выбивает ошибку "поле объекту БезНДС не виявленно"
помогите
&НаКлиенте
Процедура ТабличнаяЧасть1НДСПриИзменении(Элемент)
    стр=Элементы.ТабличнаяЧасть1.ТекущиеДанные;
    стр.ЦенаСНДС=ПолучитьЦенаСНДС(объект.Дата,объект.БезНДС,объект.ставка0,объект.ставка20,объект.ставка7);
КонецПроцедуры

&НаСервере
Функция ПолучитьЦенаСНДС (Дата,БезНДС,ставка0,ставка20,ставка7);
        Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ПриходнаяНакладнаяТабличнаяЧасть1.Цена,
        |    ПриходнаяНакладнаяТабличнаяЧасть1.НДС,
        |    ПриходнаяНакладнаяТабличнаяЧасть1.ЦенаСНДС,
        |    НДССрезПоследних.Период,
        |    НДССрезПоследних.БезНДС,
        |    НДССрезПоследних.ставка0,
        |    НДССрезПоследних.ставка7,
        |    НДССрезПоследних.ставка20,
        |    НДССрезПоследних.безНДСС,
        |    НДССрезПоследних.ставк0,
        |    НДССрезПоследних.ставк7,
        |    НДССрезПоследних.ставк20
        |ИЗ
        |    РегистрСведений.НДС.СрезПоследних(
        |            &Дата,
        |            БезНДС = &БезНДС
        |                И ставка0 = &ставка0
        |                И ставка20 = &ставка20
        |                И ставка7 = &ставка7) КАК НДССрезПоследних,
        |    Документ.ПриходнаяНакладная.ТабличнаяЧасть1 КАК ПриходнаяНакладнаяТабличнаяЧасть1";
    
    Запрос.УстановитьПараметр("БезНДС", БезНДС);
    Запрос.УстановитьПараметр("Дата", Дата);
    Запрос.УстановитьПараметр("ставка0", ставка0);
    Запрос.УстановитьПараметр("ставка20", ставка20);
    Запрос.УстановитьПараметр("ставка7", ставка7);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
        ЦенаСНДС =ВыборкаДетальныеЗаписи.Цена*(ВыборкаДетальныеЗаписи.НДС*0.1)+ВыборкаДетальныеЗаписи.Цена;
          Возврат ЦенаСНДС;
    КонецЕсли;
    
    
КонецФункции


зделал!вот правельный код
&НаКлиенте
Процедура ТабличнаяЧасть1НДСПриИзменении(Элемент)
    стр=Элементы.ТабличнаяЧасть1.ТекущиеДанные;
    стр.ЦенаСНДС=стр.Цена*(ПолучитьЦенаСНДС(объект.Дата,стр.НДС)*0.01)+стр.Цена;
    стр.Сумма = стр.ЦенаСНДС * стр.количество;
КонецПроцедуры

&НаСервере
Функция ПолучитьЦенаСНДС (Дата, ВидНДС);
        Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    НДССрезПоследних.Ставка
        |ИЗ
        |    РегистрСведений.НДС.СрезПоследних(&Дата, ВидНДС = &ВидНДС) КАК НДССрезПоследних";
    Запрос.УстановитьПараметр("Дата",Дата);
    Запрос.УстановитьПараметр("ВидНДС",ВидНДС);
        
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
          Возврат ВыборкаДетальныеЗаписи.Ставка;
    КонецЕсли;
    
    
КонецФункции
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96700 · Ответов: 1 · Просмотров: 2096
 

>  Организовать расчет ставки НДС
Астахов
Отправлено: 28.02.15, 10:12


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


я стажер делаю задания и застрял вот на таком :
Нужно зделать в накладных что бы расчитовался НДС
Создал справочник "Виды НДС" (и переодический регистр сведений для хранения ставки НДС в %) ,потом в накладных(приходная и расходная) добавил поля ЦенаБезНДС,НДС,ЦенаСНДС, вот мне нужно зделать что бы цена с ндс розчитывалась сама при выборе НДС (безНДС,ставка 0%,ставка7%,ставка20%)
пробовал вот такой код
&НаКлиенте
Процедура ТабличнаяЧасть1НДСПриИзменении(Элемент)
    стр=Элементы.ТабличнаяЧасть1.ТекущиеДанные;
    стр.ЦенаСНДС=стр.НДС*стр.Цена+стр.цена;
КонецПроцедуры

Прошу помощи!
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96696 · Ответов: 1 · Просмотров: 2096
 

>  решение для курса $
Астахов
Отправлено: 20.02.15, 15:44


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


спасибо!
извините,забыл указать конфигурацию,Конфигурация "Торговля и склад"!
  Форум: 1С Торговля и Склад 7.7 для Украины · Просмотр сообщения: #96422 · Ответов: 5 · Просмотров: 3434
 

>  решение для курса $
Астахов
Отправлено: 19.02.15, 14:53


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Проблема такая
Постоянно приходиться переоценивать товар потому как курс доллара постоянно выше и выше
а затраты для переоценки и труда и денег значительно уходят
не могли вы что-то посоветовать как закрепить товар за курсом доллара?
потому как товар постоянно обесцениваеться
например закупили оптом зонт за 5 долларов поставили их на продажу по курсу 15 грн и они стоят 75 грн
через день доллар 20 тоесть они буду стоить теперь 100 грн
вот в этом проблема а товара очень много и магазин не один
подскажите свои решения или предложения ,всем спасибо!
  Форум: 1С Торговля и Склад 7.7 для Украины · Просмотр сообщения: #96385 · Ответов: 5 · Просмотров: 3434
 

>  Создание отчёта Топ 5 продаж по количеству,производителю
Астахов
Отправлено: 13.02.15, 13:09


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


конфигурация Торговля и склад.
Впринципе я подумал и решил что нужно делать один отчёт
структура отчёта должна быть такая;
Товар Производитель Количество
Мокасины Bartek 10
Кросовки Найк Найк 8
Кросовки Адидас Адидас 6
и так далее
естественно за определённый период

Ребят извините если плохо обясняю ,я новичок ,вторую.неделю изучаю 1с 8,3 а в 7,7 вобще 0!

Прошу строго не судить!
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #96213 · Ответов: 3 · Просмотров: 2555
 

>  Создание отчёта Топ 5 продаж по количеству,производителю
Астахов
Отправлено: 12.02.15, 22:46


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


Всем здраствуйте,я не сильно знаю 1с 7.7 но мне нужно создать отчёт по которому будет видно топ 5 продаж по количесту и еще один отчёт топ 5 продаж по производителю
в версии 8.3 я смог бы это реализовать но здесь увы нет.
Если можно полностью опишите что и как делать ,буду очень благодарен!

  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #96189 · Ответов: 3 · Просмотров: 2555
 

>  Заполнить ВидЦены из Контрагента
Астахов
Отправлено: 10.02.15, 9:55


Общительный
**

Группа: Пользователи
Сообщений: 27
Регистрация: 09.02.15
Пользователь №: 41863


спасибо огромное, ребят я щас прохожу кусу 1с и паралельно делаю задания по 1с на принятии меня на роботу,посоветуйте какую небудь литературу))
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #96104 · Ответов: 3 · Просмотров: 2126
 

2 страниц V   1 2 >

Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

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