Σκοπός: Τροποποίηση μεγέθους της εικόνας σε μία φόρμα Pegasus. 
Εργαλεία: Pegasus ERP Startup. Ισχύει για όλες τις εφαρμογές Pegasus ERP. 

Στο σύστημά μας, ο προκαθορισμένος εκτυπωτής διαμορφώνεται πάντοτε στην αρχή μιας εγκατάστασης και κατά την εγκατάστασή του, ρυθμίζονται όλες οι εκτυπώσεις σωστά και διατηρούνται.

Στην περίπτωση που τα παραστατικά έχουν πάνω τους εικόνες ή/και υδατογραφήματα, υπάρχει η πιθανότητα εκτυπώνοντας σε διαφορετικούς εκτυπωτές να εμφανίζονται οι εικόνες με διαφορετικές διαστάσεις.
Παρακάτω θα δούμε την περίπτωση που η εικόνα έχει διαφορετικό μέγεθος όταν τυπώνουμε στον εκτυπωτή μας και όταν δημιουργούμε PDF αρχείο.

Αυτό οφείλεται στις ρυθμίσεις κάθε εκτυπωτή, φυσικού και εικονικού. Η εξαγωγή ενός PDF αρχείου, πραγματοποιείται μέσω ενός εικονικού εκτυπωτή.

Εάν θέλουμε, μπορούμε να επέμβουμε στις ρυθμίσεις του εικονικού εκτυπωτή και να ορίσουμε την ανάλυση (dpi), έτσι ώστε να είναι αντίστοιχη με αυτή του κανονικού μας εκτυπωτή, ώστε οι εικόνες να εμφανίζονται παντού και πάντα ίδιες.

Εκτός από αυτή την επιλογή, μπορούμε να παρέμβουμε στην φόρμα εκτύπωσης μέσα από το σύστημα και να ορίσουμε κάποιες παραμέτρους ειδικά για τα PDF αρχεία.


Λύση 1: Τυπώνουμε σε συγκεκριμένους εκτυπωτές 

Η διαδικασία αυτή περιγράφεται παρακάτω:

Πηγαίνουμε:
[ToolBox-> Εργαλεία Παραμετροποίησης -> Παραμετροποίηση Εφαρμογής -> Κεντρικοί Πίνακες Παραμετροποίησης -> Συναλλαγών και Συναλλασσομένων -> Ορισμός Παραστατικών Πελατών]
και επιλέγουμε το παραστατικό που θέλουμε να αλλάξουμε.

Στην οθόνη του παραστατικού, δίπλα από το πεδίο «Φόρμα Εκτύπωσης» πατάμε στο εικονίδιο με την ένδειξη «Διαχείριση Φόρμας».

Ανοίγει η παρακάτω οθόνη.

Διπλό κλικ στα παραπάνω εικονίδια και στο πεδίο «Συνθήκη» εισάγουμε την τιμή: .f.
και στις 2 οθόνες, για να μην τυπώνεται η εικόνα.

Έπειτα πηγαίνουμε στο tab «Αρχική Μέθοδος» και εισάγουμε το παρακάτω στον κενό χώρο, κάτω από οποιοδήποτε κείμενο μπορεί να υπάρχει:

##VAR my_fact=0
my_fact:=1
##IF at('PDF', upper(prf_selprn)) >0  .or. at('PDF', upper(_custprin)) >0 
     my_fact:=2
##ENDIF

Η τιμή που δίνουμε στην σχέση: my_fact:=2 αποτελεί τον πολλαπλασιαστή βάσει του οποίου θα μεγεθύνουμε τις εικόνες μας.

Έπειτα πηγαίνουμε στο Tab «Μέθοδος Κεφαλίδας» και εισάγουμε το παρακάτω στον κενό χώρο, κάτω από οποιοδήποτε κείμενο μπορεί να υπάρχει:

printbitmap(2, 2, '..\..\basic\bmp\logo1.bmp', 900*my_fact, 800*my_fact, .t.)
printbitmap(23, 15, '..\..\basic\bmp\logo2.bmp', 3000*my_fact, 3000*my_fact, .t.)

Οι παραπάνω εντολές εκτυπώνουν τις εικόνες με διάσταση βάση του my_fact

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

Για να τυπώσουμε εκ νέου το παραστατικό μας με τις αλλαγές που κάναμε, πηγαίνουμε από την οθόνη των παραστατικών, επιλέγουμε αυτό που θέλουμε και πατάμε: [Button Bar  -> Άποψη Παραστατικού (F4)]

Στην οθόνη που ανοίγει πηγαίνουμε: [Button Bar -> Δράσεις Παραστατικού -> Απλή Εκτύπωση]

Στην οθόνη «Ρυθμίσεις Εκτύπωσης» που ανοίγει, από τη στιγμή που ο Εκτυπωτής που επιλέξουμε, εξάγει pdf, τότε το έγγραφο που θα δημιουργηθεί, θα έχει ενσωματωμένες τις αλλαγές που κάναμε και τα εικονίδια θα φαίνονται ανάλογα.

Λύση 2: Δεν Τυπώνουμε σε συγκεκριμένους εκτυπωτές 
Η λύση 2 είναι παρόμοια με την Λύση 1. Η διαφορά της είναι ότι βρίσκει δυναμικά τον συντελεστή με τον οποιο θα πολλαπλασιάσει την εικόνα. 
Στον ορισμό της εικόνας, στα πεδία Πλάτος και Υψος Pixel εκτυπωτή δίνετε τα pixel του εκτυπωτή. 
Αν δεν τα ξέρετε από τις ρυθμίσεις του, τα pixel που έχει ο εκτυπωτής στον οποιο κάνετε τις δοκιμές, προσθέστε την εντολή

if(_dpr_kind<99, debmsg({_oprn:nLogPixelX(), _oprn:nLogPixelY()} ) , )

στην μέθοδο της κεφαλίδας. Κατά την εκτύπωση του παραστατικού θα εμφανιστεί message box με τις τιμές των Pixel (X,Y)

Σημείωση: Η συγκεκριμένη δυνατότητα προστέθηκε στην αναβάθμιση Query R0003.0200 (16/07/2021)