ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Документ "Операция" 1С 80 УПП. Как работать с ним ?
7 сообщений из 7, страница 1 из 1
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34738514
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdfgsdfgsdf
Участник
Прив.
Подскажите, (лучше пример приведите), как создать новий докумет "Операция" и заполнить его таб. часть проводками, включая субконто, сохранить его и провести, ? а то уже запарился....
...
Рейтинг: 0 / 0
20.08.2007, 14:02
| Ответить | Цитировать | Написать  
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34738752
Сисой
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сисой
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
		ДокОперацияБух = Документы.ОперацияБух.СоздатьДокумент(); 
		ЗаполнитьШапкуДокумента(ДокОперацияБух,глТекущийПользователь);
		ДокОперацияБух.Организация	= ВыборкаОрганизаций.Организация;
		ДокОперацияБух.Дата			= ДатаОстатков;
		ДокОперацияБух.Автор		= глТекущийПользователь;
		ДокОперацияБух.Комментарий	= "Создан автоматически. Закрытие остатков.";
		Попытка		
			ДокОперацияБух.Записать();		
		Исключение
			СообщитьОбОшибке("Не удалось создать документ """+Строка(ДокОперацияБух)+"""; "+ОписаниеОшибки());
			Продолжить;
		КонецПопытки;
		
		Выборка 		= ВыборкаОрганизаций.Выбрать();
		НаборЗаписей    = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
		НаборЗаписей.Отбор.Регистратор.Установить(ДокОперацияБух.Ссылка);
		НаборЗаписей.Прочитать();
		НаборЗаписей.Очистить(); 
		
		Пока Выборка.Следующий() Цикл
			
			состояние(Строка(НомСтр) +" из "+ Строка(КолСтр));
			НомСтр = НомСтр +  1 ;
			
			НоваяСтрока = НаборЗаписей.Добавить();
			ЗаполнитьЗначенияСвойств(НоваяСтрока,Выборка);
			
			Если Не ЗначениеНеЗаполнено(Выборка.Субконто1) Тогда
				Для каждого ВидыСубконто Из НоваяСтрока.СчетКт.ВидыСубконто Цикл
					Для каждого ТипСубконто Из ВидыСубконто.ВидСубконто.ТипЗначения.Типы() Цикл
						Если ТипСубконто = ТипЗнч(Выборка.Субконто1) Тогда
							УстановитьСубконто(НоваяСтрока.СчетКт, НоваяСтрока.СубконтоКт,ВидыСубконто.ВидСубконто , Выборка.Субконто1);
							Прервать;
						КонецЕсли; 
					КонецЦикла; 
				КонецЦикла; 
			КонецЕсли;
			
			Если Не ЗначениеНеЗаполнено(Выборка.Субконто2) Тогда
				Для каждого ВидыСубконто Из НоваяСтрока.СчетКт.ВидыСубконто Цикл
					Для каждого ТипСубконто Из ВидыСубконто.ВидСубконто.ТипЗначения.Типы() Цикл
						Если ТипСубконто = ТипЗнч(Выборка.Субконто2) Тогда
							УстановитьСубконто(НоваяСтрока.СчетКт, НоваяСтрока.СубконтоКт,ВидыСубконто.ВидСубконто , Выборка.Субконто2);
							Прервать;
						КонецЕсли; 
					КонецЦикла; 
				КонецЦикла; 
			КонецЕсли;
			
			Если Не ЗначениеНеЗаполнено(Выборка.Субконто3) Тогда
				Для каждого ВидыСубконто Из НоваяСтрока.СчетКт.ВидыСубконто Цикл
					Для каждого ТипСубконто Из ВидыСубконто.ВидСубконто.ТипЗначения.Типы() Цикл
						Если ТипСубконто = ТипЗнч(Выборка.Субконто3) Тогда
							УстановитьСубконто(НоваяСтрока.СчетКт, НоваяСтрока.СубконтоКт,ВидыСубконто.ВидСубконто , Выборка.Субконто3);
							Прервать;
						КонецЕсли; 
					КонецЦикла; 
				КонецЦикла; 
			КонецЕсли;
			
			ОбработкаПрерыванияПользователя();
			
		КонецЦикла;
		
		Попытка
			НаборЗаписей.Записать(Истина);
			Сообщить("Создан документ """ +Строка(ДокОперацияБух)+"""");
		Исключение
			СообщитьОбОшибке("Не удалось загрузить набор записей по документу """+Строка(ДокОперацияБух)+"""; "+ОписаниеОшибки());
		КонецПопытки;
		
	КонецЦикла;
...
Рейтинг: 0 / 0
20.08.2007, 14:50
| Ответить | Цитировать | Написать  
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34738767
Сисой
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сисой
Участник
Глобальные процедуры - из УПП.
...
Рейтинг: 0 / 0
20.08.2007, 14:52
| Ответить | Цитировать | Написать  
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34738774
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdfgsdfgsdf
Участник
Сенкс, пока колупаю :) - если чё - буду стучать !
...
Рейтинг: 0 / 0
20.08.2007, 14:54
| Ответить | Цитировать | Написать  
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34739203
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdfgsdfgsdf
Участник
Попутний вопрос (ви уж за "И" и "Є" извините, трабли с расскладкой) :
Есть в текстовом файте шахматка типа :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
         Дебет |   6612   |   6614   ....
----------------------------------------------------------------
Кредит
________________________________________________________

 2011                 2589      2560 
 2017                  540          50 
 2019                  145          60 
__________________________________________________________

Может у кого завалялся модулёк для 8-ки, которий єту шахматку из текстового файла
может втянуть в виде документа "Операция" ?
...
Рейтинг: 0 / 0
20.08.2007, 16:27
| Ответить | Цитировать | Написать  
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34750521
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdfgsdfgsdf
Участник
Видать нету ниукого ...
...
Рейтинг: 0 / 0
24.08.2007, 12:38
| Ответить | Цитировать | Написать  
Документ "Операция" 1С 80 УПП. Как работать с ним ?
    #34751099
sdfgsdfgsdf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdfgsdfgsdf
Участник
ЗаполнитьЗначенияСвойств ??? Где эта процкдура ??? чё она делает ?
...
Рейтинг: 0 / 0
24.08.2007, 14:50
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Документ "Операция" 1С 80 УПП. Как работать с ним ?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=34738514&tid=1525362]:
 0ms
get settings:
 12ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 268ms
total:  414ms
созд. / загр.: 414ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]