Имя: Пароль:
1C
 
"основной склад" и пустое место вместо него
Ø
0 bukashka
 
15.07.05
20:14
Предыдущий бухгалтер по-началу все приходовала не выбирая "основной склад". Потом стала выбирать. В результате при попытке списания возникает различное количество на этих складах, а в накладной, соответственно, надо указывать только один склад. Вопрос от новичка. Как перевести все с этого "мифического" склада на основной. Пользуемся 1с77 УСН. Вид деятельности - производство. Помогите плиз, может кто сталкивался с чем похожим.
1 Птица
 
15.07.05
20:22
выбраьт во всех документах один склад и перепровести
2 bukashka
 
15.07.05
20:24
архив с 2002 года. Так делать очень не хочется. Может есть способ как-то изнутри их все скопом перевести???
3 VZ
 
15.07.05
20:27
Есть такие способы. Называются "замена корреспонденций" или "замена аналитики". Подобные обработки есть и на ИТС (не пользовал, не знаю), есть и на проклабе. Одну-то точно пользовал ;) и знаю, что заменит, не затрагивая итогов.
4 marvak
 
15.07.05
20:27
пишешь обработку, где заполняешь склад.
можешь даже воспользоваться "Универсальной"
5 Дурочка 1С
 
15.07.05
20:30
(2) Не гони. УСН в 2002 году была, а вот 1С:УСН не было ...
6 bukashka
 
15.07.05
20:31
Сорри - с 2003.
7 bukashka
 
15.07.05
20:38
(4) А Вы не могли бы рассказать чуть подробнее. Не могу найти универсальную.
8 pit
 
15.07.05
21:22
(1) а нафига? Проще сделать перемещение нужной датой с пустого склада на "основной"
9 ОбезьянаС Гранатой
 
15.07.05
21:23
7. п<Привет Железяке ;)>ля, да дел на 5 минут:
Для Сч = 1 по Метаданные.Документ() Цикл
  Если Метаданные.Документ(Сч).РеквизитШапки("МестоХранения").Выбран() = 1 Тогда
    Док = СоздатьОбъект("Документ." + Метаданные.Документ(Сч).Идентификатор);
    Док.ВыбратьДокументы();
    Пока Док.ПолучитьДокумент() = 1 Цикл
      Док.МестоХранения = ТвойОсновнойСклад;
      Док.Записать();
    КонецЦикла;
  КонецЕсли;
КонецЦикла;
//
// а теперь разберемся с проводками:
Опер = СоздатьОбъект("Операция");
ОперДляЗаписи = СоздатьОбъект("Операция");
Опер.ИспользоватьСубконто(ВидыСубконто.МестаХранения,СписокСубконтоКоторыеМеняешь);
Опер.ВыбратьОперацииСПроводками();
Пока Опер.ПолучитьПроводку() = 1 Цикл
  Если ОперДляЗаписи.Документ <> Опер.Документ Тогда
    Если ОперДляЗаписи.Выбрана() Тогда
      ОперДляЗаписи.Записать();
    КонецЕсли;
    ОперДляЗаписи.НайтиОперацию(Опер.Документ);
  КонецЕсли;
  ОперДляЗаписи.ПолучитьПроводкуПоНомеру(Опер.НомерПроводки());
  Попытка
    ОперДляЗаписи.Дебет.МестаХранения = ТвойОсновнойСклад;
  Исключение
  КонецПопытки;
  Попытка
    ОперДляЗаписи.Кредит.МестаХранения = ТвойОсновнойСклад;
  Исключение
  КонецПопытки;
КонецЦикла;
ОперДляЗаписи.Записать();
______________________________________________________________________
З.Ы. код не проверяла.
З.З.Ы. перед запуском любой обработки не забудь сделать резервную копию
10 VZ
 
15.07.05
21:25
(8) Петь, так это выбирать ТМЦ надоть, смотреть сумму-количество... А нафига, если обработка пожжужит минут десять, и проводки с "пустым" складом исчезнут?
11 Птица
 
15.07.05
21:30
(8,10)кстати, в УСН складской учет ведется на забалансе. на счетах МХ. учет там только количественный, не суммовой
12 Птица
 
15.07.05
21:33
8 ну можно и так, отчего нет
13 bukashka
 
15.07.05
21:39
(8) Так пробовали.. чушь получается.. причем если перемещать с основного на пустой - ничего не происходит.. а если наоборот - еще круче - материал исчезает(((
14 Дурочка 1С
 
15.07.05
21:42
+(11) и на счете РВ
15 ОбезьянаС Гранатой
 
15.07.05
21:43
13 тогда пробуй 9
16 bukashka
 
15.07.05
21:44
Еще мне непонятно как такое возможно в принципе?? почему 1с дает приходовать без указания склада?? Если это глюк, то наверное многие попались.. в нашем случае - абсурд в том, что пред. бухгадлтер уже осознав проблему, стала затыкать дыры начав приходовоть новое на основной, а перемещать и оттуда и оттуда. Я так понимаю, что теперь перепроведением поступления дело не ограничится, надо перепроводить еще и перемещение МПЗ.
17 ОбезьянаС Гранатой
 
15.07.05
21:49
16 используя 9, перепроводить ничего не надо, а склад изменится
правда, после этого нужно пересчет бухитогов сделать
18 Дурочка 1С
 
15.07.05
21:50
(16) Хочешь совет? Не суетись. Почитай, что написано в 9, ... подумай...
(по мне, так лучше бы выбрать эти два счета МХ и РВ и делать проверку выбран ли в проводке склад..., а документы(?) ... может и не обязательно...)
19 bukashka
 
15.07.05
21:51
(15) Спасибо огромное за труды.. Незнаю осилю ли этот скриптец (опыта админить 1с нет совсем), но хотел что то подобное увидеть.
20 Птица
 
15.07.05
22:03
(19)да трудов немного, пожалуйста
________________________
ну так глаза боятся, а руки делают.. :) смелее!
21 Дурочка 1С
 
15.07.05
22:16
(19) Тогда возьми готовое - на диске ИТС "Универсальная обработка замены значений".
23 bukashka
 
15.07.05
22:30
О.. спасибо огромное.. заранее благодарю... bukashka@mail.ru
24 ondul
 
15.07.05
23:06
(23) - ушло.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший