egerLESHIK
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| еще есть вариант что вы обновили отчет или документ но не обновили конфигурацию |
Не. Эта конфигурация самописная и обновлению не подлежит, а документ с проводкой рисую сам.
В принципе мне самому понять хочется что это за "ПровТЗН".
Ниже код из глобальника, может кто-то исходя из него прольет свет знаний мне?
Код: Процедура глПровТЗН(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма,Режим,НоваяФирма = 0,Направление = 0, Фирма = 0)
Если (Окр(Сумма,2)=0) и (Окр(ВалСумма,2)=0) Тогда
Возврат;
КонецЕсли;
Если (Фирма <> 0) и (ПустоеЗначение(Фирма) = 0) Тогда
КонтФирма = Фирма;
Иначе
КонтФирма = Конт.Фирма;
КонецЕсли;
ПровТЗН.НоваяСтрока();
ПровТЗН.СчетДт = СчетПоКоду(Строка(СчД));
ПровТЗН.СчетКт = СчетПоКоду(Строка(СчК));
ПровТЗН.КонтФирма = КонтФирма;
ПровТЗН.Сумма = Сумма;
ПровТЗН.Вал = Вал;
ПровТЗН.ВалСумма = ВалСумма;
ПровТЗН.Режим = Режим;
ПровТЗН.НоваяФирма = НоваяФирма;
ПровТЗН.Направление = Направление;
//Проверка на счет затрат
ЕстьЗатраты = 0;
Если ПустоеЗначение(СчД) = 0 Тогда
Если (Лев(СчД, 2) = "92") или (Лев(СчД, 2) = "94") или (Лев(СчД, 2) = "35") или (Строка(СчД) = "703") или (Строка(СчД) = "791") или (Строка(СчД) = "501") Тогда
ЕстьЗатраты = 1;
КонецЕсли;
КонецЕсли;
Если ПустоеЗначение(СчК) = 0 Тогда
Если (Лев(СчК, 2) = "92") или (Лев(СчК, 2) = "94") или (Лев(СчК, 2) = "35") или (Строка(СчК) = "703") или (Строка(СчК) = "791") или (Строка(СчК) = "501") Тогда
ЕстьЗатраты = 1;
КонецЕсли;
КонецЕсли;
Если (Метаданные.Документ(Конт.Вид()).ОперативныйУчет = 1) и (ЕстьЗатраты = 1) Тогда
ПровестиЗатраты(Конт, СчетПоКоду(Строка(СчД)),СчетПоКоду(Строка(СчК)),СубД1,СубД2,СубД3, СубК1,СубК2,СубК3, Сумма,НоваяФирма,Направление,Фирма);
//ПровестиЗатраты(Конт, Конт.Операция);
ИначеЕсли (Метаданные.Документ(Конт.Вид()).ОперативныйУчет = 0) и (ЕстьЗатраты = 1) Тогда
Сообщить("В документе: " + Конт.Вид() + ", не стоит признак ведения оперативного учета, движение по регистру затрат не будут сделаны!","!!!");
КонецЕсли;
КонецПроцедуры
Процедура глПроводка(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма,НоваяФирма = 0,Направление = 0,Фирма = 0) Экспорт
Если Конт.ДатаДок >= СворачиватьПроводки Тогда
глПровТЗН(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма,"Проводка",НоваяФирма,Направление,Фирма);
Иначе
глПров(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма,"Проводка",НоваяФирма,Направление,Фирма);
КонецЕсли;
КонецПроцедуры
//================================================
Процедура глКорреспонденция(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма) Экспорт
Если Конт.ДатаДок >= СворачиватьПроводки Тогда
глПровТЗН(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма,"Корреспонденция",,);
Иначе
глПров(Конт,СчД,СчК,Сумма,Сод,Кво,СубД1,СубД2,СубД3,СубК1,СубК2,СубК3,Вал,ВалСумма,"Корреспонденция");
КонецЕсли;
КонецПроцедуры |
|
Если можно, выложите куда-нить MD посмотреть.