Не меняеться фамилия должности в документе((

Новая тема
Показывать по 10 20 40 сообщений
"Там вот такой код
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("М-11");

ПодразделениеПолучатель = """";
Если ВидПеремещения = 0 Тогда
КорСчет = СчетЗатрат.Код;
Для СчетчикЦикла = 1 По СчетЗатрат.КоличествоСубконто() Цикл
Субконто = ПолучитьАтрибут("Субконто" + СчетчикЦикла);
Если Субконто.Вид() = "Подразделения" Тогда
ПодразделениеПолучатель = Субконто;
Прервать;
КонецЕсли;
КонецЦикла;
Иначе
ПодразделениеПолучатель = МестоХраненияПриемник;
КонецЕсли;                
ПодразделениеОтправитель = МестоХранения;


Если Проведен() = 0 Тогда
НомерПовторяемойСтроки = 16;
ТекстПредупреждения = "Для непроведенного документа графы """"Цена"""" и """"Сумма"""" не заполняются.";
Таб.ВывестиСекцию("Предупреждение");
Таб.ВывестиСекцию("Шапка");

ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Субсчет = ?(Материал.Вид() = "Материалы",Материал.СубСчет10,"43");
Если Материал.Выбран() = 1 Тогда
   МатЦенность = Материал;
Код = Материал.Код;
ЕдиницаИзмерения = Материал.ЕдиницаИзмерения;
ЕдиницаИзмеренияКод = Материал.ЕдиницаИзмерения.Код;
МатериалСумма = 0;
МатериалЦенаБезНДС = 0;
КонецЕсли;
Таб.ВывестиСекцию("Строка");
Состояние("Выведено строк: " + НомерСтроки);
КонецЦикла;

ИначеЕсли Модифицированность() = 1 Тогда
Предупреждение("Для печати документ необходимо перепровести.");
Возврат;

Иначе
НомерПовторяемойСтроки = 15;
Таб.ВывестиСекцию("Шапка");

ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если Материал.Выбран() = 1 Тогда
Субсчет = ?(Материал.Вид() = "Материалы",Материал.СубСчет10,"43");
МатЦенность = Материал;
Код = Материал.Код;
ЕдиницаИзмерения = Материал.ЕдиницаИзмерения;
ЕдиницаИзмеренияКод = Материал.ЕдиницаИзмерения.Код;
МатериалСумма = Сумма;
МатериалЦенаБезНДС = Сумма / КоличествоОтпущено;
КонецЕсли;
Таб.ВывестиСекцию("Строка");
Состояние("Выведено строк: " + НомерСтроки);
КонецЦикла;
КонецЕсли;

Таб.ВывестиСекцию("Подвал");
  Таб.Опции(0, 0, ?(Проведен() = 0, 1, 0), 0, "ОпцииПечатиМ11", "ОкноМ11");
Таб.ОбластьПечати(?(Проведен() = 0, 2, 1), 2,,);
Таб.ПовторятьПриПечатиСтроки(НомерПовторяемойСтроки, НомерПовторяемойСтроки);
Таб.ТолькоПросмотр(1);
  Таб.Показать("Требование-накладная (форма №М-11)");
КонецПроцедуры // Печать"
">  Процедура Печать()
> Таб = СоздатьОбъект("Таблица");
> Таб.ИсходнаяТаблица("М-11");
Написано ж М-11. Это в общих документах должно быть."
она там есть,но это другая она печатаеться когда вид перемещения стоит передача в производство,а когда ставишь складское перемещение таблица другая становиться!Вот сижу и думаю в чём проблема,причём брал базу домой дома всё нормуль и там и там одинаковые таблицы!
Это у тебя внешняя печатная форма. Ее надо править. Посмотри, какие внешние печ.формы зарегистрированы для этого типа документа.
Еще раз обрати внимание на наличие внешних печатных форм. Другой причины такого поведения программы пока не вижу. Особенно когда про дом расказал. Т.е. у тебя дома этой внешней формы нет и прога использует встроенную. Посмотри процедуры ПриВыбореПечатнойФормы и ПоКнопкеПечать.
"Я так понял что если и изменять то наверное вот в этом кусочке,но я чёт пока что смутно разбираюсь
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)

Если  ПустоеЗначение(НомерТекущейФормы) = 1  Тогда
НомерТекущейФормы = 1;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
КонецЕсли;

Если НомерТекущейФормы = 1  Тогда
Печать();

Иначе
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Контекст, "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");

ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
КонецЕсли;

КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// ПоКнопкеВыборПечатнойФормы()
//
// Вызывается из формул элементов диалога:
//  Кнопка "кнВыбПечать".
//
// Описание:
//  - открывает список для выбора способа печати.
//  - формирует таблицу по выбранному способу.
//
Процедура ПоКнопкеВыборПечатнойФормы()

   ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
Если ВыбНомер > 0 Тогда
НомерТекущейФормы = ВыбНомер;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
ПоКнопкеПечать();
КонецЕсли;

КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()

//__________________________________________________­___________________________
Процедура УправлениеДиалогом()

ВидимостьЭлементовДляПередачи = ?(ВидПеремещенияМПЗ.ТекущаяСтрока() = 1, 1, 0);
Форма.СчетЗатрат.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто1.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто2.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто3.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСчета.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто1.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто2.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто3.Видимость(ВидимостьЭлементовДляПередачи);
Форма.РамкаГруппыСчетСписания.Видимость(ВидимостьЭлементовДляПередачи);
Форма.МестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);
Форма.ТекстМестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);

КонецПроцедуры "
Кончай пудрить мОзги автору. Ничего он там не найдет. Править нужно ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ.
> Кончай пудрить мОзги автору. Ничего он там не найдет. Править нужно ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ.

Ха, это еще кто кому пудрит!!! Про ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ я уже два раза сказал.
Спасибо за помощь,хоть малость разобрался!Сейчас ещё погуглю малость может чё получиться!!!
Чтобы посмотреть, подключена ли внешняя форма к документу "перемещение материалов":Сервис->"регистрация внеш. печ. форм", если да, то там и имя файла указано
Читают тему
(гостей: 1)

Быстрый переход