Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: 1C ЗИК вот такая проблема...  (Прочитано 12819 раз)
0 Пользователей и 1 Гость смотрят эту тему.
luka
Гость
« : 21-08-2009 07:40 » 

Вопрос следующий, как отобразить счета 303.01.1, 303.01.2.2, и т.д. в НДФЛ и т.п., вот скрины, по ним будет более понятно

* 001.jpg (148.36 Кб - загружено 813 раз.)
Записан
luka
Гость
« Ответ #1 : 21-08-2009 07:42 » 

второй скрин

* 002.jpg (136.12 Кб - загружено 823 раз.)
Записан
luka
Гость
« Ответ #2 : 21-08-2009 07:42 » 

третий скрин

* 003.jpg (13.51 Кб - загружено 818 раз.)
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 21-08-2009 08:32 » 

В обработке ВводШаблонаПроводок в процедуре ПриОткрытии() есть заполнение списков СписокКредитов и СписокДебетов - пройдись по этому блоку отладчиком и посмотри почему не попадают (в глобальном модуле в функции глХарактеристикаСчета явно упоминается 303 и 304 счета)
Записан
luka
Гость
« Ответ #4 : 21-08-2009 09:50 » 

как отредактировать в ручную в глобальном модуле глХарактеристикаСчета, и сохранить изменения.
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 21-08-2009 10:05 » 

А в чем именно проблема?
Записан
luka
Гость
« Ответ #6 : 21-08-2009 10:08 » 

СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("189");                                                                      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("302");   

в коде идут строки, хочу добавить туда

СчетаРасчетовСФСС.ДобавитьЗначение("303.02");

и т.д. в отладчике не могу редактировать, как его вручную поправить, дописать строки
Записан
luka
Гость
« Ответ #7 : 21-08-2009 10:18 » 

я не разбираюсь в этом, методом проб и ошибок изучаю.

вот код

//*****************************************************************************
// Функция глХарактеристикаСчета(Счет)
//
// Параметры
//   КодСчета - строка; цифровой код испытуемого счета
//
// Возвращаемое значение
//   0 - ничего определенного сказать про счет не получилось
//   1 - счет похож на "зарплатный"
//   2 - счета учета расчетов с внебюджетными фондами (ФСС)
//   3 - счет может и кредитоваться и дебетоваться
//   4 - счет может только кредитоваться
//   5 - счет может только дебетоваться
//   6 - счет расчетов будущих периодов
//   7 - счет расчетов с внебюджетными фондами
//   8 - счет cчета учета резервов
//   9 - счет расчетов с внебюджетными фондами (ФСС_НС)
//
// Описание
//  по коду счета определяем семантику этого счета в хозрасчетном или
//  бюджетном плане счетов
//
Функция глХарактеристикаСчета(КодСчета) Экспорт
   
   ПозТочки=Найти(КодСчета,".");
   Если (Лев(КодСчета,3) = "303") или (Лев(КодСчета,3) = "304") Тогда
      ПозТочки = 7
   КонецЕсли;
   Если ПозТочки>0  Тогда
      Счет=СокрЛП(Лев(КодСчета,ПозТочки-1))
   Иначе
      Счет=СокрЛП(КодСчета)
   КонецЕсли;
   
   Если ТипЗначения(СписокГруппСчетовУчетаЗарплаты)=0  Тогда
      СписокГруппСчетовУчетаЗарплаты=СоздатьОбъект("СписокЗначений");
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("70");
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("75");   
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("77");
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("180");
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("181");
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("188");
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("189");                                                                               
      СписокГруппСчетовУчетаЗарплаты.ДобавитьЗначение("302");      
   КонецЕсли;
   
   Если ТипЗначения(СписокДебетуемыхСчетов)=0  Тогда
      СписокДебетуемыхСчетов=СоздатьОбъект("СписокЗначений");
      СписокДебетуемыхСчетов.ДобавитьЗначение("07");
      СписокДебетуемыхСчетов.ДобавитьЗначение("08");
      СписокДебетуемыхСчетов.ДобавитьЗначение("10");
      СписокДебетуемыхСчетов.ДобавитьЗначение("11");
      СписокДебетуемыхСчетов.ДобавитьЗначение("12");
      СписокДебетуемыхСчетов.ДобавитьЗначение("15");
      СписокДебетуемыхСчетов.ДобавитьЗначение("20");
      СписокДебетуемыхСчетов.ДобавитьЗначение("21");
      СписокДебетуемыхСчетов.ДобавитьЗначение("23");
      СписокДебетуемыхСчетов.ДобавитьЗначение("25");
      СписокДебетуемыхСчетов.ДобавитьЗначение("26");
      СписокДебетуемыхСчетов.ДобавитьЗначение("28");
      СписокДебетуемыхСчетов.ДобавитьЗначение("29");
      СписокДебетуемыхСчетов.ДобавитьЗначение("44");
      СписокДебетуемыхСчетов.ДобавитьЗначение("68");
      СписокДебетуемыхСчетов.ДобавитьЗначение("76");
      СписокДебетуемыхСчетов.ДобавитьЗначение("79");
      СписокДебетуемыхСчетов.ДобавитьЗначение("84");
      СписокДебетуемыхСчетов.ДобавитьЗначение("86");
      СписокДебетуемыхСчетов.ДобавитьЗначение("90");
      СписокДебетуемыхСчетов.ДобавитьЗначение("91");
      СписокДебетуемыхСчетов.ДобавитьЗначение("96");
      СписокДебетуемыхСчетов.ДобавитьЗначение("99");
      СписокДебетуемыхСчетов.ДобавитьЗначение("200");
      СписокДебетуемыхСчетов.ДобавитьЗначение("201");
      СписокДебетуемыхСчетов.ДобавитьЗначение("203");
      СписокДебетуемыхСчетов.ДобавитьЗначение("210");
      СписокДебетуемыхСчетов.ДобавитьЗначение("220");
      СписокДебетуемыхСчетов.ДобавитьЗначение("221");
      СписокДебетуемыхСчетов.ДобавитьЗначение("222");
      СписокДебетуемыхСчетов.ДобавитьЗначение("223");
      СписокДебетуемыхСчетов.ДобавитьЗначение("224");
      СписокДебетуемыхСчетов.ДобавитьЗначение("225");
      СписокДебетуемыхСчетов.ДобавитьЗначение("227");
      СписокДебетуемыхСчетов.ДобавитьЗначение("228");
                                                     
      СписокДебетуемыхСчетов.ДобавитьЗначение("401");
      СписокДебетуемыхСчетов.ДобавитьЗначение("106");
            
   КонецЕсли;
   
   Если ТипЗначения(СписокКредитуемыхСчетов)=0 Тогда
      СписокКредитуемыхСчетов=СоздатьОбъект("СписокЗначений");
      СписокКредитуемыхСчетов.ДобавитьЗначение("23");
      СписокКредитуемыхСчетов.ДобавитьЗначение("25");
      СписокКредитуемыхСчетов.ДобавитьЗначение("26");
      СписокКредитуемыхСчетов.ДобавитьЗначение("28");
      СписокКредитуемыхСчетов.ДобавитьЗначение("29");
      СписокКредитуемыхСчетов.ДобавитьЗначение("68");
      СписокКредитуемыхСчетов.ДобавитьЗначение("69");
      СписокКредитуемыхСчетов.ДобавитьЗначение("71");
      СписокКредитуемыхСчетов.ДобавитьЗначение("73");
      СписокКредитуемыхСчетов.ДобавитьЗначение("76");
      СписокКредитуемыхСчетов.ДобавитьЗначение("79");
      СписокКредитуемыхСчетов.ДобавитьЗначение("84");
      СписокКредитуемыхСчетов.ДобавитьЗначение("94");
      СписокКредитуемыхСчетов.ДобавитьЗначение("160");
      СписокКредитуемыхСчетов.ДобавитьЗначение("170");
      СписокКредитуемыхСчетов.ДобавитьЗначение("172");
      СписокКредитуемыхСчетов.ДобавитьЗначение("173");
      СписокКредитуемыхСчетов.ДобавитьЗначение("183");
      СписокКредитуемыхСчетов.ДобавитьЗначение("184");
      СписокКредитуемыхСчетов.ДобавитьЗначение("185");
      СписокКредитуемыхСчетов.ДобавитьЗначение("187");
      СписокКредитуемыхСчетов.ДобавитьЗначение("192");
      СписокКредитуемыхСчетов.ДобавитьЗначение("198");
                                                     
      СписокКредитуемыхСчетов.ДобавитьЗначение("208");         
                                                                 
      СписокКредитуемыхСчетов.ДобавитьЗначение("303.01");
      СписокКредитуемыхСчетов.ДобавитьЗначение("304.03");

   КонецЕсли;     
   
   Если ТипЗначения(СчетаРасчетовСФСС)=0 Тогда
      СчетаРасчетовСФСС=СоздатьОбъект("СписокЗначений");
      СчетаРасчетовСФСС.ДобавитьЗначение("69.1");
      СчетаРасчетовСФСС.ДобавитьЗначение("69.01");
      СчетаРасчетовСФСС.ДобавитьЗначение("69.13"); 
      СчетаРасчетовСФСС.ДобавитьЗначение("69.13.1");
      СчетаРасчетовСФСС.ДобавитьЗначение("69.13.2");
      СчетаРасчетовСФСС.ДобавитьЗначение("69.12");
      
      СчетаРасчетовСФСС.ДобавитьЗначение("193"); 
      
      
      СчетаРасчетовСФСС.ДобавитьЗначение("303.02");
      
      ДополнительныеПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
      
      Если ДополнительныеПроводки.НайтиПоКоду("ФСС_БЛ")=1 Тогда
         Если ПустоеЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита) = 0 Тогда
            СчетаРасчетовСФСС.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
         КонецЕсли;
      КонецЕсли;
   КонецЕсли;      
   

   Если ТипЗначения(СчетаРасчетовСВнебюджетнымиФондами)=0 Тогда
      СчетаРасчетовСВнебюджетнымиФондами=СоздатьОбъект("СписокЗначений");
      СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("69");
      СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("194");
      СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("198");
                                                                 
      СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("303.02");
      СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение("303.06");
      
      ДополнительныеПроводки.ВыбратьЭлементы();
      Пока ДополнительныеПроводки.ПолучитьЭлемент() = 1 Цикл
         СчетаРасчетовСВнебюджетнымиФондами.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
      КонецЦикла;      
   КонецЕсли;        
   
   Если ТипЗначения(СчетаРасчетовСФСС_НС)=0 Тогда
      СчетаРасчетовСФСС_НС=СоздатьОбъект("СписокЗначений");
      Если ТипЗначения(СчетаРасчетовСФСС)>0 Тогда
         ДополнительныеПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
      КонецЕсли;
      Если ДополнительныеПроводки.НайтиПоКоду("ФСС_НС") = 1 Тогда
         
         Если ПустоеЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита) = 0 Тогда            
            СчетаРасчетовСФСС_НС.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
         КонецЕсли;
      КонецЕсли;
   ИначеЕсли СчетаРасчетовСФСС_НС.РазмерСписка() = 0 Тогда
      Если ТипЗначения(СчетаРасчетовСФСС)>0 Тогда
         ДополнительныеПроводки = СоздатьОбъект("Справочник.ДополнительныеПроводки");
      КонецЕсли;      
      Если ДополнительныеПроводки.НайтиПоКоду("ФСС_НС") = 1 Тогда
         Если ПустоеЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита) = 0 Тогда            
            СчетаРасчетовСФСС_НС.ДобавитьЗначение(ДополнительныеПроводки.ШаблонПроводки.СчетКредита.Код)
         КонецЕсли;
      КонецЕсли;      
   КонецЕсли;
   
   КодСчетаБудущихПериодов   =   "97";
   КодСчетаУчетаРезервов   =   "96";
   
   Если СписокГруппСчетовУчетаЗарплаты.НайтиЗначение(Счет)>0  Тогда
      Возврат 1;
   ИначеЕсли (Лев(Счет, 2) = КодСчетаУчетаРезервов)   тогда
      Возврат 8;
   ИначеЕсли (СчетаРасчетовСФСС.НайтиЗначение(Строка(КодСчета))>0) или (СчетаРасчетовСФСС.НайтиЗначение(Счет)>0) Тогда
      Возврат 2;
   ИначеЕсли (СчетаРасчетовСФСС_НС.НайтиЗначение(Строка(КодСчета)) > 0) Тогда
      Возврат 9;
   ИначеЕсли (СчетаРасчетовСВнебюджетнымиФондами.НайтиЗначение(КодСчета)>0) или (СчетаРасчетовСВнебюджетнымиФондами.НайтиЗначение(Счет)>0) Тогда
      Возврат 7;
   Иначе
      Если (СписокДебетуемыхСчетов.НайтиЗначение(Счет)>0) и (СписокКредитуемыхСчетов.НайтиЗначение(Счет)>0) Тогда
         Возврат 3;
      ИначеЕсли (СписокКредитуемыхСчетов.НайтиЗначение(Счет)>0) Тогда
         Возврат 4;
      ИначеЕсли (СписокДебетуемыхСчетов.НайтиЗначение(Счет)>0) Тогда
         Возврат 5;
      ИначеЕсли Лев(Счет, 2) = КодСчетаБудущихПериодов Тогда
         Возврат 6;
      Иначе
         Возврат 0;
      КонецЕсли;
   КонецЕсли;
   
КонецФункции //глХарактеристика...
--------------------------------------------------------------


что тут нужно изменить Не понял
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #8 : 21-08-2009 10:26 » 

Может кто и подскажет - мне сейчас некогда разбираться. Я дал тебе точное место где менять, а как - это твоя задача. Я не вижу с твоей стороны попыток что-то сделать, кроме "сделайте это за меня"
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #9 : 21-08-2009 10:31 » 

Подсказка: синтакс-помощник вызывается по Ctrl+F1 на встроенных функциях - открываешь  читаешь что они делают... Потом думаешь что у тебя в целом делает аглоритм и где нужно править
Записан
luka
Гость
« Ответ #10 : 24-08-2009 07:09 » 

так и не нашел что не так, в банковских издержках отображается а в остальном нет, менял параметры, добавлял и тд, то совсем пропадет то и в банковских издержках как в остальном становится, , можешь посоветовать какие нибудь  форумы где могут помочь в этой проблеме, или сам помоги, заранее спасибо
Записан
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #11 : 24-08-2009 18:26 » 

Покажи кусок кода, где ты пытался поменять
Записан
luka
Гость
« Ответ #12 : 26-08-2009 05:21 » 

Спасибо, я уже все сделал.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines