Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

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

Жендос
читатель
офлайн
Дата регистрации: 22.12.2008
Сообщений: 9
Пост №11
 
22.12.2008 12:03

"Там вот такой код<br>Процедура Печать()<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("М-11");<br> <br> ПодразделениеПолучатель = """";<br> Если ВидПеремещения = 0 Тогда<br> КорСчет = СчетЗатрат.Код;<br> Для СчетчикЦикла = 1 По СчетЗатрат.КоличествоСубконто() Цикл <br> Субконто = ПолучитьАтрибут("Субконто" + СчетчикЦикла);<br> Если Субконто.Вид() = "Подразделения" Тогда<br> ПодразделениеПолучатель = Субконто;<br> Прервать;<br> КонецЕсли;<br> КонецЦикла;<br> Иначе<br> ПодразделениеПолучатель = МестоХраненияПриемник;<br> КонецЕсли;             <br> ПодразделениеОтправитель = МестоХранения;<br> <br><br> Если Проведен() = 0 Тогда<br> НомерПовторяемойСтроки = 16;<br> ТекстПредупреждения = "Для непроведенного документа графы """"Цена"""" и """"Сумма"""" не заполняются.";<br> Таб.ВывестиСекцию("Предупреждение");<br> Таб.ВывестиСекцию("Шапка");<br> <br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл<br> Субсчет = ?(Материал.Вид() = "Материалы",Материал.СубСчет10,"43");<br> Если Материал.Выбран() = 1 Тогда<br> МатЦенность = Материал;<br> Код = Материал.Код;<br> ЕдиницаИзмерения = Материал.ЕдиницаИзмерения;<br> ЕдиницаИзмеренияКод = Материал.ЕдиницаИзмерения.Код;<br> МатериалСумма = 0;<br> МатериалЦенаБезНДС = 0;<br> КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br> Состояние("Выведено строк: " + НомерСтроки);<br> КонецЦикла;<br> <br> ИначеЕсли Модифицированность() = 1 Тогда<br> Предупреждение("Для печати документ необходимо перепровести.");<br> Возврат;<br> <br> Иначе<br> НомерПовторяемойСтроки = 15;<br> Таб.ВывестиСекцию("Шапка");<br><br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл<br> Если Материал.Выбран() = 1 Тогда<br> Субсчет = ?(Материал.Вид() = "Материалы",Материал.СубСчет10,"43");<br> МатЦенность = Материал;<br> Код = Материал.Код;<br> ЕдиницаИзмерения = Материал.ЕдиницаИзмерения;<br> ЕдиницаИзмеренияКод = Материал.ЕдиницаИзмерения.Код;<br> МатериалСумма = Сумма;<br> МатериалЦенаБезНДС = Сумма / КоличествоОтпущено;<br> КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br> Состояние("Выведено строк: " + НомерСтроки);<br> КонецЦикла;<br> КонецЕсли;<br><br> Таб.ВывестиСекцию("Подвал");<br> Таб.Опции(0, 0, ?(Проведен() = 0, 1, 0), 0, "ОпцииПечатиМ11", "ОкноМ11");<br> Таб.ОбластьПечати(?(Проведен() = 0, 2, 1), 2,,);<br> Таб.ПовторятьПриПечатиСтроки(НомерПовторяемойСтроки, НомерПовторяемойСтроки);<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Требование-накладная (форма №М-11)");<br>КонецПроцедуры // Печать"

VVP
читатель
офлайн
Дата регистрации: 12.10.2006
Сообщений: 4950
Пост №12
 
22.12.2008 12:25

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

Жендос
читатель
офлайн
Дата регистрации: 22.12.2008
Сообщений: 9
Пост №13
 
22.12.2008 12:30

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

banzay
читатель
офлайн
Дата регистрации: 22.08.2007
Сообщений: 192
Пост №14
 
22.12.2008 13:07

Это у тебя внешняя печатная форма. Ее надо править. Посмотри, какие внешние печ.формы зарегистрированы для этого типа документа.

VVP
читатель
офлайн
Дата регистрации: 12.10.2006
Сообщений: 4950
Пост №15
 
22.12.2008 13:13

Еще раз обрати внимание на наличие внешних печатных форм. Другой причины такого поведения программы пока не вижу. Особенно когда про дом расказал. Т.е. у тебя дома этой внешней формы нет и прога использует встроенную. Посмотри процедуры ПриВыбореПечатнойФормы и ПоКнопкеПечать.

Жендос
читатель
офлайн
Дата регистрации: 22.12.2008
Сообщений: 9
Пост №16
 
22.12.2008 13:51

"Я так понял что если и изменять то наверное вот в этом кусочке,но я чёт пока что смутно разбираюсь<br>Процедура ПоКнопкеПечать(СразуНаПринтер = 0,КолЭкз = 1)<br> <br> Если ПустоеЗначение(НомерТекущейФормы) = 1 Тогда<br> НомерТекущейФормы = 1;<br> Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));<br> КонецЕсли;<br> <br> Если НомерТекущейФормы = 1 Тогда<br> Печать();<br> <br> Иначе<br> Параметры = СоздатьОбъект("СписокЗначений");<br> Параметры.ДобавитьЗначение(Контекст, "Контекст");<br> Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");<br> Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");<br> <br> ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));<br> КонецЕсли;<br> <br>КонецПроцедуры // ПоКнопкеПечать()<br><br>//******************************************************************************<br>// ПоКнопкеВыборПечатнойФормы()<br>//<br>// Вызывается из формул элементов диалога:<br>// Кнопка "кнВыбПечать".<br>//<br>// Описание:<br>// - открывает список для выбора способа печати. <br>// - формирует таблицу по выбранному способу.<br>//<br>Процедура ПоКнопкеВыборПечатнойФормы()<br> <br> ВыбНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);<br> Если ВыбНомер > 0 Тогда<br> НомерТекущейФормы = ВыбНомер;<br> Форма.кнПечать.Заголовок(ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы, "Кнопка"));<br> ПоКнопкеПечать();<br> КонецЕсли;<br><br>КонецПроцедуры // ПоКнопкеВыборПечатнойФормы()<br><br>//__________________________________________________­___________________________<br>Процедура УправлениеДиалогом()<br> <br> ВидимостьЭлементовДляПередачи = ?(ВидПеремещенияМПЗ.ТекущаяСтрока() = 1, 1, 0);<br> Форма.СчетЗатрат.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.Субконто1.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.Субконто2.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.Субконто3.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.ТекстСчета.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.ТекстСубконто1.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.ТекстСубконто2.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.ТекстСубконто3.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.РамкаГруппыСчетСписания.Видимость(ВидимостьЭлементовДляПередачи);<br> Форма.МестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);<br> Форма.ТекстМестоХраненияПриемник.Видимость(1 - ВидимостьЭлементовДляПередачи);<br> <br>КонецПроцедуры "

banzay
читатель
офлайн
Дата регистрации: 22.08.2007
Сообщений: 192
Пост №17
 
22.12.2008 14:01

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

VVP
читатель
офлайн
Дата регистрации: 12.10.2006
Сообщений: 4950
Пост №18
 
22.12.2008 14:15

> Кончай пудрить мОзги автору. Ничего он там не найдет. Править нужно ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ.<br><br>Ха, это еще кто кому пудрит!!! Про ВНЕШНЮЮ ПЕЧАТНУЮ ФОРМУ я уже два раза сказал.

Жендос
читатель
офлайн
Дата регистрации: 22.12.2008
Сообщений: 9
Пост №19
 
22.12.2008 14:17

Спасибо за помощь,хоть малость разобрался!Сейчас ещё погуглю малость может чё получиться!!!

Svetlana_E
читатель
офлайн
Дата регистрации: 30.08.2006
Сообщений: 2645
Пост №20
 
22.12.2008 14:22

Чтобы посмотреть, подключена ли внешняя форма к документу "перемещение материалов":Сервис->"регистрация внеш. печ. форм", если да, то там и имя файла указано<br>

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация