Unique ID in a row

Elmar Weinekötter

Hi,
I have declared ItemCode, in a delivery I want to set the value to the first row. This must be an unique field ID, but unfortunately I do not know the id (38 is not unique) of this field. See the attachment.
This is my code:

Dim FormLev As Form = Form.GetFormFromUID(customize.B1Connector.GetB1Connector().Application.Forms.ActiveForm.UniqueID) 'get new form
TextEdit.GetFromUID(FormLev, "??").Value = ItemCode 'set value to new form

Does anybody know the unique id of this field I can use in the code?

Corinna Hochheim

Hallo Elmar,
ich weiß nicht, ob ich deine Frage richtig verstanden habe, aber du kannst eine Artikelnummer in die Spalte ItemCode (UniqueID ist 1) der aktuellen Zeile (denn ich denke, du willst das nicht unbedingt nur auf die erste Zeile anwenden, oder) mit folgenden VB-Code schreiben:

Dim current_row As Integer
current_row = pval.Row - 1
Matrix.GetFromUID(pVal.Form, "38").SetValue("1", current_row, "YourItemCode")

Grüße
Corinna

Elmar Weinekötter

Hi Corina,
Dank für deine Antwort.
In diesem Fall brauche ich nur die erste Zeile:
Ich möchte einen Lieferung von einem Serviceabruf erstellen. In der Lieferung brauche ich nur einen Artikel, den Artikel aus der Serviceabruf.
Dies ist der Code: (Function Button)

Try
Dim Artikel As String = TextEdit.GetFromUID(pVal.Form, "33").Value 'get artikel from current form
'Service Call
Dim FormSC As Form = Form.GetFormFromUID(customize.B1Connector.GetB1Connector().Application.Forms.ActiveForm.UniqueID) 'get new form
Folder.GetFromUID(FormSC, "64").Click(Item.ClickType.Regular)
Button.GetFromUID(FormSC, "75").Click(Item.ClickType.Regular)
'Kosten Service Call
Dim FrmKostSC As Form = Form.GetFormFromUID(customize.B1Connector.GetB1Connector().Application.Forms.ActiveForm.UniqueID) 'get new form
Button.GetFromUID(FrmKostSC, "3").Click(Item.ClickType.Regular)
'Documentsoort
Dim FormDocSrt As Form = Form.GetFormFromUID(customize.B1Connector.GetB1Connector().Application.Forms.ActiveForm.UniqueID) 'get new form
OptionButton.GetFromUID(FormDocSrt, "2").Click(Item.ClickType.Regular)
Button.GetFromUID(FormDocSrt, "6").Click(Item.ClickType.Regular)
'Levering
Dim FormLev As Form = Form.GetFormFromUID(customize.B1Connector.GetB1Connector().Application.Forms.ActiveForm.UniqueID) 'get new form
'TextEdit.GetFromUID(FormLev, "??").Value = Artikel 'set value to new form
Catch ex As Exception
customize.Messaging.StatusBar.WriteError("Error in coresuite customize Rule: " & ex.ToString())
customize.Messaging.Debug.WriteMessage("Error in coresuite customize Rule: " & ex.ToString(), customize.Messaging.Debug.DebugLevel.Exception)
End Try

Wenn ich deinen Code nutze, bekomme ich ein Fehler:
Row - Invalid index [66000-31]
Grüße
Elmar

Corinna Hochheim

Hallo Elmar,
ok, ich verstehe. In dem Fall müsste folgende Codezeile schon ausreichen:

Matrix.GetFromUID(FormLev, "38").SetValue("1",0,"")

Grüße
Corinna

Elmar Weinekötter

Vielen Dank!