Grāmatojot rēķinu Microsoft Dynamics NAV spāņu versijā, intrastat žurnāla rinda ir nepareiza

Attiecas uz

Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Ātri publicētajos rakstos ir sniegta informācija tieši no Microsoft atbalsta organizācijas. Šeit ietvertā informācija tiek veidota, reaģējot uz jaunām vai unikālām tēmām vai ir paredzēta citas zināšanu bāzes informācijas papildināšanai.
Microsoft Business Solutions-Navision 4.0 un Microsoft Navision 4.0 tagad ir daļa no Microsoft Dynamics NAV 4.0. Visas atsauces uz Microsoft Business Solutions-Navision vai Microsoft Navision 4.0 attiecas uz Microsoft Dynamics NAV.

Šis raksts attiecas uz Microsoft Dynamics NAV 5.0 spāņu valodas (es) valodas lokalizācijai.

Pazīmes

Grāmatojot rēķinu, kuram ir krājuma rinda un krājuma maksājuma rinda Microsoft Dynamics NAV spāņu versijā, intrastat žurnāla rinda ir nepareiza. Šī problēma rodas, ja tiek izmantota rēķina atlaide un maksājuma atlaide.

Šī problēma rodas šādos produktos:

Microsoft Dynamics NAV 2009 spāņu valodas versija
Microsoft Dynamics NAV 5.0 spāņu valodas versija
Microsoft Dynamics NAV 4.0 spāņu valodas versija

Iemesls

Šī problēma rodas, jo Microsoft Dynamics NAV neņem vērā atlaidi krājuma izmaksā, kas tiek lietota krājuma rindai.

Risinājums

Informācija par labojumfailu

Atbalstīts labojumfails tagad ir pieejams no Microsoft. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Lietojiet to tikai sistēmām, kurās rodas šī konkrētā problēma. Šim labojumfailam var tikt veiktas papildu pārbaudes. Tāpēc, ja šī problēma jūs nopietni neietekmē, ieteicams gaidīt nākamo Microsoft Dynamics NAV servisa pakotni vai nākamo Microsoft Dynamics NAV versiju, kurā ir šis labojumfails.

Piezīme Īpašos gadījumos maksa, kas parasti tiek piemērota par atbalsta zvaniem, var tikt atcelta, ja Microsoft Dynamics un saistīto produktu tehniskā atbalsta speciālists nosaka, ka problēma tiks novērsta, instalējot noteiktu atjauninājumu. Parasti atbalsta izmaksas attiecas uz jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

Informācija par instalāciju

Microsoft sniedz programmēšanas piemērus tikai ilustrācijai, bez tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai piemērotībai noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt demonstrējamo programmēšanas valodu un rīkus, kas tiek izmantoti procedūru izveidei un atkļūdošanai. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētās procedūras funkcionalitāti, bet viņi šos piemērus nemodificēs, lai nodrošinātu papildu funkcionalitāti vai veidotu procedūras, kas atbilst jūsu specifiskajām prasībām.

Piezīme Pirms šī labojumfaila instalēšanas pārliecinieties, vai visi Microsoft Navision klienta lietotāji ir atteikušies no sistēmas. Tas ietver Microsoft Navision lietojumprogrammu pakalpojumu (NAS) klienta lietotājus. Jūs esat vienīgais klienta lietotājs, kurš ir pieteicies, ieviešot šo labojumfailu.

Lai ieviestu šo labojumfailu, ir nepieciešama izstrādātāja licence.

Iesakām lietotāja kontam logā Windows pieteikšanās vai datu bāzes pieteikšanās logā piešķirt lomas ID "SUPER". Ja lietotāja kontam nevar piešķirt "SUPER" lomas ID, jums ir jāpārbauda, vai lietotāja kontam ir šādas atļaujas:

Modificēt objektu, kuru mainīsit.
Izpildes atļauja sistēmas objekta ID 5210 un sistēmas objekta ID 9015.

Piezīme. Jums nav tiesību uz datu krātuvēm, ja vien jums nav jāveic datu labošana.

Koda izmaiņas

Piezīme Pirms labojumu lietošanas ražošanas datoros vienmēr pārbaudiet koda labojumus kontrolētā vidē.
Lai lietotu šo labojumfailu, veiciet tālāk norādītās darbības.

Mainiet kodu UpdateVATOnLines trigerī tabulā Pārdošanas rinda (37), rīkojoties šādi:
Esošais kods

...
        END;
        InitOutstanding;
        MODIFY;
        RecRef.GETTABLE(SalesLine);
...

Aizstāšanas kods

...
        END;
        InitOutstanding;

// Add the following lines.
        IF Type = Type::"Charge (Item)" THEN 
          UpdateItemChargeAssgnt; 
// End of the added lines.

        MODIFY;
        RecRef.GETTABLE(SalesLine);
...

Mainiet kodu UpdateVATOnLines trigerī pirkšanas rindas tabulā (39), kā norādīts tālāk.
Esošais kods

...
          UpdateUnitCost;
        END;
        MODIFY;
        RecRef.GETTABLE(PurchLine);
...

Aizstāšanas kods

...
          UpdateUnitCost;
        END;

// Add the following lines.
        IF Type = Type::"Charge (Item)" THEN  
          UpdateItemChargeAssgnt;
// End of the added lines.

        MODIFY;
        RecRef.GETTABLE(PurchLine);
...

Mainiet kodu trigerī InitValueEntry vienuma Jnl.-Post rindas kodmērībā (22) šādi:
Esošs kods 1

...
      IF GLSetup."Additional Reporting Currency" <> '' THEN
        ValueEntry."Cost per Unit (ACY)" := RetrieveCostPerUnitACY(ValueEntry."Cost per Unit");

// Delete the following lines.
      IF (ValueEntry."Valued Quantity" > 0) AND  
         (ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Purchase) AND
// End of the deleted lines.

         (ValueEntry."Entry Type" = ValueEntry."Entry Type"::"Direct Cost")
      THEN BEGIN
        IF Item."Costing Method" = Item."Costing Method"::Standard THEN
...

Nomaiņas kods 1

...
      IF GLSetup."Additional Reporting Currency" <> '' THEN
        ValueEntry."Cost per Unit (ACY)" := RetrieveCostPerUnitACY(ValueEntry."Cost per Unit");
// Add the following line.
      IF (ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Purchase) AND

         (ValueEntry."Entry Type" = ValueEntry."Entry Type"::"Direct Cost")
      THEN BEGIN
        IF Item."Costing Method" = Item."Costing Method"::Standard THEN
...

Esošs kods 2

...
          END;
        ValueEntry."Cost Amount (Actual)" := CostAmt;
        ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY;

// Delete the following lines.
        IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") THEN  
          IF (ValueEntry."Discount Amount" <> 0) AND (ItemJnlLine."Item Charge No." <> '') THEN BEGIN 
            ValueEntry."Cost Amount (Actual)" := ValueEntry."Cost Amount (Actual)" - "Discount Amount"; 
            ValueEntry."Purchase Amount (Actual)" := ValueEntry."Purchase Amount (Actual)" - "Discount Amount"; 
          END; 
// End of the deleted lines.

      END;
    (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE):
...

Nomaiņas kods 2

...
          END;
        ValueEntry."Cost Amount (Actual)" := CostAmt;
        ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY;

      END;
    (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE):
...

Esošais kods 3

...
          ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY;
        END;
      END;
  END;


  RoundAmtValueEntry(ValueEntry);
...

Nomaiņas kods 3

...
          ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY;
        END;
      END;
  END;

// Add the following lines.
  IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") THEN BEGIN
    IF (ValueEntry."Discount Amount" <> 0) AND (ItemJnlLine."Item Charge No." <> '') THEN BEGIN
      CASE "Entry Type" OF
        "Entry Type"::Sale: 
         ValueEntry."Sales Amount (Actual)" := ValueEntry."Sales Amount (Actual)" - ItemJnlLine."Pmt. Discount Amount";
        "Entry Type"::Purchase:
        BEGIN  
          ValueEntry."Cost Amount (Actual)" := CostAmt - ItemJnlLine."Pmt. Discount Amount"; 
          ValueEntry."Purchase Amount (Actual)" := ValueEntry."Purchase Amount (Actual)" - ItemJnlLine."Pmt. Discount Amount";
        END;
      END;
    END; 
  END;
// End of the added lines.

  RoundAmtValueEntry(ValueEntry);
...

Mainiet kodu PostItemChargePerOrder trigerī Sales-Post koda vienībā (80) šādi:
Esošais kods

...
  IF SalesHeader."Currency Code" <> '' THEN
    ItemJnlLine2."Discount Amount" := ROUND(
      CurrExchRate.ExchangeAmtFCYToLCY(
        UseDate,SalesHeader."Currency Code",

// Delete the following line.
        (ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") * 

         ItemJnlLine2."Invoiced Qty. (Base)" /
         ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign"  / QtyToInvoice,
         SalesHeader."Currency Factor"),GLSetup."Amount Rounding Precision")
  ELSE
    ItemJnlLine2."Discount Amount" := ROUND(

// Delete the following line.
      (ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") *

       ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
       GLSetup."Amount Rounding Precision");
// Delete the following lines.
  IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
    ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
// End of the added lines.

  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargeSalesLine."Shortcut Dimension 1 Code";
...

Aizstāšanas kods

...
  IF SalesHeader."Currency Code" <> '' THEN
    ItemJnlLine2."Discount Amount" := ROUND(
      CurrExchRate.ExchangeAmtFCYToLCY(
        UseDate,SalesHeader."Currency Code",

// Add the following lines.
        (ItemChargeSalesLine."Line Discount Amount" +
        ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") * 
// End of the added lines.

         ItemJnlLine2."Invoiced Qty. (Base)" /
         ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign"  / QtyToInvoice,
         SalesHeader."Currency Factor"),GLSetup."Amount Rounding Precision")
  ELSE
    ItemJnlLine2."Discount Amount" := ROUND(

// Add the following lines.
      (ItemChargeSalesLine."Line Discount Amount" +
      ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") *
// End of the added lines.

       ItemJnlLine2."Invoiced Qty. (Base)" /
       ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
       GLSetup."Amount Rounding Precision");
// Add the following lines.
    ItemJnlLine2."Pmt. Discount Amount" := ItemChargeSalesLine."Pmt. Disc. Given Amount" *  
      ItemJnlLine2."Invoiced Qty. (Base)" / ItemChargeSalesLine."Quantity (Base)" * 
        "Qty. to Assign"  / QtyToInvoice; 
    IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN 
      ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
      ItemJnlLine2."Pmt. Discount Amount" := -ItemJnlLine2."Pmt. Discount Amount";
    END;
// End of the added lines.

  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargeSalesLine."Shortcut Dimension 1 Code";
...

Mainiet kodu PostItemChargePerOrder trigerī Purch.-Post codeunit (90) šādi:
Esošais kods

...
      ItemChargePurchLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
      GLSetup."Amount Rounding Precision");


  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargePurchLine."Shortcut Dimension 1 Code";
  ItemJnlLine2."Shortcut Dimension 2 Code" := ItemChargePurchLine."Shortcut Dimension 2 Code";
...

Aizstāšanas kods

...
      ItemChargePurchLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
      GLSetup."Amount Rounding Precision");

// Add the following lines.
   ItemJnlLine2."Pmt. Discount Amount" := ItemChargePurchLine."Pmt. Disc. Rcd. Amount" * 
     ItemJnlLine2."Invoiced Qty. (Base)" / ItemChargePurchLine."Quantity (Base)" *
       "Qty. to Assign" / QtyToInvoice; 
   IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN
     ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
     ItemJnlLine2."Pmt. Discount Amount" := -ItemJnlLine2."Pmt. Discount Amount";
   END;
// End of the added lines.

  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargePurchLine."Shortcut Dimension 1 Code";
...

Priekšnosacījumi

Lai lietotu šo labojumfailu, ir jābūt instalētam vienam no šiem produktiem:

Microsoft Dynamics NAV 2009 1. servisa pakotnes spāņu valodas versija
Microsoft Dynamics NAV 2009 spāņu valodas versija
Microsoft Dynamics NAV 5.0 1. servisa pakotnes spāņu valodas versija
Microsoft Dynamics NAV 4.0 3. servisa pakotnes spāņu valodas versija

Noņemšanas informācija

Šo labojumfailu nevar noņemt.

Statuss

Microsoft apstiprināja, ka šī ir problēma Microsoft produktos, kas norādīti sadaļā "attiecas uz".

KORPORĀCIJA MICROSOFT UN/VAI TĀS PIEGĀDĀTĀJI NESNIEDZ NEKĀDUS APLIECINĀJUMUS VAI GARANTIJAS PAR DOKUMENTOS UN ŠAJĀ TĪMEKĻA VIETNĒ PUBLICĒTAJĀS AR TĀM SAISTĪTAJĀS GRAFIKĀS ("MATERIĀLI") IETVERTĀS INFORMĀCIJAS PIEMĒROTĪBU, UZTICAMĪBU VAI PRECIZITĀTI JEBKĀDIEM MĒRĶIEM.

MATERIĀLOS VAR BŪT TEHNISKAS NEPRECIZITĀTES VAI DRUKAS KĻŪDAS, UN TOS VAR PĀRSKATĪT JEBKURĀ LAIKĀ BEZ IEPRIEKŠĒJA BRĪDINĀJUMA. CIKTĀL TO PIEĻAUJ PIEMĒROJAMIE TIESĪBU AKTI, KORPORĀCIJA MICROSOFT UN/VAI TĀS PIEGĀDĀTĀJI ATTIECĪBĀ UZ MATERIĀLIEM ATSAKĀS NO JEBKĀDIEM TIEŠIEM, NETIEŠIEM VAI AR TIESĪBU AKTIEM NOTEIKTIEM APLIECINĀJUMIEM, GARANTIJĀM UN NOSACĪJUMIEM, TOSTARP, BET NE TIKAI, APLIECINĀJUMIEM, GARANTIJĀM VAI ĪPAŠUMTIESĪBĀM, TIESĪBU NEPĀRKĀPŠANU, APMIERINOŠU STĀVOKLI VAI KVALITĀTI, PIEMĒROTĪBU PĀRDOŠANAI UN PIEMĒROTĪBU NOTEIKTAM MĒRĶIM ATTIECĪBĀ UZ MATERIĀLIEM.

Grāmatojot rēķinu Microsoft Dynamics NAV spāņu versijā, intrastat žurnāla rinda ir nepareiza

Pazīmes

Iemesls

Risinājums

Informācija par labojumfailu

Informācija par instalāciju

Koda izmaiņas

Priekšnosacījumi

Noņemšanas informācija

Statuss

Vai šī informācija bija noderīga?

Paldies par atsauksmēm!