Käesolev artikkel kehtib Microsoft Dynamics NAV Ungari (hu) keel asukoha.
Sümptomid
Kujutage ette järgmist stsenaariumi Microsoft Dynamics nav-i 2009 R2 ungarikeelne versioon.
-
Rakendate ettemaksed värskendus Microsoft Dynamics nav-i 2009 R2 ungarikeelne versioon.
-
Määrake ettemaksu tüüp välja eelnevalt vormil Pearaamatu seadistamine.
-
Määrake Avansisaajate arve paranduse tüüp välja absoluutne postitamine rühma käibemaks (VAT) jaoks.
-
Müügitellimuse klient, kes kasutab käibemaksu sisestamise rühma loomine.
-
Kliendi pärast ettemaks ja ettemaksu arve.
-
Kauba saaja ja arve müügitellimuse.
Selle stsenaariumi puhul luuakse ootamatult suure arve ümardamine kirje.
Lahendus
Kiirparanduse teave
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 funktsiooni selgitada, kuid 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 Navision Klient logib süsteem. See hõlmab Microsoft Navision Application teenused (NAS) kliendi kasutajatele. 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.
-
Muuda koodi CalcRndDiffAmt funktsioon "Müügi-posti" koodiplokk (80) järgmiselt:
Kood...// Delete the following lines.
PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
BEGIN
EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt + CalcPostedAmtInclVAT));
// End of the lines.
END;
...Eemaldamise teave
...// Add the following lines.
LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
VAR
TotalAmtInclVAT@1360001 : Decimal;
BEGIN
TotalAmtInclVAT :=
CalcTotalAmtInclVAT(Currency);
IF TotalAmtInclVAT = InvAmt THEN
EXIT(0);
EXIT(TotalAmtInclVAT - (InvAmt + CalcPostedAmtInclVAT));
// End of the lines.
END;
... -
Muuda koodi IsFinalInvoice funktsioon "Müügi-posti" koodiplokk (80) järgmiselt:
Kood...SETRANGE("Document No.",SalesHeader."No.");
// Delete the following line.
EXIT(SalesPostAdvances.FullyDeductedCustPrepmt(SalesOrderLine));
END;
...Eemaldamise teave
...SETRANGE("Document No.",SalesHeader."No.");
// Add the following line.
EXIT(SalesPostAdvances.IsFinalCustInvoice(SalesOrderLine));
END;
... -
Muuda koodi CalcRndDiffAmt funktsioon "Ost-Post" koodiplokk (90) järgmiselt:
Kood...// Delete the following lines.
PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
BEGIN
EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt - CalcPostedAmtInclVAT));
// End of the lines.
END;
...Eemaldamise teave
...// Add the following lines.
LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
VAR
TotalAmtInclVAT@1360001 : Decimal;
BEGIN
TotalAmtInclVAT :=
CalcTotalAmtInclVAT(Currency);
IF TotalAmtInclVAT = InvAmt THEN
EXIT(0);
EXIT(TotalAmtInclVAT - (InvAmt - CalcPostedAmtInclVAT));
// End of the lines.
END;
... -
Muuda koodi IsFinalInvoice funktsioon "Ost-Post" koodiplokk (90) järgmiselt:
Kood...SETRANGE("Document No.",PurchHeader."No.");
// Delete the following line.
EXIT(PurchPostAdvances.FullyDeductedVendPrepmt(PurchOrderLine));
END;
...Eemaldamise teave
...SETRANGE("Document No.",PurchHeader."No.");
// Add the following line.
EXIT(PurchPostAdvances.IsFinalVendInvoice(PurchOrderLine));
END;
... -
Muuda koodi SalesOrderProcessing funktsioon "Müügi-posti siseneb" koodiplokk (26585) järgmiselt:
Kood 1...VAR
// Delete the following lines.
FullyDeducted@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH SalesHeader DO BEGIN
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
IF FullyDeducted THEN
// End of the lines.
InvoicedAmount :=
...Kood 1
...VAR
// Add the following lines.
IsFinalInvoice@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH SalesHeader DO BEGIN
IsFinalInvoice := IsFinalCustInvoice(SalesLine);
IF IsFinalInvoice THEN
// End of the lines.
InvoicedAmount :=
...Kood 2
...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Delete the following line.
FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
UNTIL SalesLine.NEXT = 0;
...Asendamine kood 2
...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Add the following line.
IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
UNTIL SalesLine.NEXT = 0;
... -
Muuda koodi FullyDeductedCustPrepmt funktsioon "Müügi-posti siseneb" koodiplokk (26585) järgmiselt:
Kood 1...// Delete the following line.
PROCEDURE FullyDeductedCustPrepmt@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
BEGIN
...Kood 1
...// Add the following line.
PROCEDURE IsFinalCustInvoice@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
BEGIN
...Kood 2
...SetSalesLineToPost(SalesLine);
// Delete the following line.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" <> SalesLine."Prepmt. Amt. Inv." THEN
EXIT(FALSE);
...Asendamine kood 2
...SetSalesLineToPost(SalesLine);
// Add the following line.
IF SalesLine."Qty. to Invoice" + SalesLine."Quantity Invoiced" <> SalesLine.Quantity THEN
EXIT(FALSE);
... -
Muuda koodi CollectFullyDeductedOrders funktsioon "Müügi-posti siseneb" koodiplokk (26858) järgmiselt:
Kood 1...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
// Delete the following line.
FullyDeducted@1360004 : Boolean;
BEGIN
...Kood 1
...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
// Add the following line.
IsFinalInvoice@1360004 : Boolean;
BEGIN
...Kood 2
...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
// Delete the following lines.
FullyDeducted := FullyDeductedOrder.FIND;
IF NOT FullyDeducted THEN BEGIN
FullyDeducted := FullyDeductedCustPrepmt(SalesOrderLine);
IF FullyDeducted THEN
FullyDeductedOrder.INSERT;
END;
IF FullyDeducted THEN BEGIN
// End of the lines.
FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
...Asendamine kood 2
...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
// Add the following lines.
IsFinalInvoice := FullyDeductedOrder.FIND;
IF NOT IsFinalInvoice THEN BEGIN
IsFinalInvoice := IsFinalCustInvoice(SalesOrderLine);
IF IsFinalInvoice THEN
FullyDeductedOrder.INSERT;
END;
IF IsFinalInvoice THEN BEGIN
// End of the lines.
FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
... -
Muuda koodi PurchOrderProcessing funktsioon "Purchace Post siseneb" koodiplokk (26586) järgmiselt:
Kood 1...VAR
// Delete the following lines.
FullyDeducted@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH PurchHeader DO BEGIN
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);
IF FullyDeducted THEN
// End of the lines.
InvoicedAmount :=
...Kood 1
...VAR
// Add the following lines.
IsFinalInvoice@1360007 : Boolean;
DocNoForVATCorr@1360006 : Code[20];
BEGIN
WITH PurchHeader DO BEGIN
IsFinalInvoice := IsFinalVendInvoice(PurchLine);
IF IsFinalInvoice THEN
// End of the lines.
InvoicedAmount :=
...Kood 2
...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Delete the following line.
FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
UNTIL PurchLine.NEXT = 0;
...Asendamine kood 2
...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
// Add the following line.
IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
UNTIL PurchLine.NEXT = 0;
... -
Muuda koodi FullyDeductedVendPrepmt funktsioon "Purchace Post siseneb" koodiplokk (26586) järgmiselt:
Kood 1...// Delete the following line.
PROCEDURE FullyDeductedVendPrepmt@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
BEGIN
...Kood 1
...// Add the following line.
PROCEDURE IsFinalVendInvoice@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
BEGIN
...Kood 2
...SetPurchLineToPost(PurchLine);
// Delete the following line.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" <> PurchLine."Prepmt. Amt. Inv." THEN
EXIT(FALSE);
...Asendamine kood 2
...SetPurchLineToPost(PurchLine);
// Add the following line.
IF PurchLine."Qty. to Invoice" + PurchLine."Quantity Invoiced" <> PurchLine.Quantity THEN
EXIT(FALSE);
... -
Muuda koodi CollectFullyDeductedOrders funktsioon "Purchace Post siseneb" koodiplokk (26586) järgmiselt:
Kood 1...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
// Delete the following line.
FullyDeducted@1360004 : Boolean;
BEGIN
...Kood 1
...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
// Add the following line.
IsFinalInvoice@1360004 : Boolean;
BEGIN
...Kood 2
...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
// Delete the following lines.
FullyDeducted := FullyDeductedOrder.FIND;
IF NOT FullyDeducted THEN BEGIN
FullyDeducted := FullyDeductedVendPrepmt(PurchOrderLine);
IF FullyDeducted THEN
FullyDeductedOrder.INSERT;
END;
IF FullyDeducted THEN BEGIN
// End of the lines.
FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
...Asendamine kood 2
...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
// Add the following lines.
IsFinalInvoice := FullyDeductedOrder.FIND;
IF NOT IsFinalInvoice THEN BEGIN
IsFinalInvoice := IsFinalVendInvoice(PurchOrderLine);
IF IsFinalInvoice THEN
FullyDeductedOrder.INSERT;
END;
IF IsFinalInvoice THEN BEGIN
// End of the lines.
FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
...
Eeltingimused
Ungari versioonis Microsoft Dynamics nav-i 2009 R2 ettemaksed värskendus installitud 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 Kasutustingimused muid kaalutlusi.
