Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για την τοπική ρύθμιση γλώσσας Ουγγρικά (hu).
Συμπτώματα
Εξετάστε το ακόλουθο σενάριο στην Ουγγρική έκδοση του Microsoft Dynamics NAV 2009 R2:
-
Μπορείτε να εφαρμόσετε την ενημερωμένη έκδοση προκαταβολές για την ουγγρική έκδοση του Microsoft Dynamics NAV 2009 R2.
-
Μπορείτε να ορίσετε το πεδίο Τύπος προπληρωμής σε εκ των προτέρων στη φόρμα Παραμετρ.
-
Μπορείτε να ορίσετε το πεδίο Τύπος διόρθωση τιμολογίων προηγμένες υπηρεσίες υποστήριξης για την απόλυτη για το φόρο προστιθέμενης αξίας (ΦΠΑ) ομάδα καταχώρησης.
-
Μπορείτε να δημιουργήσετε μια παραγγελία πώλησης για έναν πελάτη που χρησιμοποιεί την ομάδα καταχώρησης ΦΠΑ.
-
Μπορείτε να καταχωρήσετε μια προκαταβολή και ένα τιμολόγιο εκ των προτέρων για τον πελάτη.
-
Αποστολή και Τιμολόγηση της παραγγελίας πώλησης.
Σε αυτό το σενάριο, ένα μεγάλο καταχώρηση της στρογγυλοποίησης δημιουργείται απροσδόκητα.
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Navision έχουν αποσυνδεθεί από το σύστημα. Σε αυτές περιλαμβάνονται οι χρήστες του προγράμματος-πελάτη Microsoft Navision εφαρμογής υπηρεσιών (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.
Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.
Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για το αντικείμενο 9015 Αναγνωριστικό αντικειμένου συστήματος .
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
-
Αλλάξτε τον κωδικό στη συνάρτηση CalcRndDiffAmt στη μονάδα κώδικα "Πωλήσεις-Post" (80) ως εξής:
Υπάρχοντα κώδικα...// Delete the following lines.
PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
BEGIN
EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt + CalcPostedAmtInclVAT));
// End of the lines.
END;
...Αντικατάσταση κώδικα
...// Add the following lines.
LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
VAR
TotalAmtInclVAT@1360001 : Decimal;
BEGIN
TotalAmtInclVAT :=
CalcTotalAmtInclVAT(Currency);
IF TotalAmtInclVAT = InvAmt THEN
EXIT(0);
EXIT(TotalAmtInclVAT - (InvAmt + CalcPostedAmtInclVAT));
// End of the lines.
END;
... -
Αλλάξτε τον κωδικό στη συνάρτηση IsFinalInvoice στη μονάδα κώδικα "Πωλήσεις-Post" (80) ως εξής:
Υπάρχοντα κώδικα...SETRANGE("Document No.",SalesHeader."No.");
// Delete the following line.
EXIT(SalesPostAdvances.FullyDeductedCustPrepmt(SalesOrderLine));
END;
...Αντικατάσταση κώδικα
...SETRANGE("Document No.",SalesHeader."No.");
// Add the following line.
EXIT(SalesPostAdvances.IsFinalCustInvoice(SalesOrderLine));
END;
... -
Αλλάξτε τον κωδικό στη συνάρτηση CalcRndDiffAmt στη μονάδα κώδικα "Αγορές-Post" (90) ως εξής:
Υπάρχοντα κώδικα...// Delete the following lines.
PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
BEGIN
EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt - CalcPostedAmtInclVAT));
// End of the lines.
END;
...Αντικατάσταση κώδικα
...// Add the following lines.
LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
VAR
TotalAmtInclVAT@1360001 : Decimal;
BEGIN
TotalAmtInclVAT :=
CalcTotalAmtInclVAT(Currency);
IF TotalAmtInclVAT = InvAmt THEN
EXIT(0);
EXIT(TotalAmtInclVAT - (InvAmt - CalcPostedAmtInclVAT));
// End of the lines.
END;
... -
Αλλάξτε τον κωδικό στη συνάρτηση IsFinalInvoice στη μονάδα κώδικα "Αγορές-Post" (90) ως εξής:
Υπάρχοντα κώδικα...SETRANGE("Document No.",PurchHeader."No.");
// Delete the following line.
EXIT(PurchPostAdvances.FullyDeductedVendPrepmt(PurchOrderLine));
END;
...Αντικατάσταση κώδικα
...SETRANGE("Document No.",PurchHeader."No.");
// Add the following line.
EXIT(PurchPostAdvances.IsFinalVendInvoice(PurchOrderLine));
END;
... -
Αλλάξτε τον κωδικό στη συνάρτηση SalesOrderProcessing στη "Πωλήσεις-Post προκαταβολές" μονάδα κώδικα (26585) ως εξής:
Υπάρχοντα κωδικό 1...VAR
// Delete the following lines.
FullyDeducted@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH SalesHeader DO BEGIN
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
IF FullyDeducted THEN
// End of the lines.
InvoicedAmount :=
...Αντικατάσταση κώδικα 1
...VAR
// Add the following lines.
IsFinalInvoice@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH SalesHeader DO BEGIN
IsFinalInvoice := IsFinalCustInvoice(SalesLine);
IF IsFinalInvoice THEN
// End of the lines.
InvoicedAmount :=
...Υπάρχοντα κώδικα 2
...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Delete the following line.
FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
UNTIL SalesLine.NEXT = 0;
...Αντικατάσταση κώδικα 2
...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Add the following line.
IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
UNTIL SalesLine.NEXT = 0;
... -
Αλλάξτε τον κωδικό στη συνάρτηση FullyDeductedCustPrepmt στη "Πωλήσεις-Post προκαταβολές" μονάδα κώδικα (26585) ως εξής:
Υπάρχοντα κωδικό 1...// Delete the following line.
PROCEDURE FullyDeductedCustPrepmt@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
BEGIN
...Αντικατάσταση κώδικα 1
...// Add the following line.
PROCEDURE IsFinalCustInvoice@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
BEGIN
...Υπάρχοντα κώδικα 2
...SetSalesLineToPost(SalesLine);
// Delete the following line.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" <> SalesLine."Prepmt. Amt. Inv." THEN
EXIT(FALSE);
...Αντικατάσταση κώδικα 2
...SetSalesLineToPost(SalesLine);
// Add the following line.
IF SalesLine."Qty. to Invoice" + SalesLine."Quantity Invoiced" <> SalesLine.Quantity THEN
EXIT(FALSE);
... -
Αλλάξτε τον κωδικό στη συνάρτηση CollectFullyDeductedOrders στη "Πωλήσεις-Post προκαταβολές" μονάδα κώδικα (26858) ως εξής:
Υπάρχοντα κωδικό 1...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
// Delete the following line.
FullyDeducted@1360004 : Boolean;
BEGIN
...Αντικατάσταση κώδικα 1
...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
// Add the following line.
IsFinalInvoice@1360004 : Boolean;
BEGIN
...Υπάρχοντα κώδικα 2
...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
// Delete the following lines.
FullyDeducted := FullyDeductedOrder.FIND;
IF NOT FullyDeducted THEN BEGIN
FullyDeducted := FullyDeductedCustPrepmt(SalesOrderLine);
IF FullyDeducted THEN
FullyDeductedOrder.INSERT;
END;
IF FullyDeducted THEN BEGIN
// End of the lines.
FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
...Αντικατάσταση κώδικα 2
...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
// Add the following lines.
IsFinalInvoice := FullyDeductedOrder.FIND;
IF NOT IsFinalInvoice THEN BEGIN
IsFinalInvoice := IsFinalCustInvoice(SalesOrderLine);
IF IsFinalInvoice THEN
FullyDeductedOrder.INSERT;
END;
IF IsFinalInvoice THEN BEGIN
// End of the lines.
FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
... -
Αλλάξτε τον κωδικό στη συνάρτηση PurchOrderProcessing στη "Προκαταβολές Purchace-Post" μονάδα κώδικα (26586) ως εξής:
Υπάρχοντα κωδικό 1...VAR
// Delete the following lines.
FullyDeducted@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH PurchHeader DO BEGIN
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);
IF FullyDeducted THEN
// End of the lines.
InvoicedAmount :=
...Αντικατάσταση κώδικα 1
...VAR
// Add the following lines.
IsFinalInvoice@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH PurchHeader DO BEGIN
IsFinalInvoice := IsFinalVendInvoice(PurchLine);
IF IsFinalInvoice THEN
// End of the lines.
InvoicedAmount :=
...Υπάρχοντα κώδικα 2
...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Delete the following line.
FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
UNTIL PurchLine.NEXT = 0;
...Αντικατάσταση κώδικα 2
...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Add the following line.
IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
UNTIL PurchLine.NEXT = 0;
... -
Αλλάξτε τον κωδικό στη συνάρτηση FullyDeductedVendPrepmt στη "Προκαταβολές Purchace-Post" μονάδα κώδικα (26586) ως εξής:
Υπάρχοντα κωδικό 1...// Delete the following line.
PROCEDURE FullyDeductedVendPrepmt@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
BEGIN
...Αντικατάσταση κώδικα 1
...// Add the following line.
PROCEDURE IsFinalVendInvoice@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
BEGIN
...Υπάρχοντα κώδικα 2
...SetPurchLineToPost(PurchLine);
// Delete the following line.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" <> PurchLine."Prepmt. Amt. Inv." THEN
EXIT(FALSE);
...Αντικατάσταση κώδικα 2
...SetPurchLineToPost(PurchLine);
// Add the following line.
IF PurchLine."Qty. to Invoice" + PurchLine."Quantity Invoiced" <> PurchLine.Quantity THEN
EXIT(FALSE);
... -
Αλλάξτε τον κωδικό στη συνάρτηση CollectFullyDeductedOrders στη "Προκαταβολές Purchace-Post" μονάδα κώδικα (26586) ως εξής:
Υπάρχοντα κωδικό 1...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
// Delete the following line.
FullyDeducted@1360004 : Boolean;
BEGIN
...Αντικατάσταση κώδικα 1
...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
// Add the following line.
IsFinalInvoice@1360004 : Boolean;
BEGIN
...Υπάρχοντα κώδικα 2
...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
// Delete the following lines.
FullyDeducted := FullyDeductedOrder.FIND;
IF NOT FullyDeducted THEN BEGIN
FullyDeducted := FullyDeductedVendPrepmt(PurchOrderLine);
IF FullyDeducted THEN
FullyDeductedOrder.INSERT;
END;
IF FullyDeducted THEN BEGIN
// End of the lines.
FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
...Αντικατάσταση κώδικα 2
...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
// Add the following lines.
IsFinalInvoice := FullyDeductedOrder.FIND;
IF NOT IsFinalInvoice THEN BEGIN
IsFinalInvoice := IsFinalVendInvoice(PurchOrderLine);
IF IsFinalInvoice THEN
FullyDeductedOrder.INSERT;
END;
IF IsFinalInvoice THEN BEGIN
// End of the lines.
FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
...
Προϋποθέσεις
Πρέπει να έχετε την ουγγρική έκδοση του Microsoft Dynamics NAV 2009 R2 με την ενημερωμένη έκδοση προπληρωμές για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση.
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης ".
