Käesolev artikkel kehtib Microsoft Dynamics NAV Ungari (hu) keel asukoha.
Sümptomid
Microsoft Dynamics nav-i 2009 R2 ungarikeelne versioon loetletud km aruande aruande, mida nimetatakse 1365M on vale nimi ja kasutab vale vormi ID andmete eksportimine tekstifaili. 1365 oli ajutine nimi, mida kasutati 2013 aastal. See ID muutub igal aastal. Näiteks:
-
2013. aastal oli 1365.
-
2014. aastal on 1465 baiti.
-
2015. aastal on 1565.
Kaks esimest suurendada igal aastal. Objektide nimed on vale. Need peaksid nimeks "Loetletud km aruande" ilma arvu.
Lahendus
Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Aga see on ette nähtud ainult selles artiklis kirjeldatud probleemi kõrvaldamiseks. Rakendage seda ainult süsteemides, kus ilmneb see konkreetne probleem. Seda käigultparandust võidakse täiendavalt testida. Seega, kui probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i 2009 või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.
Märkus. Erijuhtudel kulud, mis tekivad teatud palub tühistada saab kui tehniline toetus Professional Microsoft Dynamics ja nendega seotud toodete leiab, et mõni konkreetne värskendus lahendab teie probleemi. Tavaline tugiteenuste kohaldatakse täiendavat tugiteenust vajavatele küsimustele ning probleemidele, mis pole lahendatavad konkreetse värskenduse installimisega.
Installiteave
Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada. Siiski ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele.
Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Dynamics nav-i kliendi kasutajat sisse loginud süsteem välja. See hõlmab Microsoft Dynamics nav-i rakenduste Server (NAS) teenuseid. Peaks olema ainult kliendi kasutaja on sisse logitud, kui otsustate seda käigultparandust.
Selle kiirparanduse rakendamiseks peab teil olema arendaja litsentsi.
Soovitame Windowsi sisselogimise aken või aken andmebaasi logimine kasutajakonto määrata "SUPER" rolli ID. Kui "SUPER" rolli ID-d ei saa määratud kasutajakonto, peate veenduma, et kasutaja konto on järgmised õigused:
-
Sa muutuvad objekti Muuda õigusi.
-
Käivita luba süsteemi objekti ID 5210 objekti ja süsteemi objekti ID 9015
objekti.
Märkus. Teil pole õigust andmeid talletab enne, kui olete andmete parandamiseks.
Koodi muudatusi
Märkus. Alati test koodi lahendab kontrollitavas keskkonnas enne rakendamist tootmine arvutite parandused.
Selle probleemi lahendamiseks toimige järgmiselt.
-
Eksport/Prindi 1365 M vormil (14550) koodi muuta järgmiselt:
Kood...// Delete the following line.
OBJECT Form 14550 Export/Print 1365M
...Eemaldamise teave
...// Add the following line.
OBJECT Form 14550 Export/Print Item. VAT Stat.
... -
Muutke vormi 14550 kood järgmiselt:
Kood... }
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;
...Eemaldamise teave
... }
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;
... -
Juhtelementide kujul 14550 koodi muuta järgmiselt:
Kood 1... }
CONTROLS
{
// Delete the following line.
{ 1360006;MenuButton;3740 ;3520 ;2200 ;550 ;CaptionML=[ENU=&Functions;
HUN=&Funkci�k];
Menu=MENUITEMS
{
...Kood 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
{
...Kood 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;
...Asendamine kood 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;
...Kood 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 }
...Asendamine kood 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 loetletud km aruande aruande (14522) koodi muutmiseks järgmiselt:
Kood...// Delete the following line.
OBJECT Report 14522 1365 Itemized VAT Statement
HUN=�fa k�sz�b�sszege];
DateFormula=No;
SourceExpr=ThresholdAmount }
...Eemaldamise teave
... 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 }
... -
Muuta koodi omadused aruande 14522 järgmiselt:
Kood... }
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
...Eemaldamise teave
... }
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
... -
Muuda koodi Create1365MFile funktsioon vormi 1365 eksport koodiplokk (14550) järgmiselt:
Kood... 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);
...Eemaldamise teave
... 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);
... -
Muuda koodi CreateAndDownloadFiles funktsioon vormi 1365 eksport koodiplokk (14550) järgmiselt:
Kood 1... ("Partner ID" <> PreviousTemp1365MBuffer."Partner ID");
IF IsNewPartner AND Instantiated THEN BEGIN
// Delete the following line.
UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
Instantiated := FALSE;
END;
...Kood 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;
...Kood 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;
...Asendamine kood 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;
...Kood 3
... PreviousTemp1365MBuffer := Temp1365MBuffer;
UNTIL NEXT = 0;
IF Instantiated THEN
// Delete the following line.
UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
END;
END;
END;
...Asendamine kood 3
... PreviousTemp1365MBuffer := Temp1365MBuffer;
UNTIL NEXT = 0;
IF Instantiated THEN
// Add the following line.
UpdateAndDownloadFile(PeriodFrom,SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);
END;
END;
END;
... -
Muuda koodi WriteFileHeader funktsioon vormi 1365 eksport koodiplokk (14550) järgmiselt:
Kood... 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');
...Eemaldamise teave
... 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');
... -
Muuda koodi UpdateAndDownloadFile funktsioon vormi 1365 eksport koodiplokk (14550) järgmiselt:
Kood 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];
...Kood 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];
...Kood 2
... BEGIN
Write1365M;
TextStream.Close;
// Delete the following line.
ServerFileName := TEMPORARYPATH + '1365M.txt';
UpdateCountLine(ServerFileName,CountLine);
IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN
...Asendamine kood 2
... BEGIN
Write1365M;
TextStream.Close;
// Add the following line.
ServerFileName := TEMPORARYPATH + GetFormID(PeriodFrom) + '.txt';
UpdateCountLine(ServerFileName,CountLine);
IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN
...Kood 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;
...Asendamine kood 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;
... -
Muuda koodi SetFolderLocation funktsioon vormi 1365 eksport koodiplokk (14550) järgmiselt:
Kood 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';
...Kood 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';
...Kood 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);
...Asendamine kood 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);
... -
Muuda koodi GetFormID funktsioon vormi 1365 eksport koodiplokk (14550) järgmiselt:
Kood... EXIT(ROUND(Amount/1000,1));
END;
BEGIN
END.
}
...Eemaldamise teave
... 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.
}
... -
Muuda atribuudid Ungari menüükomplekti (30) kood järgmiselt:
Kood... 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;
...Eemaldamise teave
... 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;
... -
Muuda atribuudid osakonnas – Ungari menüükomplekti (1030) kood järgmiselt:
Kood... 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;
...Asendamine kood 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;
... -
Eksport/Prindi 1365 M lehel (14550) koodi muutmiseks järgmiselt:
Kood...// 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;
...Eemaldamise teave
... 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;
... -
Muuta koodi omadused eksport/Prindi 1365 M leht (14550) järgmiselt:
Kood 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
...Asendamine kood 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
...
Eeltingimused
Ungari versioonis Microsoft Dynamics nav-i 2009 R2 selle kiirparanduse rakendamiseks peab teil olema.
Eemaldamise teave
See käigultparandus ei saa eemaldada.
Olek
Microsoft on kinnitanud, et see probleem esineb jaotises "Kehtib järgmiste toodete kohta" loetletud Microsofti toodetel.
Märkus. See on "Kiire avaldamise" artikli loonud otse Microsofti tugiteenuse pakkujalt. Siintoodud teave on esitatud lähtudes-olemasoleval kujul vastusena ilmnenud probleemidele. Kiire avaldamise materjalides esineda trükivigu ja võidakse muuta ette teatamata. Vaadake Kasutustingimusedmuid kaalutlusi.