Sub AddItem_Click()
 Dim UnityApp As Variant
 Dim Stock As Variant
	
 Set UnityApp = CreateObject("UnityObjects.UnityApplication")
 If (UnityApp.Login("USER", "PASS", 1)) Then	' 1 : Firma No
 Set Stock = UnityApp.NewDataObject(doMaterial)
 Stock.New
 Stock.DataFields.FieldByName("CARD_TYPE").Value = 1
 Stock.DataFields.FieldByName("CODE").Value = "MALZEME.TEST.01"
 Stock.DataFields.FieldByName("UNITSET_CODE").Value = "05" 'txtStockUnit.Text
 If Stock.Post Then
 MsgBox "Malzeme Aktarıldı"
 Else
 If Stock.ValidateErrors.Count <> 0 Then
 MsgBox Stock.ValidateErrors.Item(0).Error
 Else
 MsgBox Stock.ErrorDesc
 End If
 End If
 Set Stock = Nothing
 UnityApp.Disconnect
 Set UnityApp = Nothing
 Else
 MsgBox (UnityApp.GetLastErrorString)
 End If
End Sub