항목별된 VAT 문 보고서 잘못 된 양식 ID를 사용 하 여 Microsoft Dynamics 탐색 2009 r2 헝가리어 버전

설치 정보

Microsoft는 모든 보증, 그림에 대 한 묵시적인 보증. 이 포함 되지만 상품성 또는 특정 목적에의 적합성의 묵시적된 보증에 국한 되지는 않습니다. 이 문서는 작성 하 고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명할 수 있습니다. 그러나이 예제에서는 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하려면 수정 하지 않습니다.

참고: 이 핫픽스를 설치 하기 전에 모든 Microsoft Dynamics 탐색 클라이언트 사용자가 시스템 로그를 확인 하십시오. Microsoft Dynamics 탐색 응용 프로그램 서버 (NAS) 서비스가 포함 됩니다. 이 핫픽스를 구현할 때 로그온 되어 있는 사용자만 클라이언트 수 있습니다.

이 핫픽스를 구현 하려면 개발자 라이센스가 있어야 합니다.

것을 권장 합니다 Windows 로그인 창이 나 데이터베이스 로그인 창에서 사용자 계정 "SUPER" 역할 ID를 할당할 수 사용자 계정 "SUPER" 역할 ID를 할당할 수 없습니다, 사용자 계정에 다음 권한이 있는지 확인 해야 합니다.

• 변경할 수 있는 개체에 대 한 수정 권한이 있습니다.

• 시스템 개체 ID 9015 및 시스템 개체 ID 5210 개체에 대 한 실행 권한
  
  개체입니다.

참고: 데이터 복구를 수행 해야 할 경우가 아니면 데이터 저장소에 대 한 권한을 가질 필요가 없습니다.

코드 변경 사항

참고: 항상 테스트 코드 수정 제어 된 환경에 적용 하기 전에 프로덕션 컴퓨터에 수정 프로그램입니다.

이 문제를 해결하려면 다음과 같이 하십시오.

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 항목 VAT 문을 보고서 (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 헝가리어 버전이 있어야 합니다.

제거 정보

이 핫픽스를 제거할 수 없습니다.