1С:Предприятие для Украины (общие вопросы-ответы, обсуждения) - Страница 224

admin · 12.01.2011, 22:58

В этой ветке обсуждаем проблемы и вопросы связанные с работой в системе 1С для Украины. Больше ничего в этой ветке постить НЕЛЬЗЯ.

[Ссылки доступны только зарегистрированным пользователям . Регистрируйся тут...]

Все программные продукты на данной странице выложены в целях ознакомления и для зарегистрированных пользователей фирмы 1С. Помните, что скачанные с данной страницы программы Вы используете на свой страх и риск. Автор и администрация этого сайта данной страницы не несет никакой ответственности за использование этих программных решений третьими лицами. В случае если вас устраивает одна из перечисленных здесь программ, Вы обязаны официально приобрести ее у фирмы 1С или ее партнеров.

DUH · 07.04.2014, 16:51

Цитата:

Сообщение от kravit

Да вы правы я админ и спасибо большое за разъяснение!
Можете более подробно рассказать за пункт - в) (файлы обмена)?
заранее благодарен!

файлы обмена: любой вид файла для выгрузки с одного места и для загрузки в другое (*.тхт,,,,,,*.dbf,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*.xm l)!

kravit · 07.04.2014, 17:05

Я уловил вашу мысль!!! Спасибо большое!
Но тогда следующий вопрос? (Извините что задолбал) Можно как-то в 1С автоматически создавать отчет по приходу и расходу и записывать в exel? но чтобы не видно было?
ну типа батника который запускается в определенное время - пошуршал немного, создал exel файл и вуаля!?

DUH · 07.04.2014, 17:06

Цитата:

Сообщение от kravit

Я уловил вашу мысль!!! Спасибо большое!
Но тогда следующий вопрос? (Извините что задолбал) Можно как-то в 1С автоматически создавать отчет по приходу и расходу и записывать в exel? но чтобы не видно было?
ну типа батника который запускается в определенное время - пошуршал немного, создал exel файл и вуаля!?

Да -для таких задач есть прогеры1С!

kravit · 07.04.2014, 17:10

А по подробнее или сылочку!? ну как это можно сделать? Я как бы не бухгалтер и как создавать отчет беспонятия.

JTmarsh · 08.04.2014, 09:59

День добрый.
А подскажите пожалуйста, как в комплексную 1с 77 добавить ндс 7% во весь учет?

DUH · 08.04.2014, 10:08

Цитата:

Сообщение от JTmarsh

День добрый.
А подскажите пожалуйста, как в комплексную 1с 77 добавить ндс 7% во весь учет?

Руками в Конфигураторе - должен делать [Ссылки доступны только зарегистрированным пользователям . Регистрируйся тут...]!!!

JTmarsh · 08.04.2014, 10:11

Цитата:

Сообщение от DUH

Руками в Конфигураторе - должен делать [Ссылки доступны только зарегистрированным пользователям . Регистрируйся тут...]!!!

Я вместо программиста.

Опишите хоть что нужно сделать.

DUH · 08.04.2014, 10:29

Цитата:

Сообщение от JTmarsh

Я вместо программиста.

Опишите хоть что нужно сделать.

Ну НДС - это (налогиОтчисления) ставки которой {БЕЗ НДС, НДС 0, НДС 20} - те нужно в этот список внести { НДС 7 } да и всё))) Конечно же тогда нужно и код подправить - могу помочь за денежное вознаграждение!

JTmarsh · 08.04.2014, 11:30

Цитата:

Сообщение от DUH

Ну НДС - это (налогиОтчисления) ставки которой {БЕЗ НДС, НДС 0, НДС 20} - те нужно в этот список внести { НДС 7 } да и всё))) Конечно же тогда нужно и код подправить - могу помочь за денежное вознаграждение!

Все оказалось просто.
Шаг 1. В справочнике "Шкала ставок налогов и отчислений" в папке НДС создал НДС7 со значением 7% и ставкой 0,07
Шаг 2. В Конфигураторе в глобальном модуле в процедуре ПриНачалеРаботыСистемы нашел блок // стандартные значения ставок НДС и туда дописал кусок

Код:

	
Если Спр.НайтиПоКоду("НДС7") = 1 Тогда             
	ЛьготнаяСтавкаНДС  = Спр.ТекущийЭлемент();     
КонецЕсли;

Шаг 3. В глобальном модуле в функции глНалоговаяГруппа добавил

Код:

ПараметрНДС7 	= спПараметры.Получить("НДС7");

между параметрами и

Код:

ИначеЕсли СтавкаНДС = ЛьготнаяСтавкаНДС Тогда         
		Если ПустоеЗначение(ПараметрНДС7) = 1 Тогда       
			Возврат 1;                                   
		Иначе                                             
			Возврат ПараметрНДС7;                         
		КонецЕсли;

чуть ниже в куче ставок ндс.

Вроде арбайтен.

DUH · 08.04.2014, 11:44

Цитата:

Сообщение от JTmarsh

Все оказалось просто.
Шаг 1. В справочнике "Шкала ставок налогов и отчислений" в папке НДС создал НДС7 со значением 7% и ставкой 0,07
Шаг 2. В Конфигураторе в глобальном модуле в процедуре ПриНачалеРаботыСистемы нашел блок // стандартные значения ставок НДС и туда дописал кусок

Код:

	
Если Спр.НайтиПоКоду("НДС7") = 1 Тогда             
	ЛьготнаяСтавкаНДС  = Спр.ТекущийЭлемент();     
КонецЕсли;

Шаг 3. В глобальном модуле в функции глНалоговаяГруппа добавил

Код:

ПараметрНДС7 	= спПараметры.Получить("НДС7");

между параметрами и

Код:

ИначеЕсли СтавкаНДС = ЛьготнаяСтавкаНДС Тогда         
		Если ПустоеЗначение(ПараметрНДС7) = 1 Тогда       
			Возврат 1;                                   
		Иначе                                             
			Возврат ПараметрНДС7;                         
		КонецЕсли;

чуть ниже в куче ставок ндс.

Вроде арбайтен.

Уважаю!!!
Теперь осталась самая малость: перебить все необходимые Товары/Услуги на НДС7 и посмотреть, как они бегают по регитсрам - ну естественно на КОПИИ БАЗЫ !!!

JTmarsh · 08.04.2014, 11:56

Цитата:

Сообщение от DUH

перебить все необходимые Товары/Услуги на НДС7

Так в сервисе есть групповая обработка справочников же.

Юрий74 · 08.04.2014, 11:58

А як може бути разом і
Если Спр.НайтиПоКоду("НДС7") = 1 Тогда
ЛьготнаяСтавкаНДС = Спр.ТекущийЭлемент();
КонецЕсли;

і

Если Спр.НайтиПоКоду("НДС0") = 1 Тогда
ЛьготнаяСтавкаНДС = Спр.ТекущийЭлемент();
КонецЕсли;

Тобто, ЛьготнаяСтавкаНДС в двох місцях?

Цитата:

Сообщение от JTmarsh

Все оказалось просто.
Шаг 1. В справочнике "Шкала ставок налогов и отчислений" в папке НДС создал НДС7 со значением 7% и ставкой 0,07
Шаг 2. В Конфигураторе в глобальном модуле в процедуре ПриНачалеРаботыСистемы нашел блок // стандартные значения ставок НДС и туда дописал кусок

Код:

	
Если Спр.НайтиПоКоду("НДС7") = 1 Тогда             
	ЛьготнаяСтавкаНДС  = Спр.ТекущийЭлемент();     
КонецЕсли;

Шаг 3. В глобальном модуле в функции глНалоговаяГруппа добавил

Код:

ПараметрНДС7 	= спПараметры.Получить("НДС7");

между параметрами и

Код:

ИначеЕсли СтавкаНДС = ЛьготнаяСтавкаНДС Тогда         
		Если ПустоеЗначение(ПараметрНДС7) = 1 Тогда       
			Возврат 1;                                   
		Иначе                                             
			Возврат ПараметрНДС7;                         
		КонецЕсли;

чуть ниже в куче ставок ндс.

Вроде арбайтен.

JTmarsh · 08.04.2014, 12:06

Цитата:

Сообщение от Юрий74

А як може бути разом і
Если Спр.НайтиПоКоду("НДС7") = 1 Тогда
ЛьготнаяСтавкаНДС = Спр.ТекущийЭлемент();
КонецЕсли;
і
Если Спр.НайтиПоКоду("НДС0") = 1 Тогда
ЛьготнаяСтавкаНДС = Спр.ТекущийЭлемент();
КонецЕсли;
Тобто, ЛьготнаяСтавкаНДС в двох місцях?

А я хз... В выпадающем списке пропало 0%, т.е. есть 20%, 7%, и БезНДС. Мои бухгалтера говорят, что 0% они нигде не используют, поэтому мне не критично. И вообще согласно закону основная ставка как была 20% так и осталась. Т.е. по логике 7% - льготная ставка на медикаменты. Хотя хз. У нас сначала приймут закон, через месяц расскажут, что имели в виду, а 1с потом что-то сваяет. Как-то так.

Значит где-то в глобальнике надо находить где формируется этот маленький выпадающий список и под ставку 7% выделять отдельный параметр/переменную/значение (как но там правильно называется.)

Добавил так (так наверное правильнее)

Код:

// стандартные значения ставок НДС
Перем БезНДС Экспорт;
Перем ЛьготнаяСтавкаНДС Экспорт;
Перем ОсновнаяСтавкаНДС Экспорт;
Перем МедикаментыСтавкаНДС Экспорт;
Перем неНДС Экспорт;

- это раз

Код:

// стандартные значения ставок НДС
	Спр = СоздатьОбъект("Справочник.ШкалаСтавок");
	Если Спр.НайтиПоКоду("НДС20") = 1 Тогда
		ОсновнаяСтавкаНДС = Спр.ТекущийЭлемент();
	КонецЕсли;
	Если Спр.НайтиПоКоду("НДС0") = 1 Тогда
		ЛьготнаяСтавкаНДС  = Спр.ТекущийЭлемент();
	КонецЕсли;
	Если Спр.НайтиПоКоду("НДС7") = 1 Тогда              // 08-04-2014 добавлено НДС 7%
		МедикаментыСтавкаНДС  = Спр.ТекущийЭлемент();      // 08-04-2014 добавлено НДС 7%
	КонецЕсли;                                          // 08-04-2014 добавлено НДС 7%
	Если Спр.НайтиПоКоду("БезНДС") = 1 Тогда
		безНДС =Спр.ТекущийЭлемент();
	КонецЕсли;
	Если Спр.НайтиПоКоду("НеНДС") = 1 Тогда
		неНДС =Спр.ТекущийЭлемент();
	КонецЕсли;

- это 2

Код:

// выбираем НДС не из всего справочника, а из маленького списка
// ИмяРекв - имя реквизита вида НДС, по умолчанию ВидНДС
Процедура глВыбратьНДС(Конт,ИмяРекв = "",РазрешитьВыбиратьНеНДС=0) Экспорт
Перем Выб;
	Спис = СоздатьОбъект("СписокЗначений");
	Спис.ДобавитьЗначение(ОсновнаяСтавкаНДС);
	Спис.ДобавитьЗначение(МедикаментыСтавкаНДС);
	Спис.ДобавитьЗначение(ЛьготнаяСтавкаНДС);
	Спис.ДобавитьЗначение(БезНДС);
	Если РазрешитьВыбиратьНеНДС = 1 Тогда
		Спис.ДобавитьЗначение(НеНДС);
	КонецЕсли;

- это три

Код:

// выбираем НДС не из всего справочника, а из маленького списка (4 ставки)
// ИмяРекв - имя реквизита вида НДС, по умолчанию ВидНДС
Процедура глВыбратьНДСПлатеж(Конт,ИмяРекв = "") Экспорт
Перем Выб;
	Спис = СоздатьОбъект("СписокЗначений");
	Спис.ДобавитьЗначение(ОсновнаяСтавкаНДС);
	Спис.ДобавитьЗначение(МедикаментыСтавкаНДС);
	Спис.ДобавитьЗначение(ЛьготнаяСтавкаНДС);
	Спис.ДобавитьЗначение(БезНДС);
	Спис.ДобавитьЗначение(НеНДС);

- это нумер 4

Код:

Функция глНалоговаяГруппа(СтавкаНДС, ЭККА = "") Экспорт 
	                                          
	Перем ПараметрНДС20, ПараметрНДС0, ПараметрБЕЗНДС, ПараметрНДС7;
	ПараметрНДС20 	= "";
	ПараметрНДС0	= "";
	ПараметрБЕЗНДС 	= "";
	ПараметрНДС7	= "";
	Если ПустоеЗначение(ЭККА) = 0 Тогда       
		// Если передали ЭККА, будем брать значения групп из параметров
		спПараметры = СоздатьОбъект("СписокЗначений");
		глПарсить(ЭККА.ПараметрыИнициализации,спПараметры,РазделительСтрок);
		ПараметрНДС20 	= спПараметры.Получить("НДС20");
		ПараметрНДС7 	= спПараметры.Получить("НДС7");  // 08-04-2014 добавлено НДС 7%
		ПараметрНДС0	= спПараметры.Получить("НДС0");
		ПараметрБЕЗНДС 	= спПараметры.Получить("БЕЗНДС");
	КонецЕсли;
	
	Если СтавкаНДС = ОсновнаяСтавкаНДС Тогда
		Если ПустоеЗначение(ПараметрНДС20) = 1 Тогда
			Возврат 1;
		Иначе
			Возврат ПараметрНДС20;
		КонецЕсли; 
	ИначеЕсли СтавкаНДС = МедикаментыСтавкаНДС Тогда         // 08-04-2014 добавлено НДС 7%
		Если ПустоеЗначение(ПараметрНДС7) = 1 Тогда       // 08-04-2014 добавлено НДС 7%
			Возврат 1;                                    // 08-04-2014 добавлено НДС 7%
		Иначе                                             // 08-04-2014 добавлено НДС 7%
			Возврат ПараметрНДС7;                         // 08-04-2014 добавлено НДС 7%
		КонецЕсли;                                        // 08-04-2014 добавлено НДС 7%
	ИначеЕсли СтавкаНДС = ЛьготнаяСтавкаНДС Тогда
		Если ПустоеЗначение(ПараметрНДС0) = 1 Тогда
			Возврат 2;
		Иначе
			Возврат ПараметрНДС0;
		КонецЕсли;
	ИначеЕсли СтавкаНДС = безНДС Тогда
		Если ПустоеЗначение(ПараметрБЕЗНДС) = 1 Тогда
			Возврат 3;
		Иначе
			Возврат ПараметрБЕЗНДС;
		КонецЕсли;
	КонецЕсли
КонецФункции

- и кусок в функции

Так по логике вещей должно быть более универсально.

Юрий74 · 08.04.2014, 13:10

Підскажіть, а що виравити, щоб в Податковій накладній товари, що продаються за ставкою 7% попадали в графу 9 "Постачання на митній території України", оскільки ставка 7 відсотків не є основною; сума податку вказується в розділі ІІІ податкової накладної в рядку "Податок на додану вартість" в графі 9 та переноситься в графу 12; в розділі ІV податкової накладної в графах 9 та 12 вказується загальна вартість лікарських засобів та виробів медичного призначення з податком на додану вартість;

Olga-ivanchik · 08.04.2014, 14:26

Подскажите пожалуйста, 1С 7.7 , 301 релиз в печатных формах документов вместо гривен начало выводить рубли, как поменять на гривны. Валюта везде стоит грн. Только в расшифровках прописью выдает рубли. Спасибо заранее.