Экспорт НН из 1с 7.7

[GerasimAndMumu]

Добрый день. Для автоматизации учета переделали форму экспорта НН из 1с. Экспорт работает но НН попадают в группу "ВХІДНІ", а нужно в "ВИХІДНІ". Что нужно изменить? Код алгоритма дальше.

Код: Виділити все

 //============================================
Процедура Медок()     
	Перем спДанныеОтчета;	
	Перем ТекущаяСтрока;
	Перем ЧислоСтрок;
	Перем Список;             
	
	
	перем значение,номер;
    
	ЕстьМедок=0;
	Попытка
	 App=СоздатьОбъект("MEDOC.ZApplication");  
	 ЕстьМЕдок=1;
    Исключение   
	  Предупреждение("Для проведения экспорта запустите Ме-Док на Вашем компьютере! И повторите попытку.");
	  
КонецПопытки;                                                   
Если ЕстьМедок=1 Тогда
	

Сообщить("Виконується експорт в Ме-Док... "); // небыло такого  
	PDate=Дата(ДатаГод(ДатаДок),ДатаМесяц(ДатаДок),01);  
    Doc = App.CreateDocumentByParam("J1201004",0,PDate,) ;   
	
	// Грузим шапку                                                           
		rsMain=Doc.DataSets() ;  
	rsMain.Edit();
	rsMain.FldVal("RSTTYPE",5);	 	
	// левая шапка
	rsMain.FldVal("N1",1);	
	rsMain.FldVal("N12",1);	
	//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
	// Дата налоговой
	rsMain.FldVal("N11",ДатаДок);
    // Номер в реестре	
	rsMain.FldVal("N2_11",СокрЛП(Строка(НомерВРеестре)));	
	Если ПустоеЗначение(КодНДС)=0 Тогда
	rsMain.FldVal("N2_12",2);		
	КонецЕсли;
	 // Контрагент
	 rsMain.FldVal("N3",Контрагент.ПОлнНаименование);	// Полное наименование контрагента 
	 rsMain.FldVal("N4",Контрагент.ИНН);				// ИНН контрагента
	 rsMain.FldVal("N5",Контрагент.Адрес);	            // Адрес контранента
	 rsMain.FldVal("N6",Контрагент.Телефоны);	        // Телефон контрагента
	 rsMain.FldVal("N7",Контрагент.НомерСвидетельства);	// Номер свидетельства контрагента 
	                                                                                       
	 // Договор продажи
	 rsMain.FldVal("N8",УсловиеПродажи);				// Условие продажи
	 rsMain.FldVal("N82",Заказ.ДатаДок);				// Дата договора  
	 rsMain.FldVal("N81",Заказ.НомерДоговора);			// Номер договора 
	 rsMain.FldVal("N9",ФормаРасчетов);					// Номер договора      
	 rsMain.FldVal("N10",глФИО(Выписал,1));				// Подпись        
	 
	 
	 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
	 // итоги      
	
				rsMain.FldVal("A5_7"		,Итог("СуммаБезСкидки"));//Запр.СуммаБезНДС	
				rsMain.FldVal("A6_7"		,Итог("НДС"));//Запр.НДС	
				rsMain.FldVal("A7_7"		,Итог("СуммаСНДС"));//Запр.СуммаБезНДС


				rsMain.FldVal("A5_11"		,Итог("СуммаБезСкидки"));//Запр.СуммаБезНДС	
				rsMain.FldVal("A6_11"		,Итог("НДС"));//Запр.НДС	
				rsMain.FldVal("A7_11"		,Итог("СуммаСНДС"));//Запр.СуммаБезНДС
				

//	
	  	rsMain.Post();	
	 
	 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
	 // Многострочная часть
	 
	 Для Ф=1 по КоличествоСтрок() Цикл   
		rsMain=Doc.DataSets("TAB1") ;  
		rsMain.Edit();	
		Если Ф>1 Тогда
			rsMain.Append();
		КонецЕсли;		
				rsMain.FldVal("TAB1_A1"	,Ф);//номцикл
				rsMain.FldVal("TAB1_A12",ДатаДок);//Запр.НН.ДатаДок
				rsMain.FldVal("TAB1_A13",СокрЛП(ТМЦ));//Запр.НН.ДатаДокумента			
				rsMain.FldVal("TAB1_A131",СокрЛП(ТМЦ.КодУКТЗЕД));//Запр.НН.НомерДокумента      
				ЕдИзм = СокрЛП(Ед);
				Если ТМЦ.Вид() = "Животные" Тогда	  
					ЕдИзм = СокрЛП(ТМЦ.БазЕдиница);
                КонецЕсли;
				rsMain.FldVal("TAB1_A14",ЕдИзм);	//ВидДокумента
				rsMain.FldVal("TAB1_A15",Кво);//Запр.Контрагент.ПолнНаименование
				rsMain.FldVal("TAB1_A16",ЦенаБезНДС*Коэффициент); //Запр.Контрагент.ИНН
				rsMain.FldVal("TAB1_A17",СуммаБезСкидки);//Запр.СуммаСНДС
	
		rsMain.Post() ;
	КонецЦикла;
	Doc.Save(PDate); 
	Doc.Close();
	Предупреждение("Експорт в Ме-Док виконано!"); // небыло такого
КонецЕсли;	
КонецПроцедуры

[Родин Евгений]

Сверьте ИНН в накладной, и "Карточке предприятия" Медка.
Пункт 4 посмотрите
Кстати, у Вас последння версия Медка? Такой вопрос встречался раньше, в версиях до 070 (или около того).

[GerasimAndMumu]

Реквизиты во время экспорта все правильные. И кто выписал и кто получил, и табличная часть. Единственно НН попадает не туда куда требует главных бухгалтер! Ме-док лицензионный версия 076. Скрин во вложении (это просто картинка из базы для тестирования)

111.jpg (21.42 Кіб) Переглянуто 2715 разів

[GerasimAndMumu]

и в добавок. НН нужно отправлять не контрагенту а для регистрации в ДПС.

[Родин Евгений]

Еще раз:

Сверьте ИНН в накладной, и "Карточке предприятия" Медка.

[pavel]

добавлю для ясности
сверять нужно ИНН вашей организации в медке и в самой НН

[GerasimAndMumu]

Спасибо, разобрался. Нужно просто указать тип накладной ==> rsMain.FldVal("NAKL_TYPE",1);