הדוח הצהרת מע מ לא להדפיס את הנתונים הנכונים הפורטוגזית בגירסה של Microsoft Dynamics NAV 2009

מידע על תיקונים חמים

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. יש להחיל אותו רק במערכות שהתעוררה בהן בעיה ספציפית זו. תיקון חם זה עשוי לעבור בדיקות נוספות. לכן, אם המערכת שברשותך לא נפגעה באופן חמור מבעיה זו, מומלץ להמתין ל- Microsoft Dynamics NAV 2009 service pack הבאה או גירסת Microsoft Dynamics NAV הבא המכיל תיקון חם זה.

הערה במקרים מיוחדים, שהצגת עבור שיחות עשויים לבטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים יקבע שעדכון ספציפי יפתור את הבעיה. דמי התמיכה המקובלים יחולו על נוספים שאלות וסוגיות תמיכה אשר אינן מצריכות העדכון הספציפי האמור.

שינויי קוד

הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:

1. שנה את הקוד בפונקציה CalcVendorsRelation ב הדוח הצהרת מע מ (PT) (13398) באופן הבא:
   קוד קיים

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Delete the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                  VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

   קוד החלפה

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Add the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  VendEntries."Country/Region Code" := 'RC';
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              END ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

2. שנה את הקוד בפונקציה InsertCertificateNo ב הדוח הצהרת מע מ (PT) (13398) באופן הבא:
   קוד קיים

   ...            IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Delete the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                  IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                    IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...
   
   

   קוד החלפה

   ...          REPEAT
               IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Add the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN BEGIN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
                  END ELSE
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                      IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...