Den här artikeln gäller för Microsoft Dynamics NAV för ungerska (hu) språk.
Symptom
I den ungerska versionen av Microsoft Dynamics NAV 2009 R2 rapporten specificerade momsrapporten som kallas 1365M har ett felaktigt namn och felaktiga formulär-ID när du exporterar data till en textfil. 1365 var ett tillfälligt namn som användes för endast år 2013. Detta ID ändras varje år. Till exempel:
-
2013 var 1365.
-
I 2014 är det 1465.
-
I 2015, kommer det att 1565.
De första två siffrorna ökar varje år. Namnen på objekten är också felaktig. De ska namnges som "Specificerade momsrapporten" utan numret.
Lösning
En snabbkorrigering är nu tillgänglig från Microsoft. Den är endast avsedd att åtgärda det problem som beskrivs i denna artikel. Använd den bara på datorer där detta problem uppstår. Snabbkorrigeringen kan komma att testas igen. Om inte störs alltför mycket av detta problem rekommenderar vi att du väntar på Nästa service pack-versionen för Microsoft Dynamics NAV 2009 eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.
Obs! I särskilda fall, de avgifter som är normalt för support vara avgiftsfri om en supporttekniker för Microsoft Dynamics och relaterade produkter som bestämmer att en särskild uppdatering kan lösa ditt problem. De vanliga supportkostnaderna gäller för övriga supportfrågor och problem som inte berör den särskilda uppdateringen.
Installationsinformation
Microsoft tillhandahåller programmeringsexempel endast utan garanti varken uttryckliga eller underförstådda. Detta inkluderar men är inte begränsat till, underförstådda garantier om säljbarhet eller lämplighet för ett särskilt ändamål. Den här artikeln förutsätter att du är bekant med det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionen hos en viss procedur. De kommer inte ändra dessa exempel för att ge ytterligare funktioner eller skapa procedurer som motsvarar dina speciella behov.
Obs! Innan du installerar den här snabbkorrigeringen måste du kontrollera att alla användare i Microsoft Dynamics NAV-klienten har loggat ut. Detta omfattar tjänster för Microsoft Dynamics NAV Application Server (NAS). Du ska endast klientanvändare som är inloggad när du implementerar den här snabbkorrigeringen.
Om du vill genomföra den här snabbkorrigeringen måste du ha en utvecklarlicens.
Vi rekommenderar att tilldelas användarkontot i fönstret Windows-inloggningar eller i fönstret databasinloggningar "SUPER" roll-ID. Om användarkontot inte kan tilldelas "SUPER" roll-ID måste du kontrollera att användarkontot har följande behörigheter:
-
Ändra behörighet för objektet ändras.
-
Körbehörighet för systemet objektet ID 5210 objekt och System objektet ID 9015
objektet.
Obs! Du har inte behörighet för datalager inte data reparation.
Kod ändras
Obs! Alltid åtgärdas testa koden i en kontrollerad miljö innan du installerar korrigeringar för produktionsdatorer.
Lös problemet så här:
-
Ändra koden i fälten i formuläret Export och utskrift 1365 M (14550) enligt följande:
Befintlig kod...// Delete the following line.
OBJECT Form 14550 Export/Print 1365M
...Ersättningskod
...// Add the following line.
OBJECT Form 14550 Export/Print Item. VAT Stat.
... -
Ändra koden i egenskaper i formuläret 14550 på följande sätt:
Befintlig kod... }
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;
...Ersättningskod
... }
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;
... -
Ändra koden i kontrollerna i formuläret 14550 så här:
Befintlig kod 1... }
CONTROLS
{
// Delete the following line.
{ 1360006;MenuButton;3740 ;3520 ;2200 ;550 ;CaptionML=[ENU=&Functions;
HUN=&Funkci�k];
Menu=MENUITEMS
{
...Ersättningskod 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
{
...Befintlig kod 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;
...Ersättningskod 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;
...Befintlig kod 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 }
...Ersättningskod 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 }
... -
Ändra koden i 1365 specificerade momsrapporten rapport (14522) enligt följande:
Befintlig kod...// Delete the following line.
OBJECT Report 14522 1365 Itemized VAT Statement
HUN=�fa k�sz�b�sszege];
DateFormula=No;
SourceExpr=ThresholdAmount }
...Ersättningskod
... 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 }
... -
Ändra koden i rapporten 14522 egenskaper enligt följande:
Befintlig kod... }
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
...Ersättningskod
... }
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
... -
Ändra koden i funktionen Create1365MFile i kodmodul för formuläret 1365 Export (14550) enligt följande:
Befintlig kod... 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);
...Ersättningskod
... 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);
... -
Ändra koden i funktionen CreateAndDownloadFiles i kodmodul för formuläret 1365 Export (14550) enligt följande:
Befintlig kod 1... ("Partner ID" <> PreviousTemp1365MBuffer."Partner ID");
IF IsNewPartner AND Instantiated THEN BEGIN
// Delete the following line.
UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
Instantiated := FALSE;
END;
...Ersättningskod 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;
...Befintlig kod 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;
...Ersättningskod 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;
...Befintlig kod 3
... PreviousTemp1365MBuffer := Temp1365MBuffer;
UNTIL NEXT = 0;
IF Instantiated THEN
// Delete the following line.
UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
END;
END;
END;
...Ersättningskod 3
... PreviousTemp1365MBuffer := Temp1365MBuffer;
UNTIL NEXT = 0;
IF Instantiated THEN
// Add the following line.
UpdateAndDownloadFile(PeriodFrom,SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
END;
END;
END;
... -
Ändra koden i funktionen WriteFileHeader i kodmodul för formuläret 1365 Export (14550) enligt följande:
Befintlig kod... 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');
...Ersättningskod
... 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');
... -
Ändra koden i funktionen UpdateAndDownloadFile i kodmodul för formuläret 1365 Export (14550) enligt följande:
Befintlig kod 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];
...Ersättningskod 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];
...Befintlig kod 2
... BEGIN
Write1365M;
TextStream.Close;
// Delete the following line.
ServerFileName := TEMPORARYPATH + '1365M.txt';
UpdateCountLine(ServerFileName,CountLine);
IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN
...Ersättningskod 2
... BEGIN
Write1365M;
TextStream.Close;
// Add the following line.
ServerFileName := TEMPORARYPATH + GetFormID(PeriodFrom) + '.txt';
UpdateCountLine(ServerFileName,CountLine);
IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN
...Befintlig kod 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;
...Ersättningskod 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;
... -
Ändra koden i funktionen SetFolderLocation i kodmodul för formuläret 1365 Export (14550) enligt följande:
Befintlig kod 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';
...Ersättningskod 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';
...Befintlig kod 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);
...Ersättningskod 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);
... -
Ändra koden i funktionen GetFormID i kodmodul för formuläret 1365 Export (14550) enligt följande:
Befintlig kod... EXIT(ROUND(Amount/1000,1));
END;
BEGIN
END.
}
...Ersättningskod
... 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.
}
... -
Ändra koden för egenskaper i Ungern MenuSuite (30) enligt följande:
Befintlig kod... 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;
...Ersättningskod
... 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;
... -
Ändra koden för egenskaper i Avd – Ungern MenuSuite (1030) enligt följande:
Befintlig kod... 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;
...Ersättningskod 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;
... -
Ändra koden på sidan exportera/utskrift 1365 M (14550) enligt följande:
Befintlig kod...// 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;
...Ersättningskod
... 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;
... -
Ändra koden för egenskaper på sidan exportera/utskrift 1365 M (14550) enligt följande:
Befintlig kod 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
...Ersättningskod 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
...
Förutsättningar
Du måste ha den ungerska versionen av Microsoft Dynamics NAV 2009 R2 installerat för att kunna installera den här snabbkorrigeringen.
Information om borttagning
Du kan inte ta bort den här snabbkorrigeringen.
Status
Microsoft har bekräftat att detta är ett problem i Microsoft-produkterna som nämns i avsnittet "Gäller".
Obs! Detta är en "SNABBPUBLICERING"-artikel skapad direkt från Microsoft support-organisationen. Informationen häri tillhandahålls i befintligt skick som svar på nya problem. Till följd av hastigheten för att göra det tillgängligt kan materialet innehålla typografiska fel och kan ändras när som helst utan föregående meddelande. Se Villkoren för användningför andra överväganden.
