Σκοπός: Η μέθοδος _service_export αποτελεί παράδειγμα μεθόδου που δημιουργεί ένα αρχείο με τα είδη της αποθήκης. Μπορείτε να τη χρησιμοποιήσετε για να εξάγετε την αποθήκη σας σε ένα αρχείο csv ή xls. Για την επιλογή των ειδών μπορείτε να ορίσετε ελάχιστη και μέγιστη ημερομηνία καταχώρησης εγγραφής στα κριτήρια της μεθόδου. Στην εξαγωγή θα βρεθούν τα είδη που δημιουργήθηκαν στην συγκεκριμένη περίοδο. Για κάθε εγγραφή είδους η μέθοδος εμφανίζει τον κωδικό και την περιγραφή του σε ξεχωριστές στήλες.

Εργαλεία:

1. Εφαρμογή Pegasus ERP.
2. Τα αρχεία της μεθόδου από εδώ.

Υλοποίηση:

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

Ρυθμίσεις:

Αρχείο _init.peg

Μέσα στο αρχείο _init.peg μπορείτε να βρείτε τις βασικές μεταβλητές για την εκτέλεσή της. Οι μεταβλητές αυτές μπορούν να τροποποιηθούν κατάλληλα ώστε να αλλάξουν απλές λειτουργία της μεθόδου.

Συγκεκριμένα στις μεταβλητές:

1. my_path: θα ορίσετε τη διαδρομή για το φάκελο που περιέχει τα αρχεία της μεθόδου.
2. my_filei00: θα ορίσετε το φάκελο και το όνομα το αρχείου που θα δημιουργηθεί από τη μέθοδο.
3. my_date1 και my_date2: δυο μεταβλητές λειτουργούν ως προεπιλογές στα κριτήρια αναζήτησης της μεθόδου Ημερομηνία Από - Έως.
4. my_xls: ορίζετε τιμή .t. αν θέλετε εκτός από το .csv αρχείο, να δημιουργηθεί και ένα .xlx. Διαφορετικά μπορείτε να δώσετε τιμή .f.

Αρχείο my_input.peg

Μέσα στο αρχείο my_input.peg ορίζονται οι μεταβλητές για τα κριτήρια που θα δώσει ο χρήστης. Εδώ δημιουργούνται 2 κριτήρια με ημερομηνίες που ορίζουν μέσα σε ποιά περίοδο θα πρέπει να ανήκουν τα είδη (η ημερομηνία καταχώρησής τους) ώστε να επιλεχθούν για εξαγωγή. Αν η Ημερομηνία Από είναι μεγαλύτερη από την Ημερομηνία Έως εμφανίζεται σφάλμα. 

Αρχείο my000.peg

Μέσα στο αρχείο my000.peg γίνεται η εκτέλεση της κύριας μεθόδου εξαγωγής. 

Αρχείο my000_01.peg

Μέσα στο αρχείο my000_01.peg γίνεται η δημιουργία του αρχείου που θα περιέχει τα είδη της αποθήκης, αν υπάρχει ή ηδη αρχείο στην ίδια διαδρομή με την ίδια ονομασία διαγράφεται. Επίσης εκτελείτε και η μέθοδος my_convxls.peg που μετατρέπει το εξαγώμενο αρχείο σε μορφή .xls .

Επιπλέον εδώ γίνεται και η εκτέλεση του query για την εύρεση των ειδών που θα συμπληρωθούν στο αρχείο εξαγωγής.

my_str:=odbcReadCommand('sql\my000_01.sql', .t., .t.)

Για κάθε είδος που επιστρέφει το query εκτελείτε η μέθοδος my000_01_01.peg.

Αρχείο my000_01.sql

Μέσα στο αρχείο my000_01.sql είναι συμπληρωμένο το query για την αναζήτηση των ειδών, που πληρούν τα κριτήρια που έδωσε ο χρήστης, στη βάση της εφαρμογής. Αν θέλετε να αλλάξετε τα πεδίο που εμφανίζονται για κάθε είδος ή τα κριτήρια αναζήτησης θα πρέπει να παραμετροποιήσετε σωστά τον κώδικα του αρχείου.

Αρχείο my000_01_01.peg

Μέσα στο αρχείο my000_01_01.peg δημιουργούνται οι γραμμές του αρχείου εξαγωγή των ειδών. Για κάθε είδος η μέθοδος δημιουργεί μια γραμμή, η κάθε γραμμή σχηματίζεται από τα πεδία του είδους που επιστρέφει το query από την εκτέλεση του αρχείου my000_01.sql. Με την εντολή

my_buf:=my_buf + StrToCsv(pegtrim(p01))

μπορείτε να προσθέσετε σε κάθε γραμμή, για παράδειγμα, το πεδίο p01 του query που αντιστοιχεί στον κωδικό του είδους.

Αρχείο help.txt

Στο το αρχείο help.txt μπορείτε να αλλάξετε τις οδηγίες της μεθόδου.

Σημείωση: για την παραμετροποίηση των μεταβλητών μπορείτε να δείτε και από τη μελέτη εδώ τις οδηγίες για Ορισμός βασικών μεταβλητών μεθόδου