Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για οι ινδοί (τοπική ρύθμιση γλώσσας in).
Συμπτώματα
Στην ινδική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1), η τιμή εμφανίζεται "ΦΠΑ %" είναι εσφαλμένη σε μια γραμμή παραγγελίας πώλησης, καθώς και στη γραμμή καταχωρημένου τιμολογίου πώλησης. Αναμένετε την τιμή "ΦΠΑ %" για να είναι συνεπείς με το φόρος κάτω από την ελάχιστη τιμή στη ρύθμιση των λεπτομερειών φόρου. Το ίδιο ζήτημα συμβαίνει επίσης για τα παραστατικά αγορών.
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη 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 Αναγνωριστικό αντικειμένου συστήματος .
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
-
Αλλάξτε τον κωδικό του εναύσματος με την επικύρωση στο Ποσό με ΦΠΑ στον πίνακα Γραμμή πώλησης (37) ως εξής:
Υπάρχοντα κώδικα... ELSE
"Amount To Customer" :=
ROUND("Line Amount" - "Inv. Discount Amount" + "Excise Amount" + "Charges To Customer" -
"Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" +"Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision");
END;
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",Currency."Amount Rounding Precision")
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
InitOutstandingAmount;
END;
...Αντικατάσταση κώδικα
... ELSE
"Amount To Customer" :=
ROUND("Line Amount" - "Inv. Discount Amount" + "Excise Amount" + "Charges To Customer" -
"Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" +"Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision");
END;
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
InitOutstandingAmount;
END;
... -
Αλλάξτε τον κωδικό στη συνάρτηση UpdateTaxAmounts στον πίνακα Γραμμή πώλησης (37) ως εξής:
Υπάρχοντα κωδικό 1... "Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Delete the following lines.
//LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code","Tax Liable",SalesHeader."Posting Date",
// "Tax Base Amount",Quantity,SalesHeader."Currency Factor","Form Code");
// End of the deleted lines.
TotalTaxAmount := 0;
TotalStdDeductionAmt := 0;
...Αντικατάσταση κώδικα 1
... "Bal. TDS/TCS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Add the following lines.
LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code","Tax Liable",SalesHeader."Posting Date",
"Tax Base Amount",Quantity,SalesHeader."Currency Factor","Form Code","Tax %");
// End of the added lines.
TotalTaxAmount := 0;
TotalStdDeductionAmt := 0;
...Υπάρχοντα κώδικα 2
... END ELSE
IndianSalesTaxCalculate.GetStandardDeductionAmt(Rec,StandardDeductionAmount,LineTaxAmount);
END
END;
"Amount Including Tax" := ROUND("Tax Base Amount" + LineTaxAmount,Currency."Amount Rounding Precision");
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" :=
// ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",Currency."Amount Rounding Precision")
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
IF "Standard Deduction %" <>0 THEN
"Standard Deduction Amount" := ("Tax Base Amount" * "Standard Deduction %" / 100)
...Αντικατάσταση κώδικα 2
... END ELSE
IndianSalesTaxCalculate.GetStandardDeductionAmt(Rec,StandardDeductionAmount,LineTaxAmount);
END
END;
"Amount Including Tax" := ROUND("Tax Base Amount" + LineTaxAmount,Currency."Amount Rounding Precision");
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
IF "Standard Deduction %" <>0 THEN
"Standard Deduction Amount" := ("Tax Base Amount" * "Standard Deduction %" / 100)
... -
Αλλάξτε τον κωδικό του εναύσματος με την επικύρωση στο Ποσό με ΦΠΑ στον πίνακα Γραμμή αγορών (39) ως εξής:
Υπάρχοντα κώδικα... "Amount To Vendor" := ROUND("Line Amount" -"Inv. Discount Amount" + "Excise Amount" + "Tax Amount" -
"Bal. TDS Including SHE CESS" + "Charges To Vendor" + "Service Tax Amount" +
"Service Tax eCess Amount" + "Service Tax SHE Cess Amount");
END;
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",
// Currency."Amount Rounding Precision")
//ELSE // Delete
// "Tax %" := 0;
// End of the deleted lines.
InitOutstandingAmount;
...Αντικατάσταση κώδικα
... "Amount To Vendor" := ROUND("Line Amount" -"Inv. Discount Amount" + "Excise Amount" + "Tax Amount" -
"Bal. TDS Including SHE CESS" + "Charges To Vendor" + "Service Tax Amount" +
"Service Tax eCess Amount" + "Service Tax SHE Cess Amount");
END;
// Add the following lines.
IF "Tax Base Amount" = 0 THEN // Add
// End of the added lines.
InitOutstandingAmount;
... -
Αλλάξτε τον κωδικό στη συνάρτηση UpdateTaxAmounts στον πίνακα Γραμμή αγορών (39) ως εξής:
Υπάρχοντα κωδικό 1... "Bal. TDS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Delete the following lines.
//LineTaxAmount := ROUND(IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code","Tax Liable",PurchHeader."Posting Date",
// "Tax Base Amount",Quantity,PurchHeader."Currency Factor","Form Code"),Currency."Amount Rounding Precision");
// End of the deleted lines.
AmountonInventory := 0;
InputTaxCreditAmount := 0;
...Αντικατάσταση κώδικα 1
... "Bal. TDS Including SHECESS" + "Service Tax Amount" + "Service Tax eCess Amount" +
"Service Tax SHE Cess Amount",Currency."Amount Rounding Precision")
END;
IndianSalesTaxCalculate.SetCurrency("Currency Code" <>'');
// Add the following lines.
LineTaxAmount := ROUND(IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code","Tax Liable",PurchHeader."Posting Date",
"Tax Base Amount",Quantity,PurchHeader."Currency Factor","Form Code","Tax %"),Currency."Amount Rounding Precision");
// End of the added lines.
AmountonInventory := 0;
InputTaxCreditAmount := 0;
...Υπάρχοντα κώδικα 2
... "Tax Amount" := ROUND(TaxAmount,Currency."Amount Rounding Precision");
"Amount Including Tax" := ("Tax Base Amount" + "Tax Amount");
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := ROUND(100 * ("Amount Including Tax" - "Tax Base Amount") / "Tax Base Amount",
// Currency."Amount Rounding Precision")
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
ServiceTaxSetup.RESET;
...Αντικατάσταση κώδικα 2
... "Tax Amount" := ROUND(TaxAmount,Currency."Amount Rounding Precision");
"Amount Including Tax" := ("Tax Base Amount" + "Tax Amount");
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
ServiceTaxSetup.RESET;
... -
Αλλάξτε τον κωδικό στη συνάρτηση στον πίνακα Εγγραφών απογραφής ΦΠΑ UpdateTaxAmount (16569) ως εξής:
Υπάρχοντα κώδικα... IF "Transaction Type" = "Transaction Type"::Purchase THEN BEGIN
// Delete the following lines.
//LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code",TRUE,"Posting Date",
// "Tax Base Amount",Quantity,0,'');
// End of the deleted lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningInputTaxCredit(Rec,"Amount Loaded on Item",
"Input Credit/Output Tax Amount",TRUE,TaxAmount);
"Tax Amount" := TaxAmount;
IF GLSetup."VAT Rounding Precision" <> 0 THEN
"Tax Amount" := ROUND("Tax Amount",GLSetup."VAT Rounding Precision",Direction);
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := 100 * (("Tax Base Amount" + "Tax Amount") - "Tax Base Amount") / "Tax Base Amount"
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
END ELSE IF "Transaction Type" = "Transaction Type"::Sale THEN BEGIN
IF ("Export or Deemed Export") THEN
EXIT;
// Delete the following lines.
//LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
// "Tax Area Code","Tax Group Code",TRUE,"Posting Date",
// "Tax Base Amount",Quantity,0,'');
// End of the deleted lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningSTD(Rec,StandardDeductionAmount,TaxAmount);
"Tax Amount" := TaxAmount - StandardDeductionAmount;
// Delete the following lines.
//IF "Tax Base Amount" <> 0 THEN
// "Tax %" := 100 * (("Tax Base Amount" + "Tax Amount") - "Tax Base Amount") / "Tax Base Amount"
//ELSE
// "Tax %" := 0;
// End of the deleted lines.
"Input Credit/Output Tax Amount" := "Tax Amount";
"Amount Loaded on Item" := 0;
END;
...Αντικατάσταση κώδικα
... IF "Transaction Type" = "Transaction Type"::Purchase THEN BEGIN
// Add the following lines.
LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code",TRUE,"Posting Date",
"Tax Base Amount",Quantity,0,'',"Tax %");
// End of the added lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningInputTaxCredit(Rec,"Amount Loaded on Item",
"Input Credit/Output Tax Amount",TRUE,TaxAmount);
"Tax Amount" := TaxAmount;
IF GLSetup."VAT Rounding Precision" <> 0 THEN
"Tax Amount" := ROUND("Tax Amount",GLSetup."VAT Rounding Precision",Direction);
// Add the following lines.
IF "Tax Base Amount" = 0 THEN
"Tax %" := 0;
// End of the added lines.
END ELSE IF "Transaction Type" = "Transaction Type"::Sale THEN BEGIN
IF ("Export or Deemed Export") THEN
EXIT;
// Add the following lines.
LineTaxAmount := IndianSalesTaxCalculate.CalculateTax(
"Tax Area Code","Tax Group Code",TRUE,"Posting Date",
"Tax Base Amount",Quantity,0,'',"Tax %");
// End of the added lines.
IF LineTaxAmount <> 0 THEN
IndianSalesTaxCalculate.GetVATOpeningSTD(Rec,StandardDeductionAmount,TaxAmount);
"Tax Amount" := TaxAmount - StandardDeductionAmount;
// Add the following lines.
IF "Tax Base Amount" = 0 THEN // Add
"Tax %" := 0; // Add
// End of the added lines.
"Input Credit/Output Tax Amount" := "Tax Amount";
"Amount Loaded on Item" := 0;
END;
... -
Αλλάξτε τον κωδικό στη Υπολογισμός φόρου πωλήσεων Ινδικού μονάδα κώδικα (13704) ως εξής:
Υπάρχοντα κώδικα... Taxamount := TaxBaseAmount * TaxDetail."Tax Below Maximum" / 100;
IF (TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::VAT) OR
(TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::CST)
...Αντικατάσταση κώδικα
... Taxamount := TaxBaseAmount * TaxDetail."Tax Below Maximum" / 100;
// Add the following line.
TaxPercent := TaxDetail."Tax Below Maximum";
// End of the added line.
IF (TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::VAT) OR
(TaxJurisdiction."Tax Type" = TaxJurisdiction."Tax Type"::CST)
...
7. Codeunit 13704 Indian Sales Tax Calculate
Function CalculateTax
Add the below Parameter
VAR TaxPercent Type Decimal
Προϋποθέσεις
Πρέπει να έχετε την ινδική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) εγκατεστημένο για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση.
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Αναφορές
VSTF DynamicsNAV SE: 252133
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης ".
