12.01.2011, 22:58
|
#1
|
Администратор
Регистрация: 25.11.2010
Сообщений: 2,348
Сказал(а) спасибо: 21
Поблагодарили 59,167 раз(а) в 2,165 сообщениях
|
1С:Предприятие для Украины (общие вопросы-ответы, обсуждения)
В этой ветке обсуждаем проблемы и вопросы связанные с работой в системе 1С для Украины. Больше ничего в этой ветке постить НЕЛЬЗЯ.
[Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
Все программные продукты на данной странице выложены в целях ознакомления и для зарегистрированных пользователей фирмы 1С. Помните, что скачанные с данной страницы программы Вы используете на свой страх и риск. Автор и администрация этого сайта данной страницы не несет никакой ответственности за использование этих программных решений третьими лицами. В случае если вас устраивает одна из перечисленных здесь программ, Вы обязаны официально приобрести ее у фирмы 1С или ее партнеров.
|
|
|
15 пользователя(ей) сказали cпасибо:
|
|
13.12.2018, 07:38
|
#6166
|
Пользователь
Регистрация: 08.04.2011
Сообщений: 78
Сказал(а) спасибо: 382
Поблагодарили 22 раз(а) в 12 сообщениях
|
Цитата:
Сообщение от kov0404
По моему , там базу надо разпаковывать на ХР винде, потом брать МД файл и устанавливать на WIN 7
|
Потому и вопрос что винда есть только 10 и 64 бт
|
|
|
Пользователь сказал cпасибо:
|
|
13.12.2018, 07:51
|
#6167
|
Пользователь
Регистрация: 26.04.2011
Сообщений: 81
Сказал(а) спасибо: 60
Поблагодарили 11 раз(а) в 11 сообщениях
|
Цитата:
Сообщение от Tisas77
Потому и вопрос что винда есть только 10 и 64 бт
|
тогда только мд использовать, а 64 или 32 по моему не влияет
|
|
|
13.12.2018, 07:53
|
#6168
|
Пользователь
Регистрация: 08.04.2011
Сообщений: 78
Сказал(а) спасибо: 382
Поблагодарили 22 раз(а) в 12 сообщениях
|
Цитата:
Сообщение от kov0404
тогда только мд использовать
|
Выложите плиз распакованное обновление для КУК и ТИС 77, или напомните способ - вроде был такой , я помню что был, а что именно делать не помню...
|
|
|
13.12.2018, 07:59
|
#6169
|
Пользователь
Регистрация: 08.04.2011
Сообщений: 78
Сказал(а) спасибо: 382
Поблагодарили 22 раз(а) в 12 сообщениях
|
Цитата:
Сообщение от Tisas77
Выложите плиз распакованное обновление для КУК и ТИС 77, или напомните способ - вроде был такой , я помню что был, а что именно делать не помню...
|
Нашла как , вдруг кому пригодиться [Ссылки доступны только зарегистрированным пользователям
. Регистрируйся тут...]
|
|
|
4 пользователя(ей) сказали cпасибо:
|
|
14.12.2018, 18:36
|
#6170
|
Новичок
Регистрация: 29.04.2014
Сообщений: 1
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
|
В обновлении по ТиС в отчете ЭкспортНалоговойНакладной ошибка в процедуре Сформировать2016
строка 1362
ПечСтавка = "";
лишняя. СтавкаНДС не выгружается.
|
|
|
15.12.2018, 20:35
|
#6171
|
Новичок
Регистрация: 06.11.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Добрый день
Дайте ссылку на БПО 2.0.5
|
|
|
02.01.2019, 00:11
|
#6172
|
Местный
Регистрация: 15.02.2012
Адрес: Україна Черкаси
Сообщений: 151
Сказал(а) спасибо: 368
Поблагодарили 16 раз(а) в 13 сообщениях
|
Бухгалтерія для України, редакція 2.0. Подскажите, пожалуйста, как лучше вести учет Малоценных необоротных активов количество больше 1, счет 1121 или 1122. Попробовали 1122. Зачем то на счет МЦ добавляет. Ведь это не 22 счет. Износ насчитывается 100%. Обликова политика организации 50% износ при вводе в эксплуатацию. Подправили вручную. При списании не досчитывает износ, опять вручную. И не можем провести инвентаризацию счета 1122. Какая то странная версия 1С Бухгалтерия ред.2
|
|
|
02.01.2019, 16:07
|
#6173
|
Новичок
Регистрация: 07.12.2018
Сообщений: 4
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Добрый день.
Помогите разодраться ! Есть задача сделать выгрузку/загрузку данных: номенклатура, наименование товаров, артикулы, цена, Поставщики, Покупатели
выгрузить из Конфигурация 2.0 "Бухгалтерия для Украины БАЗОВАЯ
загрузить в Конфигурация 1.6 "Управление небольшой фирмой для Украины"
Подскажите, как это сделать?
|
|
|
02.01.2019, 18:23
|
#6174
|
Местный
Регистрация: 30.03.2014
Сообщений: 444
Сказал(а) спасибо: 226
Поблагодарили 709 раз(а) в 124 сообщениях
|
Цитата:
Сообщение от dtai39
Добрый день.
Помогите разодраться ! Есть задача сделать выгрузку/загрузку данных: номенклатура, наименование товаров, артикулы, цена, Поставщики, Покупатели
выгрузить из Конфигурация 2.0 "Бухгалтерия для Украины БАЗОВАЯ
загрузить в Конфигурация 1.6 "Управление небольшой фирмой для Украины"
Подскажите, как это сделать?
|
Выгрузить в табличный документ и воспользоваться встроенной обработкой импорта
|
|
|
02.01.2019, 18:56
|
#6175
|
Новичок
Регистрация: 07.12.2018
Сообщений: 4
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от Kerberos
Выгрузить в табличный документ и воспользоваться встроенной обработкой импорта
|
Пробовал стандартной Выгрузка и загрузка данных XML 8.3 - ошибка при загрузке - файл не найден.
Табличный документ выгрузил: Номенклатура - еще - вывести список _сохранить как ...
Будет дилетантский вопрос: обработкой обработкой, или штатными средствами втянуть эти данные в нужную конфигурацию? Или как это сделать штатными средствами.
Я не очень понимаю, пока что , в сути работы БД в 1С. но имею "понятия" работы с БД в серверных системах.
Последний раз редактировалось dtai39; 02.01.2019 в 19:36.
|
|
|
06.01.2019, 23:10
|
#6176
|
Местный
Регистрация: 30.03.2014
Сообщений: 444
Сказал(а) спасибо: 226
Поблагодарили 709 раз(а) в 124 сообщениях
|
Цитата:
Сообщение от dtai39
Пробовал стандартной Выгрузка и загрузка данных XML 8.3 - ошибка при загрузке - файл не найден.
Табличный документ выгрузил: Номенклатура - еще - вывести список _сохранить как ...
Будет дилетантский вопрос: обработкой обработкой, или штатными средствами втянуть эти данные в нужную конфигурацию? Или как это сделать штатными средствами.
Я не очень понимаю, пока что , в сути работы БД в 1С. но имею "понятия" работы с БД в серверных системах.
|
Воспользуйтесь обработкой Загрузка данных из табличного документа. В конфигурации уже есть такая встроенная. Останется только настроить соответствие колонок реквизитам справочника\документа
|
|
|
07.01.2019, 16:28
|
#6177
|
Новичок
Регистрация: 07.12.2018
Сообщений: 4
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Цитата:
Сообщение от Kerberos
Воспользуйтесь обработкой Загрузка данных из табличного документа. В конфигурации уже есть такая встроенная. Останется только настроить соответствие колонок реквизитам справочника\документа
|
Спасибо за ответ. Это я пробовал с самого начала. Он переносит все каким-то "гамузом". Но, проблема в том, что не сохраняются каталоги и подкаталоги. В итоге 8 тыс наименований в одну кучу.
Важен момент переноса с сохранением каталогизации!
Подскажите? нуждаюсь в правке внешняя печатная форма счет для покупателя для 1С8.3 конфигурация бухгалтерия 2.0. Есть такая обработка для конфигурации бухгалтерия 1.2. - не запускается на 2,0.
как и где поправить, чтобы заработало на 2.0
Код:
Перем мВалютаРегламентированногоУчета Экспорт;
Функция СведенияОВнешнейОбработке()
ПараметрыРегистрации = Новый Структура;
МассивНазначений = Новый Массив;
МассивНазначений.Добавить("Документ.СчетНаОплатуПокупателю"); //Указываем документ к которому делаем внешнюю печ. форму
ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма"); //может быть - ПечатнаяФорма, ЗаполнениеОбъекта, ДополнительныйОтчет, СозданиеСвязанныхОбъектов...
ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
ПараметрыРегистрации.Вставить("Наименование", "Счет на оплату (шаблон)"); //имя под которым обработка будет зарегестрирована в справочнике внешних обработок
ПараметрыРегистрации.Вставить("БезопасныйРежим", ЛОЖЬ);
ПараметрыРегистрации.Вставить("Версия", "1.0");
ПараметрыРегистрации.Вставить("Информация", "Эту ВПФ мы сделали для того что бы посмотреть возможности БСП ");
ТаблицаКоманд = ПолучитьТаблицуКоманд();
ДобавитьКоманду(ТаблицаКоманд, "Счет на оплату (шаблон)", "СчетНаОпл", "ВызовСерверногоМетода", Истина, "ПечатьMXL");
ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
Возврат ПараметрыРегистрации;
КонецФункции
Функция ПолучитьТаблицуКоманд()
Команды = Новый ТаблицаЗначений;
Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));//как будет выглядеть описание печ.формы для пользователя
Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка")); //имя макета печ.формы
Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка")); //ВызовСерверногоМетода
Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
Возврат Команды;
КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
НоваяКоманда = ТаблицаКоманд.Добавить();
НоваяКоманда.Представление = Представление;
НоваяКоманда.Идентификатор = Идентификатор;
НоваяКоманда.Использование = Использование;
НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
НоваяКоманда.Модификатор = Модификатор;
КонецПроцедуры
//Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
//
//УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "СчетНаОпл", "Счет на оплату (шаблон)", СформироватьПечатнуюФорму(МассивОбъектов[0], ОбъектыПечати));
//таблдос = СформироватьПечатнуюФорму(МассивОбъектов[0], ОбъектыПечати);
//КонецПроцедуры // Печать()
Функция Печать() Экспорт
// Получить экземпляр документа на печать
//Если ИмяМакета = "Счет" Тогда
Тип = "Счет";
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
Запрос.Текст ="
|ВЫБРАТЬ
| Номер,
| Дата,
| ДоговорКонтрагента,
| ДоговорКонтрагента.Дата КАК ДоговорДата,
| ДоговорКонтрагента.Номер КАК ДоговорНомер,
| ДоговорКонтрагента.НаименованиеДляПечати КАК ДоговорНаименованиеДляПечати,
| ДоговорКонтрагента.ВидДоговора КАК ВидДоговораКонтрагента,
| Ответственный.ФизЛицо.Наименование КАК Отпустил,
| Организация,
| Контрагент КАК Покупатель,
| Организация КАК Поставщик,
| СуммаДокумента,
| ВалютаДокумента,
| УчитыватьНДС,
| СуммаВключаетНДС
|ИЗ
| Документ.СчетНаОплатуПокупателю КАК ЗаказПокупателя
|
|ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент";
Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаказПокупателя_СчетЗаказ";
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("ЗаказПокупателя");
Запрос.Текст = "ВЫБРАТЬ
| ВложенныйЗапрос.Номенклатура,
| ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,
| ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул,
| ВложенныйЗапрос.Номенклатура.Код КАК Код,
| ВложенныйЗапрос.Количество,
| ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ВложенныйЗапрос.Цена,
| ВложенныйЗапрос.СуммаБезСкидки,
| ВложенныйЗапрос.СуммаСкидки,
| ВложенныйЗапрос.Сумма,
| ВложенныйЗапрос.СуммаНДС,
| ВложенныйЗапрос.НомерСтроки КАК НомерСтроки,
| 1 КАК ID
|ИЗ
| (ВЫБРАТЬ
| ЗаказПокупателя.Номенклатура КАК Номенклатура,
| ЗаказПокупателя.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| ЗаказПокупателя.Цена КАК Цена,
| СУММА(ЗаказПокупателя.Количество) КАК Количество,
| СУММА(ЗаказПокупателя.СуммаБезСкидки) КАК СуммаБезСкидки,
| СУММА(ЗаказПокупателя.СуммаСкидки) КАК СуммаСкидки,
| СУММА(ЗаказПокупателя.Сумма) КАК Сумма,
| СУММА(ЗаказПокупателя.СуммаНДС) КАК СуммаНДС,
| МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки
| ИЗ
| Документ.СчетНаОплатуПокупателю.Товары КАК ЗаказПокупателя
|
| ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент
|
| СГРУППИРОВАТЬ ПО
| ЗаказПокупателя.Номенклатура,
| ЗаказПокупателя.ЕдиницаИзмерения,
| ЗаказПокупателя.Цена,
| ЗаказПокупателя.СтавкаНДС) КАК ВложенныйЗапрос
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
| " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
| ЗаказПокупателя.Номенклатура.Артикул КАК Артикул,
| ЗаказПокупателя.Номенклатура.Код КАК Код,
| ЗаказПокупателя.Количество,
| ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование,
| ЗаказПокупателя.Цена,
| ЗаказПокупателя.СуммаБезСкидки,
| ЗаказПокупателя.СуммаСкидки,
| ЗаказПокупателя.Сумма,
| ЗаказПокупателя.СуммаНДС,
| ЗаказПокупателя.НомерСтроки,
| 2
|ИЗ
| Документ.СчетНаОплатуПокупателю.Услуги КАК ЗаказПокупателя
|
|ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент
|
|УПОРЯДОЧИТЬ ПО
| ID,
| НомерСтроки";
ЗапросТовары = Запрос.Выполнить().Выгрузить();
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
Запрос.Текст = "ВЫБРАТЬ
| ВложенныйЗапрос.Номенклатура,
| ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,
| ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул,
| ВложенныйЗапрос.Номенклатура.Код КАК Код,
| ВложенныйЗапрос.Количество,
| ВложенныйЗапрос.ЕдиницаИзмерения,
| ВложенныйЗапрос.Цена,
| ВложенныйЗапрос.Сумма,
| ВложенныйЗапрос.НомерСтроки КАК НомерСтроки
|ИЗ
| (ВЫБРАТЬ
| ЗаказПокупателя.Номенклатура КАК Номенклатура,
| ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
| ЗаказПокупателя.Цена КАК Цена,
| СУММА(ЗаказПокупателя.Количество) КАК Количество,
| СУММА(ЗаказПокупателя.Сумма) КАК Сумма,
| МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки
| ИЗ
| Документ.СчетНаОплатуПокупателю.ВозвратнаяТара КАК ЗаказПокупателя
|
| ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент
|
| СГРУППИРОВАТЬ ПО
| ЗаказПокупателя.Номенклатура,
| ЗаказПокупателя.Цена) КАК ВложенныйЗапрос
|
|УПОРЯДОЧИТЬ ПО
| НомерСтроки";
ЗапросТара = Запрос.Выполнить().Выгрузить();
Макет = ПолучитьМакет("СчетНаОпл");
// печать производится на языке, указанном в настройках пользователя
КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм"));
Макет.КодЯзыкаМакета = КодЯзыкаПечать;
// Выводим шапку накладной
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать);
СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать);
// ОбластьМакета = Макет.ПолучитьОбласть("Логотип");
// ТабДокумент.Вывести(ОбластьМакета);
// Если Тип = "Счет" Тогда
// ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
// ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование;
// ОбластьМакета.Параметры.ЕДРПОУОрганизации = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике);
Если ТипЗнч(СсылкаНаОбъект.СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда
Банк = СсылкаНаОбъект.СтруктурнаяЕдиница.Банк;
МФО = Банк.Код;
НомерСчета = СсылкаНаОбъект.СтруктурнаяЕдиница.НомерСчета;
Иначе
// покажем банковские реквизиты основного счета организации
Банк = СведенияОПоставщике.Банк;
МФО = СведенияОПоставщике.МФО;
НомерСчета = СведенияОПоставщике.НомерСчета;
КонецЕсли;
//
// ОбластьМакета.Параметры.БанкОрганизации = Банк;
// ОбластьМакета.Параметры.МФОБанкаОрганизации = МФО;
// ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета;
// Если НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером
// И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда
// ТабДокумент.Вывести(ОбластьМакета);
// КонецЕсли;
// КонецЕсли;
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда
ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать);
Иначе
ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать);
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
ОбластьМакета.Параметры.Заполнить(Шапка);
ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);
//Если Тип = "Счет" Тогда
ОбластьМакета.Параметры.РеквизитыПоставщика = НСтр("ru='Т/с ';uk='П/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС +
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
ОбластьМакета.Параметры.ПлатитНалог = НСтр("ru='Является плательщиком налога на общих условиях';uk='Є платником податку на загальних умовах'",КодЯзыкаПечать);
//КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
ОбластьМакета.Параметры.Заполнить(Шапка);
ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);
ОбластьМакета.Параметры.РеквизитыПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
ТабДокумент.Вывести(ОбластьМакета);
// Выводим дополнительно информацию о договоре и сделке
СписокДополнительныхПараметров = "ДоговорНаименованиеДляПечати,";
МассивСтруктурСтрок = ФормированиеПечатныхФорм.ДополнительнаяИнформация(Шапка,СписокДополнительныхПараметров,КодЯзыкаПечать);
ОбластьМакета = Макет.ПолучитьОбласть("ДопИнформация");
Для каждого СтруктураСтроки Из МассивСтруктурСтрок Цикл
ОбластьМакета.Параметры.Заполнить(СтруктураСтроки);
ТабДокумент.Вывести(ОбластьМакета);
КонецЦикла;
// Вывести табличную часть
ОбластьИтого = "Итого";
ЕстьСкидки = (ЗапросТовары.Итог("СуммаСкидки") <> 0);
ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
ВыводитьКоды = Истина;
Колонка = "Артикул";
ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
ВыводитьКоды = Истина;
Колонка = "Код";
Иначе
ВыводитьКоды = Ложь;
КонецЕсли;
ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицы|НомерСтроки");
ОбластьКодов = Макет.ПолучитьОбласть("ШапкаТаблицы|КолонкаКодов");
ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицы|Данные");
ОбластьСкидка = Макет.ПолучитьОбласть("ШапкаТаблицы|Скидка");
ОбластьСуммы = Макет.ПолучитьОбласть("ШапкаТаблицы|Сумма");
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка;
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
Суффикс = "";
Если Шапка.УчитыватьНДС Тогда
Если Шапка.СуммаВключаетНДС Тогда
Суффикс = Суффикс + НСтр("ru=' с ';uk=' з '",КодЯзыкаПечать);
Иначе
Суффикс = Суффикс + НСтр("ru=' без ';uk=' без '",КодЯзыкаПечать);
КонецЕсли;
Суффикс = Суффикс + НСтр("ru='НДС';uk='ПДВ'",КодЯзыкаПечать);
КонецЕсли;
ОбластьДанных.Параметры.Цена = НСтр("ru='Цена';uk='Ціна'",КодЯзыкаПечать) + Суффикс;
ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда
ТабДокумент.Присоединить(ОбластьСкидка);
КонецЕсли;
ОбластьСуммы.Параметры.СрокПоставки = НСтр("ru=' Срок поставки, нед. ';uk=' Термін постачання, тижн.'",КодЯзыкаПечать);
ОбластьСуммы.Параметры.Сумма = НСтр("ru='Сумма';uk='Сума'",КодЯзыкаПечать)+ Суффикс;
ТабДокумент.Присоединить(ОбластьСуммы);
//ТабДокумент.Вывести(ОбластьМакета);
ОбластьКолонкаТовар = Макет.Область("Товар");
Если Не ВыводитьКоды Тогда
ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки +
Макет.Область("КолонкаКодов").ШиринаКолонки;
КонецЕсли;
Если НЕ ЕстьСкидки Тогда
ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки +
Макет.Область("СуммаБезСкидки").ШиринаКолонки +
Макет.Область("СуммаСкидки").ШиринаКолонки;
КонецЕсли;
СуммаБезСкидки = 0;
СуммаСкидки = 0;
Сумма = 0;
СуммаНДС = 0;
ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
ОбластьКодов = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
ОбластьСкидки = Макет.ПолучитьОбласть("Строка|Скидка");
ОбластьСуммы = Макет.ПолучитьОбласть("Строка|Сумма");
Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл
Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное);
Продолжить;
КонецЕсли;
ОбластьНомера.Параметры.НомерСтроки = ЗапросТовары.Индекс(ВыборкаСтрокТовары) + 1;
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
Если Колонка = "Артикул" Тогда
ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул;
Иначе
ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код;
КонецЕсли;
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);
ОбластьДанных.Параметры.Товар = СокрЛП(ВыборкаСтрокТовары.Товар);
ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда
ОбластьСкидки.Параметры.Заполнить(ВыборкаСтрокТовары);
ТабДокумент.Присоединить(ОбластьСкидки);
КонецЕсли;
ОбластьСуммы.Параметры.Заполнить(ВыборкаСтрокТовары);
ТабДокумент.Присоединить(ОбластьСуммы);
СуммаБезСкидки = СуммаБезСкидки + ВыборкаСтрокТовары.СуммаБезСкидки;
СуммаСкидки = СуммаСкидки + ВыборкаСтрокТовары.СуммаСкидки;
Сумма = Сумма + ВыборкаСтрокТовары.Сумма;
СуммаНДС = СуммаНДС + ВыборкаСтрокТовары.СуммаНДС;
КонецЦикла;
// Вывести Итого
ОбластьНомера = Макет.ПолучитьОбласть("Итого|НомерСтроки");
ОбластьКодов = Макет.ПолучитьОбласть("Итого|КолонкаКодов");
ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");
ОбластьСкидки = Макет.ПолучитьОбласть("Итого|Скидка");
ОбластьСуммы = Макет.ПолучитьОбласть("Итого|Сумма");
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда
ОбластьСкидки.Параметры.ВсегоСуммаБезСкидки = ОбщегоНазначения.ФорматСумм(СуммаБезСкидки);
ОбластьСкидки.Параметры.ВсегоСуммаСкидки = ОбщегоНазначения.ФорматСумм(СуммаСкидки);
ТабДокумент.Присоединить(ОбластьСкидки);
КонецЕсли;
ОбластьСуммы.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
ТабДокумент.Присоединить(ОбластьСуммы);
// Вывести ИтогоНДС
Если Шапка.УчитыватьНДС Тогда
// НДС
ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС,,"""");
ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, НСтр("ru='В том числе НДС:';uk='У тому числі ПДВ:'",КодЯзыкаПечать), НСтр("ru='Сумма НДС:';uk='Сума ПДВ:'",КодЯзыкаПечать));
ТабДокумент.Вывести(ОбластьМакета);
// всего с НДС (если сумма не включает НДС)
Если НЕ Шапка.СуммаВключаетНДС Тогда
ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(Сумма + СуммаНДС);
ОбластьМакета.Параметры.НДС = НСтр("ru='Всего с НДС:';uk='Всього із ПДВ:'",КодЯзыкаПечать);
ТабДокумент.Вывести(ОбластьМакета);
КонецЕсли;
КонецЕсли;
// выведем таблицу с возвратной тарой
Если ЗапросТара.Количество() > 0 Тогда
// сделаем отступ от основной таблицы
ОбластьПробел = Макет.ПолучитьОбласть("Пробел");
ТабДокумент.Вывести(ОбластьПробел);
ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицыТара|НомерСтрокиТара");
ОбластьКодов = Макет.ПолучитьОбласть("ШапкаТаблицыТара|КолонкаКодовТара");
ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицыТара|ДанныеТара");
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка;
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ТабДокумент.Присоединить(ОбластьДанных);
ОбластьКолонкаТара = Макет.Область("Тара");
Если Не ВыводитьКоды Тогда
ОбластьКолонкаТара.ШиринаКолонки = ОбластьКолонкаТара.ШиринаКолонки +
Макет.Область("КолонкаКодовТара").ШиринаКолонки;
КонецЕсли;
ОбластьНомера = Макет.ПолучитьОбласть("СтрокаТара|НомерСтрокиТара");
ОбластьКодов = Макет.ПолучитьОбласть("СтрокаТара|КолонкаКодовТара");
ОбластьДанных = Макет.ПолучитьОбласть("СтрокаТара|ДанныеТара");
СуммаТара = 0;
Для каждого ВыборкаСтрокТара Из ЗапросТара Цикл
Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТара.Номенклатура) Тогда
Сообщить(НСтр("ru='В одной из строк не заполнено значение тары - строка при печати пропущена.';uk='В одному з рядків не заповнене значення тари - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное);
Продолжить;
КонецЕсли;
ОбластьНомера.Параметры.НомерСтроки = ЗапросТара.Индекс(ВыборкаСтрокТара) + 1;
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
Если Колонка = "Артикул" Тогда
ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТара.Артикул;
Иначе
ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТара.Код;
КонецЕсли;
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТара);
ОбластьДанных.Параметры.Товар = СокрЛП(ВыборкаСтрокТара.Товар);
ТабДокумент.Присоединить(ОбластьДанных);
СуммаТара = СуммаТара + ВыборкаСтрокТара.Сумма;
КонецЦикла;
// Вывести Итого
ОбластьМакета = Макет.ПолучитьОбласть("ИтогоТара");
ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(СуммаТара);
ТабДокумент.Вывести(ОбластьМакета);
// сделаем отступ
ТабДокумент.Вывести(ОбластьПробел);
КонецЕсли;
// Вывести Сумму прописью
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
ОбластьМакета.Параметры.ИтоговаяСтрока = НСтр("ru='Всего наименований ';uk='Всього найменувань '",КодЯзыкаПечать) + ЗапросТовары.Количество() + "," +
НСтр("ru=' на сумму ';uk=' на суму '",КодЯзыкаПечать) + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента)
+ ?(ЗапросТара.Количество() = 0, "", НСтр("ru='; возвратная тара ';uk='; зворотна тара '",КодЯзыкаПечать) + ЗапросТара.Количество() + НСтр("ru=', на сумму ';uk=', на суму '",КодЯзыкаПечать) + ОбщегоНазначения.ФорматСумм(СуммаТара, Шапка.ВалютаДокумента)) + ".";
ОбластьМакета.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, Шапка.ВалютаДокумента,КодЯзыкаПечать)
+ ?(НЕ Шапка.УчитыватьНДС, "", Символы.ПС + НСтр("ru='В т.ч. НДС: ';uk='У т.ч. ПДВ: '",КодЯзыкаПечать) + ОбщегоНазначения.СформироватьСуммуПрописью(СуммаНДС, Шапка.ВалютаДокумента, КодЯзыкаПечать));
ТабДокумент.Вывести(ОбластьМакета);
// Вывести подписи
ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
ОбластьМакета.Параметры.Заполнить(Шапка);
ТабДокумент.Вывести(ОбластьМакета);
// ОбластьМакета = Макет.ПолучитьОбласть("Печать");
// ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета= Макет.ПолучитьОбласть("Подвал");
ОбластьМакета.Параметры.СрокДействияСчета = НСтр("ru='Счет действителен к оплате в течении трех банковских дней ';uk='Рахунок дійсний до сплати протягом трьох банківських днів '",КодЯзыкаПечать);
ТабДокумент.Вывести(ОбластьМакета);
Возврат ТабДокумент;
//КонецЕсли;
//УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, ""), НепосредственнаяПечать);
КонецФункции // Печать
Последний раз редактировалось dtai39; 07.01.2019 в 18:06.
|
|
|
08.01.2019, 11:52
|
#6178
|
Местный
Регистрация: 13.02.2012
Сообщений: 107
Сказал(а) спасибо: 488
Поблагодарили 36 раз(а) в 19 сообщениях
|
Подскажите, как справиться с такой проблемой. Бухгалтерский учет , версия 2.0. Есть акт выполненных работ. В ней, например 2 позиции. Формируется налоговая накладная, позиции такие же как и в акте. Затем при сохранении налоговой накладной программа перенумеровывает строки (в новой форме налоговой) по своему. Т.е., там где должно быть 1,2 меняет на 2,1.
|
|
|
08.01.2019, 15:10
|
#6179
|
Пользователь
Регистрация: 17.12.2011
Сообщений: 65
Сказал(а) спасибо: 286
Поблагодарили 69 раз(а) в 38 сообщениях
|
Всем доброго дня, возможно не по теме, кто-то раньше выкладывал обработку для загрузки новых соц. стандартов и мин. з/п 2019 для 1С 7.7 Комплексная
Поделитесь, пожалуйста!
|
|
|
10.01.2019, 13:55
|
#6180
|
Новичок
Регистрация: 18.12.2011
Сообщений: 10
Сказал(а) спасибо: 12
Поблагодарили 2 раз(а) в 2 сообщениях
|
Добрый день. Помогите пожалуйста устранить проблему. После обновления конфигурации на 1.2.48.1 постоянно программа выдает окно с сообщением "Регистрация конфигурации в центре лицензирования не выполнена"
1С Предприятие 8.3 (8.3.8.2322)
Бухгалтерия для Украины, редакция 1.2 (1.2.48.1)
Использование конфигурации: Недоступен центр лицензирования
Windows 7 Максимальная Service Pack1, 64-разрядная операционная система
|
|
|
Любые журналы Актион-МЦФЭР регулярно !!! Пишите https://www.nado.in/private.php?do=newpm&u=12191 или на электронный адрес pantera@nado.ws
Здесь присутствуют: 22 (пользователей: 0 , гостей: 22)
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Текущее время: 00:21. Часовой пояс GMT +1.
| |