Η τιμή "ΚωδΠελάτη" χρησιμοποιείται για μια συναλλαγή στο εξαγόμενο αρχείο SAF-T, ακόμα και όταν καταχωρείτε ένα τιμολόγιο για λογαριασμούς γενικής λογιστικής μόνο στην Πορτογαλική έκδοση του Microsoft Dynamics NAV

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

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

Αλλαγές κώδικα

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

1. Προσθέστε την παρακάτω καθολική μεταβλητή με τη μορφή SAF-T PT (13382):

   JournalsFlag@1110015 : Boolean;

2. Αλλάξτε τον κωδικό στη συνάρτηση CheckANDModifyFile στη φόρμα SAF-T PT (13382) ως εξής:
   Υπάρχοντα κώδικα

   ...        InPutFile.OPEN(TempFileName);
           WHILE InPutFile.POS < InPutFile.LEN DO BEGIN
             InPutFile.READ(TextLine);
   
   // Delete the following line.
               IF NOT RemoveDebitOrCreditLine(TextLine) THEN
   
               OutPutFile2.WRITE(TextLine);
           END;
           InPutFile.CLOSE;
   ...
   
   

   Αντικατάσταση κώδικα

   ...        InPutFile.OPEN(TempFileName);
           WHILE InPutFile.POS < InPutFile.LEN DO BEGIN
             InPutFile.READ(TextLine);
   
   // Add the following line.
               IF NOT RemoveBlankTagLine(TextLine) THEN
   
               OutPutFile2.WRITE(TextLine);
           END;
           InPutFile.CLOSE;
   ...
   
   

3. Αλλάξτε τον κωδικό στη συνάρτηση RemoveBlankTagLine στη φόρμα SAF-T PT (13382) ως εξής:
   Υπάρχοντα κώδικα

   ...          EXIT(TRUE);
         END;
   
         BEGIN
         END.
       }
   ...
   
   

   Αντικατάσταση κώδικα

   ...          EXIT(TRUE);
         END;
   
   // Add the following lines.  
           LOCAL PROCEDURE RemoveBlankTagLine@1110012(VAR TempStr@1110001 : Text[1024]) : Boolean;
           BEGIN
             IF SYSTEM.STRPOS(TempStr,'<Journal>') > 0 THEN
               JournalsFlag := TRUE;
             IF SYSTEM.STRPOS(TempStr,'</Journal>') > 0 THEN
               JournalsFlag := FALSE;
             IF NOT JournalsFlag THEN
               EXIT(FALSE);
             IF (SYSTEM.STRPOS(TempStr,'<CustomerID/>') > 0) OR
               (SYSTEM.STRPOS(TempStr,'<SupplierID/>') > 0) THEN
               EXIT(TRUE);
           END;
   // End of the line.
   
         BEGIN
         END.
       }
   ...
   
   

4. Αλλάξτε τον κωδικό στη συνάρτηση GetSupCustID στο to XMLPort PT SAF-T (13301) ως εξής:
   Υπάρχοντα κώδικα

   ...      PROCEDURE GetSupCustID@1110015(SourceType@1110000 : ' ,Customer,Vendor,Bank Account,Fixed Asset');
         BEGIN
           WITH TempGLEntry2 DO BEGIN
             RESET;
             SETCURRENTKEY("Document No.","Posting Date");
   ...
   
   

   Αντικατάσταση κώδικα

   ...      PROCEDURE GetSupCustID@1110015(SourceType@1110000 : ' ,Customer,Vendor,Bank Account,Fixed Asset');
         BEGIN
   
   // Add the following lines.
             EntriesSupplierID := '';
             EntriesSupplierID := '';
   // End of the lines.
   
           WITH TempGLEntry2 DO BEGIN
             RESET;
             SETCURRENTKEY("Document No.","Posting Date");
   ...