Имя: Пароль:
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) да и бух.справка не входит в перечень кассовых документов, так что при проверке можно получить по шапке, очень больно причем.