Artikler som er raskt publisert, gir informasjon direkte fra Microsofts støtteorganisasjon. Informasjonen som finnes her, opprettes som svar på nye eller unike emner, eller er ment å supplere annen kunnskapsbaseinformasjon.
Microsoft Business Solutions-Navision 4.0 og Microsoft Navision 4.0 er nå en del av Microsoft Dynamics NAV 4.0. Alle referanser til Microsoft Business Solutions-Navision eller Microsoft Navision 4.0 er relatert til Microsoft Dynamics NAV.
Denne artikkelen gjelder for Microsoft Dynamics NAV 5.0 for de nasjonale innstillingene for spansk (e) språk.
Symptomer
Når du legger inn en faktura som har en varelinje og en varegebyrlinje i den spanske versjonen av Microsoft Dynamics NAV, er intrastatjournallinjen feil. Dette problemet oppstår hvis en fakturarabatt og en betalingsrabatt brukes.
Dette problemet oppstår i følgende produkter:
Den spanske versjonen av Microsoft Dynamics NAV 2009
Den spanske versjonen av Microsoft Dynamics NAV 5.0
Den spanske versjonen av Microsoft Dynamics NAV 4.0
Årsak
Dette problemet oppstår fordi Microsoft Dynamics NAV ikke vurderer rabatten i varegebyret som brukes på varelinjen.
Oppløsning
Hurtigreparasjonsinformasjon
En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å rette opp problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som opplever dette spesifikke problemet. Denne hurtigreparasjonen kan få ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på den neste Microsoft Dynamics NAV-oppdateringspakken eller den neste Microsoft Dynamics NAV-versjonen som inneholder denne hurtigreparasjonen.
Obs! I spesielle tilfeller kan kostnader som vanligvis påløper for støtteanrop, bli avbrutt hvis en technical support professional for Microsoft Dynamics og relaterte produkter bestemmer at en bestemt oppdatering vil løse problemet. De vanlige støttekostnadene gjelder for ytterligere støttespørsmål og problemer som ikke kvalifiserer for den aktuelle oppdateringen.
Installasjonsinformasjon
Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet for et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.
Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle Microsoft Navision-klientbrukere er logget av systemet. Dette inkluderer microsoft Navision Application Services (NAS)-klientbrukere. Du bør være den eneste klientbrukeren som er logget på når du implementerer denne hurtigreparasjonen.
Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.
Vi anbefaler at brukerkontoen i Windows-påloggingsvinduet eller i vinduet Pålogginger for database tilordnes rolle-ID-en SUPER. Hvis brukerkontoen ikke kan tilordnes rolle-IDen SUPER, må du kontrollere at brukerkontoen har følgende tillatelser:
- Endre-tillatelsen for objektet du skal endre.
- Execute-tillatelsen for Objektet System Object ID 5210 og systemobjekt-ID 9015-objektet.
Vær oppmerksom på at du ikke trenger å ha rettigheter til datalagrene med mindre du må utføre datareparasjon.
Kodeendringer
Obs! Test alltid kodeløsninger i et kontrollert miljø før du bruker løsningene på produksjonsdatamaskinene.
Følg disse trinnene for å bruke denne hurtigreparasjonen:
Endre koden i UpdateVATOnLines-utløseren i Salgslinje-tabellen (37) på følgende måte:
Eksisterende kode... END; InitOutstanding; MODIFY; RecRef.GETTABLE(SalesLine); ...Erstatningskode
... END; InitOutstanding; // Add the following lines. IF Type = Type::"Charge (Item)" THEN UpdateItemChargeAssgnt; // End of the added lines. MODIFY; RecRef.GETTABLE(SalesLine); ...Endre koden i UpdateVATOnLines-utløseren i Kjøpslinje-tabellen (39) på følgende måte:
Eksisterende kode... UpdateUnitCost; END; MODIFY; RecRef.GETTABLE(PurchLine); ...Erstatningskode
... UpdateUnitCost; END; // Add the following lines. IF Type = Type::"Charge (Item)" THEN UpdateItemChargeAssgnt; // End of the added lines. MODIFY; RecRef.GETTABLE(PurchLine); ...Endre koden i initValueEntry-utløseren i element-Jnl.-postlinjekodeenhet (22) på følgende måte:
Eksisterende kode 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 ...Erstatningskode 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 ...Eksisterende kode 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): ...Erstatningskode 2
... END; ValueEntry."Cost Amount (Actual)" := CostAmt; ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY; END; (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE): ...Eksisterende kode 3
... ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY; END; END; END; RoundAmtValueEntry(ValueEntry); ...Erstatningskode 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); ...Endre koden i utløseren PostItemChargePerOrder i Sales-Post kodeenhet (80) på følgende måte:
Eksisterende kode... 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"; ...Erstatningskode
... 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"; ...Endre koden i utløseren PostItemChargePerOrder i Purch.-Post codeunit (90) på følgende måte:
Eksisterende kode... 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"; ...Erstatningskode
... 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"; ...
Forutsetninger
Du må ha ett av følgende produkter installert for å bruke denne hurtigreparasjonen:
- Den spanske versjonen av Microsoft Dynamics NAV 2009 Service Pack 1
- Den spanske versjonen av Microsoft Dynamics NAV 2009
- Den spanske versjonen av Microsoft Dynamics NAV 5.0 Service Pack 1
- Den spanske versjonen av Microsoft Dynamics NAV 4.0 Service Pack 3
Informasjon om fjerning
Du kan ikke fjerne denne hurtigreparasjonen.
Status
Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen «Gjelder for».
MICROSOFT OG/ELLER DETS LEVERANDØRER GIR INGEN REPRESENTASJONER ELLER GARANTIER OM EGNETHETEN, PÅLITELIGHETEN ELLER NØYAKTIGHETEN TIL INFORMASJONEN SOM FINNES I DOKUMENTENE, OG DEN RELATERTE GRAFIKKEN SOM PUBLISERES PÅ DETTE NETTSTEDET ("MATERIALENE") TIL NOE FORMÅL.
MATERIALENE KAN INNEHOLDE TEKNISKE UNØYAKTIGHETER ELLER TYPOGRAFISKE FEIL OG KAN BLI REVIDERT NÅR SOM HELST UTEN VARSEL. I DEN GRAD DET ER TILLATT I HENHOLD TIL GJELDENDE LOV, FRASKRIVER MICROSOFT OG/ELLER DETS LEVERANDØRER SEG OG UTELUKKER ALLE REPRESENTASJONER, GARANTIER OG BETINGELSER, ENTEN DET ER UTTRYKKELIG, UNDERFORSTÅTT ELLER LOVFESTET, INKLUDERT, MEN IKKE BEGRENSET TIL REPRESENTASJONER, GARANTIER ELLER BETINGELSER FOR TITTEL, KRENKELSE AV IKKE-KRENKELSE, TILFREDSSTILLENDE BETINGELSE ELLER KVALITET, SALGBARHET OG EGNETHET TIL ET BESTEMT FORMÅL, MED HENSYN TIL MATERIALENE.