Звіт про конфіденційність ПДВ у версії Microsoft Dynamics NAV, 2009 Австрійська не запиту на сторінку

Відомості про виправлення

Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV, 2009 або наступної версії Microsoft Dynamics NAV, що містить це виправлення.

Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.

Відомості про інсталяцію

Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури. Проте вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.

Примітка. Перш ніж інсталювати це виправлення, переконайтеся, що всіх користувачів Microsoft Dynamics NAV-клієнт відключився системи. Це стосується, служби Microsoft Dynamics NAV Application Server (NAS). Ви повинні тільки клієнт користувача, який увійшов до системи, під час виконання цього виправлення.

Щоб застосувати це виправлення, потрібно мати ліцензію для розробників.

Корпорація Майкрософт рекомендує, що обліковий запис користувача Windows, вхід вікна або у вікні бази даних вхід призначити "Супер" роль ID. Якщо обліковий запис користувача не призначено роль ID "Супер", необхідно переконатися, що обліковий запис користувача, має такі дозволи:

• Змінити дозвіл об'єкт, який буде змінити.

• Права для виконання системи об'єкт з Ідентифікатором 5210 об'єкт і, код 9015 системи-об'єкт
  
  об'єкт.

Примітка. Маєте відповідних прав у сховища даних, якщо не потрібно виконати дані відновлення не потрібно.

Зміни коду

Примітка завжди перевірки коду помилок у середовищі контрольовані перед інсталяцією розглянутого виправлення з виробництва комп'ютерів. Перед застосуванням зміни, імпортуйте всі оновлення з SEPA.

Щоб вирішити цю проблему, виконайте такі дії.

1. Змінити код сторінки, що запит у звіті про ПДВ у (11110) наступним чином:
   Наявний код 1

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

   Код на заміну 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
       {
   ...
   

   Наявний код 2

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

   Код на заміну 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. Змінити код глобальних параметрів у звіті про ПДВ у (11110), наступним чином:
   Наявний код

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

   Заміна код

   ...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. Змін у звіті про ПДВ у (11110), функція quarterPeriodTypeOnValidate наступним чином:
   Наявний код

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

   Заміна код

   ...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.
     }
   ...
   

Попередні вимоги

Ви повинні мати одну з таких продуктів, щоб застосувати це виправлення:

• Австрійська версії Microsoft Dynamics NAV 2009-R2

• Австрійська версії Microsoft Dynamics NAV 2009 пакетом оновлень 1

Крім того, потрібно інсталювати оновлення про конфіденційність ПДВ (ПДВ оператор макет змінити 2014 року для Microsoft Dynamics NAV 2009 SP1 - Австрія).

Відомості про видалення

Це виправлення не можна видалити.