Σκοπός: Εκτύπωση QR code στα παραστατικά που εκτυπώνονται από το Pegasus ERP με χρήση ΕΑΦΔΣΣ Τύπου Β. 

Σύμφωνα με την  ΠΟΛ  Α.1024 / 06/02/2020 θα πρέπει στα παραστατικά πωλήσεων που παίρνουν υπογραφή από ΕΑΦΔΣΣ, να εκτυπώνεται QRCode με πληροφορία για την υπογραφή του παραστατικού.

Σύμφωνα με την ΠΟΛ Α1024/06/02/2020, ο QR Code που θα τυπώνεται πρέπει να ακολουθεί τους παρακάτω κανόνες:
α. Εχει Ελάχιστες Διαστάσεις 18 χιλιοστά x 18 χιλιοστά.

β. Στην περίπτωση εκτυπωτών ρολού, (roll printer) o QR Code πρέπει να τυπώνεται στο τέλος της απόδειξης ή του παραστατικού έτσι ώστε να μην υπάρχει δεξιά ή αριστερά αυτού οποιοδήποτε άλλο κείμενο.

γ. Ο QR Code μπορεί να παραβλεφθεί, εφόσον χρησιμοποιείται αποδεδειγμένα εκτυπωτής χωρίς δυνατότητα εκτύπωσης γραφικών (π.χ. ορισμένοι τύποι dot matrix, ορισμένοι τύποι line printer, κ.λπ.).

δ. Το περιεχόμενο του QR code δημιουργείται ως εξής:
    δ.1. URL εφαρμογής ελέγχου με την προσθήκη URL παραμέτρου "SIG"
    δ.2. Σειριακός Αριθμός Φορολογικού Μηχανισμού - 11 χαρακτήρες
    δ.3. Αύξων προοδευτικός αριθμός σήμανσης - 8 ψηφία σε μορφή 00000000
    δ.4. Υπογραφή του αντίστοιχου e.txt - 40 δεκαεξαδικοί χαρακτήρες
    δ.5. Συνολική Αξία παραστατικού.

Παράδειγμα: 
    URL εφαρμογής ελέγχου = https://www1.gsis.gr/tameiakes/myweb/q1.php
    Σειριακός Αριθμός Φορολογικού Μηχανισμού= ΧΧΧ00000001
    Αύξων προοδευτικός αριθμός σήμανσης  = 00000273
    Υπογραφή του αντίστοιχου e.txt = 369D0FF6CBDB1E46A8B15BDE3EE0E25FABD28210
    Συνολική Αξία παραστατικού = 723,20  
Ο QR Code είναι 
https://www1.gsis.gr/tameiakes/myweb/q1.php?SIG=ΧΧΧ0000000100000273369D0FF6CBDB1E46A8B15BDE3EE0E25FABD28210723.20

Στο παραστατικό θα πρέπει να τυπωθεί με μορφή QR Barcode. 

Ρυθμίσεις
1. Αρχικά θα πρέπει να κάνετε όλες τις διαθέσιμες αναβαθμίσεις της εφαρμογής. 

2. Στην επιλογή [Υποστήριξη -> Pegasus CnA -> Ορισμός ΕΑΦΔΣΣ Τερματικού] θα ελέγξετε την ΕΑΦΔΣΣ που έχετε ορίσει στο τερματικό σας. 
Αν η ΕΑΦΔΣΣ χρησιμοποιεί το docmsign.dll  (εμφανίζεται στην περιγραφή της επιλεγμένης ΕΑΦΔΣΣ) θα πρέπει στην επιλογή [Υποστήριξη -> Pegasus CnA -> Ρυθμίσεις ΕΑΦΔΣΣ Τερματικού] να ορίσετε το [URL Ελέγχου Υπογραφής]. 

Αν ΕΑΦΔΣΣ δεν χρησιμοποιεί το docmsign.dll, θα πρέπει να προβείτε στην αναβάθμιση του driver, σε συνενόηση με τον κατασκευαστή της ΕΑΦΔΣΣ. Σε αυτήν την περίπτωση θα πρέπει να ελέγξετε, στις οδηγίες των ρυθμίσεων της ΕΑΦΔΣΣ στο Pegasus, αν έχει υλοποιηθεί η επικοινωνία του Pegasus με τον νέο - αναβαθμισμένο driver. 

3. Θα πρέπει να τροποποιήσετε την φόρμα του παραστατικού σας ώστε να τυπώνει το QR Code. 
Μπορείτε να διαβάσετε αναλυτικά πως τροποπιείτε την φόρμα του παραστατικού, στην Παραμετροποίηση Φορμών Pegasus.

Στην φόρμα θα προσθέσετε ένα νέο αντικείμενο [Εικόνα] με τα εξής Στοιχεία: 
Συνθήκη= !empty(retarray(34, peg_fhmarr, ''))  
Εικόνα= =callfpeg('?query?funpim03', {retarray(34, peg_fhmarr, '') })  
Πλάτος και Υψος (pixel)= 600. Θα πρέπει να κάνετε δοκιμές, ανάλογα με τον εκτυπωτή και την φόρμα σας, ώστε να τυπώνεται καθαρά και να έχει τις ελάχιστες διαστάσεις που ορίζει η ΠΟΛ Α1024 (18 Χ 18 χιλιοστά). 
Εκτυπώνεται= [Υποσέλιδο]


Στις φόρμες που αφορούν σε θερμικό εκτυπωτή, συνήθως στα στοιχεία στο τέλος της απόδειξης ορίζουμε: 
Συνθήκη= recno()=lastrec() (μπορείτε να την αντιγράψετε από ένα άλλο αντικείμενο που τυπώνεται στο τέλος της απόδειξης). 
Εκτυπώνεται= [Νέα Γραμμή ανά Εγγραφή]
καθώς δεν έχουμε σταθερό ύψος της απόδειξης και θέλουμε να τυπωθούν ακριβώς μετά το τέλος του τελευταίου είδους. 

Οπότε σε αυτήν την περίπτωση προσθέσετε ένα νέο αντικείμενο [Εικόνα] με τα εξής Στοιχεία: 
Συνθήκη= !empty(retarray(34, peg_fhmarr, '')) .and. recno()=lastrec()  
Εικόνα= =callfpeg('?query?funpim03', {retarray(34, peg_fhmarr, '') })  
              (θα πρέπει να έχετε και το = πριν την έκφραση callfpeg() )   
Πλάτος και Υψος (pixel)= 600. Θα πρέπει να κάνετε δοκιμές, ανάλογα με τον εκτυπωτή και την φόρμα σας, ώστε να τυπώνεται καθαρά και να έχει τις ελάχιστες διαστάσεις που ορίζει η ΠΟΛ Α1024 (18 Χ 18 χιλιοστά). 
Εκτυπώνεται= [Νέα Γραμμή ανά Εγγραφή]

Σημειώσεις: 
1. Η παραπάνω υλοποίηση αφορά στις ΕΑΦΔΣΣ που υποστηρίζουν την δημιουργία _e αρχείων και οι driver τους έχουν προσαρμοστεί να δημιουργούν το QRCode. Επίσης θα πρέπει να ελέγξετε αν έχει γίνει και η κατάλληλη αναβάθμιση στο Pegasus να "διαβάζει" το QR Code από την ΕΑΦΔΣΣ (το γράφουν οι οδηγίες στις Ρυθμίσεις της ΕΑΦΔΣΣ). 
Αν η η εφαρμογή Pegasus "διαβάζει" στο QRCode από την ΕΑΦΔΣΣ σας, στην επιλογή [Υποστήριξη -> Pegasus C&A 100 -> Υπογραφές ΕΑΦΔΣΣ] οι υπογραφές θα έχουν συμπληρωμένο το αντίστοιχο πεδίο (QR Code Message). 

2. Στον υποφάκελο basic\forms\standard της εφαρμογής θα βρείτε έτοιμες φόρμες με την εκτύπωση του QR Code.
Για θερμικό εκτυπωτή μπορείτε να δοκιμάσετε την φόρμα polpa_roll_qr.frp

3. Οι περισσότεροι drivers των ΕΑΦΔΣΣ επιστρέφουν το QRCode Message, οπότε ισχύουν τα παραπάνω. 
Στην επιλογή [Υποστήριξη -> Pegasus C&A 100 -> Υπογραφές ΕΑΦΔΣΣ] μπορείτε να δείτε τι επιστρέφει στο πεδίο QR Code Message ο driver. 
Υπάρχουν drivers (π.χ. SignPro για τον CASIO ανάλογα με τις ρυθμίσεις του) που δημιουργούν μόνο το αρχείο (bmp) που πρέπει να τυπωθεί και δεν επιστρέφουν το QRCode Message.
Σε αυτήν την περίπτωση στο παραπάνω πεδίο το πρόγραμμα αποθηκεύει το όνομα του αρχείου. Οπότε στην φόρμα θα πρέπει να ορίσετε 
Εικόνα= =retarray(34, peg_fhmarr, '')

4. Αν σκανάρετε το QRCode που τυπώνετε θα πρέπει να εμφανιστεί η σελίδα της ΑΑΔΕ με τα στοιχεία του παραστατικόυ. Φυσικά θα πρέπει να έχει προηγηθεί η αποστολή των _s αρχείων της ΕΑΦΔΣΣ στην ΑΑΔΕ.

5. Εχει παρατηρηθεί σε κάποιες εγκαταστάσεις, όταν το παραστατικό αποθηκεύεται απευθείας σε pdf να μην εμφανίζεται το QRCode.
    Σε αυτήν την περίπτωση μπορείτε να δοκιμάσετε το εξής:

    α. Δημιουργείτε το αρχείο polpa.pin (με το notepad) με περιεχόμενο:
##VAR my_qrimage=''
my_qrimage:=odbcprintflD('p30', 'p134', "=p01='polpa' && p02='{nnr01}' && p04=0")
##IF !empty(my_qrimage)
my_qrimage:=callfpeg('?query?funpim03', {my_qrimage})
##ENDIF
##RETURN     

   β. Στην φόρμα του παραστατικού, στον ορισμό της εκτύπωσης του QRCode (βήμα (3) παραπάνω) θα ορίσετε:
Συνθήκη= !empty(my_qrimage)
Εικόνα= =my_qrimage
              (θα πρέπει να έχετε και το = πριν την έκφραση my_qrimage )   

αντί των
Συνθήκη= !empty(retarray(34, peg_fhmarr, '')) .and. recno()=lastrec()  
Εικόνα= =callfpeg('?query?funpim03', {retarray(34, peg_fhmarr, '') })  
που περιγράφεται στο βήμα (3) παραπάνω.

   γ. Στον ορισμό του παραστατικού, στο όνομα της φόρμας, αντί του polpa.frp θα ορίσετε το polpa.pin

Στην περίπτωση που το όνομα της φόρμας σας δεν είναι το polpa.frp αλλά κάποιο άλλο, θα δημιουργήσετε το ανάλογο .pin αρχείο. Αν, για παράδειγμα, το αρχείο της φόρμας σας είναι το polpa_a5.frp θα δημιουργήσετε το polpa_a5.pin και θα ορίσετε το polpa_a5.pin στον ορισμό του παραστατικού, σαν φόρμα.