Dim WSP As Variant
Dim WSPLines As Variant
Dim i As Integer
  Set WSP = UnityApp.NewDataObject(doWstChars)
  WSP.New
  WSP.DataFields.FieldByName("CODE").Value = InputBox("Work Station Property Code", , "ISOZELLIK01")
  WSP.DataFields.FieldByName("NAME").Value = "UnityObjects'ten Work Station Property"
  Set WSPLines = WSP.DataFields.FieldByName("VALUES").Lines
  If WSPLines.AppendLine Then
     WSPLines(0).FieldByName("CODE").Value = "OZELLIK_1"
     WSPLines(0).FieldByName("NAME").Value = "Ozellik 1 Açıklaması"
  End If
  If WSPLines.AppendLine Then
     WSPLines(1).FieldByName("CODE").Value = "OZELLIK_2"
     WSPLines(1).FieldByName("NAME").Value = "Ozellik 2 Açıklaması"
  End If
 
  If WSP.Post Then
     MsgBox "Work Station Property Added"
  Else
     ErrorControl (WSP)
  End If
WSP = Empty
WSPLines = Empty 

 
UnityObjects.Data purcinvoices = Global.UnityApp.NewDataObject(UnityObjects.DataObjectType.doPurchInvoice);
purcinvoices.New();
purcinvoices.DataFields.FieldByName("TYPE").Value = 6;
purcinvoices.DataFields.FieldByName("NUMBER").Value = "~";
purcinvoices.DataFields.FieldByName("DATE").Value = "04.04.2014";
purcinvoices.DataFields.FieldByName("TIME").Value = 269485337;
purcinvoices.DataFields.FieldByName("ARP_CODE").Value = "CRH01";
purcinvoices.DataFields.FieldByName("POST_FLAGS").Value = 247;
purcinvoices.DataFields.FieldByName("VAT_RATE").Value = 18;
purcinvoices.DataFields.FieldByName("CREATED_BY").Value = 1;
purcinvoices.DataFields.FieldByName("CURRSEL_TOTALS").Value = 1;
purcinvoices.DataFields.FieldByName("DOC_DATE").Value = "04.04.2014";
purcinvoices.DataFields.FieldByName("EINVOICE").Value = 1;
purcinvoices.DataFields.FieldByName("PROFILE_ID").Value = 2;
UnityObjects.Lines transactions_lines = purcinvoices.DataFields.FieldByName("TRANSACTIONS").Lines;
transactions_lines.AppendLine();
transactions_lines[transactions_lines.Count - 1].FieldByName("TYPE").Value = 0;
transactions_lines[transactions_lines.Count - 1].FieldByName("MASTER_CODE").Value = "MLZ02";
transactions_lines[transactions_lines.Count - 1].FieldByName("QUANTITY").Value = 12;
transactions_lines[transactions_lines.Count - 1].FieldByName("PRICE").Value = 3698;
transactions_lines[transactions_lines.Count - 1].FieldByName("UNIT_CODE").Value = "ADET";
transactions_lines[transactions_lines.Count - 1].FieldByName("UNIT_CONV1").Value = 1;
transactions_lines[transactions_lines.Count - 1].FieldByName("UNIT_CONV2").Value = 1;
transactions_lines[transactions_lines.Count - 1].FieldByName("VAT_RATE").Value = 18;
transactions_lines[transactions_lines.Count - 1].FieldByName("BILLED").Value = 1;
transactions_lines[transactions_lines.Count - 1].FieldByName("RET_COST_TYPE").Value = 1;
if (purcinvoices.Post() == true)
  {
     MessageBox.Show("POST OK !");
  }
else
  {
      if (purcinvoices.ErrorCode != 0)
        {
           MessageBox.Show("DBError(" + purcinvoices.ErrorCode.ToString() + ")-" + purcinvoices.ErrorDesc + purcinvoices.DBErrorDesc);
        }
      else if (purcinvoices.ValidateErrors.Count > 0)
             {
                string result = "XML ErrorList:";
                for (int i = 0; i < purcinvoices.ValidateErrors.Count; i++)
                   {
                     result += "(" + purcinvoices.ValidateErrors[i].ID.ToString() + ") - " + purcinvoices.ValidateErrors[i].Error;
                    }
                MessageBox.Show(result);
              }
  }