Детализированный отчет НДС Отчет использует неправильный идентификатор в венгерской версии Microsoft Dynamics NAV 2009 R2

Данная статья относится к Microsoft Dynamics NAV языка Венгерский (Венгрия).

Симптомы

В венгерской версии Microsoft Dynamics NAV 2009 R2 детализированные отчета по НДС, называемом 1365M имеет неверное имя и использует неправильный идентификатор при экспорте данных в текстовый файл. 1365 был временным именем, который использовался только в год 2013. Этот код изменяет каждый год. Например:

В 2013 было 1365.
В 2014 г это 1465.
В 2015 г. будет 1565.

Первые две цифры увеличивается каждый год. Имена объектов также неверны. Они должны иметь имя как «Детализированные НДС отчет» без номера.

Решение

Исправление от корпорации Майкрософт доступно. Однако оно предназначено только для устранения проблемы, описанной в этой статье. Предлагаемое исправление должно применяться исключительно в системах, в которых обнаружена эта специфическая неполадка. Это исправление может проходить дополнительное тестирование. Таким образом Если вы не подвержены серьезно эту проблему, рекомендуется дождаться следующего пакета обновления для Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащего это исправление.

Примечание. В особых случаях оплата, предусмотренная в службу поддержки может быть отменена Если специалист службы технической поддержки Microsoft Dynamics и связанных продуктов определит, что решения проблемы является специально выпущенное. Затраты на обычные услуги службы поддержки будут применяться к дополнительным вопросам и проблемам, которые не охватываются конкретным обновлением.

Сведения об установке

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без явных или подразумеваемых гарантий. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры. Тем не менее они не изменит примеров для обеспечения функциональных возможностей или создания процедур для определенных требований.

Примечание. Перед установкой данного исправления необходимо проверьте регистрацию всех пользователей клиента Microsoft Dynamics NAV выход из системы. Это относится к службам Microsoft Dynamics NAV приложения сервера (NAS). Должен быть только клиент пользователя, который вошел в систему, при реализации данного исправления.

Чтобы реализовать это исправление, необходимо иметь лицензию разработчика.

Рекомендуется, чтобы учетной записи пользователя в окне Логины Windows или в окне Логины базы данных был присвоен идентификатор роли «SUPER» Если учетная запись пользователя не может быть назначена роль «SUPER» идентификатор, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения.

Изменение разрешений для объекта, подлежащий изменению.
Разрешение Execute для объекта 5210 идентификатор объекта системы и системы 9015 идентификатор объекта

объект.

Примечание. Необходимо иметь права к хранилищам данных, если необходимо выполнить восстановление данных.

Изменения кода

Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.

Чтобы устранить эту проблему, выполните следующие действия:

Измените код поля в форме Экспорт и печать 1365 М (14550) следующим образом:
Существующий код
...// Delete the following line. OBJECT Form 14550 Export/Print 1365M ...
Код для замены
...// Add the following line. OBJECT Form 14550 Export/Print Item. VAT Stat. ...

Измените код в окне Свойства в форме 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;

...

Измените код элементов управления в форме 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 }
...

Измените код в 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 }


...

Измените код свойства в отчете 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


...

Измените код в функцию 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);

...

Измените код в функцию 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;

...

Измените код в функцию 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');

...

Измените код в функцию 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;

...

Измените код в функцию 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);

...

Измените код в функцию 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.
  }

...

Измените код свойства в Венгрии 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;

...

Измените код свойства в отдел — Венгрия 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;

...

Измените код на странице Экспорт и печать 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;

...

Измените код свойства на странице Экспорт и печать 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 для установки этого исправления необходимо иметь.

Сведения об удалении

Установленное обновление удалить нельзя.

Статус

Корпорация Майкрософт подтверждает, что это проблема продуктов Майкрософт, перечисленных в разделе "Относится к".

Примечание. Это статья «БЫСТРАЯ ПУБЛИКАЦИЯ», созданная непосредственно из технической поддержки корпорации Майкрософт. Сведения, содержащиеся в настоящем документе, предоставляются "как есть" в ответ на возникающие проблемы. В результате скорости предоставления материалов они могут включать опечаток и быть изменены в любое время без предварительного уведомления. Другие вопросы, связанные с Условиями использованиясм.

Детализированный отчет НДС Отчет использует неправильный идентификатор в венгерской версии Microsoft Dynamics NAV 2009 R2

Симптомы

Решение

Сведения об установке

Изменения кода

Предварительные условия

Сведения об удалении

Статус

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Были ли сведения полезными?

Спасибо за ваш отзыв!