Убрать Подразделение в проводках

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Убрать Подразделение в проводках

Сообщение sim »

Нужно по всем проводкам у счета 70 убрать Подразделение. То же в таблице месячного сальдо 70 сч. Как нарисовать апдейт?
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Сообщение Maverick »

Подразделение в КАУ1-6 или отдельно?

Дело в том что простой апдейт не поможет, если в ТХО по 70 счету (или в настройках самого счета) указано что Подр указывать обязательно.
Если такой настройки нет, то апдейт примерно так выглядит


OBOROT

Код: Выделить всё

Update Oborot 
Where
((
'070'      == schetO  /*в данном случае 0 - код нужного плана счетов*/
/*связки ниже - использовать если нужно ограничение по дате*/
And Date(D1,M1,Y1) <<= datOb  
And Date(D2,M2,Y2) >>= datOb  
)) 
Set KODSPO:=0; /*если подр по дебету*/ 
/*KODSPK:=0 (если нужно убрать подр по кредиту)*/
SALDMOUN

Код: Выделить всё

Update SaldMoun
Where
((
'070'      == schetO  /*в данном случае 0 - код нужного плана счетов*/
/*связки ниже - использовать если нужно ограничение по дате*/
And Date(D1,M1,Y1) <<= dateSal
And Date(D2,M2,Y2) >>= dateSal  
))
Set KODSPO:=0; /*если подр по дебету*/ 
/*KODSPK:=0 (если нужно убрать подр по кредиту)*/
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Сообщение sim »

Да, Подразделение отдельно
Нет, настройка "указывать обязательно" не стоит

Спасибо тебе, Мав. :D
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Сообщение Maverick »

Та не за шо )))
С тебя пиво как обычно )))

/*задумавшись*/
Этож если посчитать - скока мне пива уже должны???

------------

Сорри за оффтоп
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
Deinis
Местный житель
Сообщения: 783
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Re: Убрать Подразделение в проводках

Сообщение Deinis »

Не забудь просмотреть ТХО, сформировавшие эти проводки и поставить в поле "Подразделение" - НЕ формировать
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Re: Убрать Подразделение в проводках

Сообщение sim »

Deinis писал(а):Не забудь просмотреть ТХО, сформировавшие эти проводки и поставить в поле "Подразделение" - НЕ формировать
Не забуду :wink:
Кстати, походу вопрос: в плане счетов есть параметр "не формировать подразделение", но он странно как-то работает. Вот например, на 50 счете он включен, только все равно, если в тхо-шке забудешь убрать "авто-подразделение", то оно формируется. Почему? Ведь в настройке счета явно указано запрещение.
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Сообщение sim »

Еще такой вопрос: представленная выше апдейт-конструкция обваливает Подразделение в проводке только "со стороны" 70 счета?
Например, set KODSPO:=0 (подразделение по дебету) в проводке Д70(Подр.)-К50 отвяжет Подразделение у 70-го
А проводку Д20(Подр.)-К70(Подр.) этот апдейт не затронет?
Den
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Сообщение Den »

Конечно не затронет...
нужно для апдейта кредита подправить (как написал Maverick..):

Update Oborot
Where
((
'070' == schetk /*в данном случае 0 - код нужного плана счетов*/
/*связки ниже - использовать если нужно ограничение по дате*/
And Date(D1,M1,Y1) <<= datOb
And Date(D2,M2,Y2) >>= datOb
))
KODSPK:=0 (если нужно убрать подр по кредиту)
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Сообщение sim »

Den писал(а):Конечно не затронет...
нужно для апдейта кредита подправить (как написал Maverick..):
...
Честно сказать я не совсем уловил, ЧТО нужно подправить?
Вот это? :
schetk (вместо "0" букву "k" поставить?)
т.е. счет по кредиту что ли? а где же тогда номер плана счетов поставить? ведь "0" - это был код плана счетов
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Сообщение Max_Fin »

SchetO - счет по дебету
SchetK - счет по кредиту
сам счет представлен в виде двух составляющих:
код плана счетов и номер счета

например:
010 - 0 - код плана счетов, 10 - счет
299 - 2 - код плана счетов, 99 - счет

если необходимо выполнить запрос по кредитовому счету, то как посоветовал Den, если по дебетовому, то как Maverick
если необходимо править все и для дебетового и кредитового то выполнить два запроса выше перечисленных господ.
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

Сообщение sim »

Ясно
Спасибо
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Сообщение Maverick »

0 - это цифирь НУЛЬ, в отличии от о и О - буквей алфавита.
ну не позвобяет данный форум нуль с палкой писать чтоб от букв отличать )))
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
sim
Местный житель
Сообщения: 1805
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Россия

то же, но наоборот

Сообщение sim »

теперь нужно порешить ту же задачу, но наоборот :D
В-общем, во всех проводках по 70 счету прицепить Подразделение из текущего назначения сотрудников (из лицевого счета). Причем взять нижний, 2-й уровень Подразделения. Например, если в лицевом проставлено Цех/Участок, то нужно цеплять Участок.
Двойственность задачи объясняется тем, что в базе часть проводок с Подразделениями, а часть - нет. И бухи сейчас решают, что выбрать - доцеплять Подразделения, или же вовсе от них отказаться. Пока склоняются к 1 варианту (с Подразделениями).
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Сообщение Maverick »

Тут нужно уже интерфейс писать... SQL не прокатит.

и потом - у тебя по 70 аналитика по сотрудникам?
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
Den
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Сообщение Den »

ну наверное что то типа такого :

update oborot where (('070' == scheto
And Date(D1,M1,Y1) <<= datOb
And Date(D2,M2,Y2) >>= datOb
and oborot.kauos[1] ==lschet.nrec
))
set oborot.kodspo:=lschet.cex;
Ответить