8.х 1С УТ 10.3 ПКО

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Александр980, 23 авг 2011.

  1. TopicStarter Overlay
    Александр980
    Offline

    Александр980

    Регистрация:
    23 авг 2011
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Подскажите кто может!!! В типовой УТ, ПКО во вкладке печать поле основание остается пустым. Как сделать чтобы в ней прописывалась номенклатура которую я продаю. ПКО создаю на основании документа реализация товаров и услуг.
  2. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    14.735
    Симпатии:
    508
    Баллы:
    204
    Дописывать конфигурацию. Суть в том, чтоб при записи ПКО, в поле Основание, заполнялось номенклатурой из документа основания. Геморно короче. Если сами не разбираетесь в кодинге, лучше отдайте деньги программисту.
  3. TopicStarter Overlay
    Александр980
    Offline

    Александр980

    Регистрация:
    23 авг 2011
    Сообщения:
    2
    Симпатии:
    0
    Баллы:
    1
    Я так понимаю, нужно изменить вот здесь, где крассным выделено, на что то или еще где?
    Функция ПечатьПКО()

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

    Запрос.Текст =
    "ВЫБРАТЬ
    | Номер,
    | Дата КАК ДатаДокумента,
    | Организация КАК Орган,
    | Организация,
    | Организация КАК Руководители,
    | Подразделение.Представление КАК ПредставлениеПодразделения,
    | Подразделение КАК Подразделение,
    | Контрагент,
    | Контрагент.Представление КАК Контрагент,
    | ПринятоОт КАК ПринятоОт,
    | Основание КАК Основание,
    | Приложение КАК Приложение,
    | СуммаДокумента КАК Сумма,
    | ВалютаДокумента,
    | ВалютаДокумента.Представление КАК ВалютаПредставление,
    | СтавкаНДС
    |ИЗ
    | Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
    |
    |ГДЕ
    | ПриходныйКассовыйОрдер.Ссылка = &ТекущийДокумент";

    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();

    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПриходныйКассовыйОрдер_КО1";
    Макет = ПолучитьОбщийМакет("КО1");

    ЕстьРасчетыСКонтрагентами = УправлениеДенежнымиСредствами.ЕстьРасчетыСКонтрагентами(ВидОперации);
    ЕстьРасчетыПоКредитам = УправлениеДенежнымиСредствами.ЕстьРасчетыПоКредитам(ВидОперации);

    // Выводим шапку ПКО

    СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Орган, Шапка.ДатаДокумента);

    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "ПолноеНаименование,");
    ОбластьМакета.Параметры.СуммаРубКоп = ?(НЕ Касса.ВалютаДенежныхСредств = мВалютаРегламентированногоУчета,
    Формат(Шапка.Сумма, "ЧЦ=15; ЧДЦ=2") + " " + СокрЛП(Шапка.ВалютаДокумента), РубКоп(Шапка.Сумма));
    ОбластьМакета.Параметры.Сумма = Формат(Шапка.Сумма, "ЧЦ=15; ЧДЦ=2")
    + ?(НЕ Касса.ВалютаДенежныхСредств = мВалютаРегламентированногоУчета, " " + СокрЛП(Шапка.ВалютаДокумента), "");
    ОбластьМакета.Параметры.СуммаПрописью = ?(НЕ Касса.ВалютаДенежныхСредств = мВалютаРегламентированногоУчета,
    ОбщегоНазначения.СформироватьСуммуПрописью(Шапка.Сумма, Шапка.ВалютаДокумента), РубКопПрописью(Шапка.Сумма));
    ОбластьМакета.Параметры.ОрганизацияПоОКПО = СведенияОбОрганизации.КодПоОКПО;
    ОбластьМакета.Параметры.ДатаДокумента = Шапка.ДатаДокумента;
    ОбластьМакета.Параметры.НомерДокумента = ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка);

    КодыСчетСубсчет = ОпределитьКодыСчетСубсчет();

    ОбластьМакета.Параметры.КодДебета = КодыСчетСубсчет.Дебет;
    ОбластьМакета.Параметры.СубСчет = КодыСчетСубсчет.Кредит;

    ТабНДС=РасшифровкаПлатежа.Выгрузить();

    ТабНДС.Свернуть("СтавкаНДС","СуммаНДС");

    ТекстСуммаНДС = "";

    Для Каждого СтрокаНДС ИЗ ТабНДС цикл

    ТекстСуммаНДС = ТекстСуммаНДС + Символы.ПС + "НДС (" + ?(НЕ ЗначениеЗаполнено(СтрокаНДС.СтавкаНДС), "без налога", СтрокаНДС.СтавкаНДС) + ") " + Формат(СтрокаНДС.СуммаНДС, "ЧЦ=15;ЧДЦ=2;ЧРД=-;ЧН=0-00")+" "+Шапка.ВалютаПредставление;

    КонецЦикла;

    ТекстСуммаНДС = Сред(ТекстСуммаНДС, 2);

    ОбластьМакета.Параметры.ВТомЧисле = ТекстСуммаНДС;

    Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизации(Шапка.Руководители, КонецДня(Шапка.ДатаДокумента),);

    Бухгалтер = Руководители.ГлавныйБухгалтер;
    Кассир = Руководители.Кассир;

    ОбластьМакета.Параметры.ФИОГлавногоБухгалтера = Бухгалтер;
    ОбластьМакета.Параметры.ФИОКассира = Кассир;

    ОбластьМакета.Параметры.ПринятоОт = Шапка.ПринятоОт;
    ОбластьМакета.Параметры.Основание = Основание;
    ОбластьМакета.Параметры.Приложение = Приложение;

    ТабДокумент.Вывести(ОбластьМакета);

    Возврат ТабДокумент;

    КонецФункции // ПечатьПКО()

Поделиться этой страницей