"Dokumentu nevar un piemēroti kā pakalpojumu nodokļiem jau ir izmantota" kļūdas ziņojums, palaižot funkciju atsaukt ierakstus GTA kreditoriem norādīts Microsoft Dynamics NAV 2009 Indijas versijā grāmatoto pirkšanas rēķins

Informācija par labojumfailu

Pašlaik korporācija Microsoft piedāvā atbalstītu labojumfailu. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Izmantojiet to tikai tām sistēmām, kurām ir radusies tieši šī problēma. Iespējams, tiks veikta šī labojumfaila papildu testēšana. Tādēļ, ja jums ir šī problēma nerada nopietnus traucējumus, ieteicams nogaidīt, līdz tiks izlaista nākamā servisa pakotne Microsoft Dynamics NAV 2009 vai nākamo Microsoft Dynamics NAV versiju, kurā ir iekļauts šis labojumfails.

Piezīme. Īpašos gadījumos standarta izmaksas par atbalsta zvaniem nav jāsedz, ja ar tehniskā atbalsta speciālistu programmai Microsoft Dynamics un saistītiem produktiem nosaka, ka šo problēmu novērsīs noteikts atjauninājums. Parasti atbalsta izmaksas tiek piemērotas jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

Koda izmaiņas

Piezīme. Vienmēr pārbaudes kods novērš kontrolētā vidē pirms lietojat datoru ražošanas labojumus.
Lai novērstu šo problēmu, rīkojieties šādi:

1. Pievienojiet šo globālo mainīgo, Gen žurnāla.-Post rindu koda (12):

   • TempServiceTaxEntry3@1500076: 16473 pagaidu ieraksts

2. Pievienojiet šo lokālo mainīgo funkciju UnApplyVendSTEntries , Gen žurnāla.-Post rindu koda (12):

   • STEntryDetail2@1500000: Ierakstu 16474

3. Nomainiet šo kodu UnApplyVendSTEntries funkciju, Gen žurnāla.-Post rindu koda (12) šādi:
   Kods 1

   ...        STaxApplBuffer[1].DELETEALL;
           WITH DtldVendLedgEntry2 DO BEGIN
   ...
   
   

   Aizstāšanas kods = 1

   ...        STaxApplBuffer[1].DELETEALL;
   
   // Add the following line.
            TempServiceTaxEntry3.DELETEALL; 
   // End of the line.
   
           WITH DtldVendLedgEntry2 DO BEGIN
   ...
   
   

   Kods 2.

   ...              ServiceTaxMgt.UnApplyVendPmtEntries(STEntryDetail,NextTransactionNo);
   
   // Delete the following line.
                Sign := -1;
                FillSvcTaxApplication4(STEntryDetail,Sign); 
                Sign := 1; 
                FillSvcTaxApplication4(STEntryDetail,Sign); 
                ServiceTaxEntry.GET(STEntryDetail."Service Tax Entry No."); 
                 IF ServiceTaxEntry."Serv. Tax on Advance Payment" THEN BEGIN 
   // End of the line.
   ...
   
   

   Aizstāšanas kods 2.

   ...              ServiceTaxMgt.UnApplyVendPmtEntries(STEntryDetail,NextTransactionNo);
   
   // Add the following lines.
                ServiceTaxEntry.GET(STEntryDetail."Service Tax Entry No."); 
                ServiceTaxSetup.RESET; 
                ServiceTaxSetup.SETRANGE(Code,STEntryDetail."Service Tax Group Code"); 
                ServiceTaxSetup.SETRANGE("From Date",0D,STEntryDetail."Posting Date"); 
                TempServiceTaxEntry3.TRANSFERFIELDS(ServiceTaxEntry); 
                IF NOT STEntryDetail.GTA THEN BEGIN 
                  TempServiceTaxEntry3.INSERT; 
                  Sign := -1; 
                END ELSE BEGIN 
                  TempServiceTaxEntry3."G/L Account" := STEntryDetail."GL Account"; 
                  TempServiceTaxEntry3.INSERT; 
                  Sign := 1; 
                END; 
   
                FillSvcTaxApplication4(STEntryDetail,Sign); 
   
                STEntryDetail2 := STEntryDetail; 
                IF NOT STEntryDetail.GTA THEN 
                  Sign := 1 
                ELSE BEGIN 
                  IF ServiceTaxSetup.FINDLAST THEN 
                    STEntryDetail2."GL Account" := ServiceTaxSetup."Payables Account (Interim)"; 
                  Sign := -1; 
                END; 
   
                FillSvcTaxApplication4(STEntryDetail2,Sign);
                 IF ServiceTaxEntry."Serv. Tax on Advance Payment" THEN BEGIN 
   // End of the lines.
   ...
   
   

   Kods 3

   ...                  ServiceTaxEntry."From Excise" := STEntryDetail."From Excise";
   
   // Delete the following lines.
                    ServiceTaxSetup.RESET; 
                    ServiceTaxSetup.SETRANGE(Code,STEntryDetail."Service Tax Group Code"); 
                    ServiceTaxSetup.SETRANGE("From Date",0D,STEntryDetail."Posting Date");
   // End of the lines.
   
                     IF ServiceTaxSetup.FINDLAST THEN BEGIN
   ...
   
   

   Aizstāšanas kodu 3.

   ...                  ServiceTaxEntry."From Excise" := STEntryDetail."From Excise";
                     IF ServiceTaxSetup.FINDLAST THEN BEGIN
   ...
   
   

4. Izdzēsiet šo lokālā mainīgā funkciju FillSvcTaxApplication4 , Gen žurnāla.-Post rindu koda (12):

   • VAR ServiceTaxEntry@1002: 16473 ieraksts

5. Nomainiet šo kodu FillSvcTaxApplication4 funkciju, Gen žurnāla.-Post rindu koda (12) šādi:
   Kods

   ...          IF Sign < 0 THEN
   
   // Delete the following lines.
              STaxApplBuffer[1]."G/L Account" := "GL Account" 
            ELSE BEGIN 
              ServiceTaxEntry.GET("Service Tax Entry No."); 
              STaxApplBuffer[1]."G/L Account" := ServiceTaxEntry."G/L Account"; 
            END;
   // End of the lines.
   
             STaxApplBuffer[1]."Amount to Apply (LCY)" := Sign * ("Service Tax Amount" + "Service Tax eCess Amount" +
   ...
   
   

   Aizstāšanas kodu

   ...IF Sign < 0 THEN
   
            // Add the following lines.
              STaxApplBuffer[1]."G/L Account" := "GL Account" 
            ELSE 
              STaxApplBuffer[1]."G/L Account" := TempServiceTaxEntry3."G/L Account"; 
            // End of the lines.
   
             STaxApplBuffer[1]."Amount to Apply (LCY)" := Sign * ("Service Tax Amount" + "Service Tax eCess Amount" +
   ...
   
   

6. Nomainiet šo kodu UnApplyVendPmtEntries funkciju nodokļu pārvaldības pakalpojumu koda (16471) šādi:
   Kods 1

   ...        WITH STEntryDetail DO BEGIN
   
   // Delete the following lines.
            IF ("Service Tax Amount" <> "Remaining Credit") OR ("Service Tax eCess Amount" <> "Remaining Credit (eCess)") OR 
              ("Service Tax SHE Cess Amount" <> "Remaining Credit (SHECess)") 
            THEN 
              ERROR(Text16535,"Document No."); 
   // End of the lines.
   
             STEntryDetail2.RESET;
   ...
   
   

   Aizstāšanas kods = 1

   ...        WITH STEntryDetail DO BEGIN
   
            // Add the following lines.
            IF GTA THEN BEGIN 
              IF ("Service Tax Amount" <> "GTA Remaining Credit") OR ("Service Tax eCess Amount" <> "GTA Remaining Credit (eCess)") OR 
                ("Service Tax SHE Cess Amount" <> "GTA Remaining Credit (SHECess)") 
              THEN 
                ERROR(Text16535,"Document No."); 
            END ELSE BEGIN 
              IF ("Service Tax Amount" <> "Remaining Credit") OR ("Service Tax eCess Amount" <> "Remaining Credit (eCess)") OR 
                ("Service Tax SHE Cess Amount" <> "Remaining Credit (SHECess)") 
              THEN 
                ERROR(Text16535,"Document No."); 
            END; 
            // End of the lines.
   
             STEntryDetail2.RESET;
   ...
   
   

   Kods 2.

   ...          STEntryDetail2."Remaining S.T. Base Amount" := - STEntryDetail2."Remaining S.T. Base Amount";
             STEntryDetail2.INSERT;
   ...
   
   

   Aizstāšanas kods 2.

   ...          STEntryDetail2."Remaining S.T. Base Amount" := - STEntryDetail2."Remaining S.T. Base Amount";
   
            // Add the following lines.
            STEntryDetail2."GTA Remaining Credit" := - STEntryDetail2."GTA Remaining Credit"; 
            STEntryDetail2."GTA Remaining Credit (eCess)" := - STEntryDetail2."GTA Remaining Credit (eCess)"; 
            STEntryDetail2."GTA Remaining Credit (SHECess)" := - STEntryDetail2."GTA Remaining Credit (SHECess)"; 
            // End of the lines.
   
             STEntryDetail2.INSERT;
   ...