A feladási dátumot a rendszer akkor használja az Áfabevallás jelentés áfa-visszatérítési mellékleteiben, amikor egynél több számlát ad fel egy szállítóra vonatkozóan a Microsoft Dynamics NAV 5.0 Service Pack 1 portugál verziójában lévő különböző dokumentumdátumok használatával

Hatókör
Microsoft Dynamics NAV 5.0 Service Pack 1

Ez a cikk a Microsoft Dynamics NAV portugál (pt) területi beállítására vonatkozik.

Tünetek

Ha egynél több számlát ad fel egy szállítónak különböző dokumentumdátumok használatával a Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) portugál verziójában, a feladási dátum szerepel az áfabevallás számlakivonatának áfa-visszatérítési mellékleteiben. A dokumentum dátumát azonban mindenképpen használnia kell.

Megoldás

Gyorsjavítással kapcsolatos információk

A Microsoft már elérhető egy támogatott gyorsjavítást kínál. Ez azonban csak a cikkben ismertetett probléma megoldására szolgál. Csak olyan rendszerekre alkalmazza, amelyek tapasztalják ezt a problémát. Előfordulhat, hogy a gyorsjavítás további tesztelésen eshet át. Ezért ha nem érinti súlyosan ez a probléma, azt javasoljuk, hogy várja meg a Microsoft Dynamics NAV 5.0 következő szervizcsomagját, illetve a Microsoft Dynamics NAV következő verzióját, amely tartalmazza ezt a gyorsjavítást.

Megjegyzés: Különleges esetekben a támogatási hívások szokásos díjai törölhetők, ha a Microsoft Dynamics és a kapcsolódó termékek terméktámogatási szakértője úgy ítéli meg, hogy egy adott frissítés megoldja a problémát. A szokásos támogatási költségek olyan további támogatási kérdések és problémák esetén merülnek fel, amelyek nem felelnek meg a kérdéses frissítés feltételeinek.

            
          

Telepítési információk

A Microsoft csak illusztrációs céllal kínál programozási példákat, kifejezett vagy vélelmezett garancia nélkül. Ez magában foglalja, de nem kizárólagosan a forgalmazhatóságra vagy az adott célra való alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás funkcionalitását, de nem módosítják a példákat, hogy további funkciókat biztosítsanak, és nem építenek ki eljárásokat az egyéni igényekre.

Megjegyzés: A gyorsjavítás telepítése előtt győződjön meg arról, hogy a Microsoft Navision-ügyfél összes felhasználója kijelentkezett a rendszerről. Ide tartoznak a Microsoft Navision Application Services (NAS) kliens felhasználói is. A gyorsjavítás telepítésekor csak Ön lehet az, aki be van jelentkezve.

A gyorsjavítás implementálásához fejlesztői licenccel kell rendelkeznie.

Javasoljuk, hogy a Windows Bejelentkezések ablakában vagy az Adatbázis-bejelentkezések ablakban látható felhasználói fiókhoz rendelje a "SUPER" szerepkörazonosítót. Ha a felhasználói fiókhoz nem rendelhető a "SUPER" szerepkörazonosító, ellenőriznie kell, hogy a felhasználói fiók rendelkezik-e az alábbi engedélyekkel:

  • A módosítani kívánt objektum Módosítás engedélye.
  • Végrehajtási engedély az 5210-es rendszerazonosítójú objektumhoz és a 9015-ös rendszerobjektum-azonosítójú objektumhoz.

                
Megjegyzés: Az adattárakhoz csak akkor kell jogokkal rendelkeznie, ha adatokat kell javítást végeznie.

Kódváltozások

Megjegyzés: Mindig ellenőrzött környezetben tesztelje a kódjavításokat, mielőtt telepítené őket az üzemi számítógépekre.
A probléma megoldásához hajtsa végre az alábbi lépéseket:

  1. Módosítsa az áfabevallás (12) CalcStartEndDateCVR függvényében szereplő kódot a következők szerint:
    Meglévő kód

    ...
            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);
    ...
    
    

    Helyettesítő kód

    ...
            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;
    ...
    
    
  2. Módosítsa a kódot a GroupByCustVend függvényben az áfabevallásban (12) a következők szerint:
    Meglévő kód: 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;
    ...
    
    

    Helyettesítő kód 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;
    ...
    
    

    Meglévő 2. kód

    ...
                  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);
    ...
    
    

    2-es helyettesítő kód

    ...
                  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);
    ...
    
    

Előfeltételek

A gyorsjavítás alkalmazásához a Microsoft Dynamics NAV 5.0 SP1 portugál verziójának kell telepítve lennie.

Eltávolítással kapcsolatos információk

Ez a gyorsjavítás nem távolítható el.

Állapot

A Microsoft megerősítette, hogy ez egy olyan probléma a Microsoft-termékekben, amely az „Érintett szolgáltatás“ című szakaszban van felsorolva.

Megjegyzés: Ez egy "GYORS KÖZZÉTÉTELŰ" cikk, amelyet közvetlenül a Microsoft támogatási szervezete készített. A dokumentumban szereplő információkat adott formában bocsátjuk rendelkezésre, a felmerülő problémákra adott válaszként. A rendelkezésre bocsátás gyorsasága következtében az anyagok sajtóhibákat tartalmazhatnak, és bármikor, előzetes értesítés nélkül felülvizsgálhatók. További szempontokat a használati feltételekben talál.