7.7 ТиС для Украины Как сделать запрос?
24.06.2009
13:25
#1
Создал справочник МОЛ, в нем реквизит ФИО
Добавил этот реквизит в справочник номенклатура
Подскажите, как сделать запрос что бы в печатной форме напротив товара печаталось значение ФИО
Добавил этот реквизит в справочник номенклатура
Подскажите, как сделать запрос что бы в печатной форме напротив товара печаталось значение ФИО
24.06.2009
21:11
#2
> Добавил этот реквизит в справочник номенклатура
Какой реквизит, ФИО или МОЛ? Не понятна взаимосвязь справочника номенклатуры и ФИО.
Какой реквизит, ФИО или МОЛ? Не понятна взаимосвязь справочника номенклатуры и ФИО.
25.06.2009
10:25
#3
МОЛ это справочник (материально ответственные лица), ФИО это реквизит справочника МОЛ, тоесть в него записывается фамилия, имя, очество. Мне нужно при распечатке например расходной накладной что бы напротив каждого товара указывалось ФИО человека ответственного за этот товар.
25.06.2009
12:03
#4
"Так а в чем проблема? В процедуре, которая заполняет данные печ. формы, при переборе строк документа, у переменной, которая будет содержать ФИО указываешь "Номенклатура.ФИО".
Ну например,
ВыбратьСтроки()
Пока ПолучитьСтроку()=1
...
ФИО=Номенклатура.ФИО;
...
КонецЦикла;"
Ну например,
ВыбратьСтроки()
Пока ПолучитьСтроку()=1
...
ФИО=Номенклатура.ФИО;
...
КонецЦикла;"
25.06.2009
12:46
#5
Связь МОЛ и ФИО понятна. Какая взаимосвязь справочника номенклатуры и ФИО? В справочнике номенклатуры есть реквизит, в который устанавливается значение из справочника МОЛ? Или как?
25.06.2009
13:03
#7
теперь бы код процедуры вывода на печать накладной увидеть и тогда можно уже посоветовать конкретное решение.
25.06.2009
13:38
#8
зачем код?
мне нужно правильно сформировать запрос из справочника МОЛ по конкретному товару, либо в модуле либо сразу в печатной форме, только вот я не могу въехать как это сделать
мне нужно правильно сформировать запрос из справочника МОЛ по конкретному товару, либо в модуле либо сразу в печатной форме, только вот я не могу въехать как это сделать
25.06.2009
13:40
#9
"Процедура СчётВходящийБезРеквизитов()
Таб = СоздатьОбъект("Таблица");
ВП = Валюта;
КурсПечати = Курс;
ДатаКурса = Дата_Курса;
Если ПустоеЗначение(Контрагент) = 0 Тогда
Если Контрагент.ВидКонтрагента <> Перечисление.ВидыКонтрагентов.Нерезидент Тогда
Если ТипУчета > 0 Тогда
ВП = Гривня;
КурсПечати = глКурсДляВалюты(ВП,ДатаДок);
ДатаКурса = ДатаДок;
КонецЕсли;
КонецЕсли;
КонецЕсли;
ПечФорма = "СчётВходящийБезРеквизитов";
Язык = глЯзык(ПечФорма);
Таб.ИсходнаяТаблица(ПечФорма);
глУстПропись(Валюта,Язык);
Фирма.ИспользоватьДату(ДатаДок,1);
Таб.ВывестиСекцию("Шапка");
Ном = 1;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
ИмяФайла=(Товар.Код);
ИмяКаталога = ("E:\1с\Склад\foto\small\");
Если ФС.СуществуетФайл(ИмяКаталога + ИмяФайла + ".jpg")=0 Тогда
Фото="""";
Иначе;
Фото="+";
КонецЕсли;
ПечЦена = глФРМ(глПересчет(ЦенаБезНДС,Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечСумма = глФРМ(глПересчет(СуммаБезНДС,Валюта,Курс,ВП,ДатаДок),ВП,0);
Таб.ВывестиСекцию("Строка");
Ном = Ном+1;
КонецЦикла;
ПечБезНДС = глФРМ(глПересчет(Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечНДС = глФРМ(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечСНДС = глФРМ(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечНДСПропись = " "+Формат(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),"Ч12.2")+" "+ВП.Кратко;
ПечСНДСПропись = глСуммаПрописью(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП);
Таб.ТолькоПросмотр(1);
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.Опции(0,0,,);
Таб.Показать("ПЕЧАТЬ: Счёт входящий","""");
КонецПроцедуры"
Таб = СоздатьОбъект("Таблица");
ВП = Валюта;
КурсПечати = Курс;
ДатаКурса = Дата_Курса;
Если ПустоеЗначение(Контрагент) = 0 Тогда
Если Контрагент.ВидКонтрагента <> Перечисление.ВидыКонтрагентов.Нерезидент Тогда
Если ТипУчета > 0 Тогда
ВП = Гривня;
КурсПечати = глКурсДляВалюты(ВП,ДатаДок);
ДатаКурса = ДатаДок;
КонецЕсли;
КонецЕсли;
КонецЕсли;
ПечФорма = "СчётВходящийБезРеквизитов";
Язык = глЯзык(ПечФорма);
Таб.ИсходнаяТаблица(ПечФорма);
глУстПропись(Валюта,Язык);
Фирма.ИспользоватьДату(ДатаДок,1);
Таб.ВывестиСекцию("Шапка");
Ном = 1;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
ИмяФайла=(Товар.Код);
ИмяКаталога = ("E:\1с\Склад\foto\small\");
Если ФС.СуществуетФайл(ИмяКаталога + ИмяФайла + ".jpg")=0 Тогда
Фото="""";
Иначе;
Фото="+";
КонецЕсли;
ПечЦена = глФРМ(глПересчет(ЦенаБезНДС,Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечСумма = глФРМ(глПересчет(СуммаБезНДС,Валюта,Курс,ВП,ДатаДок),ВП,0);
Таб.ВывестиСекцию("Строка");
Ном = Ном+1;
КонецЦикла;
ПечБезНДС = глФРМ(глПересчет(Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечНДС = глФРМ(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечСНДС = глФРМ(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0);
ПечНДСПропись = " "+Формат(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),"Ч12.2")+" "+ВП.Кратко;
ПечСНДСПропись = глСуммаПрописью(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП);
Таб.ТолькоПросмотр(1);
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.Опции(0,0,,);
Таб.Показать("ПЕЧАТЬ: Счёт входящий","""");
КонецПроцедуры"
Читают тему
(гостей: 1)