Sub ProcessEvent(App)
strDBUser = “sa”
strDBPass = “Mskge2018.”
strDBServer = “10.20.0.21”
strDBName = “LOGO”
Set conn = CreateObject(“ADODB.Connection”)
conn.ConnectionString = “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=” & strDBUser & _
“;Password=” & strDBPass & “;Initial Catalog=” & strDBName & “;Data Source=” & strDBServer
conn.Open
Set rs = CreateObject(“adodb.recordset”)
rs.ActiveConnection = conn
intInvFicheRef = App.Doc.FieldAsInteger(“DATA_REFERENCE”)
strQuery = “”
strQuery = strQuery & ” SELECT XT.KESAFET_DEGERI “
strQuery = strQuery & ” FROM LG_001_01_STLINE SL “
strQuery = strQuery & ” INNER JOIN LG_XT003001_001 XT ON XT.PARLOGREF = SL.LOGICALREF “
strQuery = strQuery & ” WHERE SL.INVOICEREF = ” & intInvFicheRef
rs.Open strQuery, conn
Do While Not rs.EOF
strKesafet = “”
If Not IsNull(rs.Fields(0).Value) Then
strKesafet = CStr(rs.Fields(0).Value)
End If
App.Doc.WriteStartElement “ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT”
App.Doc.WriteElementString “ID”, strKesafet
App.Doc.WriteElementString “ISSUEDATE”, Year(Date()) & “-” & Right(“0” & Month(Date()), 2) & “-” & Right(“0” & Day(Date()), 2)
App.Doc.WriteElementString “DOCUMENTTYPE”, “KESAFET”
App.Doc.WriteEndElement
rs.MoveNext
Loop
rs.Close
conn.Close
App.Doc.SaveData
End Sub
Merhaba yukarıdaki kural uyarlama tablomdaki alanı faturanın satırlarına getirmek için yazdım. Fakat satırlarda hep aynı miktarı yazıyor halbuki her satırın değeri farklı. Bunu tekrar etmeden her satıra uygun şekilde düzeltebilir miyim ?
Merhaba,
uyarlama tablosunu nasıl oluşturdunuz? Basit arayüz uyarlama ile mi yoksa object designer ile mi?
SELECTSL.LOGICALREF AS STLINE_REF,XT.PARLOGREF,XT.KESAFET_DEGERIFROM LG_001_01_STLINE SLINNER JOIN LG_XT003001_001 XTON XT.PARLOGREF = SL.LOGICALREFWHERE SL.INVOICEREF = 12345Bu sorguyu her satırının KESAFET_DEGERI 'nin farklı olduğu bir fatura için çalıştırdığınızda, sonuçlar doğru geliyor mu?