Как добавить банковские счета по com?

Форум Программирование Общие вопросы программирования (Dev)

1. user1928830 31.10.23 15:34 Сейчас в теме

Добрый день всем!

подключаюсь по com к другой базе . из бухии тяну банковские счета . в другой базе это таблица значений на странице

не могу понять как добавлять строки в нее 2 строи банк и номер счета

вот код :

ТаблицаПараметров = БазаБП.NewObject("ТаблицаЗначений");
    
    КвалифСтроки = БазаБП.NewObject("КвалификаторыСтроки", 20);
    ДопустимыеТипы = БазаБП.NewObject("ОписаниеТипов", "Строка", КвалифСтроки);    
    
    ТаблицаПараметров.Колонки.Добавить("Номер", ДопустимыеТипы);
    
    КвалифДаты = БазаБП.NewObject("КвалификаторыДаты");
    ДопустимыеТипыДаты = БазаБП.NewObject("ОписаниеТипов", "Дата", КвалифДаты);    
    
    ТаблицаПараметров.Колонки.Добавить("День", ДопустимыеТипыДаты);
    
    Пока Выборка.Следующий() Цикл
        НовСтр = ТаблицаПараметров.Добавить();
        ЗаполнитьЗначенияСвойств(НовСтр,Выборка);
    КонецЦикла;

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. nomad_irk 79 31.10.23 16:13 Сейчас в теме

(1)в первом приближении код рабочий.
что именно не работает?

4. user1928830 31.10.23 16:48 Сейчас в теме

(2)БанковскиеСчета это табл значений на странице справочника

ее нет в объекте . как к ней обратиться я не пойму , в коде не вижу ее

 &НаСервере
Процедура Команда1НаСервере()   
	
	пр = справочники.Контрагенты.Выбрать();
	
	пока пр.Следующий() цикл 
		
		об = пр.ПолучитьОбъект();  
		
 	
	//	
	//	
		инн= об.ИНН;
		
		Контраг = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",Строка(инн));
		Выборка=Справочники.БанковскиеСчета.Выбрать(,Контраг.Ссылка);
		Пока Выборка.Следующий()  Цикл
			Бан = Выборка.ПолучитьОбъект(); 
			
			Счет = Бан.НомерСчета;
			
			СOM1с=Новый COMObject("V83.COMConnector");
			Попытка 
				ВнешняяБаза  =  СOM1с.Connect("Srvr=1c-01;Ref=USP_IS;Usr=Администратор;Pwd=1377");   
				
				сообщить("подключено к базе !");
			
				Вн = ВнешняяБаза.Справочники.Контрагенты.Выбрать(); 
				
				Пока Вн.Следующий() цикл   
					
					
					оп= Вн.ПолучитьОбъект();
					
					
					ТаблицаПараметров = ВнешняяБаза.оп.БанковскиеСчета;
					
					КвалифСтроки = ВнешняяБаза.NewObject("КвалификаторыСтроки", 20);
					ДопустимыеТипы = ВнешняяБаза.NewObject("ОписаниеТипов", "Строка", КвалифСтроки);    
					
					ТаблицаПараметров.Колонки.Добавить("Банк", ДопустимыеТипы);
					
					Пока Выборка.Следующий() Цикл
						НовСтр = ТаблицаПараметров.Добавить();
						НовСтр.Банк= Бан;    
						
					КонецЦикла;					//
				
					оп.Записать();
				
				КонецЦикла; 
				
			Исключение
				ВнешняяБаза=Неопределено; 
				
				сообщить("НЕ подключено к базе !");
				
			КонецПопытки;   		
			
		КонецЦикла;    	

	КонецЦикла; 
	
  
КонецПроцедуры

Показать

3. soft_wind 31.10.23 16:28 Сейчас в теме

так же, добавьте в ТЗ колонки с КодомБанка и НомеромСчета
эти колонки заполнятся командой: ЗаполнитьЗначенияСвойств(НовСтр,Выборка);

проверьте свой запрос что бы там были эти данные
больше и делать ни чего не надо (на этом этапе)

5. user1928830 31.10.23 16:49 Сейчас в теме

БанковскиеСчета это табл значений на странице справочника

(3)

&НаСервере
Процедура Команда1НаСервере()   

	
	пр = справочники.Контрагенты.Выбрать();
	
	пока пр.Следующий() цикл 
		
		об = пр.ПолучитьОбъект();  
	
 	
	//	
	//	
		инн= об.ИНН;
		
		Контраг = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",Строка(инн));
		Выборка=Справочники.БанковскиеСчета.Выбрать(,Контраг.Ссылка);
		Пока Выборка.Следующий()  Цикл
			Бан = Выборка.ПолучитьОбъект(); 
			
			Счет = Бан.НомерСчета;
			
			
			СOM1с=Новый COMObject("V83.COMConnector");
			Попытка 
				ВнешняяБаза  =  СOM1с.Connect("Srvr=1c-01;Ref=USP_IS;Usr=Администратор;Pwd=1377");   
				
				сообщить("подключено к базе !");
				
				
				Вн = ВнешняяБаза.Справочники.Контрагенты.Выбрать(); 
				
				Пока Вн.Следующий() цикл   
			
					
					оп= Вн.ПолучитьОбъект();
				
					
					ТаблицаПараметров = ВнешняяБаза.оп.БанковскиеСчета;
					
					КвалифСтроки = ВнешняяБаза.NewObject("КвалификаторыСтроки", 20);
					ДопустимыеТипы = ВнешняяБаза.NewObject("ОписаниеТипов", "Строка", КвалифСтроки);    
					
					ТаблицаПараметров.Колонки.Добавить("Банк", ДопустимыеТипы);
					
				
					Пока Выборка.Следующий() Цикл
						НовСтр = ТаблицаПараметров.Добавить();
						НовСтр.Банк= Бан;    
					
						
					КонецЦикла;					//
					
					оп.Записать();
				
				КонецЦикла; 
				
			Исключение
				ВнешняяБаза=Неопределено; 
				
				сообщить("НЕ подключено к базе !");
				
			КонецПопытки;   
		
		КонецЦикла;    	
		
	КонецЦикла; 
	
КонецПроцедуры

Показать

6. user1863362 31.10.23 18:41 Сейчас в теме

ТаблицаПараметров = ВнешняяБаза.оп.БанковскиеСчета;

Это вот вообще что такое?

7. пользователь 31.10.23 21:54

Сообщение было скрыто модератором.

...

8. пользователь 31.10.23 21:55

Сообщение было скрыто модератором.

...

Оставьте свое сообщение

E-mail: