Registravimo data naudojama PVM grąžinimo ataskaitos prieduose, kai registruojate daugiau nei vieną tiekėjo SF naudodami skirtingas dokumentų datas "„Microsoft“ Dynamics NAV 5.0 Service Pack 1" versijoje portugalų kalba

Taikoma

Microsoft Dynamics NAV 5.0 Service Pack 1

Šis straipsnis taikomas "„Microsoft“ Dynamics NAV", skirtai portugalų (pt) kalbos lokalei.

Požymiai

Kai registruojate daugiau nei vieną tiekėjo SF naudodami skirtingas dokumentų datas "„Microsoft“ Dynamics NAV 5.0 Service Pack 1" (SP1) portugalų kalbos versijoje, registravimo data naudojama PVM grąžinimo prieduose PVM ataskaitų ataskaitoje. Tačiau turėtų būti naudojama dokumento data.

Sprendimas

Karštųjų pataisų informacija

Dabar palaikomas karštąsias pataisas galima gauti iš "„Microsoft“". Tačiau juo siekiama tik išspręsti šiame straipsnyje aprašytą problemą. Taikyti ją tik sistemoms, kuriose kilo ši konkreti problema. Ši karštoji pataisa gali būti papildomai patikrinta. Todėl, jei jūsų rimtai neveikia ši problema, rekomenduojame palaukti kito "„Microsoft“ Dynamics NAV 5.0" pakeitimų paketo arba kitos "„Microsoft“ Dynamics NAV" versijos, kurioje yra ši karštoji pataisa.

Pastaba Ypatingais atvejais mokesčiai, kurie paprastai taikomi už palaikymo skambučius, gali būti atšaukti, jei "„Microsoft“ Dynamics" ir susijusių produktų techninio palaikymo specialistas nustato, kad konkretus naujinimas išspręs jūsų problemą. Įprastos palaikymo išlaidos bus taikomos papildomiems palaikymo klausimams ir problemoms, kurios neatitinka atitinkamo konkretaus naujinimo reikalavimų.

Diegimo informacija

"„Microsoft“" pateikia programavimo pavyzdžių tik iliustracijai, be išreikštų ar numanomų garantijų. Tai apima, bet neapsiriboja, numanomas tinkamumo parduoti arba tinkamumo konkrečiam tikslui garantijas. Straipsnyje laikomasi nuomonės, kad esate susipažinę su demonstruojama programavimo kalba ir įrankiais, naudojamais kuriant ir derinant procedūras. "„Microsoft“" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcionalumą, bet jie nemodifikuos šių pavyzdžių, kad suteiktų papildomų funkcinių galimybių, ir nesukurs procedūrų, atitinkančių jūsų konkrečius reikalavimus.

Pastaba Prieš diegdami šią karštąją pataisą patikrinkite, ar visi "„Microsoft“ Navision" kliento vartotojai yra atsijungę nuo sistemos. Tai apima "„Microsoft“ Navision" programų tarnybų (NAS) kliento vartotojus. Turite būti vienintelis kliento vartotojas, kuris yra prisijungęs, kai įdiegiate šią karštąją pataisą.

Norėdami įdiegti šią karštąją pataisą, privalote turėti kūrėjo licenciją.

Rekomenduojame vartotojo paskyrai "Windows" prisijungimų lange arba duomenų bazės prisijungimų lange priskirti "SUPER" vaidmens ID. Jei vartotojo paskyrai negalima priskirti "SUPER" vaidmens ID, turite patikrinti, ar vartotojo paskyra turi šias teises:

Objekto, kurį keisite, modifikavimo teisė.
Sistemos objekto ID 5210 ir sistemos objekto ID 9015 objekto vykdymo teisės.

Pastaba: neturite turėti teisių į duomenų saugyklas, nebent turite atlikti duomenų taisymą.

Kodo keitimai

Pastaba Visada išbandykite kodo pataisas kontroliuojamoje aplinkoje prieš taikydami jas gamybos kompiuteriuose.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

PVM ataskaitos ataskaitoje (12) pakeiskite funkcijos CalcStartEndDateCVR kodą tokiu būdu:
Esamas kodas

...
        CalcCEVERVDeclNo(CEDeclNo,StartDateC0,StartDateC1,StartDateC2,StartDateC3,EndDateC0,EndDateC1,EndDateC2,EndDateC3);
        CalcCEVERVDeclNo(VEDeclNo,StartDateV0,StartDateV1,StartDateV2,StartDateV3,EndDateV0,EndDateV1,EndDateV2,EndDateV3);
        CalcCEVERVDeclNo(RVDeclNo,StartDateR0,StartDateR1,StartDateR2,StartDateR3,EndDateR0,EndDateR1,EndDateR2,EndDateR3);
      END;

// Delete the following line.  
       PROCEDURE CalcStartEndDateCVR@1110111(RelInclActPer@1110000 : Boolean; VAR StartDate0@1110001 : Date;VAR StartDate1@1110002 : Date;VAR StartDate2@1110003 : Date;VAR StartDate3@1110004 : Date;VAR EndDate0@1110005 : Date;VAR EndDate1@1110006 : Date;VAR EndDate2@1110007 : Date;VAR EndDate3@1110008 : Date;

      VAR DeclYear1@1110009 : Integer;VAR DeclYear2@1110010 : Integer;VAR DeclYear3@1110011 : Integer;VAR PeriodMonth1@1110012 : ' ,January,February,March,April,May,June,July,August,September,October,November,December';VAR PeriodMonth2@1110013 : ' ,January,February,March,April,May,June,July,August,September,October,November,December';
      VAR PeriodMonth3@1110014 : ' ,January,February,March,April,May,June,July,August,September,October,November,December';VAR PeriodQuarter1@1110015 : ' ,1§ Quarter,2§ Quarter,3§ Quarter,4§ Quarter';VAR PeriodQuarter2@1110016 : ' ,1§ Quarter,2§ Quarter,3§ Quarter,4§ Quarter';VAR PeriodQuarter3@1110017 : ' ,1§ Quarter,2§ Quarter,3§ Quarter,4§ Quarter');
      BEGIN
        IF NOT RelInclActPer THEN BEGIN
          CLEAR(StartDate0);
...

Pakeitimo kodas

...
        CalcCEVERVDeclNo(CEDeclNo,StartDateC0,StartDateC1,StartDateC2,StartDateC3,EndDateC0,EndDateC1,EndDateC2,EndDateC3);
        CalcCEVERVDeclNo(VEDeclNo,StartDateV0,StartDateV1,StartDateV2,StartDateV3,EndDateV0,EndDateV1,EndDateV2,EndDateV3);
        CalcCEVERVDeclNo(RVDeclNo,StartDateR0,StartDateR1,StartDateR2,StartDateR3,EndDateR0,EndDateR1,EndDateR2,EndDateR3);
      END;

// Add the following line.  
        PROCEDURE CalcStartEndDateCVR@1110111(RelInclActPer@1110000 : Boolean;     VAR StartDate0@1110001 : Date;VAR StartDate1@1110002 : Date;VAR StartDate2@1110003 : Date;VAR StartDate3@1110004 : Date;VAR EndDate0@1110005 : Date;VAR EndDate1@1110006 : Date;VAR EndDate2@1110007 : Date;VAR EndDate3@1110008 : Date;

      VAR DeclYear1@1110009 : Integer;VAR DeclYear2@1110010 : Integer;VAR DeclYear3@1110011 : Integer;VAR PeriodMonth1@1110012 : ' ,January,February,March,April,May,June,July,August,September,October,November,December';VAR PeriodMonth2@1110013 : ' ,January,February,March,April,May,June,July,August,September,October,November,December';
      VAR PeriodMonth3@1110014 : ' ,January,February,March,April,May,June,July,August,September,October,November,December';VAR PeriodQuarter1@1110015 : ' ,1§ Quarter,2§ Quarter,3§ Quarter,4§ Quarter';VAR PeriodQuarter2@1110016 : ' ,1§ Quarter,2§ Quarter,3§ Quarter,4§ Quarter';VAR PeriodQuarter3@1110017 : ' ,1§ Quarter,2§ Quarter,3§ Quarter,4§ Quarter');
      BEGIN
        IF NOT RelInclActPer THEN BEGIN
          CLEAR(StartDate0);
          "Transaction No." := NextTransactionNo;
...

Pakeiskite PVM ataskaitos ataskaitos (12) funkcijos GroupByCustVend kodą tokiu būdu:
Esamas kodas 1

...
        VATEntries.COPYFILTER("Posting Date",VATEntriesSum."Posting Date");
        IF VATEntries.FINDFIRST THEN
          REPEAT
            VATEntriesSum.SETRANGE(Type,VATEntries.Type);
            VATEntriesSum.SETRANGE("Bill-to/Pay-to No.",VATEntries."Bill-to/Pay-to No.");
            IF VATEntriesSum.FINDFIRST THEN BEGIN
              VATEntriesSum."VAT Registration No." := VATEntries."VAT Registration No.";
              VATEntriesSum."Posting Date" := VATEntries.GETRANGEMAX("Posting Date");
              VATEntriesSum.Base := VATEntriesSum.Base + VATEntries.Base;
              VATEntriesSum.Amount := VATEntriesSum.Amount + VATEntries.Amount;
...

Pakeitimo kodas 1

...
        VATEntries.COPYFILTER("Posting Date",VATEntriesSum."Posting Date");
        IF VATEntries.FINDFIRST THEN
          REPEAT
            VATEntriesSum.SETRANGE(Type,VATEntries.Type);
            VATEntriesSum.SETRANGE("Bill-to/Pay-to No.",VATEntries."Bill-to/Pay-to No.");

// Add the following line.
              VATEntriesSum.SETRANGE("Document Date",VATEntries."Document Date"); 

            IF VATEntriesSum.FINDFIRST THEN BEGIN
              VATEntriesSum."VAT Registration No." := VATEntries."VAT Registration No.";
              VATEntriesSum."Posting Date" := VATEntries.GETRANGEMAX("Posting Date");
              VATEntriesSum.Base := VATEntriesSum.Base + VATEntries.Base;
              VATEntriesSum.Amount := VATEntriesSum.Amount + VATEntries.Amount;
...

Esamas kodas 2

...
              VATEntriesSum := VATEntries;
              VATEntriesSum.INSERT;
            END;
            VATTotalBase := VATTotalBase + VATEntries.Amount;
          UNTIL VATEntries.NEXT = 0;
        VATEntriesSum.SETRANGE(Type);
        VATEntriesSum.SETRANGE("Bill-to/Pay-to No.");
      END;

      PROCEDURE IncludeLowValueOperations@1110123(VAR VATEntriesSum@1110000 : Record 254);
...

Pakeitimo kodas 2

...
              VATEntriesSum := VATEntries;
              VATEntriesSum.INSERT;
            END;
            VATTotalBase := VATTotalBase + VATEntries.Amount;
          UNTIL VATEntries.NEXT = 0;

// Add the following line.     
          VATEntriesSum.RESET;  

        VATEntriesSum.SETRANGE(Type);
        VATEntriesSum.SETRANGE("Bill-to/Pay-to No.");
      END;

      PROCEDURE IncludeLowValueOperations@1110123(VAR VATEntriesSum@1110000 : Record 254);
...

Būtinosios sąlygos

Norėdami taikyti šią karštąją pataisą, turite įdiegti "„Microsoft“ Dynamics NAV 5.0" 1 pakeitimų paketo portugalų kalbos versiją.

Pašalinimo informacija

Šios karštosios pataisos pašalinti negalite.

Būsena

„„Microsoft““ patvirtino, kad tai yra „„Microsoft““ produktų, išvardytų dalyje „Taikoma“, problema.

Pastaba: tai "SPARČIOJO PUBLIKAVIMO" straipsnis, sukurtas tiesiogiai iš "„Microsoft“" palaikymo organizacijos. Čia pateikta informacija pateikiama tokia, kokia yra, reaguojant į kylančias problemas. Dėl greito jos pateikimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrėta bet kuriuo metu be išankstinio įspėjimo. Dėl kitų aplinkybių žr. Naudojimo sąlygas .