Доступ к МедКу через объекты

[JazzyManSerg]

Помогло вначале модуля поставить desablescripts, а перед save поставить enablescripts

[JazzyManSerg]

Не ужели никто не грузит через COM ?
Заметил интерессній факт , - после заливки данніе есть в єлектроннной таблице, нет только в самой форме. Тоесть єто не в оле проблема а вообще в медковской налоговой, - либо метод save не корректно отрабатывает с J1201008, потому как с J1201007 таких проблем не было.

Вот интерессно, кому об этом говорить, -позвонил на горячую линию - там вообше не в курсе что такое СОМ.

Разрабы медка вообще читают этот форум, или тут только юзеры ?

[cherny_a]

Добрый день.
При передаче документа в МЕДОК, статус документа "Помилковий", при проверке - "Помилкі выдсутні", статус изменяется на "Вірний"

Вот в МЕДКЕ:





Сам код в 1С:



Раньше, до выхода новых форм, проблем со статусом в документах не было. В чем может быть ошибка?

[Inkognito]

Предположительно, не передается какое-то поле (или передается некорректно), а после захода в документ подставляется автоматически. И документ меняет статус. Попробуйте отключить авторасчет (см. в меню Медка), передать снова, и не нажимая "Проверить", посмотреть все ли поля переданы. Потом нажмите "Проверить". По идее, покажет не переданное (не корректно переданное) поле.

[cherny_a]

Предположительно, не передается какое-то поле (или передается некорректно), а после захода в документ подставляется автоматически. И документ меняет статус. Попробуйте отключить авторасчет (см. в меню Медка), передать снова, и не нажимая "Проверить", посмотреть все ли поля переданы. Потом нажмите "Проверить". По идее, покажет не переданное (не корректно переданное) поле.

Спасибо за ответ.
Проверил, как вы говорите:


Передаю документ:


Смотрю в МЕДКЕ:

[Inkognito]

Можете скинуть код формирования документа в приват? У меня где-то дома была 7ка, проверю вечером.

[cherny_a]

Можете скинуть код формирования документа в приват? У меня где-то дома была 7ка, проверю вечером.

Отправил в личку

[AllexL]

Можете скинуть код формирования документа в приват? У меня где-то дома была 7ка, проверю вечером.

Отправил в личку

У меня та же ситуация, правда , не с 1с
Если не трудно, опубликуйте результаты расследования

[Inkognito]

Вечером/ночью посмотрю (еще нужно будет найти свежий МДшник и обновить, она у меня давно не обновленная), напишу результат исследований.

[cherny_a]

Вечером/ночью посмотрю (еще нужно будет найти свежий МДшник и обновить, она у меня давно не обновленная), напишу результат исследований.

Спасибо большое.

[cherny_a]

Можете скинуть код формирования документа в приват? У меня где-то дома была 7ка, проверю вечером.

Отправил в личку

У меня та же ситуация, правда , не с 1с
Если не трудно, опубликуйте результаты расследования

У вас тоже после записи документа в МЕДКЕ - статус "Помилковий"?

[Inkognito]

Совсем забыл, что в 7ке регалментированные отчеты обновляются дополнительно (и не содержатся в МДшнике). Вот что значит пересесть на 8ку...
Сорри, вчера не было возможности проверить, - не нашел на просторах интернета новых реглотчетов.

[cherny_a]

Совсем забыл, что в 7ке регалментированные отчеты обновляются дополнительно (и не содержатся в МДшнике). Вот что значит пересесть на 8ку...
Сорри, вчера не было возможности проверить, - не нашел на просторах интернета новых реглотчетов.

Доброе утро. А подскажите вам регламентные зачем?

[cherny_a]

Всем привет.
Вроде нашел причину выгрузки документа со статусом "Помилковий". При выгрузке я не заполнял поле табличной части "TAB1_A8", МЕДОК его сам проставлял, но при этом статус - "Помилковий".
Сейчас документ выгружается со статусом "Вірний".

[Inkognito]

Совсем забыл, что в 7ке регалментированные отчеты обновляются дополнительно (и не содержатся в МДшнике). Вот что значит пересесть на 8ку...
Сорри, вчера не было возможности проверить, - не нашел на просторах интернета новых реглотчетов.

Доброе утро. А подскажите вам регламентные зачем?

Точно, в 7ке ведь можно формировать НН, ориентируясь на реквизиты документа. А в 8ке можно (и крайне желательно) использовать механизм "СтруктураПараметров", который отталкивается от макетов. Спасибо, интересная информация по поводу "TAB1_A8".

[AllexL]

У вас тоже после записи документа в МЕДКЕ - статус "Помилковий"?

Да, именно так.

Всем привет.
Вроде нашел причину выгрузки документа со статусом "Помилковий". При выгрузке я не заполнял поле табличной части "TAB1_A8", МЕДОК его сам проставлял, но при этом статус - "Помилковий".
Сейчас документ выгружается со статусом "Вірний".

Я заполняю это поле, но статус "Помилковий" все-равно

Мой скрипт для выгрузки | Показать

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

Dim frmCode  : frmCode = "J1201008"
		Dim doc : Set Doc = bz.OpenOrCreateByExDocID(frmCode , 0, taxOp.Date, , CStr(TaxOp.id), 0 )
		Doc.DisableScripts 'отключаем бейсиковские скрипты
		Dim rsMain : Set rsMain = Doc.DataSets("main")
		Dim col : col = grdPrint.Columns
		Dim val
		With rsMain
			.edit()
			.FIelds("NAKL_TYPE").Value = 1
			val = grdPrint.cell( 2, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A7_11").value = val
			val = grdPrint.cell( 3, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A6_11").value = val
			val = grdPrint.cell( 4, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A6_7" ).value = val
			val = grdPrint.cell( 5, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A6_71").value = val
			val = grdPrint.cell( 6, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A5_7" ).value = val
			val = grdPrint.cell( 7, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A5_71").value = val
			val = grdPrint.cell( 8, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A5_9" ).value = val
			val = grdPrint.cell( 9, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A7_8" ).value = val
			val = grdPrint.cell(10, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A7_10").value = val
			val = grdPrint.cell(11, col).value : If Not(IsNull(val) Or IsEmpty(val)) Then .Fields("A7_11").value = val
	
			.Fields("N25").value =  TAX_ComplexDocument 
			If TAX_Freed Then .Fields("N26").value = "Без ПДВ"
			.Fields("N13").value = CBool(cmbReason2.Value<>0)
			If Not IsEmpty(grdStamp.Cell(grdStamp.Rows,grdStamp.Columns-1).Value) Then .Fields("N14").value =  grdStamp.Cell(grdStamp.Rows,grdStamp.Columns-1).Value & grdStamp.Cell(grdStamp.Rows,grdStamp.Columns-0).Value
			.Fields("N4").value  = restoreVAT(grdAgToVAT)
			.fields("FIRM_NAME").value = slAgFrom.Text
			.fields("FIRM_INN").value = restoreVAT(grdAgFromVat)
			.Fields("N3").value  = slAgTo.Text
			If Trim(edDocTag.Text)<>"" And IsNumeric(Trim(edDocTag.Text)) Then .Fields("N2_12").value = CInt(Trim(edDocTag.Text))
			.fields("N10").value = edWorker3.Text
			.fields("N11").value = taxOp.Date
			.fields("N2_11").value = edDocNo.Text
			.fields("INN").value = restoreVAT(grdSignerVAT)
			If taxOp.trans(1,1).params(pnContract).value2<> 0 Then
				Dim contract : Set contract = Workarea.Binder(taxop.trans(1,1).Params(pnContract).value)
				.Fields("N8").value = edContractType3.Text
						If Not IsEmpty(Contract) Then .Fields("N82").value = CDate(Right(Contract.Name,10))
						If Not IsEmpty(Contract) Then .Fields("N81").value = Left(Contract.Name, InStr(1, Contract.Name," от"))
			End If
			If   edAgToFilia.text <> "" Then .fields("DEPT_POK").value = Trim(  edAgToFilia.text)
			If edAgFromFilia.text <> "" Then .fields("N2_13").value = Trim(edAgFromFilia.text)
			.post
		End With
		Dim place :  Set place = Form.Control("sgrdCont1")
		Dim rsTab  : Set rsTab= Doc.DataSets("TAB1")		
		Dim i : For i =1 To place.Rows
				place.Scrollpos = i
				If i=1 Then 
						rsTab.Edit 
									Else
						rsTab.Append
				End If
				rsTab.Fields("TAB1_A13"  ).Value = place.Cell(i, 2).Value 
				rsTab.Fields("TAB1_A131" ).Value = place.Cell(i, 3).Value 
				rsTab.Fields("TAB1_A14"  ).Value = place.Cell(i, 4).Value 
				rsTab.Fields("TAB1_A141" ).Value = place.Cell(i, 5).Value 
				If IsNumeric(Replace(place.Cell(i, 6).Value,".",",")) Then rsTab.Fields("TAB1_A15" ).Value = Replace(place.Cell(i, 6).Value,".",",") Else rsTab.Fields("TAB1_A15").Value = place.Cell(i, 6).Value '.Qty 
				rsTab.Fields("TAB1_A16"  ).Value = place.Cell(i, 7).Value 
				rsTab.Fields("TAB1_A8"   ).Value = place.Cell(i, 8).Value 
				rsTab.Fields("TAB1_A9"   ).Value = place.Cell(i, 9).Value
				rsTab.Fields("TAB1_A10"   ).Value = place.Cell(i,10).Value
				rsTab.post
		Next
		Doc.UpdateSysFields
		Doc.EnableScripts
		Doc.Save(1)   ' Сохранение документа
.....

[cherny_a]

Я заполняю это поле, но статус "Помилковий" все-равно

А после проверки, в МЕДКЕ? ничего не меняется и документ становиться "Вірний"?

[AllexL]

А после проверки, в МЕДКЕ? ничего не меняется и документ становиться "Вірний"?

Именно так и происходит

[cherny_a]

А после проверки, в МЕДКЕ? ничего не меняется и документ становиться "Вірний"?

Именно так и происходит

Ответил в личку

[olegyudin]

Добрый день!
WIndows обновилась до 10 версии и теперь наша программа не может "достучаться" до Медка через com объекты.
Подскажите, пожалуйста, что делать?

Юдин Олег