Kommentare

5 Kommentare

  • Avatar
    Holger Büttner

    "Der Vollständigkeit halber, eine späte Antwort"

    MonKey Office kann den QR-Code ausgeben:

    als Bezahlcode: http://www.monkey-office.de/doc/CreateBezahlCodeURI.html
    als Art des Barcodes: http://www.monkey-office.de/doc/DrawBarcode.html

    BarcodeAusgabe der Rechnungsanschrift im Auftragsformular:


    if ( AUF_Art = AUFTRART_LIEFERSCHEIN or (AUF_Art = AUFTRART_STORNO and AUF_VorbelegArt = AUFTRART_LIEFERSCHEIN) and AUF_LieferanschriftVerwenden )
    DrawText(AUF_Lieferanschrift, links1, hoehe, 900, 250)
    else
    DrawText(AUF_Rechnungsanschrift, links1, hoehe, 900, 250)
    set links1 to 700
    DrawBarcode(AUF_Rechnungsanschrift, BARCODE_QRCode, Links1, hoehe, 1, 300)
    set links1 to 0
    endif

    Bildschirmfoto_2015-11-12_um_08.55.41.png

    0
    Aktionen für Kommentare Permalink
  • Avatar
    Stefan Schulz

    Folgendes Code-Beispiel zeigt die Erzeugung und Ausgabe eines SEPA-QR-Codes (GiroCode) nach EPC069-12 (Verwendung im Auftragsformular der Verkaufsbelege):

    '-----------------------------------------------------------------------------------------
    ' GiroCode nach EPC069-12 definieren und als QR-Code ausgeben
    ' -----------------------------------------------------------------------------------------
    ' Hilfsvariable definieren
    dim giroCode as text

    ' Servicekennung hinzufügen
    set giroCode to giroCode + "BCD"
    ' Version hinzufügen
    set giroCode to giroCode + Chr(10) + "001"
    ' Kodierung hinzufügen
    set giroCode to giroCode + Chr(10) + "1"
    ' Funktion hinzufügen
    set giroCode to giroCode + Chr(10) + "SCT"
    ' BIC hinzufügen
    set giroCode to giroCode + Chr(10) + Firma_BankBIC_Digital
    ' Empfänger (Kontoinhaber) hinzufügen
    set giroCode to giroCode + Chr(10) + Firma_Name
    ' IBAN hinzufügen
    set giroCode to giroCode + Chr(10) + Firma_BankIBAN_Digital
    ' Betrag hinzufügen
    set giroCode to giroCode + Chr(10) + AUF_Waehrung
    if ( HasField("Ges_mitAR_BruttoBetragFW") )
    set giroCode to giroCode + Replace(Format(Ges_mitAR_BruttoBetragFW, "-#.##"), ",", ".")
    else
    set giroCode to giroCode + Replace(Format(Ges_BruttoBetragFW, "-#.##"), ",", ".")
    endif
    ' Zweck (Geschäftscode) hinzufügen
    set giroCode to giroCode + Chr(10) + ""
    ' Referenz hinzufügen
    set giroCode to giroCode + Chr(10) + AUF_AuftragsNr

    ' QR-Code ausgeben
    DrawBarcode(giroCode, BARCODE_QRCode, 0, 0, 1, 150)

    0
    Aktionen für Kommentare Permalink
  • Avatar
    gerd wilfing

    liebe community,

    habe das obige code-beispiel und auch das beispiel aus der Formularentwicklung.pdf (http://81.169.140.228/download/prosaldo/Formularentwicklung.pdf)
    in mein auftragsformular eingefügt, allerdings erscheint bei mir dann eine fehlermeldung:
    "The Variable 'bezahlCode' has the same name as another variable!"

    was mache ich falsch?

    0
    Aktionen für Kommentare Permalink
  • Avatar
    Stefan Schulz

    Sehr geehrter Herr Wilfing,

    Sie haben vermutlich die Variable 'bezahlCode' in einem Bereich definiert, welcher mehrfach aufgerufen wird. Die Definition von Variablen sollte am Anfang des Formulars außerhalb eines Ausgabebereichs vorgenommen werden.
    Suchen Sie die Zeile 'dim bezahlCode as text'. Diese Anweisung entfernen Sie und fügen Sie an entsprechender Stelle am Anfang des Formulars ein.

    Sollte das nicht die Lösung für Ihr Problem sein, melden Sie sich bitte telefonisch beim Support (möglichst wenn Sie am Rechner sind).
    https://prosaldo.zendesk.com/hc/de/articles/210423926-Support-für-Käufer-der-aktuellen-Jahreslizenz

    Halten Sie gegebenenfalls auch den TeamViewer (Fernwartungstool) bereit. Den TeamViewer können Sie von unserer Webseite unter https://prosaldo.zendesk.com/entries/59399465-Support-per-Fernwartung laden.

    0
    Aktionen für Kommentare Permalink
  • Avatar
    gerd wilfing

    lieber herr schulz,

    vielen dank, das war die lösung!

    0
    Aktionen für Kommentare Permalink

Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.