Не меняеться фамилия должности в документе((
22.12.2008
12:03
#11
"Там вот такой код
Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("М-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");
ПодразделениеПолучатель = """";
Если ВидПеремещения = 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)");
КонецПроцедуры // Печать"
22.12.2008
12:25
#12
"> Процедура Печать()
> Таб = СоздатьОбъект("Таблица");
> Таб.ИсходнаяТаблица("М-11");
Написано ж М-11. Это в общих документах должно быть."
> Таб = СоздатьОбъект("Таблица");
> Таб.ИсходнаяТаблица("М-11");
Написано ж М-11. Это в общих документах должно быть."
22.12.2008
12:30
#13
она там есть,но это другая она печатаеться когда вид перемещения стоит передача в производство,а когда ставишь складское перемещение таблица другая становиться!Вот сижу и думаю в чём проблема,причём брал базу домой дома всё нормуль и там и там одинаковые таблицы!
22.12.2008
13:07
#14
Это у тебя внешняя печатная форма. Ее надо править. Посмотри, какие внешние печ.формы зарегистрированы для этого типа документа.
22.12.2008
13:13
#15
Еще раз обрати внимание на наличие внешних печатных форм. Другой причины такого поведения программы пока не вижу. Особенно когда про дом расказал. Т.е. у тебя дома этой внешней формы нет и прога использует встроенную. Посмотри процедуры ПриВыбореПечатнойФормы и ПоКнопкеПечать.
22.12.2008
13:51
#16
"Я так понял что если и изменять то наверное вот в этом кусочке,но я чёт пока что смутно разбираюсь
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)
Если ПустоеЗначение(НомерТекущейФормы) = 1 Тогда
НомерТекущейФормы = 1;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
КонецЕсли;
Если НомерТекущейФормы = 1 Тогда
Печать();
Иначе
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Контекст, "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");
ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
КонецЕсли;
КонецПроцедуры // ПоКнопкеПечать()
//******************************************************************************
// ПоКнопкеВыборПечатнойФормы()
//
// Вызывается из формул элементов диалога:
// Кнопка "кнВыбПечать".
//
// Описание:
// - открывает список для выбора способа печати.
// - формирует таблицу по выбранному способу.
//
Процедура ПоКнопкеВыборПечатнойФормы()
ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
Если ВыбНомер > 0 Тогда
НомерТекущейФормы = ВыбНомер;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
ПоКнопкеПечать();
КонецЕсли;
КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()
//__________________________________________________ ___________________________
Процедура УправлениеДиалогом()
ВидимостьЭлементовДляПередачи = ?(ВидПеремещенияМПЗ.ТекущаяСтрока() = 1, 1, 0);
Форма.СчетЗатрат.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто1.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто2.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто3.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСчета.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто1.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто2.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто3.Видимость(ВидимостьЭлементовДляПередачи);
Форма.РамкаГруппыСчетСписания.Видимость(ВидимостьЭлементовДляПередачи);
Форма.МестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);
Форма.ТекстМестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);
КонецПроцедуры "
Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)
Если ПустоеЗначение(НомерТекущейФормы) = 1 Тогда
НомерТекущейФормы = 1;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
КонецЕсли;
Если НомерТекущейФормы = 1 Тогда
Печать();
Иначе
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Контекст, "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");
ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
КонецЕсли;
КонецПроцедуры // ПоКнопкеПечать()
//******************************************************************************
// ПоКнопкеВыборПечатнойФормы()
//
// Вызывается из формул элементов диалога:
// Кнопка "кнВыбПечать".
//
// Описание:
// - открывает список для выбора способа печати.
// - формирует таблицу по выбранному способу.
//
Процедура ПоКнопкеВыборПечатнойФормы()
ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
Если ВыбНомер > 0 Тогда
НомерТекущейФормы = ВыбНомер;
Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));
ПоКнопкеПечать();
КонецЕсли;
КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()
//__________________________________________________
Процедура УправлениеДиалогом()
ВидимостьЭлементовДляПередачи = ?(ВидПеремещенияМПЗ.ТекущаяСтрока() = 1, 1, 0);
Форма.СчетЗатрат.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто1.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто2.Видимость(ВидимостьЭлементовДляПередачи);
Форма.Субконто3.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСчета.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто1.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто2.Видимость(ВидимостьЭлементовДляПередачи);
Форма.ТекстСубконто3.Видимость(ВидимостьЭлементовДляПередачи);
Форма.РамкаГруппыСчетСписания.Видимость(ВидимостьЭлементовДляПередачи);
Форма.МестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);
Форма.ТекстМестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);
КонецПроцедуры "
22.12.2008
14:01
#17
Кончай пудрить мОзги автору. Ничего он там не найдет. Править нужно ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ.
22.12.2008
14:15
#18
> Кончай пудрить мОзги автору. Ничего он там не найдет. Править нужно ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ.
Ха, это еще кто кому пудрит!!! Про ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ я уже два раза сказал.
Ха, это еще кто кому пудрит!!! Про ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ я уже два раза сказал.
Читают тему
(гостей: 1)