Toimitusmäärä voi olla enintään 0,9 -virhesanoma, kun lähetät ja laskutat myyntitilauksen, joka sisältää ennakkomaksut Microsoft Dynamics NAV 2009 R2:n Itä-Euroopan versiossa

Käytetään kohteeseen
Microsoft Dynamics NAV 2009 R2

Tämä artikkeli koskee Microsoft Dynamics NAV -kielialueen itäeurooppalaista kieliasetusta.

Ongelman ilmenemistapa

Oletetaan, että käytät hotfix-korjausta 2672643 Microsoft Dynamics NAV 2009 R2:n Itä-Euroopan versiossa. Ennakkokirje kirjataan ennakkomaksuja sisältävälle myyntitilaukselle. Tässä tilanteessa, kun toimitat ja laskutat myyntitilauksen, saat seuraavan virhesanoman:

Huomautus

Toimitusmäärä voi olla enintään 0,9. kohdassa Myyntirivin tiedostotyyppi='Tilaus',Tiedostonro.='Luku',Rivinro.='Luku'.

Siksi et voi kirjata myyntitilausta.
  Saat lisätietoja hotfix-korjauksen 2672643 napsauttamalla seuraavaa artikkelin numeroa, jotta voit tarkastella artikkelia Microsoft Knowledge Base -tietokanta -tietokannassa:

2672643 "Tilauksessa [numero]" on ei-kirjatut ennakkomaksusummat -virhesanoma, kun julkaiset osittaisen lähetyksen myyntitilaukselle Microsoft Dynamics NAV 2009 R2:n itäeurooppalaisessa versiossa

Ratkaisu

Hotfix-tiedot

Tuettu hotfix-korjaus on nyt saatavilla Microsoftilta. Sen tarkoituksena on kuitenkin korjata vain tässä artikkelissa kuvattu ongelma. Käytä sitä vain järjestelmissä, joissa on tämä ongelma. Tämä hotfix-korjaus voi saada lisätestejä. Jos ongelma ei siis vaikuta sinuun vakavasti, suosittelemme odottamaan seuraavaa Microsoft Dynamics NAV 2009 Service Pack -pakettia tai seuraavaa Microsoft Dynamics NAV -versiota, joka sisältää tämän hotfix-korjauksen.

Huomautus Erityistapauksissa tukipuheluista tavallisesti aiheutuvat maksut voidaan peruuttaa, jos Microsoft Dynamicsin ja siihen liittyvien tuotteiden teknisen tuen asiantuntija määrittää, että tietty päivitys ratkaisee ongelmasi. Tavanomaiset tukikustannukset koskevat muita tukikysymyksiä ja -ongelmia, jotka eivät ole oikeutettuja kyseiseen päivitykseen.

            
          

Asennustiedot

Microsoft tarjoaa ohjelmointiesimerkkejä vain havainnollistamista varten ilman ilmaistua tai oletettua takuuta. Tämä sisältää muun muassa oletetut takuut soveltuvuudesta kaupankäynnin kohteeksi tai sopivuudesta tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että tunnet ohjelmointikielen, jota esitellään, sekä työkalut, joita käytetään toimintosarjojen luomiseen ja virheenkorjaukseen. Microsoftin tukihenkilöt voivat auttaa selittämään tietyn toimintosarjan toiminnallisuuden. He eivät kuitenkaan muokkaa näitä esimerkkejä tarjotakseen lisätoimintoja tai luodakseen toimintosarjoja, jotka vastaavat tarpeitasi.

Huomautus Varmista ennen tämän hotfix-korjauksen asentamista, että kaikki Microsoft Dynamics NAV -asiakasohjelman käyttäjät ovat kirjautuneet ulos järjestelmästä. Tämä sisältää Microsoft Dynamics NAV -sovelluspalvelimen (NAS) palvelut. Sinun pitäisi olla ainoa asiakaskäyttäjä, joka on kirjautunut sisään, kun otat tämän hotfix-korjauksen käyttöön.

Jotta voit ottaa tämän hotfix-korjauksen käyttöön, sinulla on oltava kehittäjän käyttöoikeus.

Suosittelemme, että käyttäjätilille, joka on Windowsin kirjautumisikkunassa tai Tietokannan kirjautumiset -ikkunassa, määritetään "SUPER"-roolitunnus. Jos käyttäjätilille ei voi määrittää "SUPER"-roolitunnusta, sinun on varmistettava, että käyttäjätilillä on seuraavat käyttöoikeudet:

  • Muutettavan objektin Muokkaa-käyttöoikeus.
  • System Object ID 5210 -objektin ja System Object ID 9015 -objektin Suoritus-oikeus.

                
Huomautus Sinulla ei tarvitse olla oikeuksia tietosäilöihin, ellei sinun tarvitse korjata tietoja.

Koodin muutokset

Huomautus Testaa koodikorjaukset aina valvotussa ympäristössä, ennen kuin otat korjaukset käyttöön tuotantotietokoneissasi.
Voit ratkaista tämän ongelman seuraavasti:

  1. Muuta Prepmt Amt to Deduct - OnValidate trigger in the Sales Line (37) -taulukon koodi seuraavasti:
    Aiemmin luotu koodi

    ...
"Prepmt Amt to Deduct",
STRSUBSTNO(Text045,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Delete the following line. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

    Korvaava koodi

    ...
"Prepmt Amt to Deduct",
STRSUBSTNO(Text045,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Add the following lines. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the added lines. 
...

  2. Muuta CalcPrepaymentToDeduct-funktion koodia Myyntirivi-taulukossa (37) seuraavasti:

    1. Poista seuraavat paikalliset muuttujat:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection : Boolean;

    2. Muuta koodia seuraavasti:
      Aiemmin luotu koodi

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF SalesHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100 ,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the deleted lines.
...

      Korvaava koodi

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the added lines. 
...

  3. Luo uusi PrepmtAmtToDeduct-funktio Myyntirivi-taulukkoon (37) seuraavasti:

    PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

  4. Muuta Prepmt Amt to Deduct - OnValidate trigger in the "Purchase Line" -taulukon (39) koodi seuraavasti:
    Aiemmin luotu koodi

    ...
FIELDERROR(
"Prepmt Amt to Deduct",
STRSUBSTNO(Text039,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Delete the following line. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

    Korvaava koodi

    ...
FIELDERROR(
"Prepmt Amt to Deduct",
STRSUBSTNO(Text039,"Prepmt. Amt. Inv." - "Prepmt Amt Deducted"));

IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN

// Add the following lines. 
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the added lines. 
...

  5. Muuta CalcPrepaymentToDeduct-funktion koodia Ostorivi-taulukossa (39). Voit tehdä tämän seuraavasti:

    1. Poista seuraavat paikalliset muuttujat:

      PrepmtPct@ : Decimal;
AbsoluteAdvCorrection@ : Boolean;

    2. Muuta koodia seuraavasti:
      Aiemmin luotu koodi

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF PurchHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the deleted lines.
...

      Korvaava koodi

      ...
IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0
// End of the added lines. 
...

  6. Luo uusi PrepmtAmtToDeduct-funktio Ostorivi-taulukkoon (39) seuraavasti:

    PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

  7. Muuta OnRun-käynnistimen koodia Sales-Post-codeunit (80) -koodissa seuraavasti:
    Aiemmin luotu koodi

    ...
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date";
IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

    Korvaava koodi

    ...
ItemJnlRollRndg := FALSE;
LineCount := LineCount + 1;
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date";

// Add the following lines. 
IF Invoice THEN
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
TestPrepmtAmount;
// End of the added lines. 

IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

  8. Luo uusi TestPrepmtAmount-funktio Myynnin jälkeinen -pakkauksenhallintaan (80) seuraavasti:

    PROCEDURE TestPrepmtAmount@1470003();
VAR
AllowedQtyToShip@1470000 : Decimal;
SalesAdvLetterHeader@1470001 : Record 26585;
BEGIN
WITH SalesLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;
SalesAdvLetterHeader.SETRANGE("Order No.","Document No.");
IF NOT SalesAdvLetterHeader.ISEMPTY THEN BEGIN
AllowedQtyToShip :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Ship" > AllowedQtyToShip THEN
FIELDERROR("Qty. to Ship",STRSUBSTNO(Text047,AllowedQtyToShip));
END;
END;
END;

  9. Muuta Purch.-Post-pakkauksenhallintakoodin (90) OnRun-käynnistimen koodia seuraavasti:
    Aiemmin luotu koodi

    ...
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
PurchLine."VAT Date" := "VAT Date";
IF Invoice THEN
TestPrepmtAmount;
IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN
PurchLine.TESTFIELD(Amount);
PurchLine.TESTFIELD("Job No.",'');
END;
...

    Korvaava koodi

    ...
IF GUIALLOWED THEN
Window.UPDATE(2,LineCount);
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
PurchLine."VAT Date" := "VAT Date";
IF Invoice THEN

// Add the following line.
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN

TestPrepmtAmount;
IF PurchLine.Type = PurchLine.Type::"Charge (Item)" THEN BEGIN
PurchLine.TESTFIELD(Amount);
PurchLine.TESTFIELD("Job No.",'');
END;
...

  10. Poista TestPrepmtAmount-funktio ja luo se uudelleen Myynnin jälkeinen -pakkauksenhallintaan (80) seuraavasti:

    LOCAL PROCEDURE TestPrepmtAmount@55();
VAR
AllowedQtyToReceive@1470000 : Decimal;
PurchAdvLetterHeader@147001 : Record 26587;
BEGIN
WITH PurchLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;

PurchAdvLetterHeader.SETRANGE("Order No.","Document No.");
IF NOT PurchAdvLetterHeader.ISEMPTY THEN BEGIN
AllowedQtyToReceive :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Receive" > AllowedQtyToReceive THEN
FIELDERROR("Qty. to Receive",STRSUBSTNO(Text047,AllowedQtyToReceive));
END;
END;
END;

  11. Muuta TestSalesPrepayment-funktion koodia Hyväksynnän hallinta -pakkauksenhallinnassa (439) seuraavasti:
    Aiemmin luotu koodi

    ...
SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF SalesLines.FIND('-') THEN BEGIN
REPEAT
...

    Korvaava koodi

    ...
// Add the following lines.
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
EXIT(IsNotInvoicedSalesAdvLetter(SalesHeader."No."));
// End of the added lines. 

SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF SalesLines.FIND('-') THEN BEGIN
REPEAT
...

  12. Muuta TestPurchasePrepayment-funktion koodia Hyväksynnän hallinta -pakkauksenhallinnassa (439) seuraavasti:
    Aiemmin luotu koodi

    ...
PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF PurchaseLines.FIND('-') THEN BEGIN
REPEAT
...

    Korvaava koodi

    ...
// Add the following lines.
IF PurchaseHeader."Prepayment Type" = PurchaseHeader."Prepayment Type"::Advance THEN
EXIT(IsNotInvoicedPurchAdvLetter(PurchaseHeader."No."));
// End of the added lines. 

PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
IF PurchaseLines.FIND('-') THEN BEGIN
REPEAT
...

  13. Luo uusi IsNotInvoicedSalesAdvLetter local function in the "Approvals Management" codeunit (439) seuraavasti:

    LOCAL PROCEDURE IsNotInvoicedSalesAdvLetter@38(SalesOrderNo@1170000000 : Code[30]) : Boolean;
VAR
SalesAdvLetterHeader@1001 : Record 26585;
SalesAdvLetterLine@1002 : Record 26586;
BEGIN
WITH SalesAdvLetterHeader DO BEGIN
SETRANGE("Order No.",SalesOrderNo);
IF FIND('-') THEN
REPEAT
SalesAdvLetterLine.SETRANGE("Letter No.","No.");
IF SalesAdvLetterLine.FIND('-') THEN
REPEAT
IF SalesAdvLetterLine."Amount Including VAT" <> SalesAdvLetterLine."Amount Invoiced" THEN
EXIT(TRUE);
UNTIL SalesAdvLetterLine.NEXT = 0;
UNTIL NEXT = 0;
END;
END;

  14. Luo uusi IsNotInvoicedPurchAdvLetter local function in the "Approvals Management" codeunit (439) seuraavasti:

    LOCAL PROCEDURE IsNotInvoicedPurchAdvLetter@39(PurchOrderNo@1170000000 : Code[30]) : Boolean;
VAR
PurchAdvLetterHeader@1001 : Record 26587;
PurchAdvLetterLine@1002 : Record 26588;
BEGIN
WITH PurchAdvLetterHeader DO BEGIN
SETRANGE("Order No.",PurchOrderNo);
IF FIND('-') THEN
REPEAT
PurchAdvLetterLine.SETRANGE("Letter No.","No.");
IF PurchAdvLetterLine.FIND('-') THEN
REPEAT
IF PurchAdvLetterLine."Amount Including VAT" <> PurchAdvLetterLine."Amount Invoiced" THEN
EXIT(TRUE);
UNTIL PurchAdvLetterLine.NEXT = 0;
UNTIL NEXT = 0;
END;
END;

Edellytykset

Sinulla on oltava asennettuna Microsoft Dynamics NAV 2009 R2:n Itä-Euroopan versio, jotta voit käyttää tätä hotfix-korjausta.

Poistotiedot

Et voi poistaa tätä hotfix-korjausta.

Tila

Microsoft on vahvistanut tämän olevan ongelma niissä Microsoftin tuotteissa, jotka ovat listattuna Koskee seuraavia tuotteita -osiossa.

Huomautus Tämä on FAST PUBLISH -artikkeli, joka on luotu suoraan Microsoftin tukiorganisaatiosta. Tässä annetut tiedot annetaan sellaisenaan vastauksena uusiin ongelmiin. Koska materiaalit ovat nopeasti käytettävissä, ne voivat sisältää typografisia virheitä, ja niitä voidaan muuttaa milloin tahansa ilman ennakkoilmoitusta. Lisätietoja on ohjeaiheessa Käyttöehdot .