Кредитная памятка не включается в журнал Intrastat, когда вы публикуете кредитную памятку для товара оплаты для поставщика ЕС в другой период ссылающегося счета в Microsoft Dynamics NAV 2009

Применяется к
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

Эта статья относится к Microsoft Dynamics NAV 2009 для всех стран и языковых стандартов.

Проблема

При публикации кредитной памятки для поставщика Европейского союза (ЕС) в другой период ссылающегося счета в Microsoft Dynamics NAV 2009 R2 и Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1) строка кредитной записки не включается в журнал Intrastat.

Решение

Сведения об исправлении

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

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

            
          

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

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

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

Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.

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

  • Разрешение Изменить для объекта, который вы будете изменять.
  • Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.

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

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

Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту проблему, измените код в отчете Получение записей реестра элементов (594). Для этого выполните указанные ниже действия.

  1. Измените код элемента данных Номер 2 следующим образом:
    Существующий код 1

    ...
SETRANGE("Country/Region Code",'');
END;

IntrastatJnlLine2.SETCURRENTKEY("Source Type","Source Entry No.");
IntrastatJnlLine2.SETRANGE("Source Type",IntrastatJnlLine2."Source Type"::"Item entry");
...

    Код замены 1

    ...
SETRANGE("Country/Region Code",'');
END;

// Add the following line.
IntrastatJnlLine2.SETRANGE("Journal Batch Name",IntrastatJnlBatch.Name);
// End of the line.

IntrastatJnlLine2.SETCURRENTKEY("Source Type","Source Entry No.");
IntrastatJnlLine2.SETRANGE("Source Type",IntrastatJnlLine2."Source Type"::"Item entry");
...

    Существующий код 2

    ...
WITH ValueEntry DO BEGIN
SETCURRENTKEY("Item Ledger Entry No.");

// Delete the following line.
SETRANGE("Valuation Date",StartDate,EndDate);
// End of the line.

SETRANGE("Entry Type","Entry Type"::"Direct Cost");
SETFILTER(
"Item Ledger Entry Type",'%1|%2|%3',
...

    Код замены 2

    ...
WITH ValueEntry DO BEGIN
SETCURRENTKEY("Item Ledger Entry No.");

// Add the following line.
SETRANGE("Posting Date",StartDate,EndDate);
// End of the line.

SETRANGE("Entry Type","Entry Type"::"Direct Cost");
SETFILTER(
"Item Ledger Entry Type",'%1|%2|%3',
...

    Существующий код 3

    ...
END;
END;

// Delete the following lines.
OnAfterGetRecord=VAR
Location@1000 : Record 14;
ItemLedgEntry@1001 : Record 32;
Include@1002 : Boolean;
BEGIN
// End of the lines.

IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
...

    Код замены 3

    ...
END;
END;

OnAfterGetRecord=BEGIN
IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
...

    Существующий код 4

    ...
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;

// Delete the following lines.
IF "Entry Type" IN ["Entry Type"::Sale,"Entry Type"::Purchase] THEN BEGIN
ItemLedgEntry.RESET;
ItemLedgEntry.SETCURRENTKEY("Document No.","Document Type");
ItemLedgEntry.SETRANGE("Document No.","Document No.");
ItemLedgEntry.SETRANGE("Item No.","Item No.");
ItemLedgEntry.SETRANGE(Correction,TRUE);
ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Sales Shipment");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;

ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Sales Return Receipt");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;

ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Purchase Receipt");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;

ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Purchase Return Shipment");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;
END;

CASE TRUE OF
"Drop Shipment":
BEGIN
IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
("Country/Region Code" = '')
THEN
CurrReport.SKIP;
IF "Applies-to Entry" = 0 THEN BEGIN
ItemLedgEntry.SETCURRENTKEY("Item No.","Posting Date");
ItemLedgEntry.SETRANGE("Item No.","Item No.");
ItemLedgEntry.SETRANGE("Posting Date","Posting Date");
ItemLedgEntry.SETRANGE("Applies-to Entry","Entry No.");
ItemLedgEntry.FINDFIRST;
END ELSE
ItemLedgEntry.GET("Applies-to Entry");
IF (ItemLedgEntry."Country/Region Code" <> CompanyInfo."Country/Region Code") AND
(ItemLedgEntry."Country/Region Code" <> '')
THEN
CurrReport.SKIP;
END;
"Entry Type" = "Entry Type"::Transfer:
BEGIN
IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
("Country/Region Code" = '')
THEN
CurrReport.SKIP;
IF "Transfer Order No." = '' THEN BEGIN
Location.GET("Location Code");
IF (Location."Country/Region Code" <> '') AND
(Location."Country/Region Code" <> CompanyInfo."Country/Region Code")
THEN
CurrReport.SKIP;
END ELSE BEGIN
ItemLedgEntry.SETRANGE("Transfer Order No.","Transfer Order No.");
ItemLedgEntry.SETFILTER("Country/Region Code",'%1 | %2','',CompanyInfo."Country/Region Code");
IF ItemLedgEntry.FINDSET THEN
REPEAT
Location.GET(ItemLedgEntry."Location Code");
IF Location."Use As In-Transit" THEN
Include := TRUE;
UNTIL Include OR (ItemLedgEntry.NEXT = 0);
IF NOT Include THEN
CurrReport.SKIP;
END;
END;
"Location Code" <> '':
BEGIN
Location.GET("Location Code");
CheckILE(Location."Country/Region Code");
END
ELSE BEGIN
IF "Entry Type" = "Entry Type"::Purchase THEN
CheckILE(CompanyInfo."Ship-to Country/Region Code");
IF "Entry Type" = "Entry Type"::Sale THEN
CheckILE(CompanyInfo."Country/Region Code");
END;
END;
// End of the lines.

TotalInvoicedQty := 0;
TotalAmt := 0;
TotalAmtExpected := 0;
...

    Код замены 4

    ...
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;

// Add the following line.
TestILE("Item Ledger Entry");
// End of the line.

TotalInvoicedQty := 0;
TotalAmt := 0;
TotalAmtExpected := 0;
...

  2. Измените код элемента данных 4 следующим образом:
    Существующий код

    ...
{
}
}
}
REQUESTFORM
{
...

    Код замены

    ...
{
}
}

// Add the following lines.
{ PROPERTIES
{
DataItemTable=Table5802;
DataItemTableView=SORTING(Entry No.);
OnPreDataItem=BEGIN
SETRANGE("Posting Date",StartDate,EndDate);
SETFILTER("Item Charge No.",'<> %1','');
"Item Ledger Entry".SETRANGE("Posting Date");

IntrastatJnlLine2.SETRANGE("Journal Batch Name",IntrastatJnlBatch.Name);
IntrastatJnlLine2.SETCURRENTKEY("Source Type","Source Entry No.");
IntrastatJnlLine2.SETRANGE("Source Type",IntrastatJnlLine2."Source Type"::"Item entry");
END;

OnAfterGetRecord=BEGIN
IntrastatJnlLine2.SETRANGE("Source Entry No.","Item Ledger Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;

IF "Item Ledger Entry".GET("Item Ledger Entry No.") THEN BEGIN
IF ("Item Ledger Entry"."Posting Date" > StartDate) AND ("Item Ledger Entry"."Posting Date" < EndDate) THEN
CurrReport.SKIP;
IF "Country/Region".GET("Item Ledger Entry"."Country/Region Code") THEN
IF "Country/Region"."EU Country/Region Code" = '' THEN
CurrReport.SKIP;
TestILE("Item Ledger Entry");

InsertValueEntryLine;
END;
END;

}
SECTIONS
{
{ PROPERTIES
{
SectionType=Body;
SectionWidth=12000;
SectionHeight=846;
}
CONTROLS
{
}
}
}
}
// End of the lines.

}
REQUESTFORM
{
...

  3. Измените код в функции TestILE следующим образом:
    Существующий код

    ...
END;
END;

BEGIN
END.
}
...

    Код замены

    ...
END;
END;

// Add the following lines.
PROCEDURE TestILE@5(ILE@1000 : Record 32);
VAR
ItemLedgEntry@1003 : Record 32;
Location@1002 : Record 14;
Include@1001 : Boolean;
BEGIN
WITH ILE DO BEGIN
IF "Entry Type" IN ["Entry Type"::Sale,"Entry Type"::Purchase] THEN BEGIN
ItemLedgEntry.RESET;
ItemLedgEntry.SETCURRENTKEY("Document No.","Document Type");
ItemLedgEntry.SETRANGE("Document No.","Document No.");
ItemLedgEntry.SETRANGE("Item No.","Item No.");
ItemLedgEntry.SETRANGE(Correction,TRUE);
ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Sales Shipment");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;

ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Sales Return Receipt");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;

ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Purchase Receipt");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;

ItemLedgEntry.SETRANGE("Document Type","Document Type"::"Purchase Return Shipment");
IF NOT ItemLedgEntry.ISEMPTY THEN
CurrReport.SKIP;
END;

CASE TRUE OF
"Drop Shipment":
BEGIN
IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
("Country/Region Code" = '')
THEN
CurrReport.SKIP;
IF "Applies-to Entry" = 0 THEN BEGIN
ItemLedgEntry.SETCURRENTKEY("Item No.","Posting Date");
ItemLedgEntry.SETRANGE("Item No.","Item No.");
ItemLedgEntry.SETRANGE("Posting Date","Posting Date");
ItemLedgEntry.SETRANGE("Applies-to Entry","Entry No.");
ItemLedgEntry.FINDFIRST;
END ELSE
ItemLedgEntry.GET("Applies-to Entry");
IF (ItemLedgEntry."Country/Region Code" <> CompanyInfo."Country/Region Code") AND
(ItemLedgEntry."Country/Region Code" <> '')
THEN
CurrReport.SKIP;
END;
"Entry Type" = "Entry Type"::Transfer:
BEGIN
IF ("Country/Region Code" = CompanyInfo."Country/Region Code") OR
("Country/Region Code" = '')
THEN
CurrReport.SKIP;
IF "Transfer Order No." = '' THEN BEGIN
Location.GET("Location Code");
IF (Location."Country/Region Code" <> '') AND
(Location."Country/Region Code" <> CompanyInfo."Country/Region Code")
THEN
CurrReport.SKIP;
END ELSE BEGIN
ItemLedgEntry.SETRANGE("Transfer Order No.","Transfer Order No.");
ItemLedgEntry.SETFILTER("Country/Region Code",'%1 | %2','',CompanyInfo."Country/Region Code");
IF ItemLedgEntry.FINDSET THEN
REPEAT
Location.GET(ItemLedgEntry."Location Code");
IF Location."Use As In-Transit" THEN
Include := TRUE;
UNTIL Include OR (ItemLedgEntry.NEXT = 0);
IF NOT Include THEN
CurrReport.SKIP;
END;
END;
"Location Code" <> '':
BEGIN
Location.GET("Location Code");
CheckILE(Location."Country/Region Code");
END;
ELSE BEGIN
IF "Entry Type" = "Entry Type"::Purchase THEN
CheckILE(CompanyInfo."Ship-to Country/Region Code");
IF "Entry Type" = "Entry Type"::Sale THEN
CheckILE(CompanyInfo."Country/Region Code");
END;
END;
END;
END;

PROCEDURE InsertValueEntryLine@6();
VAR
Location@1000 : Record 14;
BEGIN
GetGLSetup;
WITH IntrastatJnlLine DO BEGIN
INIT;
"Line No." := "Line No." + 10000;
Date := "Value Entry"."Posting Date";
"Country/Region Code" := "Item Ledger Entry"."Country/Region Code";
"Transaction Type" := "Item Ledger Entry"."Transaction Type";
"Transport Method" := "Item Ledger Entry"."Transport Method";
"Source Entry No." := "Item Ledger Entry"."Entry No.";
Quantity := "Item Ledger Entry".Quantity;
"Document No." := "Value Entry"."Document No.";
"Item No." := "Item Ledger Entry"."Item No.";
"Entry/Exit Point" := "Item Ledger Entry"."Entry/Exit Point";
Area := "Item Ledger Entry".Area;
"Transaction Specification" := "Item Ledger Entry"."Transaction Specification";
Amount := ROUND(ABS("Value Entry"."Sales Amount (Actual)"),1);

IF Quantity < 0 THEN
Type := Type::Shipment
ELSE
Type := Type::Receipt;

IF ("Country/Region Code" = '') OR
("Country/Region Code" = CompanyInfo."Country/Region Code")
THEN BEGIN
IF "Item Ledger Entry"."Location Code" = '' THEN
"Country/Region Code" := CompanyInfo."Ship-to Country/Region Code"
ELSE BEGIN
Location.GET("Item Ledger Entry"."Location Code");
"Country/Region Code" := Location."Country/Region Code"
END;
END;

VALIDATE("Item No.");
"Source Type" := "Source Type"::"Item entry";
VALIDATE(Quantity,ROUND(ABS(Quantity),0.00001));
VALIDATE("Cost Regulation %",IndirectCostPctReq);

INSERT;
END;
END;
// End of the lines.

BEGIN
END.
}
...

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

Для применения этого исправления необходимо установить один из следующих продуктов:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)

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

Удалить это исправление невозможно.

Состояние

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

Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .