Skip to main content

Druck von einzelnen Zeilen aus Beleg (z.B. Rechnung)

Comments

5 comments

  • Lothar Hasenkämper

    Hallo Mathias,

    erzeuge ein Layout

    Lege im Reiter einen Parameter an.

    Design Param Wert:
    {SELECT [ItemCode] FROM [@@RDR1] WHERE DocEntry = [%DocEntry]}
    Reihenfolge:
    10

    Dann kannst du die Query erstellen mit den Daten die brauchst.

    SELECT
    ItemCode
    ,ItemName
    FROM OITM
    WHERE ItemCode in ('[%ItemCode]') 

    Die Query Speichern und im Layout unter den Abfragen auswählen.
    Somit ist das Layout vorbereitet.
    Nun noch im Angebot eine PrintDef mit dem ItemLabel Layout.

    Der Rest ist Fleißarbeit

    Gruß
    Lothar

     

     

    0
  • Matthias Wagner

    Hallo Lothar,

    Merci - mit deinem Input habe ich jetzt umsetzen können. 

    Funktioniert 1A!

    Noch eine ergänzende Frage: Ist es möglich mit der Coresuite eine Base64 Codierung umzusetzen. Für die Erstellung einer URL benötige ich einen bestimmten Teil einer abfrage codiert.

    Gruß

    Matthias

    0
  • Lothar Hasenkämper

    Hallo Mathias,

    vielen Dank für die Rückmeldung. Prima, dass es geklappt hat.

    Ich habe keine Erfahrung mit Base64. In einer E-Mail kann man (PrnDef / Email/Fax) kannst du den Email-Text als html formatieren. Das kann auch eine Abfrage sein, die dann am Ende den richtigen html-text ergibt.

    Im Dokument kann man bei einem AdvancedText-Feld ein bißchen was mit html machen.

    Ob richtiger Quelltext geht, weiß ich ehrlich gesagt nicht.

    Wäre aber an einer Lösung interessiert, wenn du es hinbekommst.

    gruß Lothar

     

    0
  • Matthias Wagner

    Hallo Lother,

    ich berichte wenn ich was finde. 

    Die Anforderung geht aber mehr in die Richtig:

    Abfrage Kundennummer ==> Codierung des Ergebnisses in Base64 ==> Einbau in einen URL String.

    Konkret: Es soll ein Dokument aus dem DMS aufgerufen werden. Docuware akzeptiert jedoch nur URLs die Base64 codiert sind. 

    Gruß

    Matthias

    0
  • Lothar Hasenkämper

    Hallo Mathias,

    ich hatte jetzt ein ähnliches Problem mit Base64.

    Versuche mal:

    Dim UnconvString As String
    Dim ConvString As String
    Dim ReConvString As String
    Dim byt As Byte()

    UnconvString = "234abc"
    textBox180.value = UnconvString

    byt = System.Text.Encoding.UTF8.GetBytes(UnconvString)
    ConvString = Convert.ToBase64String(byt)
    Textbox180.Value += vbcrlf + ConvString

    byt = Convert.FromBase64String(ConvString)
    ReConvString = System.Text.Encoding.UTF8.GetString(byt)
    Textbox180.Value += vbcrlf + ReConvString

    Gruß´Lothar

    0

Please sign in to leave a comment.