Giả sử rằng bạn thực hiện "Thuế Authorties áp dụng Digipoort VAT và châu Âu bán hàng danh sách gửi cho Microsoft Dynamics NAV SP1 NL" trong phiên bản tiếng Hà Lan của Microsoft Dynamics NAV 2009. Khi bạn sử dụng giao diện Digipoort, bạn nhận được một trong các lỗi soát hợp thức sau:
SBR_DIGIPOORT bd-alg:ContactPrefix không trống.
ICP số tiền không phải là 0.
Sự cố này xảy ra trong các sản phẩm sau:
-
Phiên bản Microsoft Dynamics NAV 2009 R2 bằng tiếng Hà Lan
-
Phiên bản tiếng Hà Lan của Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Giải pháp
Thông tin về cập nhật nóng
Microsoft hiện đã cung cấp bản cập nhật nóng được hỗ trợ. Tuy nhiên, nó chỉ được dùng để khắc phục sự cố được mô tả trong bài viết này. Áp dụng cho các hệ thống đang gặp sự cố cụ thể này. Hotfix này có thể được kiểm tra thêm. Vì vậy, nếu bạn không bị ảnh hưởng bởi sự cố này, chúng tôi khuyến nghị bạn đợi cho gói dịch vụ tiếp theo của Microsoft Dynamics NAV 2009 hoặc phiên bản Microsoft Dynamics NAV tiếp theo có chứa hotfix này.
Lưu ý Trong trường hợp đặc biệt, chi phí thường phát sinh để hỗ trợ cuộc gọi có thể bị hủy bỏ nếu chuyên viên hỗ trợ kỹ thuật cho Microsoft Dynamics và sản phẩm liên quan xác định rằng một Cập Nhật cụ thể sẽ giải quyết vấn đề của bạn. Chi phí hỗ trợ thông thường sẽ áp dụng cho các vấn đề không phù hợp với bản Cập Nhật cụ thể trong câu hỏi và câu hỏi hỗ trợ bổ sung.
Thông tin cài đặt
Microsoft cung cấp mô hình lập trình để minh hoạ, không bảo hành hoặc rõ ràng hay ngụ ý. Điều này bao gồm, nhưng không giới hạn ở các bảo đảm cho một mục đích cụ thể hoặc sự. Bài viết này giả định rằng bạn đã quen với ngôn ngữ lập trình đang được giải thích và các công cụ được sử dụng để tạo và quy trình gỡ lỗi. Các kỹ sư hỗ trợ Microsoft có thể giúp giải thích các chức năng của một quy trình cụ thể. Tuy nhiên, họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình nhằm đáp ứng các yêu cầu cụ thể của bạn.
Lưu ý Trước khi cài đặt hotfix này, xác minh rằng tất cả người dùng máy khách Microsoft Dynamics NAV đã đăng xuất hệ thống. Điều này bao gồm dịch vụ Microsoft Dynamics NAV ứng dụng máy chủ (NAS). Bạn nên khách hàng chỉ người được đăng nhập khi bạn áp dụng hotfix này.
Để áp dụng hotfix này, bạn phải có giấy phép nhà phát triển.
Chúng tôi khuyên bạn nên tài khoản người dùng trong cửa sổ thông tin đăng nhập Windows hoặc trong cửa sổ thông tin đăng nhập cơ sở dữ liệu được gán vai trò "Siêu" của bạn. Nếu tài khoản người dùng không thể gán vai trò "SUPER" ID, bạn phải xác minh rằng tài khoản người dùng có các quyền sau đây:
-
Thay đổi quyền cho các đối tượng mà bạn sẽ thay đổi.
-
Quyền thực thi các đối tượng hệ thống đối tượng ID 5210 và hệ thống đối tượng ID 9015
đối tượng.
Lưu ý Bạn không cần phải có quyền để lưu trữ dữ liệu nếu bạn phải tiến hành sửa chữa dữ liệu.
Thay đổi mã
Lưu ý Luôn kiểm tra mã khắc phục trong một môi trường được kiểm soát trước khi bạn áp dụng bản vá để sản xuất máy tính của bạn.
Để khắc phục sự cố này, hãy làm theo các bước sau:
-
Thay đổi mã trong báo cáo tạo ELEC ICP tuyên bố (11404) như sau:
Hiện có mã 1...ElecTaxDeclarationHeader@1000000 : Record 11409;
ApplicationManagement@1000001 : Codeunit 1;
UseVATRegNo@1000010 : Text[20];
BEGIN
IF Status > Status::Created THEN
ERROR(StatusErr);
...Thay thế mã 1
...ElecTaxDeclarationHeader@1000000 : Record 11409;
ApplicationManagement@1000001 : Codeunit 1;
UseVATRegNo@1000010 : Text[20];
StreetName@1000002 : Text[50];
HouseNo@1000003 : Text[50];
AdditionHouseNo@1000004 : Text[50];
ContactPrefix@1000011 : Text[35];
BEGIN
IF Status > Status::Created THEN
ERROR(StatusErr);
...Hiện có mã 2
...// zbrli:xbrl->bd-ob:VATIdentificationNumberNLFiscalEntityDivision
IF ElecTaxDeclarationSetup."Part of Fiscal Entity" THEN BEGIN
IF COPYSTR(
UPPERCASE(CompanyInfo."VAT Registration No."),
1,STRLEN(CompanyInfo."Country/Region Code")) = CompanyInfo."Country/Region Code"
THEN
CompanyInfo."VAT Registration No." := DELSTR(CompanyInfo."VAT Registration No.",1,STRLEN(CompanyInfo."Country/Region Code"));
InsertDataLine("Elec. Tax Declaration Header",1,'bd-ob:VATIdentificationNumberNLFiscalEntityDivision',
CompanyInfo."VAT Registration No.",'','Msg','');
END;
// zbrli:xbrl->bd-alg:Contact*
...Thay thế mã 2
...// zbrli:xbrl->bd-ob:VATIdentificationNumberNLFiscalEntityDivision
IF ElecTaxDeclarationSetup."Part of Fiscal Entity" THEN BEGIN
IF COPYSTR(
UPPERCASE(CompanyInfo."Fiscal Entity No."),
1,STRLEN(CompanyInfo."Country/Region Code")) = CompanyInfo."Country/Region Code"
THEN
CompanyInfo."Fiscal Entity No." := DELSTR(CompanyInfo."Fiscal Entity No.",1,STRLEN(CompanyInfo."Country/Region Code"));
InsertDataLine("Elec. Tax Declaration Header",1,'bd-ob:VATIdentificationNumberNLFiscalEntityDivision',
CompanyInfo."Fiscal Entity No.",'','Msg','');
END;
// zbrli:xbrl->bd-alg:Contact*
...Mã hiện 3
...IF ElecTaxDeclarationSetup."ICP Contact Type" = ElecTaxDeclarationSetup."ICP Contact Type"::"Tax Payer" THEN BEGIN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
ExtractInitials(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',
ExtractNamePrefix(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
...Thay thế mã 3
...IF ElecTaxDeclarationSetup."ICP Contact Type" = ElecTaxDeclarationSetup."ICP Contact Type"::"Tax Payer" THEN BEGIN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
ExtractInitials(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
ContactPrefix := ExtractNamePrefix(ElecTaxDeclarationSetup."Tax Payer Contact Name");
IF ContactPrefix <> '' THEN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',ContactPrefix,'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
...Mã hiện 4
...ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
ElecTaxDeclarationSetup."Tax Payer Contact Phone No.",'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',
ExtractStreetName(CompanyInfo.Address),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',
ExtractStreetNo(CompanyInfo.Address),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
DELCHR(CompanyInfo."Post Code",'=',' '),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
...Thay thế mã 4
...ExtractSurname(ElecTaxDeclarationSetup."Tax Payer Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
ElecTaxDeclarationSetup."Tax Payer Contact Phone No.",'','Msg','');
PostCodeMgt.ParseAddressAdditionHouseNo(StreetName,HouseNo,AdditionHouseNo,CompanyInfo.Address);
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',StreetName,'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',HouseNo,'','Msg','');
IF AdditionHouseNo <> '' THEN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberAddition',AdditionHouseNo,'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
DELCHR(CompanyInfo."Post Code",'=',' '),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
...Hiện có mã 5
...END ELSE BEGIN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
ExtractInitials(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',
ExtractNamePrefix(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
ExtractSurname(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
...Thay thế mã 5
...END ELSE BEGIN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactInitials',
ExtractInitials(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
ContactPrefix := ExtractNamePrefix(ElecTaxDeclarationSetup."Agent Contact Name");
IF ContactPrefix <> '' THEN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPrefix',ContactPrefix,'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactSurname',
ExtractSurname(ElecTaxDeclarationSetup."Agent Contact Name"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactTelephoneNumber',
...Mã hiện 6
...ElecTaxDeclarationSetup."Agent Contact Phone No.",'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:TaxConsultantNumber',
ElecTaxDeclarationSetup."Agent Contact ID",'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',
ExtractStreetName(ElecTaxDeclarationSetup."Agent Contact Address"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',
ExtractStreetNo(ElecTaxDeclarationSetup."Agent Contact Address"),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
DELCHR(ElecTaxDeclarationSetup."Agent Contact Post Code",'=',' '),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
...Thay thế mã 6
...ElecTaxDeclarationSetup."Agent Contact Phone No.",'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:TaxConsultantNumber',
ElecTaxDeclarationSetup."Agent Contact ID",'','Msg','');
PostCodeMgt.ParseAddressAdditionHouseNo(
StreetName,HouseNo,AdditionHouseNo,ElecTaxDeclarationSetup."Agent Contact Address");
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactStreetNameNL',StreetName,'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberNL',HouseNo,'','Msg','');
IF AdditionHouseNo <> '' THEN
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactHouseNumberAddition',AdditionHouseNo,'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPostalCodeNL',
DELCHR(ElecTaxDeclarationSetup."Agent Contact Post Code",'=',' '),'','Msg','');
InsertDataLine("Elec. Tax Declaration Header",1,'bd-alg:ContactPlaceOfResidenceNL',
...Mã hiện 7
...SETRANGE("VAT Registration No.", "VAT Registration No.");
CALCSUMS(Base);
"Elec. Tax Declaration Header".InsertLine(0,1,CurrentType,'');
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:CountryCodeISO-EC',
COPYSTR("Country/Region Code",1,2),'','Msg','');
IF COPYSTR(UPPERCASE("VAT Registration No."),1,STRLEN("Country/Region Code")) = "Country/Region Code" THEN
"VAT Registration No." := DELSTR("VAT Registration No.",1,STRLEN("Country/Region Code"));
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:SuppliesAmount',
FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:VATIdentificationNumberNational',
"VAT Registration No.",'','Msg','');
FIND('+');
SETRANGE("Country/Region Code");
...Thay thế mã 7
...SETRANGE("VAT Registration No.", "VAT Registration No.");
CALCSUMS(Base);
IF ABS(Base) >= 1 THEN BEGIN
"Elec. Tax Declaration Header".InsertLine(0,1,CurrentType,'');
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:CountryCodeISO-EC',
COPYSTR("Country/Region Code",1,2),'','Msg','');
IF COPYSTR(UPPERCASE("VAT Registration No."),1,STRLEN("Country/Region Code")) = "Country/Region Code" THEN
"VAT Registration No." := DELSTR("VAT Registration No.",1,STRLEN("Country/Region Code"));
CASE Integer.Number OF
0,2:
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:SuppliesAmount',
FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
1:
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:ServicesAmount',
FORMAT(-Base,0,'<Sign><Integer>'),'INF','Msg','EUR');
END;
InsertDataLine("Elec. Tax Declaration Header",2,'bd-ob:VATIdentificationNumberNational',
"VAT Registration No.",'','Msg','');
END;
FIND('+');
SETRANGE("Country/Region Code");
... -
Thay đổi mã trong biến toàn cầu trong báo cáo tạo ELEC ICP tuyên bố (11404) như sau:
Mã hiện tại...CompanyInfo@1000003 : Record 79;
ElecTaxDeclarationSetup@1000001 : Record 11408;
StatusErr@1000005 : TextConst 'ENU=The report status need to have value " " or Created to create the report content.';
CurrentType@1000000 : Text[60];
LOCAL PROCEDURE GetStrippedAppVersion@1101100000(AppVersion@1101100001 : Text[250]) Res : Text[250];
...Thay thế mã
...CompanyInfo@1000003 : Record 79;
ElecTaxDeclarationSetup@1000001 : Record 11408;
StatusErr@1000005 : TextConst 'ENU=The report status need to have value " " or Created to create the report content.';
PostCodeMgt@1000002 : Codeunit 11401;
CurrentType@1000000 : Text[60];
LOCAL PROCEDURE GetStrippedAppVersion@1101100000(AppVersion@1101100001 : Text[250]) Res : Text[250];
... -
Thay đổi mã trong hàm ExtractStreetName tạo ELEC ICP khai báo cáo (11404) như sau:
Mã hiện tại...ElecTaxDeclHeader.InsertLine(1,Indentation + 1,'unitRef',unitRef);
END;
LOCAL PROCEDURE ExtractStreetName@1000013(Address@1000000 : Text[50]) : Text[50];
BEGIN
IF IndexOfFirstNumber(Address) > 1 THEN
EXIT(COPYSTR(Address,1,IndexOfFirstNumber(Address) - 2));
EXIT(Address);
END;
LOCAL PROCEDURE ExtractStreetNo@1000012(Address@1000000 : Text[50]) : Text[50];
BEGIN
IF IndexOfFirstNumber(Address) > 0 THEN
EXIT(COPYSTR(Address,IndexOfFirstNumber(Address)));
EXIT('');
END;
LOCAL PROCEDURE ExtractInitials@1000014(FullName@1000000 : Text[35]) Initials : Text[30];
VAR
Pos@1000001 : Integer;
...Thay thế mã
...ElecTaxDeclHeader.InsertLine(1,Indentation + 1,'unitRef',unitRef);
END;
LOCAL PROCEDURE ExtractInitials@1000014(FullName@1000000 : Text[35]) Initials : Text[30];
VAR
Pos@1000001 : Integer;
... -
Thay đổi mã trong hàm IndexOfFirstNumber tạo ELEC ICP khai báo cáo (11404) như sau:
Mã hiện tại...Surname := COPYSTR(FullName,STRPOS(FullName,' ') + 1);
END;
LOCAL PROCEDURE IndexOfFirstNumber@1000017(Str@1000000 : Text[50]) : Integer;
VAR
Index@1000001 : Integer;
BEGIN
FOR Index := 1 TO STRLEN(Str) DO BEGIN
IF Str[Index] IN ['0'..'9'] THEN
EXIT(Index);
END;
EXIT(0);
END;
BEGIN
END.
}
...Thay thế mã
...Surname := COPYSTR(FullName,STRPOS(FullName,' ') + 1);
END;
BEGIN
END.
}
... -
Thay đổi mã trong hàm ParseAddressAdditionHouseNo codeunit bài mã quản lý (11401) như sau:
Mã hiện tại...EXIT(TRUE);
END;
BEGIN
{
<changelog>
...Thay thế mã
...EXIT(TRUE);
END;
PROCEDURE ParseAddressAdditionHouseNo@1000003(VAR StreetName@1000001 : Text[50];VAR HouseNo@1000002 : Text[50];VAR AdditionHouseNo@1000003 : Text[50];Address@1000000 : Text[50]);
VAR
HouseString@1000004 : Text[50];
BEGIN
StreetName := '';
HouseNo := '';
AdditionHouseNo := '';
IF Address = '' THEN
EXIT;
// Suppose that house string is a last word in the Address
HouseString := GetHouseString(Address);
IF HouseString = '' THEN BEGIN
StreetName := Address;
EXIT;
END;
// The last word is a House string with possible AdditionHouseNo information. All before last word is a StreetName.
StreetName := COPYSTR(Address,1,STRLEN(Address) - STRLEN(HouseString) - 1);
HouseNo := GetHouseNoFromHouseString(HouseString);
AdditionHouseNo := HouseString;
END;
LOCAL PROCEDURE GetHouseString@1000002(Address@1000000 : Text[50]) : Text[50];
VAR
i@1000003 : Integer;
BEGIN
// If there's only one word then return empty HouseString
IF STRPOS(Address,' ') = 0 THEN
EXIT('');
//Lookup from end of string first space after a number
// Find the last word: revert address string, cut first word, revert result
RevertString(Address);
// Delete Spaces at beginning
Address := DELCHR(Address,'<');
i := 1;
// Find first number i ==> position of first number
WHILE (NOT (Address[i] IN ['0'..'9']) AND (i < STRLEN(Address))) DO
i += 1;
IF ((i = STRLEN(Address)) AND NOT (Address[i] IN ['0'..'9'])) THEN //No number found
EXIT('');
// look further until number stops
WHILE ((Address[i] IN ['0'..'9']) AND (i < STRLEN(Address))) DO
i+= 1;
Address := DELCHR(COPYSTR(Address,1, i-1), '<=>'); // remove all spaces
RevertString(Address);
EXIT(Address);
END;
LOCAL PROCEDURE GetHouseNoFromHouseString@1000000(VAR HouseString@1000000 : Text[50]) HouseNo : Text[50];
VAR
Pos@1000002 : Integer;
BEGIN
Pos := 1;
WHILE HouseString[Pos] IN ['0'..'9'] DO
Pos += 1;
HouseNo := COPYSTR(HouseString,1,Pos - 1);
// remove HouseNo from the HouseString including special separating char if such exist
IF HouseString[Pos] IN ['/','\','-'] THEN
Pos += 1;
HouseString := COPYSTR(HouseString,Pos);
END;
LOCAL PROCEDURE RevertString@1170000000(VAR String@1170000000 : Text[50]);
VAR
StringCopy@1170000001 : Text[50];
i@1170000002 : Integer;
Length@1170000003 : Integer;
BEGIN
StringCopy := String;
Length := STRLEN(String);
FOR i := 1 TO Length DO
String[i] := StringCopy[Length - i + 1];
END;
BEGIN
{
<changelog>
...
Điều kiện tiên quyết
Bạn phải có một trong các sản phẩm được cài đặt để áp dụng hotfix này:
-
Phiên bản Microsoft Dynamics NAV 2009 R2 bằng tiếng Hà Lan
-
Phiên bản tiếng Hà Lan của Microsoft Dynamics NAV 2009 SP1
Ngoài ra, bạn phải thực hiện "Digipoort Authorties Adopt thuế VAT và EU bán hàng danh sách gửi cho Microsoft Dynamics NAV SP1 NL."
Thông tin về việc loại bỏ
Bạn không thể xoá hotfix này.
Trạng thái
Microsoft đã xác nhận rằng đây là sự cố trong sản phẩm của Microsoft được liệt kê trong phần "Áp dụng cho".
Lưu ý Đây là một bài viết "XUẤT BẢN NHANH" được tạo trực tiếp từ trung tâm hỗ trợ của Microsoft. Thông tin này được cung cấp-trả lời cho các vấn đề mới xuất hiện. Vì nhanh chóng có sẵn, các tài liệu có thể bao gồm lỗi và có thể được sửa đổi bất kỳ lúc nào mà không cần thông báo. Xem Điều khoản sử dụngđể xem xét khác.
