Имя: Пароль:
1C
1С v8
Документ "ОперацияБух" в Бух 3.0
0 men47
 
08.03.14
21:31
Здравствуйте, Ситуация следующая, нужно сделать на основании документа "РасходныйКассовыйОрдер" документ "ОперацияБух" в Бухгалтерии 3.0. Все получается, т.е. документ без проблем создается, проводки без проблем создаются... НО!!! Как мне с МодуляОбъекта обновить форму!!!, т.к. открывается форма и таблица пустая, а если закрыть и открыть, она заполнена, помогите, пожалуйста!


ДокументОснование = ДанныеЗаполнения.ПолучитьОбъект();
Содержание = ДокументОснование.Комментарий;
ДокументОбъект.Организация = ДокументОснование.Организация;
ДокументОбъект.Дата = ?(НачалоДня(ДокументОснование.Дата) = НачалоДня(ТекущаяДата()),ТекущаяДата(),ДокументОснование.Дата+2);
ДокументОбъект.СпособЗаполнения = "Вручную";
ДокументОбъект.СуммаОперации =  -ДокументОснование.СуммаДокумента;
ДокументОбъект.Записать(РежимЗаписиДокумента.Запись);
        
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокументОбъект.Ссылка;
РегХозрасчетный.Прочитать();
        
РегЗапись = РегХозрасчетный.Добавить();
РегЗапись.Период = ДокументОбъект.Дата;
РегЗапись.Регистратор = ДокументОбъект.Ссылка;
РегЗапись.Организация = ДокументОбъект.Организация;
РегЗапись.Содержание  = ДокументОснование.Комментарий;
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", ДокументОснование.Контрагент);
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Договоры", ДокументОснование.ДоговорКонтрагента);
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ДокументыРасчетовСКонтрагентами", ДанныеЗаполнения);
РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "НоменклатурныеГруппы", Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("йцуйцу"));
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "СтавкиНДС", Перечисления.СтавкиНДС.БезНДС);
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Номенклатура", Справочники.Номенклатура.НайтиПоНаименованию("Медицинские услуги"));
РегЗапись.Сумма = -ДокументОснование.СуммаДокумента;
РегХозрасчетный.Записать();
1 men47
 
08.03.14
22:03
up
2 men47
 
08.03.14
22:24
upupup
3 maksim358
 
08.03.14
23:06
ты на сервере заполняешь табличную часть, а видишь ее на клиенте. надо тебе ее заново перечитать на клиенте.
4 men47
 
08.03.14
23:38
(3) это понятно, как лучше всего сделать? при открытии обновить форму или что?
5 men47
 
09.03.14
00:34
Все, всем спасибо, нашел сам правильный ответ!!!
мало ли кому мб пригодится выложу


ДокументОснование = ДанныеЗаполнения.ПолучитьОбъект();
Содержание = ДокументОснование.Комментарий;
ДокументОбъект.Организация = ДокументОснование.Организация;
ДокументОбъект.Дата = ?(НачалоДня(ДокументОснование.Дата) = НачалоДня(ТекущаяДата()),ТекущаяДата(),ДокументОснование.Дата+2);
ДокументОбъект.СпособЗаполнения = "Вручную";
ДокументОбъект.СуммаОперации =  -ДокументОснование.СуммаДокумента;
        
РегЗапись = ДокументОбъект.Движения.Хозрасчетный.Добавить();
РегЗапись.Период = ДокументОбъект.Дата;
РегЗапись.Регистратор = ДокументОбъект.Ссылка;
РегЗапись.Организация = ДокументОбъект.Организация;
РегЗапись.Содержание  = ДокументОснование.Комментарий;
РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Контрагенты", ?(ДокументОснование.Контрагент = Справочники.Контрагенты.ПустаяСсылка(),ДокументОснование.СубконтоДт1,ДокументОснование.Контрагент));
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Договоры", ?(ДокументОснование.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.ПустаяСсылка(),ДокументОснование.СубконтоДт2,ДокументОснование.ДоговорКонтрагента));
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ДокументыРасчетовСКонтрагентами", ДанныеЗаполнения);
РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "НоменклатурныеГруппы", Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("бла бла"));
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "СтавкиНДС", Перечисления.СтавкиНДС.БезНДС);
        БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Номенклатура", Справочники.Номенклатура.НайтиПоНаименованию("бла бла"));
РегЗапись.Сумма = -ДокументОснование.СуммаДокумента;
6 hhhh
 
09.03.14
08:45
в типовых посмотрите как сделан ввод на основании и скопируйте себе
7 men47
 
09.03.14
08:59
(6) в типовых нету ввода на основании документа "ОперацияБух"
8 men47
 
09.03.14
09:00
(7)+ я уже сделал, все правильно работает
9 zak555
 
09.03.14
09:54
(7) в типовых есть

ЗаполнениеДокументов.Заполнить(ЭтотОбъект, ДанныеЗаполнения);
10 zak555
 
09.03.14
10:09
> нужно сделать на основании документа "РасходныйКассовыйОрдер" документ "ОперацияБух" в Бухгалтерии 3.0

> СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
> СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");

> РегЗапись.Сумма = -ДокументОснование.СуммаДокумента;


т.е. клиенту оказали услугу (РТиУ), получили оплату (приходник), а он недоволен и требует деньги ?
тогда типа сторно ?
11 zak555
 
09.03.14
10:13
+ (10) если это так у ОперацияБух есть способ заполнения "Сторно" и реквизит документ к сторнированию
12 laeg
 
09.03.14
10:40
А ничего что потом кассовая книга не пойдет ? Да и ничего что все операции по кассе мы делаем РКО и ПКО ?
13 zak555
 
09.03.14
10:45
(12) почему не пойдёт ?
14 laeg
 
09.03.14
10:54
(13) Потому что типовая кассовая книга строиться только по ПКО и РКО, и при формировании будет выходит сообщение о несоответствии сумм по проводкам и документами.
15 laeg
 
09.03.14
10:59
+(14) да и бух.справка не входит в перечень кассовых документов, так что при проверке можно получить по шапке, очень больно причем.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший