Proper document update before sending data to Excel

[adam_liska9KKD3]

Hi guys. I have a simple rule for export and import data from Excel sheet. I need to update the document before data exchange occurs.

I run the rule through the Forms, but it works with an old data for the first try. I have to run it twice to get it updated properly. Am I missing something?

InventorVb.DocumentUpdate()

If P1_A>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "G31") = P1_A
	
End If

If P1_B>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "H31") = P1_B
	End If

P1__SsO = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA9")
P1__SsC = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA10")
GoExcel.Save

[Andrii_Humeniuk]

Hi @adam_liska9KKD3 . Try this code:

Dim oDoc As Document = ThisDoc.Document
oDoc.Rebuild()
oDoc.Update()

If P1_A>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "G31") = P1_A
	
End If

If P1_B>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "H31") = P1_B
	End If

P1__SsO = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA9")
P1__SsC = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA10")
GoExcel.Save

[adam_liska9KKD3]

No luck...

[adam_liska9KKD3 · Accepted solution]

@Andrii_Humeniuk  I´ve found a workaround. I split the rule into 2 rules:

1. document update "DocUpdate"

Dim oDoc As Document = ThisDoc.Document
oDoc.Rebuild()
oDoc.Update()

2. data exchange. "DataExchange"

If P1_A>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "G31") = P1_A
	
End If

If P1_B>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "H31") = P1_B
	End If

P1__SsO = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA9")
P1__SsC = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA10")
GoExcel.Save

And I combined them together in the third rule "Update":

iLogicVb.RunRule("DocUpdate")
iLogicVb.RunRule("DataExchange")

[A.Acheson]

Hi @adam_liska9KKD3 

Try this using the Parameter function. 

Parameter.UpdateAfterChange = True
If P1_A>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "G31") = Parameter("P1_A")
	
End If

If P1_B>0 Then
	GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "H31") = Parameter("P1_B")
	End If

Parameter("P1__SsO") = GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA9")
Parameter("P1__SsC")= GoExcel.CellValue(P1__EXCEL + ".xlsx", "VYPOCET", "AA10")
GoExcel.Save