Probleme mit % Angaben

Sascha Balke

Hallo Zusammen,

gleich 2 Probleme habe ich.

Das erste habe ich im txtDocFooter und zwar wird dort nicht der richtige Verzugszinssatz angedruckt bzw. angezigt.
Ziehe ich das Feld "BusinessPartner.IntrstRate" direkt in den Bericht, dann erscheint auch soweit der richtige Wert (11,320000)

In dem Abschlusstext steht nur 1% und nicht 11,32% wie es sein sollte.

Hier den Code, welche ich verwende (Ist aus dem Standard DIN Beleg!)

'Abschlusstext
'
' Rechung

If GetData("LD.Par.FormType")="133" Then
  txtDocFooter.Text = "
" & "
" & GetData("LD.Txt.M0002529")& "
" & "
"& GetData("LD.Txt.M0002528")

If (GetData("B1_Data.BusinessPartner.IntrstRate")>0) Then
    txtDocFooter.Text += vbcrlf + "
" + GetData("LD.Txt.T0000084").Replace("@Zins@", Data("B1_Data.BusinessPartner.IntrstRate").tostring("00.00"))  & "
" & "
" & "
"
    
End If
  

  
  
  
ElseIf GetData("LD.Par.FormType")="65300" Then
  txtDocFooter.Text = GetData("LD.Txt.T0000070")& "
"& "
"& "
"
ElseIf GetData("LD.Par.FormType")="65308" Then
  txtDocFooter.Text = GetData("LD.Txt.T0000070")& "
"& "
"& "
"
ElseIf GetData("LD.Par.FormType")="60090" Then
  txtDocFooter.Text = GetData("LD.Txt.T0000070")& "
"& "
"& "
"
ElseIf GetData("LD.Par.FormType")="60091" Then
  txtDocFooter.Text = GetData("LD.Txt.T0000070")& "
"& "
"& "
"
  

  ' Auftrag
ElseIf GetData("LD.Par.FormType")="139" Then 
  txtDocFooter.Text = GetData("LD.Txt.T0000068").Replace("@Notes@",Data("B1_Data.BusinessPartner.Notes"))& "
"& "
"& "
"


  ' Angebot
ElseIf GetData("LD.Par.FormType")="149" Then 
  txtDocFooter.Text = GetData("LD.Txt.T0000077")& "
"& "
"& "
"

Else 
  txtDocFooter.Text = "" 
End If

' Falls Ausgangsbemerkungen definiert wurde:
If Document("Footer")<>"" Then
  txtDocFooter.Text = LD.MultiLine(Document("Footer")) & "
" & "
" 
End If

Das zweite Problem ist, das bei meinem artikelbezogenen Rabatt zu finden.

Solange der Rabatt x,xx% ist, ist die Welt auch in Ordnung. Wenn ich aber nun xx,xx% auf einem Artikel habe, dann wird das % Zeichen nicht mehr angedruckt.

Hier der dazugehörige Code:

LD.FStr(DocumentRow("DiscPrcnt"),"0.00") &" %"

Hat jemand von euch eine Idee?


Viele Grüße

Sascha

Manuel Marhold

Hi Sasha,

1) Was ist, wenn du das .tostring() weg lässt?
2) Das scheint dein Textfeld zu klein zu sein bzw. du margins angegeben hast. Mache das Feld breiter.

Gruß
Manuel