formabhängige Auswertung

Sascha Balke

Hi Zusammen,

Möchte gern belegabhängigen Wortlaut bei dem Liefertermin angedruckt haben, jedoch bekomme ich es nicht hin.
Habe schon so einige Varianten ausprobiert, nur fehlt mal der Text oder der Inhalt aus DocumentRow("ShipDate").

Was mache ich falsch?

'ShipToDate - Liefertermin (T0000060) oder voraussichtlicher Liefertermin (M0002527)
'Belegabhängig (Form)

Dim Ship2Date As String=""
 
If ((GetData("LD.Par.FormType") = "129") Or (GetData("LD.Par.FormType") ="139")) Then

  Ship2Date += GetData("LD.Txt.T0000060")+ ": "
Else
  Ship2Date += GetData("LD.Txt.M0002527")+ ": " 
End If

Ship2Date += DocumentRow("ShipDate")
ShipToDate.Text = Ship2Date
Ship2Date = Nothing

Für eine kurze Hilfe wäre ich euch dankbar.

Gruß

Sascha

Manuel Marhold

Hi Sascha,

Ship2Date += Format(DocumentRow("ShipDate"),"dd.mm.YYYY")

Gruß

Manuel

Sascha Balke

Hi Manuel,

auch wenn ich das so hinzufüge, wird nichts angezeigt.

Ich vermute das der Fehler im Bereich "FormType" zu suchen ist, nur komme ich an der Stelle bislang noch nicht weiter.

Gruß

Sascha

Philipp Knecht

Hi Sascha

Bei Zweifeln ob das Script überhaupt gestartet wird einfach mal eine:
MsgBox("Test1")
einbauen.

Und nicht vergessen. Das Layout auch mal us dem Designer direkt previewen wegen den detaillierten Fehlermeldungen.

Und beim verketten von Strings würd ich auch & anstelle + nehmen.

hth

Sascha Balke

Es funktioniert :D

In anbetracht das ich nicht wirklich über Programmierkenntnisse verfüge, bin ich froh, das ich langsam aber sicher in die gesamte Thematik "reinwachse",

Wie du, Philipp, vorhin sagtest: Ich lerne es auf die brutale Art :wink:

'ShippingDate - Liefertermin (T0000060) oder voraussichtlicher Liefertermin (M0002527)
'Formtype bezogener Text


Dim ShippingDate As String=""
If GetData("LD.Par.FormType")="139" Then
  ShippingDate += GetData("LD.Txt.M0002527")+ ": "
ElseIf GetData("LD.Par.FormType")="149" Then
  ShippingDate += GetData("LD.Txt.M0002527")+ ": " 
Else 
  ShippingDate += GetData("LD.Txt.T0000060") + ": "
End If

ShippingDate += DocumentRow("ShipDate")
ShipToDate.Text = ShippingDate
ShippingDate = Nothing

Viele Grüße

Sascha



Hatte ich schon erwähnt, das ich mir zum Geburtstag einen Lehrgang wünsche, in dem ich programmieren lerne ??? :lol: :lol: :lol:

Sascha Balke

Ein Problem ergibt sich jetzt noch.

Ich möchte diesen Bereich, in dem das vorstehende Script hinterlegt ist, unterdrücken, jedoch bekomme ich es nicht hin.

Habe unter Visible

DocumentRow("ShipDate")=0

Egal welche Form ich versuche, er druckt mir immer die Texte mit an.

Hat jemand von euch eine Idee?

Danke & Gruß

Sascha

Sascha Balke

Das Problem mit dem unterdrücken/visible besteht zwar immer noch, siehe auch hier: http://www.coresuite.ch/index.php?id=48&L=&tx_mmforum_pi1[action]=list_post&tx_mmforum_pi1[tid]=1158&tx_mmforum_pi1[page]=2

jedoch habe ich das obere Script noch mehr angepasst.

Vielleicht hilft es euch bei der einen oder anderen Anforderung ja weiter. (8)

' Item Targeted by name "ShipDate"
'
'ItemGroup 101 = Services
'Expected Delivery Date (Txt.M0002527)
'Delivery Date (Txt.T0000060)
'Service Performance Date - (Datum der Leistungserbringung)
'FormType 139 = Sales Order
'FormType 149 = Sales Quotation
'

Dim ItemShipDate As String=""
If DocumentRow("RowRowItems.ItmsGrpCod")="101" Then
  ItemShipDate &= "Datum der Leistungserbringung" & ": "
ElseIf GetData("LD.Par.FormType")="139" Then
  ItemShipDate &= GetData("LD.Txt.M0002527") & ": "  
ElseIf GetData("LD.Par.FormType")="149" Then
  ItemShipDate &= GetData("LD.Txt.M0002527") & ": " 
Else 
  ItemShipDate &= GetData("LD.Txt.T0000060")& ": "
End If

ItemShipDate &= DocumentRow("ShipDate")
ShipToDate.Text = ItemShipDate
ItemShipDate = Nothing

Gruß

Sascha

Philipp Knecht

Hi Sascha

Mit Date Werten ist es leider nicht ganz so einfach.
Ein Leerdatum kannst du aber mittels databand1.IsEmpty("ShipDate") abfragen.

hth

Sascha Balke

Hi Philipp,

guckst du hier: http://www.coresuite.ch/index.php?id=48&L=0&tx_mmforum_pi1[action]=list_post&tx_mmforum_pi1[tid]=1158&tx_mmforum_pi1[page]=2

Bislang funktioniert das :D

Danke dir/euch

Gruß

Sascha