Sümptomid
PARANDUS arve loomisel hinnad inc. km välja muutmisel ühiku hind väärtused on valed Microsoft Dynamics nav-i 2009 R2 ungarikeelne versioon. Järgige juhiseid koodi muudatusi selle probleemi lahendamiseks jaotisse. See probleem ilmneb järgmiste toodetega:
-
Microsoft Dynamics nav-i 2009 R2 ungarikeelne versioon
Lahendus
Kiirparanduse teave
Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Kuid 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.
-
Muuta koodi UpdateVATAmounts funktsiooni tabeli müügi paranduse rida (14536) järgmiselt:
Kood...Amount * (1 - SalesHeader."VAT Base Discount %" / 100),
Currency."Amount Rounding Precision");
"Amount Including VAT" :=
ROUND(
Amount * (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100,
Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
"VAT Calculation Type"::"Full VAT":
BEGIN
...Eemaldamise teave
...Amount * (1 - SalesHeader."VAT Base Discount %" / 100),
Currency."Amount Rounding Precision");
"Amount Including VAT" :=
// Add the following line.
Amount +
// End of the added line.
ROUND(
Amount * (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100,
Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
"VAT Calculation Type"::"Full VAT":
BEGIN
... -
Muuta koodi CheckLineAmount funktsiooni tabeli müügi paranduse rida (14536) järgmiselt:
Kood 1..."Unit Price Incl. Discount" := "Unit Price" - "Unit Price" * "Line Discount %" / 100;
END;
// Delete the following line.
PROCEDURE CheckLineAmount@1360000();
// End of the deleted line.
BEGIN
// PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
...Kood 1
..."Unit Price Incl. Discount" := "Unit Price" - "Unit Price" * "Line Discount %" / 100;
END;
// Add the following lines.
PROCEDURE CheckLineAmount@1170219();
VAR
SalesinvHeader@1170001 : Record 112;
// End of the added lines.
BEGIN
// PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
...Kood 2
...// PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
SalesCorrLine.GET("Document Type","Document No.","Correction Line No.","Before/ After correction"::Before);
GetCorrType;
IF (SalesCorrLine."Line Amount" > "Line Amount") AND
("Document Type" = "Document Type"::Invoice) AND
(SalesCorrectionType."Correction Type" = SalesCorrectionType."Correction Type"::"Quantity and Value")
THEN
...Asendamine kood 2
... // PS16433.begin
IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
SalesCorrLine.GET("Document Type","Document No.","Correction Line No.","Before/ After correction"::Before);
// Add the following line.
SalesinvHeader.GET(SalesHeader."Corr. Document No.");
// End of the added line.
GetCorrType;
IF (SalesCorrLine."Line Amount" > "Line Amount") AND
// Add the following line.
(SalesHeader."Prices Including VAT" = SalesinvHeader."Prices Including VAT") AND
// End of the added line.
("Document Type" = "Document Type"::Invoice) AND
(SalesCorrectionType."Correction Type" = SalesCorrectionType."Correction Type"::"Quantity and Value")
THEN
... -
Muuta koodi andmete kirje Number 5 müük - arve (HU) aruanne (14516) järgmiselt:
Kood...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(Before),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineBefore;
DataItemLinkReference=Sales Invoice Header;
DataItemLink=Document No.=FIELD(No.);
}
SECTIONS
{
...Eemaldamise teave
...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(Before),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineBefore;
// Add the following lines.
OnAfterGetRecord=BEGIN
IF SalesInvHeader.GET("Sales Invoice Header"."Corr. Document No.") THEN
IF SalesInvHeader."Prices Including VAT" <> "Sales Invoice Header"."Prices Including VAT" THEN
"Unit Price Incl. Discount" := "VAT Base Amount" / Quantity;
END;
// End of the added lines.
DataItemLinkReference=Sales Invoice Header;
DataItemLink=Document No.=FIELD(No.);
}
SECTIONS
{
... -
Andmete üksuse Number 6 Müük - arve (HU) aruanne (14516) koodi muutmiseks järgmiselt:
Kood...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(After),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineAfter;
DataItemLinkReference=PostedSalesCorrLineBefore;
DataItemLink=Document No.=FIELD(Document No.),
Correction Line No.=FIELD(Correction Line No.);
}
SECTIONS
...Eemaldamise teave
...DataItemTable=Table14537;
DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
WHERE(Before/ After correction=FILTER(After),
Document Type=CONST(Posted Invoice));
DataItemVarName=PostedSalesCorrLineAfter;
// Add the following lines.
OnAfterGetRecord=BEGIN
IF SalesInvHeader."Prices Including VAT" <> "Sales Invoice Header"."Prices Including VAT" THEN
"Unit Price Incl. Discount" := "VAT Base Amount" / Quantity;
END;
// End of the added lines.
DataItemLinkReference=PostedSalesCorrLineBefore;
DataItemLink=Document No.=FIELD(Document No.),
Correction Line No.=FIELD(Correction Line No.);
}
SECTIONS
... -
Muuda koodi globaalsed muutujad müük - arve (HU) aruanne (14516) järgmiselt:
Kood...VALExchRate@1360016 : Text[50];
Text14530@1360017 : TextConst 'ENU=%1/%2;HUN=%1/%2';
GroupVATText@13600018 : Text[30];
CorrInvText@1360018 : TextConst 'ENU=C O R R E C T I V E I N V O I C E;HUN=H E L Y E S B Ö T Š S Z µ M L A';
LogInteractionEnable@19003940 : Boolean INDATASET;
PROCEDURE InitLogInteraction@1360000();
BEGIN
LogInteraction := SegManagement.FindInteractTmplCode(4) <> '';
END;
...Eemaldamise teave
...VALExchRate@1360016 : Text[50];
Text14530@1360017 : TextConst 'ENU=%1/%2;HUN=%1/%2';
GroupVATText@13600018 : Text[30];
CorrInvText@1360018 : TextConst 'ENU=C O R R E C T I V E I N V O I C E;HUN=H E L Y E S B Ö T Š S Z µ M L A';
LogInteractionEnable@19003940 : Boolean INDATASET;
// Add the following line.
SalesInvHeader@13600019 : Record 112;
// End of the added line.
PROCEDURE InitLogInteraction@1360000();
BEGIN
LogInteraction := SegManagement.FindInteractTmplCode(4) <> '';
END;
... -
Muuda koodi InitSalesLineOnCharge VATCorrectionManagement koodiplokk (14535) funktsioon järgmiselt:
Kood 1...SalesLine.INSERT;
CopyDim(SalesLine,SalesCorrLine);
END;
PROCEDURE InitSalesLineOnCharge@1360001(VAR SalesLine@1360000 : Record 37;SalesCorrLine@1360001 : Record 14536;QtyOnSalesLine@1360002 : Decimal);
BEGIN
InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
...Kood 1
...SalesLine.INSERT;
CopyDim(SalesLine,SalesCorrLine);
END;
PROCEDURE InitSalesLineOnCharge@1360001(VAR SalesLine@1360000 : Record 37;SalesCorrLine@1360001 : Record 14536;QtyOnSalesLine@1360002 : Decimal);
// Add the following lines.
VAR
SalesInvHeader@1360003 : Record 112;
// End of the added lines.
BEGIN
InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
...Kood 2
...InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
SalesLine.VALIDATE(Quantity,QtyOnSalesLine);
SalesLine.VALIDATE("Unit Price",SalesCorrLine."Unit Price");
IF SalesLine.Quantity <> 0 THEN
SalesLine.VALIDATE("Line Discount %",SalesCorrLine."Line Discount %");
SalesLine.UpdateAmounts;
SalesLine.VALIDATE("Unit Cost (LCY)",0);
...Asendamine kood 2
...InitSalesLine(SalesCorrLine,SalesLine);
SalesLine.Type := SalesLine.Type::"Charge (Item)";
SalesLine."No." := SalesCorrType."Item Charge Code";
SalesLine.VALIDATE("Unit of Measure Code",'');
SalesLine.VALIDATE(Quantity,QtyOnSalesLine);
// Add the following lines.
IF (SalesCorrLine."Before/ After correction" = SalesCorrLine."Before/ After correction"::Before) AND
(SalesInvHeader.GET(SalesCorrLine."Source Document No.")) AND
(SalesHeader."Prices Including VAT" <> SalesInvHeader."Prices Including VAT")
THEN BEGIN
IF SalesHeader."Prices Including VAT" THEN
SalesLine.VALIDATE("Unit Price",SalesCorrLine."Amount Including VAT" / SalesCorrLine.Quantity)
ELSE
SalesLine.VALIDATE("Unit Price",SalesCorrLine."VAT Base Amount" / SalesCorrLine.Quantity);
END ELSE
// End of the added lines.
SalesLine.VALIDATE("Unit Price",SalesCorrLine."Unit Price");
IF SalesLine.Quantity <> 0 THEN
SalesLine.VALIDATE("Line Discount %",SalesCorrLine."Line Discount %");
SalesLine.UpdateAmounts;
SalesLine.VALIDATE("Unit Cost (LCY)",0);
...
Eeltingimused
Teil peab olema üks selle kiirparanduse installinud järgmisi tooteid:
-
Microsoft Dynamics nav-i 2009 R2 ungarikeelne versioon
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. Vt Kasutustingimusedmuid kaalutlusi.
