Новая форма счета фактуры
Показывать по
10
20
40
сообщений
- 1
- 2
01.05.2012
00:20
#11
"Привожу полный код вместе с добавленными поправками к коду от #bilbo 21.01.2012# может кому еще пригодится. Не претендую на авторство, просто взял и всё собрал воедино. После этого счет-фактура 2012 не брыкается. Теперь вот думаю как авансовую счет-фактуру замутить.
Если КолСтрокГТД = 0 Тогда
// нет распределения по ГТД
// Заполним номер ГТД и Страну из Номенклатуры, если там есть...
Если ПустоеЗначение(ТекТМЦ.НомерГТД) = 0 Тогда
МнЧ.НомерГТД = СокрЛП(ТекТМЦ.НомерГТД);
КонецЕсли;
Если ПустоеЗначение(ТекТМЦ.СтранаПроисхождения) = 0 Тогда
МнЧ.СтранаН = СокрЛП(ТекТМЦ.СтранаПроисхождения);
МнЧ.СтранаК = СокрЛП(ТекТМЦ.СтранаПроисхождения.Код);
КонецЕсли;
ИначеЕсли КолСтрокГТД = 1 Тогда
РаспредГТД.ПолучитьСтрокуПоНомеру(КолСтрокГТД);
// одна строка в таблице. Товара с номером ГТД и страной в одной строке
МнЧ.НомерГТД = РаспредГТД.Номер;
МнЧ.СтранаН = РаспредГТД.Страна;
МнЧ.СтранаК = РаспредГТД.Страна.Код;
Иначе
РаспредГТД.ВыбратьСтроки();
Пока РаспредГТД.ПолучитьСтроку() = 1 Цикл
МнЧ.НоваяСтрока();
МнЧ.Номенклатура = " в т.ч.";
МнЧ.Цена = КороткийПрочерк;
МнЧ.Сумма = КороткийПрочерк;
МнЧ.СтавкаНДС = КороткийПрочерк;
МнЧ.СуммаНДС = КороткийПрочерк;
МнЧ.СуммаНП = КороткийПрочерк;
МнЧ.ВсегоСНДС = КороткийПрочерк;
МнЧ.Единица = ТекЕдиница;
МнЧ.ЕдиницаКод = ТекЕдиницаКод;
МнЧ.Количество = РаспредГТД.Колво;
МнЧ.НомерГТД = РаспредГТД.Номер;
МнЧ.СтранаН = РаспредГТД.Страна;
Если ПустоеЗначение (РаспредГТД.Страна) = 1 Тогда
МнЧ.СтранаН = " ----- ";
МнЧ.СтранаК = " ----- ";
КонецЕсли;
Если ПустоеЗначение (РаспредГТД.Страна) = 0 Тогда
МнЧ.СтранаН = РаспредГТД.Страна;
МнЧ.СтранаК = РаспредГТД.Страна.Код;
КонецЕсли;
выделено изменения внесенные в код (в первом случае это поправки к коду от #bilbo 21.01.2012#)
во вотором весь абзац ставится вместо строчки МнЧ.СтранаК = РаспредГТД.Страна.Код; типовой печатной формы от 1С, в данном коде эта строчка уже заменена.
В "Комплексной 7,7" работает"
Если КолСтрокГТД = 0 Тогда
// нет распределения по ГТД
// Заполним номер ГТД и Страну из Номенклатуры, если там есть...
Если ПустоеЗначение(ТекТМЦ.НомерГТД) = 0 Тогда
МнЧ.НомерГТД = СокрЛП(ТекТМЦ.НомерГТД);
КонецЕсли;
Если ПустоеЗначение(ТекТМЦ.СтранаПроисхождения) = 0 Тогда
МнЧ.СтранаН = СокрЛП(ТекТМЦ.СтранаПроисхождения);
МнЧ.СтранаК = СокрЛП(ТекТМЦ.СтранаПроисхождения.Код);
КонецЕсли;
ИначеЕсли КолСтрокГТД = 1 Тогда
РаспредГТД.ПолучитьСтрокуПоНомеру(КолСтрокГТД);
// одна строка в таблице. Товара с номером ГТД и страной в одной строке
МнЧ.НомерГТД = РаспредГТД.Номер;
МнЧ.СтранаН = РаспредГТД.Страна;
МнЧ.СтранаК = РаспредГТД.Страна.Код;
Иначе
РаспредГТД.ВыбратьСтроки();
Пока РаспредГТД.ПолучитьСтроку() = 1 Цикл
МнЧ.НоваяСтрока();
МнЧ.Номенклатура = " в т.ч.";
МнЧ.Цена = КороткийПрочерк;
МнЧ.Сумма = КороткийПрочерк;
МнЧ.СтавкаНДС = КороткийПрочерк;
МнЧ.СуммаНДС = КороткийПрочерк;
МнЧ.СуммаНП = КороткийПрочерк;
МнЧ.ВсегоСНДС = КороткийПрочерк;
МнЧ.Единица = ТекЕдиница;
МнЧ.ЕдиницаКод = ТекЕдиницаКод;
МнЧ.Количество = РаспредГТД.Колво;
МнЧ.НомерГТД = РаспредГТД.Номер;
МнЧ.СтранаН = РаспредГТД.Страна;
Если ПустоеЗначение (РаспредГТД.Страна) = 1 Тогда
МнЧ.СтранаН = " ----- ";
МнЧ.СтранаК = " ----- ";
КонецЕсли;
Если ПустоеЗначение (РаспредГТД.Страна) = 0 Тогда
МнЧ.СтранаН = РаспредГТД.Страна;
МнЧ.СтранаК = РаспредГТД.Страна.Код;
КонецЕсли;
выделено изменения внесенные в код (в первом случае это поправки к коду от #bilbo 21.01.2012#)
во вотором весь абзац ставится вместо строчки МнЧ.СтранаК = РаспредГТД.Страна.Код; типовой печатной формы от 1С, в данном коде эта строчка уже заменена.
В "Комплексной 7,7" работает"
15.10.2012
17:22
#13
Апну тему!
Вопрос так и остался открытым с авансвоваой с/ф: на печать выводится в графе "наименовании товара" "пердварительный платеж", а не конкретная номенклатура, не смотря на то, что в с/ф была указана ссылка на счет, по которому прошел авансовый платеж. Подскажите как справится с этой ситуацией?
Вопрос так и остался открытым с авансвоваой с/ф: на печать выводится в графе "наименовании товара" "пердварительный платеж", а не конкретная номенклатура, не смотря на то, что в с/ф была указана ссылка на счет, по которому прошел авансовый платеж. Подскажите как справится с этой ситуацией?
- 1
- 2
Читают тему
(гостей: 1)