Werte aus CS Time etc. andrucken

Sascha Balke

Hallo Zusammen,

ich möchte gern einzelne Werte aus dem coresuite management (Time und Serivce) mit in meinen Bericht andrucken.

Zum Teil funktioniert das ja auch schon jetzt, da für die Rechnungsertellung einzelne Werte mit in den Artikeltext kopiert/geschrieben werden.
Diese Werte möchte ich aber nicht unbedingt im Artikeltext stehen haben, sondern in anderen Bereichen gesondert andrucken.

Für z.B. den Abo-Berechnungszeitraum konnte ich folgende UDFs ausmachen:

Document("U_SWA_CT_PerStart")
Document("U_SWA_CT_PerEnd")

Da beim Andruck die Werte bislang richtig sind, nehme ich auch mal an, das diese richtig sind.

Wenn ich jetzt aber "nur" übers Time Leistungen GP bezogen anlege und berechnen will, finde ich kein UDF oder DB-Feld, für das Leistunsgdatum.

In den coresuite management Einstellungen ist [%EffortTypeDesc] ([%FromDate]) hinterlegt. Nur finde ich nirgendwo das DB-Feld für "FromDate", so das ich es in meinen Bericht nicht so einfügen kann, wie ich es gern möchte.

Habe mir schon die Benutzertabellen und UDFs angeschaut, jedoch kann ich zum cs designer keinen Bezug herstellen oder aber ich finde die entsprechenden UDFs nicht, um mit entsprechenden Werten im Bericht zu arbeiten.

Weiß dort jemand von euch Rat?

Vielen Dank und Gruß

Sascha

Philipp Knecht

Hallo Sascha

Untenestehendes Besipiel zeigt, wie in einem Gruppenheader (Bsp.) Daten von dem Basisabonnement aus der Zeile in der Rechnung gezogen werden können:

Dim line As SWA_CT.Logic.DTO.SubscriptionInvoiceLine 
line = New SWA_CT.Logic.DTO.SubscriptionInvoiceLine(groupBand1("U_SWA_CT_SubObjEn").ToString())
line.Load()

Dim text As String = ""

text += line.Subscription.Subject
text += Char.ConvertFromUtf32(13)

If Not String.IsNullOrEmpty(line.Subscription.CustRefNr) Then
  text += GetData("LD.Txt.T0000087") + ": "
  text += line.Subscription.CustRefNr
  text += Char.ConvertFromUtf32(13)
End If

text += "(" + line.PeriodStart.ToShortDateString() + " - " + line.PeriodEnd.ToShortDateString() + ")"
text += Char.ConvertFromUtf32(13)
text += line.Subscription.Remark

textBox49.Value = LD.MultiLine(text)

Ich hoffe, Dir mit dieser Antwort weitergeholfen zu haben.


Gruss, Adrian