LD.IsEmpty funktioniert bei LicTradeNum nicht

Michael Hubenschmid

Hallo Zusammen!

Was ist an folgenden Code falsch.
Wenn ich im GP eine UID-Nummer gepflegt habe druckt es mir die Adresse wenn nicht kommt der Text BillToAdr:

billToAdr = GetData("B1_Data.BillToAddress.Address") & vbcrlf & LD.OneNewLine(LD.MultiLine(Document("Address"))) & vbcrlf & Iif (Not LD.IsEmpty(GetData("B1_Data.BusinessPartner.LicTradNum")),GetData("LD.Txt.XMTF0027") + " " + Microsoft.VisualBasic.Right(GetData("B1_Data.BusinessPartner.LicTradNum"),7), "") & vbcrlf & Iif (Not LD.IsEmpty(GetData("B1_Data.BillToAddress.U_Syntrade")),GetData("LD.Txt.XMTF0076") + " " + GetData("B1_Data.BillToAddress.U_Syntrade")& vbcrlf, "")
billToAdrPO = GetData("B1_Data.BillToAddress.Address") & vbcrlf & LD.OneNewLine(LD.MultiLine(Document("Address")))

' Lieferadresse
' Falls ein ShipCode vorhanden ist, (Lieferadresse auf GP) 
' wird der CardName angedruckt.
' Falls Detailsdaten der Shippingadresse benötigt werden 
' -> DatenSource "ShipToAdress" verwenden 

If Document("ShipToCode") <> "" Then
  
  shipToAdr = GetData("B1_Data.ShipToAddress.Address") & vbcrlf
  shipToAdr &= LD.OneNewLine(LD.MultiLine(Document("Address2"))) & vbcrlf
  shipToAdr &= Iif (Not LD.IsEmpty(GetData("B1_Data.BusinessPartner.LicTradNum")),GetData("LD.Txt.XMTF0027") + " " + Microsoft.VisualBasic.Right(GetData("B1_Data.BusinessPartner.LicTradNum"),7),"") & vbcrlf
  shipToAdr &= Iif (Not LD.IsEmpty(GetData("B1_Data.ShipToAddress.U_Syntrade")),GetData("LD.Txt.XMTF0076") + " " + GetData("B1_Data.ShipToAddress.U_Syntrade")& vbcrlf,"")
  
Else
  
  shipToAdr = LD.MultiLine(Document("Address2"))
  
End If

If Document("Address2") = ""  Then
  
  ' Falls Lieferadresse leer 
  
  If GetData("LD.Par.Freetext")<>"Lieferschein" Then
    
    ' Und Beleg <> Lieferschein
    ' wird der Text "Rechnungsadresse = Lieferadresse in die Lieferadresse gedruckt)
    
    shipToAdr = billToAdr 'GetData("LD.Txt.T0000083")
    
  Else
    
    ' Falls Beleg = Lieferschein wird die Rechnungsadresse in die Lieferadresse übernommen
    ' Und der Text in die Rechnungsadresse übernommen
    
    shipToAdr = billToAdr
    'billToAdr = GetData("LD.Txt.T0000083")
    
  End If
  
End If

' In case of delivery, shipToAdr has to be on the top left in the BillToAddress TextBox

Select GetData("LD.Par.FreeText")
  
  Case "Lieferschein":
    
    BillToAdress.Value = shipToAdr
    ShipToAdress.Value = billToAdr
  
  '    AddressDescription.Value = GetData("LD.Txt.T0000094")
  
  Case "Rüstschein":
    
    ShipToAdressRS.Value = shipToAdr
  
  '    AddressDescription.Value = GetData("LD.Txt.T0000094")
  
  Case Else:
    
    BillToAdress.Value = billToAdr
    ShipToAdress.Value = shipToAdr
  
  '   AddressDescription.Value = GetData("LD.Txt.T0000066")
  
End Select

' In case of purchase order, shipToAdr has to be empty

Select GetData("LD.Par.FormType")
  
  Case "142":
    
    BillToAdressPO.Value = billToAdrPO

End Select

Philipp Knecht

Hi Michael

Verwende anstelle GetData("...") doch einfach Data("...") dann kannst du dir das IIF sparen.

Gib auch die Parameter mal aus um zu sehen ob das Feld überhaupt gesetzt wird.

hth