Page History

...

Cari Kodu Sevkiyat Adresi Alanına Getirme

sub ProcessEvent(App)
    kod = App.Doc.FieldAsString("ARP_CODE")

    App.Doc.ModifyData "SHIPLOC_CODE", kod

App.Doc.SaveData

end sub

Malzeme Kodu Alanına Sabit Veri Getirme

sub ProcessEvent(App) Kontrol

   Kontrol=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION") while

   while Kontrol
App         App.Doc.ModifyData

    "TRANSACTIONS.TRANSACTION.MASTER_CODE", "TEST"

    Kontrol=App.Doc.NextChild
    wend
    msgbox "okey"

App.Doc.SaveData

end sub

Satır bilgilerine toplamda sabit alanlar hariç 4 farklı yeni alan getirilebilir.

BuyersItemIdentificationITEMBuyersItemIdentification -> ITEM_SUPPLIERCODE

BuyersItemIdentification = Alıcı Kodu

Örnek Kural;
sub ProcessEvent(App) ok1

   ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
while    while ok1
kod      kod = App.Doc.FieldAsString("BARCODE")
App     App.Doc.ModifyData "ITEM_SUPPLIERCODE", kod

  ok1=App.Doc.NextChild
  wend

App.Doc.SaveData

end sub

...

BrandName -> Marka Adı (Kodu)

Örnek Kural;
sub ProcessEvent(App) ok1

   ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
while    while ok1
      marka = App.Doc.FieldAsString("DESCRIPTION")
      App.Doc.ModifyData "MASTER_MARKCODE", marka ok1

   ok1=App.Doc.NextChild
wend    wend

App.Doc.SaveData

end sub

...

ManufacturersItemIdentification -> PROCEDUCER_CODE

Örnek Kural;

sub ProcessEvent(App)

    ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
    while ok1
URETICI          URETICI = App.Doc.FieldAsString("DESCRIPTION")
App         App.Doc.ModifyData "PROCEDUCER_CODE", URETICI

    ok1=App.Doc.NextChild
    wend

App.Doc.SaveData

end sub

...

...

CommodityClassification -> MASTER_GROUPCODE

Örnek Kural;

sub ProcessEvent(App)

    ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
    while ok1
        GRUP = App.Doc.FieldAsString("DESCRIPTION")
        App.Doc.ModifyData "MASTER_GROUPCODE", GRUP

    ok1=App.Doc.NextChild
    wend

App.Doc.SaveData

end sub

Malzeme Barkod Alanının UBL'

...

ye Getirilmesi

Örnek Kural;
sub ProcessEvent(App)

    ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
    while ok1
        barkod = App.Doc.FieldAsString("TRANSACTIONS.TRANSACTION.BARCODE")
        App.Doc.ModifyData "TRANSACTIONS.TRANSACTION.ITEM_SUPPLIERCODE", barkod
    ok1=App.Doc.NextChild

    wend
App App.Doc.SaveData end sub

Malzeme Barkod Alanının UBL'e Getirilmesi

Örnek Kural;
sub ProcessEvent(App) ok1=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
while ok1
barkod = App.Doc.FieldAsString("TRANSACTIONS.TRANSACTION.BARCODE")
App.Doc.ModifyData "TRANSACTIONS.TRANSACTION.ITEM_SUPPLIERCODE", barkod
ok1=App.Doc.NextChild wend
App.Doc.SaveData end sub

Fatura Açıklama Alanının Belli Karakterlerinin Ek Alana Eklenmesi

Örnek Kural;

sub ProcessEvent(App)
      Aciklama = App.Doc.FieldAsString("NOTES1")
      App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT"
      App.Doc.WriteElementString "ID", MID(Aciklama,3,1)
      App.Doc.WriteElementString "ISSUEDATE", Year(Date) & "-" & Right("0" & Month(Date), 2), & "-" & Right Right("0" & Day(Date), 2)
      App.Doc.WriteElementString "DOCUMENTTYPE", "TANIMLI"

      App.Doc.WriteEndElement
      App.Doc.SaveData
end sub

Satır Açıklaması Silme

Örnek Kural;

sub ProcessEvent(App)

        rOk=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")
        while rOk
              App.Doc.RemoveChild "TRANSACTIONS.TRANSACTION.DESCRIPTION"
        rOk=App.Doc.NextRoot wend
App App.Doc.SaveData

end sub

Not Alanlarının Tek Alanda Birleştirilmesi

Örnek Kural;

sub ProcessEvent(App)
      notes1 = App.Doc.FieldAsString("NOTES1")

      notes2 = App.Doc.FieldAsString("NOTES2")

      notes3 = App.Doc.FieldAsString("NOTES3")

      notes4 = App.Doc.FieldAsString("NOTES4")

      iText = App.Doc.FieldAsString("ITEXT")
      Notlar =notes1 + + notes2 + + notes3 + + notes4 + + iText

      App.Doc.ModifyData "NOTES1",Notlar
  App.Doc.SaveData
end sub

Kimlik Alanların UBL'e Eklenmesi

Örnek Kural;

sub ProcessEvent(App)
Kod        Kod = App.Doc.FieldAsString("ARP_CODE")
App       App.Doc.ModifyData "ACCOUNTCUSTOMERPARTY/PARTY/PARTYIDENTIFICATION/ID", "EPDKNO" App.Doc.ModifyData ModifyData               "ACCOUNTCUSTOMERPARTY/PARTY/PARTYIDENTIFICATION/VALUE", Kod
App App.Doc.SaveData

end sub

SQL Connection - Malzeme İhracat Kategori Alanının Malzeme Açıklaması Alanına Getirilmesi

Örnek Kural;

sub ProcessEvent(App)

    strDBUser = "sa"

    strDBPass = "123456"

    strDBServer = "XXXXXX"

    strDBName = "TIGER"
Set    Set conn = CreateObject("ADODB.Connection")
conn   conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + strDBUser + ";Password=" + strDBPass + ";Initial Catalog=" + strDBName+ ";Data Source=" + strDBServer
conn   conn.Open
Set    Set rs = CreateObject("adodb.recordset")

    rs.ActiveConnection = conn
            okay=App.Doc.FirstChild("TRANSACTIONS.TRANSACTION")

            while okay
                  intItemRef = App.Doc.FieldAsInteger("TRANSACTIONS.TRANSACTION.MASTER_ORGLOGICALREF")
                  strItemRef = CStr(intItemRef)
                              strQuery = "SELECT EXPCTGNO FROM LG_001_ITEMS WHERE LOGICALREF=" + 'strItemRef
                              rs.Open strQuery, conn

                              strIHRCODE = rs.Fields(0).value
                              App.Doc.ModifyData "TRANSACTIONS.TRANSACTION.MASTER_DEF", strIHRCODE
rs                 rs.MoveNext() ' birden fazla değer okunacaksa bir sonraki satıra konumlanılıyor
rs.close App                 rs.close

                 App.Doc.SaveData
okay            okay =App.Doc.NextChild wend
conn.close App

           wend
           conn.close

           App.Doc.SaveData
end sub

UQUERY_GETFLD Malzeme İhracat Kategori Alanının Malzeme Açıklaması Alanına Getirilmesi

...