Гость
Войти | Профиль | Очистить
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Документ "Операция" 1С 80 УПП. Как работать с ним ? / 7 сообщений из 7, страница 1 из 1
20.08.2007, 14:02
    #34738514
sdfgsdfgsdf
sdfgsdfgsdf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
Прив.
Подскажите, (лучше пример приведите), как создать новий докумет "Операция" и заполнить его таб. часть проводками, включая субконто, сохранить его и провести, ? а то уже запарился....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2007, 14:50
    #34738752
Сисой
Сисой
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
Код: 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:52
    #34738767
Сисой
Сисой
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
Глобальные процедуры - из УПП.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2007, 14:54
    #34738774
sdfgsdfgsdf
sdfgsdfgsdf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
Сенкс, пока колупаю :) - если чё - буду стучать !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2007, 16:27
    #34739203
sdfgsdfgsdf
sdfgsdfgsdf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
Попутний вопрос (ви уж за "И" и "Є" извините, трабли с расскладкой) :
Есть в текстовом файте шахматка типа :
Код: 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
| Ответить | Цитировать | Написать  
24.08.2007, 12:38
    #34750521
sdfgsdfgsdf
sdfgsdfgsdf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
Видать нету ниукого ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2007, 14:50
    #34751099
sdfgsdfgsdf
sdfgsdfgsdf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Документ "Операция" 1С 80 УПП. Как работать с ним ?
ЗаполнитьЗначенияСвойств ??? Где эта процкдура ??? чё она делает ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Документ "Операция" 1С 80 УПП. Как работать с ним ? / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 362ms
Закрыть
start [/forum/topic.php?fid=28&mobile=1&tid=1525362]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 244ms
total:  362ms
x
x
Закрыть


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