明细化的增值税报表在 Microsoft Dynamics 导航 2009 R2 的匈牙利语版本中使用不正确的表单 ID

安装信息

Microsoft 提供的编程示例仅用于说明，没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是，他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。

注意：安装此修复程序之前，请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时，在登录的唯一客户端用户。

若要实现此修补程序，必须使用开发人员许可证。

我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID，则必须验证用户帐户具有下列权限:

• 您将更改该对象的修改权限。

• 为系统对象 ID™ 5210对象和系统对象 ID 9015执行权限
  
  对象。

注意：您不需要具有对数据存储区的权限，除非您需要执行数据修复。

代码更改

注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。

若要解决此问题，请执行以下步骤：

1. 更改字段中导出/打印 1365 M 表单 (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. 更改窗体 1365年导出 codeunit (14550) 中的Create1365MFile函数中的代码，如下所示︰
   现有代码

   ...      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. 更改窗体 1365年导出 codeunit (14550) 中的CreateAndDownloadFiles函数中的代码，如下所示︰
   现有代码 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. 更改窗体 1365年导出 codeunit (14550) 中的WriteFileHeader函数中的代码，如下所示︰
   现有代码

   ...      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. 更改窗体 1365年导出 codeunit (14550) 中的UpdateAndDownloadFile函数中的代码，如下所示︰
   现有代码 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. 更改窗体 1365年导出 codeunit (14550) 中的SetFolderLocation函数中的代码，如下所示︰
    现有代码 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. 更改窗体 1365年导出 codeunit (14550) 中的GetFormID函数中的代码，如下所示︰
    现有代码

    ...      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 M 页 (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 M 页 (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 导航 2009 R2 的匈牙利语版本。

删除信息

您不能删除此修补程序。