Подробен отчет за отчет на ДДС използва неправилен ИД в унгарски версия на Microsoft Dynamics NAV 2009 R2

Информация за инсталирането

Microsoft предоставя примери само за илюстративни цели без гаранция за определени цели. Това включва, но не е ограничено до, подразбиращи се гаранции за продаваемост или годност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и процедури за отстраняване на грешки. Инженерите на поддръжката на Microsoft могат да помогнат обяснение на функциите на конкретна процедура. Въпреки това те няма да модифицират тези примери с цел осигуряване на допълнителна функционалност или създаване на процедури за удовлетворение на конкретните ви изисквания.

Забележка: Преди да инсталирате тази актуална корекция, уверете се, че всички потребители на клиента на Microsoft Dynamics NAV са излезли от системата. Това включва и услуги на Microsoft Dynamics NAV приложение сървър (NAS). Трябва да бъде само клиент потребител, който е влязъл при прилагане на тази актуална корекция.

За прилагане на тази актуална корекция, трябва да имате лиценз разработчик.

Препоръчително е потребителският акаунт в прозореца влизания в Windows или в прозореца на БД присвояването на "Супер" ИД на роля. Ако потребителският акаунт не може да бъде възложена ИД на роля на "Супер", трябва да проверите, че потребителският акаунт има следните права:

• Разрешение за промяна на обекта, ще се променя.

• Разрешението за изпълнение за системата обект номер 5210 обект и системата обект ID 9015
  
  обект.

Забележка: Не трябва да имате права на съхранените данни, освен ако трябва да извършите възстановяване на данни.

Промени код

Забележка: Винаги тест код решава в управлявана среда преди да приложите корекциите производство компютри.

За да разрешите този проблем, изпълнете следните стъпки:

1. Да променяте полета във формуляра за експортиране/печат 1365 М (14550) както следва:
   Съществуващ код

   ...// Delete the following line.
   OBJECT Form 14550 Export/Print 1365M
   
   ...
   

   Замени код

   ...// Add the following line.
   OBJECT Form 14550 Export/Print Item. VAT Stat.
   
   ...
   

2. Да променяте свойства във формуляра за 14550 както следва:
   Съществуващ код

   ...  }
     PROPERTIES
     {
   
   // Delete the following lines.
      Width=6270;
      Height=4510;
      CaptionML=[ENU=Export/Print VAT 1365M Statement;
   // End of the lines.
   
                  HUN=1365M  fakimutat s export l sa/nyomtat sa];
       OnInit=BEGIN
                ThresholdAmount := 2000000;
   
   ...
   

   Замени код

   ...  }
     PROPERTIES
     {
   
   // Add the following lines.
      Width=5720;
      Height=2750;
      CaptionML=[ENU=Export/Print Item. VAT Stat.;
   // End of the lines.
   
                  HUN=1365M  fakimutat s export l sa/nyomtat sa];
       OnInit=BEGIN
                ThresholdAmount := 2000000;
   
   ...
   

3. Смяна на кода на контролите във формуляра за 14550 както следва:
   Съществуващ код 1

   ... }
   CONTROLS
   {
   
   // Delete the following line.
    { 1360006;MenuButton;3740 ;3520 ;2200 ;550 ;CaptionML=[ENU=&Functions;
   
   
   
   HUN=&Funkci�k];
   Menu=MENUITEMS
   {
   ...
   

   Замени код 1

   ... }
   CONTROLS
   {
   
   // Add the following lines.
    { 1360006;MenuButton;3300 ;1980 ;2200 ;550 ;HorzGlue=Right;
    VertGlue=Bottom;
    CaptionML=[ENU=&Functions;
   // End of the lines.
   
   HUN=&Funkci�k];Menu=MENUITEMS
   {
   ...
   

   Съществуващ код 2

   ... Visible=No }
   }
   }
   
   // Delete the following line.
    { 1360017;TextBox ;3960 ;440 ;2000 ;500 ;CaptionML=[ENU=Start Date;
   
   HUN=Kezd�si d tum];DateFormula=No;
   SourceExpr=StartDate;
   ...
   

   Замени код 2

   ... Visible=No }
   }
   }
   
   // Add the following line.
    { 1360017;TextBox ;3520 ;220 ;2000 ;440 ;CaptionML=[ENU=Start Date;
   
   HUN=Kezd�si d tum];DateFormula=No;
   SourceExpr=StartDate;
   ...
   

   Съществуващ код 3

   ... EndDate := CALCDATE('<-1D>',VATPeriod."Starting Date");
   END;
   }
   
   // Delete the following lines.
    { 1360018;Label ;660 ;440 ;3190 ;550 ;ParentControl=1360017 }
    { 1360020;Label ;660 ;1210 ;3190 ;550 ;ParentControl=1360021 }
    { 1360021;TextBox ;3960 ;1210 ;2000 ;500 ;CaptionML=[ENU=End Date;HUN=Z r� d tum]; SourceExpr=EndDate }
    { 1360000;Label ;660 ;2090 ;3190 ;550 ;ParentControl=1360001 }
    { 1360001;TextBox ;3960 ;2090 ;2000 ;500 ;CaptionML=[ENU=VAT Threshold Amount;
   // End of the lines.
   
   HUN=�fa k�sz�b�sszege];DateFormula=No;
   SourceExpr=ThresholdAmount }
   ...
   

   Замени код 3

   ... EndDate := CALCDATE('<-1D>',VATPeriod."Starting Date");
   END;
   }
   
   // Add the following lines.
    { 1360018;Label ;220 ;220 ;3190 ;440 ;ParentControl=1360017 }
    { 1360020;Label ;220 ;770 ;3190 ;440 ;ParentControl=1360021 }
    { 1360021;TextBox ;3520 ;770 ;2000 ;440 ;CaptionML=[ENU=End Date;HUN=Z r� d tum]; SourceExpr=EndDate }
    { 1360000;Label ;220 ;1320 ;3190 ;440 ;ParentControl=1360001 }
    { 1360001;TextBox ;3520 ;1320 ;2000 ;440 ;CaptionML=[ENU=VAT Threshold Amount;
   // End of the lines.
   
   HUN=�fa k�sz�b�sszege];DateFormula=No;
   SourceExpr=ThresholdAmount }
   ...
   

4. Да променяте 1365 списъчни ДДС извлечение (14522) както следва:
   Съществуващ код

   ...// Delete the following line.
   OBJECT Report 14522 1365 Itemized VAT Statement
   
   HUN=�fa k�sz�b�sszege];
   DateFormula=No;
   SourceExpr=ThresholdAmount }
   
   ...
   

   Замени код

   ... EndDate := CALCDATE('<-1D>',VATPeriod."Starting Date");
   END;
   }
   
   // Add the following line.
   OBJECT Report 14522 Itemized VAT Statement
   
   HUN=�fa k�sz�b�sszege];
   DateFormula=No;
   SourceExpr=ThresholdAmount }
   
   
   ...
   

5. Да променяте свойства на отчет 14522 както следва:
   Съществуващ код

   ...  }
     PROPERTIES
     {
   
   // Delete the following lines.
      CaptionML=[ENU=1365 Itemized VAT Statement;
                 HUN=1365 ti?½teles  fakimutat s];
   // End of the lines.
   
       PaperSize=A4 210 x 297 mm;
     }
     DATAITEMS
   
   
   ...
   

   Замени код

   ...  }
     PROPERTIES
     {
   // Add the following lines.
      CaptionML=[ENU=Itemized VAT Statement;
                 HUN=Ti?½teles  fakimutat s];
   // End of the lines.
   
       PaperSize=A4 210 x 297 mm;
     }
     DATAITEMS
   
   
   ...
   

6. Променяте функцията Create1365MFile във формуляра 1365 експортиране кодова единица (14550) както следва:
   Съществуващ код

   ...      FullClientFilePath@1360008 : Text[1024];
         SummaryFileName@1360009 : Text[30];
   BEGIN
   
   // Delete the following lines.
        SetFolderLocation(FolderLocation,FileExtension);
   
        SummaryFileName := 'Result1365M.txt';
   // End of the lines.
   
         CREATE(FilesSysObj);
         SummaryTextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + SummaryFileName,TRUE,FALSE);
   
   ...
   

   Замени код

   ...      FullClientFilePath@1360008 : Text[1024];
         SummaryFileName@1360009 : Text[30];
   BEGIN
   
   // Add the following lines.
        SetFolderLocation(PeriodFrom,FolderLocation,FileExtension);
   
        SummaryFileName := 'Result' + GetFormID(PeriodFrom) + '.txt';
   // End of the lines.
   
         CREATE(FilesSysObj);
         SummaryTextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + SummaryFileName,TRUE,FALSE);
   
   ...
   

7. Променяте функцията CreateAndDownloadFiles във формуляра 1365 експортиране кодова единица (14550) както следва:
   Съществуващ код 1

   ...                              ("Partner ID" <> PreviousTemp1365MBuffer."Partner ID");
   
               IF IsNewPartner AND Instantiated THEN BEGIN
   
   // Delete the following line.
                UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
   
                 Instantiated := FALSE;
               END;
   ...
   

   Замени код 1

   ...                               ("Partner ID" <> PreviousTemp1365MBuffer."Partner ID");
   
               IF IsNewPartner AND Instantiated THEN BEGIN
   
   // Add the following line.
                UpdateAndDownloadFile(PeriodFrom,SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
   
                 Instantiated := FALSE;
               END;
   
   ...
   

   Съществуващ код 2

   ...
               IF IsForPrint THEN BEGIN
                 IF NOT Instantiated THEN BEGIN
   
   // Delete the following line.
                  TextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + '1365M.txt',TRUE,FALSE);
   
                   WriteFileHeader(PeriodFrom,PeriodTo,Temp1365MBuffer);
                   Instantiated := TRUE;
                 END;
   
   ...
   

   Замени код 2

   ...
               IF IsForPrint THEN BEGIN
                 IF NOT Instantiated THEN BEGIN
   
   // Add the following line.
                  TextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + GetFormID(PeriodFrom) + '.txt',TRUE,FALSE);
   
                   WriteFileHeader(PeriodFrom,PeriodTo,Temp1365MBuffer);
                   Instantiated := TRUE;
                 END;
   
   ...
   

   Съществуващ код 3

   ...            PreviousTemp1365MBuffer := Temp1365MBuffer;
             UNTIL NEXT = 0;
             IF Instantiated THEN
   
   // Delete the following line.
              UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
   
           END;
         END;
       END;
   
   ...
   

   Замени код 3

   ...            PreviousTemp1365MBuffer := Temp1365MBuffer;
             UNTIL NEXT = 0;
             IF Instantiated THEN
   
   // Add the following line.
              UpdateAndDownloadFile(PeriodFrom,SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
   
           END;
         END;
       END;
   
   ...
   

8. Променяте функцията WriteFileHeader във формуляра 1365 експортиране кодова единица (14550) както следва:
   Съществуващ код

   ...      InitVariables;
         CompanyInformation.GET;
   
   // Delete the following line.
        WriteText('$ny_azon=1365M');
   
         WriteText(PADSTR('$sorok_sz ma=',STRLEN('$sorok_sz ma=') + 10));
         WriteText('$d_lapok_sz ma=4');
         WriteText('$d_lap1=01-K,1');
   
   ...
   

   Замени код

   ...      InitVariables;
         CompanyInformation.GET;
   
   // Add the following line.
        WriteText('$ny_azon=' + GetFormID(PeriodFrom));
   
         WriteText(PADSTR('$sorok_sz ma=',STRLEN('$sorok_sz ma=') + 10));
         WriteText('$d_lapok_sz ma=4');
         WriteText('$d_lap1=01-K,1');
   
   ...
   

9. Променяте функцията UpdateAndDownloadFile във формуляра 1365 експортиране кодова единица (14550) както следва:
   Съществуващ код 1

   ...      Count1365M02K += 1;
       END;
   
   // Delete the following line.
      PROCEDURE UpdateAndDownloadFile@1360041(VAR SummaryTextStream@1360004 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{0BB02EC0-EF49-11CF-8940-00A0C9054228}:'Windows Script Host Object Model'.TextStream";PreviousTemp1365MBuffer@1360001 : Record 14550;FolderLocation@1360000 : Text[1024];FileExtension@1360002 : Text[32]);
   
       VAR
         FullClientFilePath@1360003 : Text[1024];
         ServerFileName@1360005 : Text[1024];
   
   ...
   

   Замени код 1

   ...      Count1365M02K += 1;
       END;
   
   // Add the following line.
      PROCEDURE UpdateAndDownloadFile@1360041(PeriodFrom@1360007 : Date;VAR SummaryTextStream@1360004 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{0BB02EC0-EF49-11CF-8940-00A0C9054228}:'Windows Script Host Object Model'.TextStream";PreviousTemp1365MBuffer@1360001 : Record 14550;FolderLocation@1360000 : Text[1024];FileExtension@1360002 : Text[32]);
   
       VAR
         FullClientFilePath@1360003 : Text[1024];
         ServerFileName@1360005 : Text[1024];
   
   ...
   

   Съществуващ код 2

   ...    BEGIN
         Write1365M;
         TextStream.Close;
   
   // Delete the following line.
        ServerFileName := TEMPORARYPATH + '1365M.txt';
   
         UpdateCountLine(ServerFileName,CountLine);
   
         IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN
   
   ...
   

   Замени код 2

   ...    BEGIN
         Write1365M;
         TextStream.Close;
   
   // Add the following line.
        ServerFileName := TEMPORARYPATH + GetFormID(PeriodFrom) + '.txt';
   
         UpdateCountLine(ServerFileName,CountLine);
   
         IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN
   
   ...
   

   Съществуващ код 3

   ...        PartnerIdentification + '_' +
           FORMAT(TODAY,0,'<Year4,4><Month,2><Day,2>') + FileExtension;
   
   
   // Delete the following line.
        DownloadFile(TextStream,FullClientFilePath,'1365M.txt');
   
         SummaryTextStream.WriteLine(FullClientFilePath);
       END;
   
   ...
   

   Замени код 3

   ...        PartnerIdentification + '_' +
           FORMAT(TODAY,0,'<Year4,4><Month,2><Day,2>') + FileExtension;
   
   
   // Add the following line.
        DownloadFile(TextStream,FullClientFilePath,GetFormID(PeriodFrom) + '.txt');
   
         SummaryTextStream.WriteLine(FullClientFilePath);
       END;
   
   ...
   

10. Променяте функцията SetFolderLocation във формуляра 1365 експортиране кодова единица (14550) както следва:
    Съществуващ код 1

    ...      CLEAR(NotItemizedPurchaseVATAmount);
        END;
    
    
    // Delete the following line.
       LOCAL PROCEDURE SetFolderLocation@1360019(VAR ClientFileName@1360001 : Text[1024];VAR FileExtension@1360002 : Text[32]);
    
        VAR
          CommonDialogManagement@1360003 : Codeunit 412;
          DefaultFileType@1360004 : ' ,Text,Excel,Word,Custom,Xml,Htm,Xsd,Xslt';
    
    ...
    

    Замени код 1

    ...      CLEAR(NotItemizedPurchaseVATAmount);
        END;
    
    
    // Add the following line.
       LOCAL PROCEDURE SetFolderLocation@1360019(PeriodFrom@1360000 : Date;VAR ClientFileName@1360001 : Text[1024];VAR FileExtension@1360002 : Text[32]);
    
        VAR
          CommonDialogManagement@1360003 : Codeunit 412;
          DefaultFileType@1360004 : ' ,Text,Excel,Word,Custom,Xml,Htm,Xsd,Xslt';
    
    ...
    

    Съществуващ код 2

    ...      Action@1360005 : 'Open,Save';
        BEGIN
          IF ClientFilePath <> '' THEN BEGIN
    
    // Delete the following line.
           ClientFileName := ClientFilePath + '\1365M';
    
            FileExtension := '.imp';
          END ELSE BEGIN
            ClientFileName := CommonDialogManagement.OpenFile('',ClientFileName,DefaultFileType::Custom,FileType,Action::Save);
    
    ...
    

    Замени код 2

    ...      Action@1360005 : 'Open,Save';
        BEGIN
          IF ClientFilePath <> '' THEN BEGIN
    
    // Add the following line.
           ClientFileName := ClientFilePath + '\' + GetFormID(PeriodFrom);
    
            FileExtension := '.imp';
          END ELSE BEGIN
            ClientFileName := CommonDialogManagement.OpenFile('',ClientFileName,DefaultFileType::Custom,FileType,Action::Save);
    
    ...
    

11. Променяте функцията GetFormID във формуляра 1365 експортиране кодова единица (14550) както следва:
    Съществуващ код

    ...      EXIT(ROUND(Amount/1000,1));
        END;
    
        BEGIN
        END.
      }
    
    ...
    

    Замени код

    ...      EXIT(ROUND(Amount/1000,1));
        END;
    
    // Add the following lines.
       LOCAL PROCEDURE GetFormID@1360012(PeriodFrom@1360000 : Date) : Text[5];
       BEGIN
         EXIT(FORMAT(PeriodFrom,0,'<Year>') + '65M');
       END;
    // End of the lines.
    
        BEGIN
        END.
      }
    
    ...
    

12. Промяна на кода на свойствата в Унгария MenuSuite (30) както следва:
    Съществуващ код

    ...                                                                NextNodeID=[{00000000-0000-0000-0000-000000000000}] }
        {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
    { MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;
    
    // Delete the following line.
                                                                   CaptionML=[ENU=Export/Print VAT 1365M Stmt.;
    
                                                                               HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                    MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                    RunObjectType=Form;
    
    ...
    

    Замени код

    ...                                                                NextNodeID=[{00000000-0000-0000-0000-000000000000}] }
        {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
    { MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;
    
    // Add the following line.
                                                                   CaptionML=[ENU=Export/Print Item. VAT Stat.;
    
                                                                               HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                    MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                    RunObjectType=Form;
    
    ...
    

13. Промяна на кода на свойствата в отдел-Унгария MenuSuite (1030) както следва:
    Съществуващ код

    ...                                                                DepartmentCategory=Reports and Analysis }
        {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
    { MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;
    
    // Delete the following line.
                                                                   CaptionML=[ENU=Export/Print VAT 1365M Stmt.;
    
                                                                               HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                    MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                    RunObjectType=Page;
    
    ...
    

    Замени код 2

    ...                                                                DepartmentCategory=Reports and Analysis }
        {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
    { MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;
    
    // Add the following line.
                                                                   CaptionML=[ENU=Export/Print Item. VAT Stat.;
    
                                                                               HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                    MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                    RunObjectType=Page;
    
    ...
    

14. Да променяте страницата експортиране/печат 1365 М (14550) както следва:
    Съществуващ код

    ...// Delete the following line.
    OBJECT Page 14550 Export/Print 1365M
    
                                                                               HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                    MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                    RunObjectType=Page;
    
    ...
    

    Замени код

    ...                                                                DepartmentCategory=Reports and Analysis }
        {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
    { MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;
    
    // Add the following line.
    OBJECT Page 14550 Export/Print Item. VAT Stat.
    
                                                                               HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                    MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                    RunObjectType=Page;
    
    ...
    

15. Да променяте свойства на страницата експортиране/печат 1365 М (14550) както следва:
    Съществуващ код 2

    ...  }
      PROPERTIES
      {
    
    // Delete the following line.
       CaptionML=[ENU=Export/Print VAT 1365M Statement;
    
                   HUN=1365M  fakimutat s export l sa/nyomtat sa];
        PageType=Card;
        OnInit=BEGIN
    
    ...
    

    Замени код 2

    ...  }
      PROPERTIES
      {
    
    // Add the following line.
       CaptionML=[ENU=Export/Print Item. VAT Stat.;
    
                   HUN=1365M  fakimutat s export l sa/nyomtat sa];
        PageType=Card;
        OnInit=BEGIN
    
    ...
    

Необходими условия:

Трябва да имате унгарски версия на Microsoft Dynamics NAV 2009 R2 да приложите тази актуална корекция.

Информация за премахване

Не можете да премахнете тази актуална корекция.