Kişi bilgileri gizlidir. Logo çalışanları görebilir.

sipariş

  Tiger/Logo Object Designer (LOD)

sipariş  kaydetme örneği varmı ?


sipariş


NaciO

Aktarım örneğini ekledim. Ancak bu sadece bir aktarımın nasıl yapılabileceği konusunda size fikir verebilir. İlgili müşteri ihtiyacını karşılamk için hangi alanların aktarılması gerektiği konusunda ise izlenmesi gereken yol şu şekildedir;
 

  • Öncelikle aktarım sonrasında ERP sistemi içerisinde görmek istediğiniz gibi bir kaydı manuel kaydedin.
  • Akabinde bu kaydı "Araçlar" \ "Veri aktarımı dışarı" seçeneği ile XML dosyası olarak dışarı alın.
  • Bu XML dosyası sizin veri deseniniz olacak. Son olarak aşağıdaki linkten ulaşabileceğiniz XML den otomatik olarak aktarım kodunu oluşturabilirsiniz. http://forum.logo.com.tr/index.php?page=xml-code-converter

 

public static void AddOrderFiche()
{
	UnityObjects.Data OrderSlip = 
                 Global.UnityApp.NewDataObject(UnityObjects.DataObjectType.doPurchOrderSlip);
	OrderSlip.New();
	OrderSlip.DataFields.FieldByName("NUMBER").Value = "~";
	OrderSlip.DataFields.FieldByName("DATE").Value = "01.07.2015";
	OrderSlip.DataFields.FieldByName("TIME").Value = "09:29";
	OrderSlip.DataFields.FieldByName("ARP_CODE").Value = "CARI.01";
	OrderSlip.DataFields.FieldByName("RC_RATE").Value = 1.5;
	OrderSlip.DataFields.FieldByName("TC_RATE").Value = 2;
	OrderSlip.DataFields.FieldByName("ORDER_STATUS").Value = 1;
	OrderSlip.DataFields.FieldByName("CURRSEL_TOTAL").Value = 1;
	OrderSlip.DataFields.FieldByName("CURR_TRANSACTIN").Value = 20;
	
	UnityObjects.Lines OrderLine = OrderSlip.DataFields.FieldByName("TRANSACTIONS").Lines;
	OrderLine.AppendLine();
	OrderLine[OrderLine.Count - 1].FieldByName("TYPE").Value = 0;
	OrderLine[OrderLine.Count - 1].FieldByName("MASTER_CODE").Value = "MALZEME.01";
	OrderLine[OrderLine.Count - 1].FieldByName("QUANTITY").Value = 30;
	OrderLine[OrderLine.Count - 1].FieldByName("PRICE").Value = 1000;
	OrderLine[OrderLine.Count - 1].FieldByName("VAT_RATE").Value = 18;
	OrderLine[OrderLine.Count - 1].FieldByName("UNIT_CODE").Value = "ADET";
	OrderLine[OrderLine.Count - 1].FieldByName("UNIT_CONV1").Value = 1;
	OrderLine[OrderLine.Count - 1].FieldByName("UNIT_CONV2").Value = 1;
	OrderLine[OrderLine.Count - 1].FieldByName("CURR_PRICE").Value = 160;

	OrderSlip.ApplyCampaign();

	OrderSlip.ExportToXML("SALES_ORDERS", "D:\\siparis.xml");
	
	if (!OrderSlip.Post())
	{
		ErrorControl(OrderSlip);
	}
}
public static void ErrorControl(UnityObjects.Data doData)
{
    if (doData.ErrorCode != 0)
    {
        MessageBox.Show(doData.ErrorCode.ToString() 
              + " : " + doData.ErrorDesc.ToString() 
              + "\n" + doData.DBErrorDesc.ToString());
    }
    else
    {
        string txt = "XML Errors \n";
        for (int i = 0; i < doData.ValidateErrors.Count; i++)
        {
            txt = txt + doData.ValidateErrors[i].ID.ToString() 
                      + " : " + doData.ValidateErrors[i].Error.ToString() 
                      + "\n";
        }
        MessageBox.Show(txt);
    }
}

 


01/07/15 11:28

Cevap vermek için giriş yapmanız gerekmektedir.