Tarkan VURAL

Script Kural ile ek alanlara farklı değerler getirmek

  Tiger/Genel

Merhaba,

Script kural ile fatura satırları için eklediğimiz ek alanlara (ADDITIONALDOCUMENTS) proje kodunu getirmeye çalışıyorum. Getiriyorum ama 3 ayrı satır var ve her satırın proje kodu farklı olmasına rağmen tüm satırlara aynı proje kodu geliyor. 


Kullanılan kod : 

sub ProcessEvent(App) 
 proje = App.Doc.FieldAsString("TRANSACTIONS.TRANSACTION.PROJECT_CODE")
 App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT" 
 App.Doc.WriteElementString "ID", proje 
 App.Doc.WriteElementString "ISSUEDATE", Year(Date()) & "-" & Month(Date()) & "-" & Day(Date())
 App.Doc.WriteElementString "DOCUMENTTYPE", "PROJECT_CODE" 
 App.Doc.WriteEndElement 
 App.Doc.SaveData 
end sub


Döngüyle her satırın proje kodunu alıp ek alan oluşturmak istediğimde ise hiç bir kayıt dönmüyor. Sanırım döngü içerisine bir kereden fazla ek alan eklemeye çalışmak hataya sebep oluyor.


sub ProcessEvent(App) 
 okay=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION") 
 while okay
 proje = App.Doc.FieldAsString("TRANSACTIONS.TRANSACTION.PROJECT_CODE")
 App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT" 
 App.Doc.WriteElementString "ID", proje 
 App.Doc.WriteElementString "ISSUEDATE", Year(Date()) & "-" & Month(Date()) & "-" & Day(Date())
 App.Doc.WriteElementString "DOCUMENTTYPE", "PROJECT_CODE" 
 App.Doc.WriteEndElement 
 okay=App.Doc.NextChild	 
 wend 
 App.Doc.SaveData 
end sub


Nasıl bir script ile bunu çözebilirim ? 

İyi çalışmalar. 

 



Script Kural Connect Ekalan


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

Merhabalar,


Uyarlama Araçları Ekibi olarak sadece Uyarlama Araçlarına destek vermekteyiz Script kural desteğini E-Fatura destek hattı vermektedir.


İyi Çalışmalar.


16/06/20 17:05


Eshat

Merhaba Tarkan Bey,


konu ile ilgili bir gelişme oldu mu?


22/01/21 12:07

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