Cari hesap Son bakiyesi

[Hasan ARSLAN]

Erp tarafındaki cari kart son bakiyesini e arşiv faturasında göstermek istiyorum. Bununla ilgili yayınlanmış kodlar var ama kural oluşturmama ve diyalogo
görsel tasarım ek alanına ilgili kodu yazmama rağmen bakiye görsel tasarıma gelmiyor.
Ek alan
<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">
<xsl:if test ="cbc:DocumentType = 'BAKIYE'">
<xsl:value-of select="format-number(cbc:ID, '###.##0,00','european')"></xsl:value-of>
</xsl:if>
</xsl:for-each>

Logo Connect Script Kural
sub ProcessEvent(App)
    ST_ClRef = App.Doc.FieldAsInteger("ARP_LOGICALREF")
    ST_CHRRef = CStr(ST_ClRef)
    BAKIYE = App.UQUERY_GETFLD(60,"SUM(DEBIT)-SUM(CREDIT)",24,6,FALSE, "CARDREF ="+ST_CHRRef+" AND TOTTYP = 1" )
    App.Doc.WriteStartElement "ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT"     
    App.Doc.WriteElementString "ID",Replace(cstr(BAKIYE),",",".")   
    App.Doc.WriteElementString "ISSUEDATE",  Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)
    App.Doc.WriteElementString "DOCUMENTTYPE", "BAKIYE"
    App.Doc.WriteEndElement
    App.Doc.SaveData         
end sub

sizce hata nerde olabilir. Kural geçmişine bakıyorum veri üzerinde değişiklik başarılı diyor.

[Cengiz ÇAĞAN]

merhaba, sorunu çözüme kavuşturabildiniz mi?

[Hasan ARSLAN]

Evet sorunu çözüme kavuşturdum.

[Cengiz ÇAĞAN]

merhaba, nasıl yaptınız acaba bilgi verebilir misiniz?

[Hasan ARSLAN]

Görsel tasarımda aşağıdaki cümleler eklenecek.

<xsl:for-each select="//n1:Invoice/cac:AdditionalDocumentReference">
<xsl:if test ="cbc:DocumentType = 'BAKIYE'">
<xsl:value-of select="format-number(cbc:ID, '###.##0,00','european')"></xsl:value-of>
</xsl:if>
</xsl:for-each>

Logo Connect Kuralı da şu şekilde (onaylanmadan önce seçilecek - onaylandığında basıyor bakiyeyi)
sub ProcessEvent(App)
    ST_ClRef =App.Doc.FieldAsInteger("ARP_LOGICALREF")
    ST_CHRRef = CStr(ST_ClRef)
    BAKIYE =App.UQUERY_GETFLD(60,"SUM(DEBIT)-SUM(CREDIT)",24,6,FALSE,"CARDREF ="+ST_CHRRef+" AND TOTTYP = 1" )
    App.Doc.WriteStartElement"ADDITIONALDOCUMENTS/ADDITIONALDOCUMENT"     
    App.Doc.WriteElementString"ID",Replace(cstr(BAKIYE),",",".")   
    App.Doc.WriteElementString"ISSUEDATE",  Year(Date) & "-" &Right("0" & Month(Date), 2) & "-" &Right("0" & Day(Date), 2)
    App.Doc.WriteElementString"DOCUMENTTYPE", "BAKIYE"
    App.Doc.WriteEndElement
    App.Doc.SaveData         
end sub