Brak strony żądania raportu deklaracji VAT w Austrii wersji systemu Microsoft Dynamics NAV 2009

Informacje o poprawce

Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.

Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.

Informacje dotyczące instalacji

Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.

Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.

Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.

Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:

• Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.

• Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i 9015 identyfikator obiektu systemu
  
  obiekt.

Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.

Zmiany kodu

Uwaga zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych. Przed zastosowaniem zmiany, zaimportuj wszystkie aktualizacje SEPA.

Aby rozwiązać ten problem, wykonaj następujące kroki:

1. Zmień kod w strony żądanie w raporcie VAT instrukcji o (11110) w następujący sposób:
   Istniejący kod 1

   ...{
       PROPERTIES
       {
       }
       CONTROLS
       {
   ...
   

   Kod zastępczy 1

   ...{
       PROPERTIES
       {
         SaveValues=Yes;
         OnInit=BEGIN
                  XMLFilenameControlVisible := TRUE;
                  FDFFilenameControlVisible := TRUE;
                END;
   
         OnOpenPage=BEGIN
                      CLEAR(NumberPar6Abs1);
   
                      IF (Startingdate <> 0D) AND (Endingdate <> 0D) THEN BEGIN
                        IF (Startingdate = CALCDATE('<-CQ>',Startingdate)) AND (Endingdate = CALCDATE('<+CQ>',Startingdate)) THEN
                          PeriodType := PeriodType::quarter
                        ELSE IF (Startingdate = CALCDATE('<-CM>',Startingdate)) AND (Endingdate = CALCDATE('<+CM>',Startingdate)) THEN
                          PeriodType := PeriodType::month
                        ELSE
                          PeriodType := PeriodType::"defined period";
                      END ELSE
                        PeriodType := PeriodType::"defined period";
   
                      FDFFilenameControlVisible := NOT ISSERVICETIER;
                      XMLFilenameControlVisible := NOT ISSERVICETIER;
                    END;
   
       }
       CONTROLS
       {
   ...
   

   Istniejący kod 2

   ...}
       CONTROLS
       {
       }
     }
     CODE
   ...
   

   Kod zastępczy 2

   ...}
       CONTROLS
       {
         { 1900000001;0;Container;
                     ContainerType=ContentArea }
   
         { 1900000002;1;Group  ;
                     CaptionML=ENU=Options }
   
         { 1160010;2;Field     ;
                     CaptionML=[ENU=Starting Date;
                                DEA=Startdatum];
                     SourceExpr=Startingdate;
                     OnValidate=VAR
                                  RefDate@1160000 : Date;
                                BEGIN
                                  CLEAR(RefDate);
                                  IF Startingdate <> 0D THEN
                                    RefDate := Startingdate
                                  ELSE IF Endingdate <> 0D THEN
                                    RefDate := Endingdate;
                                  IF RefDate <> 0D THEN BEGIN
                                    IF PeriodType = PeriodType::quarter THEN BEGIN
                                      Startingdate := CALCDATE('<-CQ>',RefDate);
                                      Endingdate := CALCDATE('<+CQ>',RefDate);
                                    END ELSE IF PeriodType = PeriodType::month THEN BEGIN
                                      Startingdate := CALCDATE('<-CM>',RefDate);
                                      Endingdate := CALCDATE('<+CM>',RefDate);
                                    END ELSE BEGIN
                                      IF Endingdate = 0D THEN
                                        Endingdate := RefDate;
                                      IF Startingdate = 0D THEN
                                        Startingdate := RefDate;
                                    END;
                                  END;
                                END;
                                 }
   
         { 1160012;2;Field     ;
                     CaptionML=[ENU=Ending Date;
                                DEA=Enddatum];
                     SourceExpr=Endingdate;
                     OnValidate=VAR
                                  RefDate@1160000 : Date;
                                BEGIN
                                  CLEAR(RefDate);
                                  IF Endingdate <> 0D THEN
                                    RefDate := Endingdate
                                  ELSE IF Startingdate <> 0D THEN
                                    RefDate := Startingdate;
                                  IF RefDate <> 0D THEN BEGIN
                                    IF PeriodType = PeriodType::quarter THEN BEGIN
                                      Startingdate := CALCDATE('<-CQ>',RefDate);
                                      Endingdate := CALCDATE('<+CQ>',RefDate);
                                    END ELSE IF PeriodType = PeriodType::month THEN BEGIN
                                      Startingdate := CALCDATE('<-CM>',RefDate);
                                      Endingdate := CALCDATE('<+CM>',RefDate);
                                    END ELSE BEGIN
                                      IF Startingdate = 0D THEN
                                        Startingdate := RefDate;
                                      IF Endingdate = 0D THEN
                                        Endingdate := RefDate;
                                    END;
                                  END;
                                END;
                                 }
   
         { 8   ;2   ;Field     ;
                     CaptionML=[ENU=Include VAT Entries;
                                DEA=MwSt.-Posten einschlie�en];
                     OptionCaptionML=[ENU=Open,Closed,Open and Closed;
                                      DEA=Offen,Geschlossen,Offen und geschlossen];
                     SourceExpr=Selection }
   
         { 4   ;2   ;Field     ;
                     CaptionML=[ENU=Include VAT Entries;
                                DEA=MwSt.-Posten einschlie�en];
                     OptionCaptionML=[ENU=Before and Within Period,Within Period;
                                      DEA=Vor und innerhalb Periode,Innerhalb Periode];
                     SourceExpr=PeriodSelection }
   
         { 11  ;2   ;Field     ;
                     CaptionML=[ENU=Reporting Type;
                                DEA=Berichtstyp];
                     OptionCaptionML=[ENU=Quarter,Month,Defined period;
                                      DEA=Quartal,Monat,Definierte Periode];
                     SourceExpr=PeriodType;
                     OnValidate=BEGIN
                                  IF PeriodType = PeriodType::month THEN
                                    monthPeriodTypeOnValidate;
                                  IF PeriodType = PeriodType::quarter THEN
                                    quarterPeriodTypeOnValidate;
                                END;
                                 }
   
         { 1160007;2;Field     ;
                     CaptionML=[ENU=Check Positions;
                                DEA=Positionen pr�fen];
                     SourceExpr=CheckPositions }
   
         { 1   ;2   ;Field     ;
                     CaptionML=[ENU=Round to Whole Numbers;
                                DEA=Auf ganze Zahlen runden];
                     SourceExpr=PrintInWholeNumbers }
   
         { 1160015;2;Field     ;
                     Name=PDFFilenameControl;
                     CaptionML=[ENU=PDF File Name;
                                DEA=PDF-Dateiname];
                     SourceExpr=PDFFileName;
                     OnAssistEdit=BEGIN
                                    PDFFileName := CommonDlgMgt.OpenFile(Text1160052,PDFFileName,4,Text1160053,0);
                                  END;
                                   }
   
         { 1160017;2;Field     ;
                     Name=FDFFilenameControl;
                     CaptionML=[ENU=FDF File Name;
                                DEA=FDF-Dateiname];
                     SourceExpr=FDFFileName;
                     Visible=FDFFilenameControlVisible;
                     OnAssistEdit=BEGIN
                                    FDFFileName := CommonDlgMgt.OpenFile(Text1160054,FDFFileName,4,Text1160055,1);
                                  END;
                                   }
   
         { 1160001;2;Field     ;
                     Name=XMLFilenameControl;
                     CaptionML=[ENU=XML File Name;
                                DEA=XML-Dateiname];
                     SourceExpr=XMLFileName;
                     Visible=XMLFilenameControlVisible;
                     OnAssistEdit=BEGIN
                                    XMLFileName := CommonDlgMgt.OpenFile(Text1160056,XMLFileName,4,Text1160057,1);
                                  END;
                                   }
   
         { 1160003;2;Field     ;
                     CaptionML=[ENU=Surplus Used to Pay Dues;
                                DEA=F�r Zahlung von Verbindlichkeiten genutzter �berschuss];
                     SourceExpr=UseARE }
   
         { 1160005;2;Field     ;
                     CaptionML=[ENU=Additional Invoices sent via Mail;
                                DEA=Weitere per Post geschickte Rechnungen];
                     SourceExpr=UseREPO }
   
         { 1160000;2;Field     ;
                     CaptionML=[ENU=Number �6 Abs. 1;
                                DEA=Nummer � 6 Abs. 1];
                     Numeric=Yes;
                     BlankZero=Yes;
                     SourceExpr=NumberPar6Abs1;
                     MinValue=0;
                     MaxValue=99 }
   
       }
     }
     CODE
   ...
   

2. Zmień kod w zmiennych globalnych w raporcie VAT instrukcji o (11110) w następujący sposób:
   Istniejący kod

   ...Text1160061@1160061 : TextConst 'ENU=Would you like to set the Starting and Ending Date according to the selected Reporting Type?;DEA=M�chten Sie das Start- und Enddatum entsprechend dem ausgew�hlten Berichtstyp festlegen?';
         Text1160062@1160062 : TextConst 'ENU=Due to improper filter settings on the fields %1 and/or %2, your VAT Statement might contain incorrect values. Please check.;DEA=Aufgrund von nicht ordnungsgem��en Filtereinstellungen f�r die Felder %1 und/oder %2 enth�lt Ihre MwSt-Erkl�rung m�glicherweise fehlerhafte Werte. Bitte �berpr�fen Sie diese.';
         Text1160063@1160063 : TextConst 'ENU=Default;DEA=Standard';
   
       LOCAL PROCEDURE CalcLineTotal@3(VATStmtLine2@1160000 : Record 256;VAR TotalAmount@1160001 : Decimal;Level@1160002 : Integer) : Boolean;
       BEGIN
   ...
   

   Kod zastępczy

   ...Text1160061@1160061 : TextConst 'ENU=Would you like to set the Starting and Ending Date according to the selected Reporting Type?;DEA=M�chten Sie das Start- und Enddatum entsprechend dem ausgew�hlten Berichtstyp festlegen?';
         Text1160062@1160062 : TextConst 'ENU=Due to improper filter settings on the fields %1 and/or %2, your VAT Statement might contain incorrect values. Please check.;DEA=Aufgrund von nicht ordnungsgem��en Filtereinstellungen f�r die Felder %1 und/oder %2 enth�lt Ihre MwSt-Erkl�rung m�glicherweise fehlerhafte Werte. Bitte �berpr�fen Sie diese.';
         Text1160063@1160063 : TextConst 'ENU=Default;DEA=Standard';
         FDFFilenameControlVisible@19016139 : Boolean INDATASET;
         XMLFilenameControlVisible@19067901 : Boolean INDATASET;
   
       LOCAL PROCEDURE CalcLineTotal@3(VATStmtLine2@1160000 : Record 256;VAR TotalAmount@1160001 : Decimal;Level@1160002 : Integer) : Boolean;
       BEGIN
   ...
   

3. Zmień kod w funkcji quarterPeriodTypeOnValidate w raporcie VAT instrukcji o (11110) w następujący sposób:
   Istniejący kod

   ...XMLFile.CLOSE;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Kod zastępczy

   ...XMLFile.CLOSE;
       END;
   
       LOCAL PROCEDURE quarterPeriodTypeOnValidate@19029369();
       BEGIN
         IF Startingdate <> 0D THEN
           IF (Startingdate <> CALCDATE('<-CQ>',Startingdate)) OR (Endingdate <> CALCDATE('<+CQ>',Startingdate)) THEN
             IF CONFIRM(Text1160061, TRUE) THEN BEGIN
               Startingdate := CALCDATE('<-CQ>',Startingdate);
               Endingdate := CALCDATE('<+CQ>',Startingdate);
             END ELSE
               ERROR('');
       END;
   
       LOCAL PROCEDURE monthPeriodTypeOnValidate@19063435();
       BEGIN
         IF Startingdate <> 0D THEN
           IF (Startingdate <> CALCDATE('<-CM>',Startingdate)) OR (Endingdate <> CALCDATE('<+CM>',Startingdate)) THEN
             IF CONFIRM(Text1160061, TRUE) THEN BEGIN
               Startingdate := CALCDATE('<-CM>',Startingdate);
               Endingdate := CALCDATE('<+CM>',Startingdate);
             END ELSE
               ERROR('');
       END;
   
       BEGIN
       END.
     }
   ...
   

Wymagania wstępne

Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:

• Austriacki wersji systemu Microsoft Dynamics NAV 2009 R2

• Austriacki wersji dodatku SP1 dla programu Microsoft Dynamics NAV 2009

Ponadto należy zainstalować aktualizację deklaracji VAT (VAT instrukcja układ zmiany do 2014 r. dla Microsoft Dynamics NAV 2009 SP1 - Austria).

Informacje dotyczące usuwania

Nie można usunąć tej poprawki.