Σκοπός: Εκτύπωση QR Code myDATA στα παραστατικά που εκτυπώνονται από το Pegasus ERP με χρήση ΕΑΦΔΣΣ Τύπου Β, καθώς στη νέα έκδοση του myDATA θα επιστρέφει ένα QR Code μαζί με το MARK.

Εργαλεία:
1. Θα πρέπει οπωσδήποτε να έχετε πάρει όλες τις διαθέσιμες Αναβαθμίσεις στην εφαρμογή Pegasus. 
2. Η Ενημέρωση του qrCode ισχύει από την έκδοση του myDATA API 1.0.7 και ενημερώνεται στο Pegasus μετά από τις ανάλογες αναβαθμίσεις. Οπότε θα τυπωθεί μόνο στα παραστατικά που θα δημιουργήσετε μετά την αναβάθμιση της εφαρμογής. 
3. Στο αρχείο forms_qrcode θα βρείτε τροποποιημένες τις έτοιμες φόρμες της εφαρμογής με τις απαραίτητες τροποποιήσεις για εκτύπωση του qrCode. Μπορείτε να τις χρησιμοποιήσετε, αν οι φόρμες σας δεν είναι ειδικά τροποποιημένες. 
   Σημείωση: Αν έχετε κάνει όλες τις διαθέσιμες αναβαθμίσεις (15/01/2024) τότε στο φάκελο basic\forms\standard θα βρείτε τις φόρμες παραστατικών πελατών/προμηθευτών κατάλληλα τροποποιημένες. 


Σημαντικές Σημειώσεις: 
1. Αν η εφαρμογή σας είναι πλήρως αναβαθμισμένη (έως και 04/12/2023), τότε αν οι φόρμες σας είναι ρυθμισμένες να τυπώνουν το QR Code από την ΕΑΦΔΣΣ και Υπογραφή, τότε για τα παραστατικά που ενημερώνουν myDATA και δεν χρησιμοποιούν ΕΑΦΔΣΣ, τυπώνουν το QR Code του myDATA και στην θέση της υπογραφής το UID και το ΜΑΡΚ του myDATA. Οπότε σε αυτήν την περίπτωση δεν θα χρειαστέι να κάνετε άλλη τροποποίηση στις φόρμες σας για να τυπώνουν τα στοιχεία από το myDATA.

2. Για να τυπώνονται τα στοιχεία από το myDATA στο παραστατικό θα πρέπει να έχει γίνει η ενημέρωση του myDATA πριν την εκτύπωσή του. Για να συμβεί αυτό θα πρέπει στην επιλογή [Toolbox-> Κεντρικοί Πίνακες Παραμετροποίησης -> Παραμετροποίηση myDATA -> Βασικές Παράμετροι myDATA] να τσεκάρετε τα πεδία: 
     α. on-line Ενημέρωση - Αποστολή Παραστατικών
     β. on-line Ενημέρωση με Αναμονή

3.  Για να τυπώνεται το qrCode, θα πρέπει να έχει ενημερωθεί το πεδίο [QrUrl] του παραστατικού (επιλογή [Βάσεις Δεδομένων -> Λογιστήριο -> Παραστατικά myDATA]).
Το πεδίο ενημερώνεται μόνο στα παραστατικά που θα στείλετε στο myDATA μετά από τις ανάλογες αναβαθμίσεις. Είναι το πρώτο που πρέπει να ελέγξετε πριν την δοκιμή εκτύπωσης με qrCode.

Ρυθμίσεις:

Βήμα 1.

Μέσα από την επιλογή [ToolBox-> Εργαλεία Παραμετροποίησης -> Παραμετροποίηση Εφαρμογής -> Κεντρικοί Πίνακες Παραμετροποίησης -> Συναλλαγών και Συναλλασσομένων -> Ορισμός Παραστατικών Πελατών] ανοίγετε τον τύπο Παραστατικού πχ ΤΠ-ΔΑ Τιμολόγιο Πώλησης (Αξία και ποσότητα)->
διαχείριση φόρμας

Bήμα 2.

Πατάτε το Tab "Αρχική Μέθοδος"

Βήμα 3.

Πατάτε στο κάτω μέρος της Οθόνης Αρχικής Μεθόδου ένα click και στη συνέχεια το κουμπί "Enter" από το πληκτρολόγιό σας.
Στη συνέχεια πληκτρολογείτε τα παρακάτω:

Σημείωση: Aντιγράφετε μόνο το κείμενο που βρίσκεται μέσα στο πλαίσιο της παρακάτω εικόνας!

**Ευρεση qrCode (από ΕΑΦΔΣΣ ή από myDATA)
##VAR my_qrcode=''

**έχει από ΕΑΦΔΣΣ?
my_qrcode:=retarray(34, peg_fhmarr, '')
**Αν δεν έχει από ΕΑΦΔΣΣ
##IF empty(my_qrcode)
         ** στο παραστατικό πελάτη θα χρησιμοποιήσετε την παρακάτω εντολή. 
         ** στο παραστατικό προμηθευτή θα βάλετε μπροστά δύο αστεράκια ώστε να μην εκτελεστεί.
         my_qrcode:=odbcprintfld('mydt10', 'qrurl', "=tbl='a55' && tbl_nr01={nnr01}")
         ** στο παραστατικό προμηθευτή θα βγάλετε τα 2 αστεράκια από την παρακάτω εντολή
         ** ώστε να εκτελεστεί
         **my_qrcode:=odbcprintfld('mydt10', 'qrurl', "=tbl='a56' && tbl_nr01={nnr01}")
##ENDIF

Σημείωση 1: Στην επιλογή [Toolbox-> Κεντρικοί Πίνακες Παραμετροποίησης -> Παραμετροποίηση myDATA -> Βασικές Παράμετροι myDATA] μπορείτε να τσεκάρετε το πεδίο [on-line Ενημέρωση με Αναμονή] ώστε η εκτύπωση του παραστατικού να περιμένει την ενημέρωση από το myDATA. Με αυτόν τον τρόπο θα βρίσκει πάντα την πληροφορία αν ενημερωθεί σωστά το myDATA. 

Σημείωση 2: Εναλλακτικός Κώδικας 
Στην περίπτωση που με τον παραπάνω κώδικα δεν φέρνει το qrCode ή τα ΜΑΡΚ/UID στην υπογραφή μπορείτε να χρησιμοποιήσετε τον κώδικα: 

**Ευρεση qrCode (από ΕΑΦΔΣΣ ή από myDATA)
##VAR my_qrcode='', my_qrarr={}

**έχει από ΕΑΦΔΣΣ?
my_qrcode:=retarray(34, peg_fhmarr, '')
**Αν δεν έχει από ΕΑΦΔΣΣ
##IF empty(my_qrcode) .or. empty(fhm_sign)
        ** στο παραστατικό πελάτη θα χρησιμοποιήσετε την παρακάτω εντολή.
        ** στο παραστατικό προμηθευτή θα βάλετε μπροστά δύο αστεράκια ώστε να μην εκτελεστεί.
        my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='a55' && tbl_nr01={nnr01}")
        ** στο παραστατικό προμηθευτή θα βγάλετε τα 2 αστεράκια από την παρακάτω εντολή
        ** ώστε να εκτελεστεί
        **my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='a56' && tbl_nr01={nnr01}")

        my_qrcode:=my_qrarr[1]
        fhm_sign:="ΜΑΡΚ: " + pegtrim(my_qrarr[2]) + " UID: " + pegtrim(my_qrarr[3])
##ENDIF

Σημείωση 3. Pegasus Transport
Τα παραπάνω ισχύουν και για τις φορτωτικές από το Pegasus Transport. 
Θα πρέπει μόνο να αλλάξετε στις odbcprintfld() τον πίνακα a55 σε tran01
π.χ. 
α. my_qrcode:=odbcprintfld('mydt10', 'qrurl', "=tbl='tran01' && tbl_nr01={nnr01}")
β. my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='tran01' && tbl_nr01={nnr01}")

Σημείωση 4. Pegasus Ελαιοτριβείο
Τα παραπάνω ισχύουν και για τις Παραδόσεις Ελαιόλαδου από το Pegasus Ελαιοτριβείο. 
Θα πρέπει μόνο να αλλάξετε στις odbcprintfld() τον πίνακα a55 σε eleo20
π.χ. 
α. my_qrcode:=odbcprintfld('mydt10', 'qrurl', "=tbl='eleo20' && tbl_nr01={nnr01}")
β. my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='eleo20' && tbl_nr01={nnr01}")

Σημείωση 5. Εκτύπωση και των δύο QrCode του myDATA και την ΕΑΦΔΣΣ
Στην περίπτωση που θέλετε να τυπώνετε σε ένα παραστατικό και τα 2 QrCode που προκύπτουν από το myDATA και από την ΕΑΦΔΣΣ θα χρησιμοποιήσετε τον κώδικα: 
*********************************************
**Ευρεση qrCode από myDATA
*********************************************
##VAR my_qrcode='', my_mark='', my_qrarr={}
my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='a55' && tbl_nr01={nnr01}")
my_qrcode:=my_qrarr[1]
my_mark:="ΜΑΡΚ: " + pegtrim(my_qrarr[2]) + " UID: " + pegtrim(my_qrarr[3])

Θα τυπώσετε και το ΜΑΡΚ με την εκτύπωση της μεταβλητής my_mark (θα προσθέσετε ένα Αντικείμενο [Εκφραση] με Εκφραση = my_mark
Την εκτύπωση του QrCode από την ΕΑΦΔΣΣ θα την ρυθμίσετε όπως αναφέρει η μελέτη Εκτύπωση του QR Code από ΕΑΦΔΣΣ σε Παραστατικό

Σημείωση 6. Κύκλωμα Αποδείξεων
Τα παραπάνω ισχύουν και για τα παραστατικά από το κύκλωμα των αποδείξεων
Θα πρέπει μόνο να αλλάξετε στις odbcprintfld() τον πίνακα a55 σε t08
π.χ. 
α. my_qrcode:=odbcprintfld('mydt10', 'qrurl', "=tbl='t08' && tbl_nr01={nnr01}")
β. my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='t08' && tbl_nr01={nnr01}")


Σημείωση 7. Εκτύπωση του QrCode από ΕΑΦΔΣΣ μόνο αν δεν υπάρχει του myDATA.
Στην περίπτωση που θέλετε να εκτυπώνει το qrCode και την υπογραφή από ΕΑΦΔΣΣ μόνο όταν δεν υπάρχει ΜΑΡΚ από το myDATA μπορείτε να χρησιμοποιήσετε τον εξής κώδικα:

**Ευρεση qrCode (από ΕΑΦΔΣΣ ή από myDATA)
##VAR my_qrcode='', my_qrarr={}

**Εύρεση από myDATA
my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='a55' && tbl_nr01={nnr01}")
##IF empty(my_qrarr[1])
        my_qrcode:=retarray(34, peg_fhmarr, '')
##ELSE 
        my_qrcode:=my_qrarr[1]
        fhm_sign:="ΜΑΡΚ: " + pegtrim(my_qrarr[2]) + " UID: " + pegtrim(my_qrarr[3])
##ENDIF

Σημείωση 8. Παραστατικά Εσωτερικής Διακίνησης
Τα παραπάνω ισχύουν και για τα παραστατικά από το κύκλωμα των αποδείξεων
Θα πρέπει μόνο να αλλάξετε στις odbcprintfld() τον πίνακα a55 σε t08
π.χ. 
α. my_qrcode:=odbcprintfld('mydt10', 'qrurl', "=tbl='a60' && tbl_nr01={nnr01}")
β. my_qrarr:=odbcprintfld('mydt10', '{qrurl, mark, uid}', "=tbl='a60' && tbl_nr01={nnr01}")


Bημα 4.

Πατάτε το Tab Φόρμα.
    α.Βρίσκετε την εικόνα του QR (Βρίσκεται στο κάτω μέρος της φόρμας σας και σηματοδοτείται από ενα @)->Πατάτε διπλό click

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

Βήμα 5.

Στο πεδίο Συνθήκη πληκτρολογείτε το :
!empty(my_qrcode)

Στην polpa_roll.frp η συνθήκη θα πρέπει να είναι :
!empty(my_qrcode) .and. recno()=lastrec()

Στο πεδίο Εικόνα πληκτρολογείτε το :
=callfpeg('?query?funpim03', { my_qrcode })

Πατάτε Καταχώρηση.

Βήμα 6.

Πατάτε "Αποθήκευση Φόρμας"

Γενικές Σημειώσεις
1. Εκτύπωση σε PDF. 
Υπάρχει πιθανότητα αν τυπώνετε το παραστατικό σε PDF να μην εμφανίζεται το qrCode. Αυτό οφείλεται συνήθως στο ότι το PDF δημιουργείται πρίν να δημιουργηθεί το αρχείο με το qrCode. 
Σε αυτήν την περίπτωση δοκιμάστε να κάνετε τις εξής τροποποιήσεις: 
Στην αρχική μέθοδο, προσθέτετε στο τέλος την εντολή: 
my_qrcode:=callfpeg('?query?funpim03', { my_qrcode })
Στην εικόνα που θα τυπώνετε το qrCode θα δώσετε 
=my_qrcode 
αντί του 
=callfpeg('?query?funpim03', { my_qrcode })
που αναφέρουμε παραπάνω