En ekstra RG 23 A Part II-post eller en ekstra RG 23 C Del II-post oprettes uventet, når du bogfører en købsfaktura i den indiske version af Microsoft Dynamics NAV 2009 Service Pack 1

Gælder for

Dynamics NAV 2009 Service Pack 1

Denne artikel gælder for Microsoft Dynamics NAV for landestandarden for indisk (in) sprog.

Symptomer

Overvej følgende scenarie i den indiske version af Microsoft Dynamics NAV 2009 Service Pack 1 (SP1):

Du opretter en indkøbsordre, der bruger fremmed valuta til en vare.
Du knytter en struktur til købet for at beregne CVD'et eller forbrugsafgifterne på varen.
Du bogfører indkøbsordren som modtagelse.
En RG 23 A del II post er oprettet.
Du kan oprette en købsfaktura for indkøbsordren ved hjælp af funktionen hent modtagelse.
Du bogfører købsfakturaen.

I dette scenarie oprettes der uventet en yderligere RG 23 A Del II-post.
Antag desuden, at du opretter en anden indkøbsordre for et anlægsaktiv eller for en vare, hvor afkrydsningsfeltet Stort element er markeret. I samme scenarie oprettes der uventet en ekstra RG 23 C Del II-post, når du bogfører den tilsvarende købsfaktura, der er oprettet for indkøbsordren.

Løsning

Oplysninger om hotfix

Et understøttet hotfix er nu tilgængeligt fra Microsoft. Det er dog kun beregnet til at løse det problem, der er beskrevet i denne artikel. Anvend den kun på systemer, der oplever dette specifikke problem. Dette hotfix kan blive testet yderligere. Hvis du ikke er alvorligt berørt af dette problem, anbefaler vi derfor, at du venter på den næste Microsoft Dynamics NAV-servicepakke eller den næste Microsoft Dynamics NAV-version, der indeholder dette hotfix.

Bemærk! I særlige tilfælde kan gebyrer, der normalt påløber for supportopkald, blive annulleret, hvis en teknisk supportmedarbejder til Microsoft Dynamics og relaterede produkter afgør, at en bestemt opdatering løser dit problem. De sædvanlige supportomkostninger gælder for yderligere supportspørgsmål og -problemer, der ikke er kvalificeret til den pågældende opdatering.

Installationsoplysninger

Microsoft leverer kun programmeringseksempler til illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, underforståede garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du kender det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og foretage fejlfinding af procedurer. Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav.

Bemærk! Før du installerer dette hotfix, skal du kontrollere, at alle microsoft Navision-klientbrugere er logget af systemet. Dette omfatter klientbrugere af Microsoft Navision Application Services (NAS). Du bør være den eneste klientbruger, der er logget på, når du implementerer dette hotfix.

Hvis du vil implementere dette hotfix, skal du have en udviklerlicens.

Vi anbefaler, at brugerkontoen i vinduet Windows-logon eller i vinduet Databaselogon tildeles rolle-id'et "SUPER". Hvis brugerkontoen ikke kan tildeles rolle-id'et "SUPER", skal du kontrollere, at brugerkontoen har følgende tilladelser:

Tilladelsen Rediger for det objekt, du vil ændre.
Tilladelsen Execute for System Object ID 5210-objektet og for System Object ID 9015-objektet.

Bemærk! Du behøver ikke at have rettigheder til datalagrene, medmindre du skal udføre datareparation.

Kodeændringer

Bemærk! Test altid koderettelser i et kontrolleret miljø, før du anvender rettelserne på dine produktionscomputere.
Du kan løse dette problem ved at følge disse trin:

Rediger koden i felterne i tabellen Købslinje (39) på følgende måde:
Eksisterende kode 1

...
Currency."Amount Rounding Precision");
"Inv. Discount Amount" := 0;
"Inv. Disc. Amount to Invoice" := 0;
UpdateAmounts;
UpdateUnitCost;
END;

CaptionML=ENU=Line Discount %;
DecimalPlaces=0:5;
MinValue=0;
...

Erstatningskode 1

...
Currency."Amount Rounding Precision");
"Inv. Discount Amount" := 0;
"Inv. Disc. Amount to Invoice" := 0;
UpdateAmounts;
UpdateUnitCost;

// Add the following line.
 CheckExciseRegister;

END;

CaptionML=ENU=Line Discount %;
DecimalPlaces=0:5;
MinValue=0;
...

Eksisterende kode 2

...
"Line Discount %" := 0;
"Inv. Discount Amount" := 0;
"Inv. Disc. Amount to Invoice" := 0;
UpdateAmounts;
UpdateUnitCost;
END;

CaptionML=ENU=Line Discount Amount;
AutoFormatType=1;
AutoFormatExpr="Currency Code" }
...

Erstatningskode 2

...
"Line Discount %" := 0;
"Inv. Discount Amount" := 0;
"Inv. Disc. Amount to Invoice" := 0;
UpdateAmounts;
UpdateUnitCost;

// Add the following lines.
 GetPurchHeader;
 CheckExciseRegister;
// End of the lines.

END;

CaptionML=ENU=Line Discount Amount;
AutoFormatType=1;
AutoFormatExpr="Currency Code" }
...

Tilføj en ny global variabel i tabellen Købslinje (39), og angiv derefter variablen på følgende måde:
- Navn: Text16510
- DataType: TextConst
- Værdi: ENU=RG-register, der allerede er oprettet for tilgange. For at ændringerne kan afspejles i RG-registrene, skal du bruge funktionaliteten "Hent kvitteringslinjer" fra fakturaen og derefter bogføre.

Rediger koden i funktionen UpdateStruOrdLineDetails i tabellen Købslinje (39) på følgende måde:
Eksisterende kode

...
BEGIN
GetPurchHeader;
PurchHeader.TESTFIELD(Structure);
StructureDetail.SETRANGE(Code, PurchHeader.Structure);
StructureDetail.SETRANGE(Type,StructureDetail.Type::Excise);
IF StructureDetail.FIND('-') THEN BEGIN
StrOrderLineDetails.GET(StrOrderLineDetails.Type::Purchase,StructureDetail."Calculation Order",
"Document Type","Document No.","No.","Line No.",StructureDetail.Type,'','EXCISE');
...

Erstatningskode

...
BEGIN
GetPurchHeader;
PurchHeader.TESTFIELD(Structure);

// Add the following line.
 CheckExciseRegister;

StructureDetail.SETRANGE(Code, PurchHeader.Structure);
StructureDetail.SETRANGE(Type,StructureDetail.Type::Excise);
IF StructureDetail.FIND('-') THEN BEGIN
StrOrderLineDetails.GET(StrOrderLineDetails.Type::Purchase,StructureDetail."Calculation Order",
"Document Type","Document No.","No.","Line No.",StructureDetail.Type,'','EXCISE');
...

Rediger koden i funktionen ShowSubOrderRcptForm i tabellen Købslinje (39) på følgende måde:
Eksisterende kode

...
FORM.RUNMODAL(FORM::"Order Subcon Details Receipt",PurchaseLine)
ELSE
FORM.RUNMODAL(FORM::"Ord. Subcon Details Rcpt. List",PurchaseLine)
END;

// Delete the following line.
 BEGIN

END.
}
}
...

Erstatningskode

...
FORM.RUNMODAL(FORM::"Order Subcon Details Receipt",PurchaseLine)
ELSE
FORM.RUNMODAL(FORM::"Ord. Subcon Details Rcpt. List",PurchaseLine)
END;

// Add the following lines.
 PROCEDURE CheckExciseRegister@1102601000();
 BEGIN

 IF ((("Document Type" = "Document Type" ::"Return Order") OR ("Document Type" ="Document Type" ::Order)) AND
 ("Quantity Received" <> 0 ) AND ("Excise Amount" <> 0 ))
 THEN BEGIN
 IF NOT PurchHeader.Trading THEN
 IF ("Direct Unit Cost" <> xRec."Direct Unit Cost") OR ("Line Amount" <> xRec."Line Amount") OR
 ("Line Discount %" <> xRec."Line Discount %") OR ("Line Discount Amount" <> xRec."Line Discount Amount") OR
 ("BED Amount" <> xRec."BED Amount") OR ("AED(GSI) Amount" <> xRec."AED(GSI) Amount") OR
 ("SED Amount" <>xRec."SED Amount") OR ("SAED Amount" <> xRec."SAED Amount") OR
 ("CESS Amount" <> xRec."CESS Amount") OR ("NCCD Amount" <> xRec."NCCD Amount") OR
 ("eCess Amount" <> xRec."eCess Amount") OR ("ADET Amount" <> xRec."ADET Amount") OR
 ("ADE Amount"<> xRec."ADE Amount") OR ("SHE Cess Amount" <> xRec."SHE Cess Amount") OR
 ("AED(TTA) Amount" <> "AED(TTA) Amount")
 THEN
 ERROR(Text16510);
 END;
// End of the lines.

 END;}
}
...

Tasterne i RG 23 A Del II-tabellen (13720) ændres således:
Eksisterende kode

...
{ ;Entry No. ;Clustered=Yes }
{ ;Document No.,Posting Date }
{ ;Type }
{ ;Location E.C.C. No. ;SumIndexFields=BED Credit,AED(GSI) Credit,SED Credit,SAED Credit,NCCD Credit,eCess Credit,CESS Debit,ADC VAT Credit,SHE Cess Credit }
{ ;Posting Date,Location E.C.C. No.,Type }

// Delete the following line.
{ ;Excise as Service Tax Credit,Closed,Remaining Excise Amount,Location E.C.C. No. }

{ ;Location E.C.C. No.,Excise as Service Tax Credit;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Closed,Remaining Excise Amount,Excise as Service Tax Credit,Cenvat Cr. Receivable Account;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Excise as Service Tax Credit,Posting Date;
...

Repalcement-kode

...
{ ;Entry No. ;Clustered=Yes }
{ ;Document No.,Posting Date }
{ ;Type }
{ ;Location E.C.C. No. ;SumIndexFields=BED Credit,AED(GSI) Credit,SED Credit,SAED Credit,NCCD Credit,eCess Credit,CESS Debit,ADC VAT Credit,SHE Cess Credit }
{ ;Posting Date,Location E.C.C. No.,Type }

// Add the following line.
{ ;Excise as Service Tax Credit,Closed,Location E.C.C. No. }

{ ;Location E.C.C. No.,Excise as Service Tax Credit;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Closed,Remaining Excise Amount,Excise as Service Tax Credit,Cenvat Cr. Receivable Account;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Excise as Service Tax Credit,Posting Date;
...

Tasterne i RG 23 C Del II-tabellen (13722) ændres således:
Eksisterende kode

...
{ ;Entry No. ;Clustered=Yes }
{ ;Document No.,Posting Date }
{ ;Type }
{ ;Location E.C.C. No. ;SumIndexFields=BED Credit,AED(GSI) Credit,SED Credit,SAED Credit,CESS Credit,NCCD Credit,eCess Credit,SHE Cess Credit,ADC VAT Credit }
{ ;Posting Date,Location E.C.C. No.,Type }

// Delete the following line.
{ ;Excise as Service Tax Credit,Closed,Remaining Excise Amount,Location E.C.C. No. }

{ ;Location E.C.C. No.,Excise as Service Tax Credit;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Closed,Remaining Excise Amount,Excise as Service Tax Credit;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Excise as Service Tax Credit,Posting Date;
...

Erstatningskode

...
{ ;Entry No. ;Clustered=Yes }
{ ;Document No.,Posting Date }
{ ;Type }
{ ;Location E.C.C. No. ;SumIndexFields=BED Credit,AED(GSI) Credit,SED Credit,SAED Credit,CESS Credit,NCCD Credit,eCess Credit,SHE Cess Credit,ADC VAT Credit }
{ ;Posting Date,Location E.C.C. No.,Type }

// Add the following line.
{ ;Excise as Service Tax Credit,Closed,Location E.C.C. No. }

{ ;Location E.C.C. No.,Excise as Service Tax Credit;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Closed,Remaining Excise Amount,Excise as Service Tax Credit;
SumIndexFields=Remaining BED Credit,Remaining AED(GSI) Credit,Remaining SED Credit,Remaining SAED Credit,Remaining NCCD Credit,Remaining eCess Credit,Remaining ADET Credit,Remaining AED(TTA) Credit,Remaining ADE Credit,Remaining ADC VAT Credit,Remaining SHECess Credit }
{ ;Location E.C.C. No.,Excise as Service Tax Credit,Posting Date;
...

Tilføj en ny lokal variabel i funktionen CheckExciseInvoiceDiff i kodeenheden Purch.-Post (90), og angiv derefter variablen på følgende måde:
- Navn: PurchRcptHead
- DataType: Post
- Undertype: Købshoved (120)

Skift koden i funktionen CheckExciseInvoiceDiff i Purch.-Post codeunit (90) på følgende måde:
Eksisterende kode 1

...
EXIT;
IF ("Document Type" = "Document Type"::Invoice) AND ("Receipt No." = '') THEN
EXIT;
IF ("Document Type" = "Document Type"::"Credit Memo") AND ("Return Shipment No." = '') THEN
EXIT;

// Delete the following lines.
 IF (NOT (Type IN[2,3])) THEN
 EXIT;
// End of the lines.

TempPurchLine.INIT;
TempPurchLine.TRANSFERFIELDS(PurchLine);
TempPurchLine.INSERT;

IF ("Receipt No." <> '') THEN BEGIN
...

Erstatningskode 1

...
EXIT;
IF ("Document Type" = "Document Type"::Invoice) AND ("Receipt No." = '') THEN
EXIT;
IF ("Document Type" = "Document Type"::"Credit Memo") AND ("Return Shipment No." = '') THEN
EXIT;

// Add the following lines.
 IF (NOT (Type IN[1,2,3])) THEN
 EXIT;
// End of the lines.

TempPurchLine.INIT;
TempPurchLine.TRANSFERFIELDS(PurchLine);
TempPurchLine.INSERT;

IF ("Receipt No." <> '') THEN BEGIN
...

Eksisterende kode 2

...
TempPurchLine.INSERT;

IF ("Receipt No." <> '') THEN BEGIN
RcptHeader.GET("Receipt No.");
RcptLine.GET("Receipt No.","Receipt Line No.");
"BED Amount" -= RcptLine."BED Amount";
"ADET Amount" -= RcptLine."ADET Amount";
"ADE Amount" -= RcptLine."ADE Amount";
"AED(GSI) Amount" -= RcptLine."AED(GSI) Amount";
"AED(TTA) Amount" -= RcptLine."AED(TTA) Amount";
...

Erstatningskode 2

...
TempPurchLine.INSERT;

IF ("Receipt No." <> '') THEN BEGIN
RcptHeader.GET("Receipt No.");
RcptLine.GET("Receipt No.","Receipt Line No.");

// Add the following lines.
 IF RcptHeader."Currency Code" <> '' THEN BEGIN
 "BED Amount" := ("BED Amount" * RcptHeader."Currency Factor") - RcptLine."BED Amount";
 "ADET Amount" := ("ADET Amount" * RcptHeader."Currency Factor") - RcptLine."ADET Amount";
 "ADE Amount" := ("ADE Amount" * RcptHeader."Currency Factor") - RcptLine."ADE Amount";
 "AED(GSI) Amount" := ("AED(GSI) Amount" * RcptHeader."Currency Factor") - RcptLine."AED(GSI) Amount";
 "AED(TTA) Amount" := ("AED(TTA) Amount" * RcptHeader."Currency Factor") - RcptLine."AED(TTA) Amount";
 "CESS Amount" := ("CESS Amount" * RcptHeader."Currency Factor") - RcptLine."CESS Amount";
 "NCCD Amount" := ("NCCD Amount" * RcptHeader."Currency Factor") - RcptLine."NCCD Amount";
 "SAED Amount" := ("SAED Amount" * RcptHeader."Currency Factor") - RcptLine."SAED Amount";
 "SED Amount" := ("SED Amount" * RcptHeader."Currency Factor") - RcptLine."SED Amount";
 "eCess Amount" := ("eCess Amount" * RcptHeader."Currency Factor") - RcptLine."eCess Amount";
 "ADC VAT Amount" := ("ADC VAT Amount" * RcptHeader."Currency Factor") - RcptLine."ADC VAT Amount";
 "SHE Cess Amount" := ("SHE Cess Amount" * RcptHeader."Currency Factor") - RcptLine."SHE Cess Amount";
 "Custom eCess Amount" := ("Custom eCess Amount" * RcptHeader."Currency Factor") - RcptLine."Custom eCess Amount";
 "Custom SHECess Amount" := ("Custom SHECess Amount" * RcptHeader."Currency Factor") - RcptLine."Custom SHECess Amount";
 END ELSE BEGIN
// End of the lines.

"BED Amount" -= RcptLine."BED Amount";
"ADET Amount" -= RcptLine."ADET Amount";
"ADE Amount" -= RcptLine."ADE Amount";
"AED(GSI) Amount" -= RcptLine."AED(GSI) Amount";
"AED(TTA) Amount" -= RcptLine."AED(TTA) Amount";
...

Eksisterende kode 3

...
"eCess Amount" -= RcptLine."eCess Amount";
"ADC VAT Amount" -= RcptLine."ADC VAT Amount";
"SHE Cess Amount" -= RcptLine."SHE Cess Amount";
"Custom eCess Amount" -= RcptLine."Custom eCess Amount";
"Custom SHECess Amount" -= RcptLine."Custom SHECess Amount";

IF (("BED Amount" <> 0) OR ("ADET Amount" <> 0) OR ("AED(GSI) Amount" <> 0) OR ("AED(TTA) Amount" <> 0) OR
("CESS Amount" <> 0) OR("NCCD Amount" <> 0) OR ("SAED Amount" <> 0) OR ("SED Amount" <> 0) OR ("eCess Amount" <> 0) OR
("ADE Amount" <> 0) OR ("ADC VAT Amount" <> 0) OR ("SHE Cess Amount" <> 0) OR ("Custom eCess Amount" <> 0) OR
("Custom SHECess Amount" <> 0))
AND ("Excise Loading on Inventory" = FALSE)
...

Erstatningskode 3

...
"eCess Amount" -= RcptLine."eCess Amount";
"ADC VAT Amount" -= RcptLine."ADC VAT Amount";
"SHE Cess Amount" -= RcptLine."SHE Cess Amount";
"Custom eCess Amount" -= RcptLine."Custom eCess Amount";
"Custom SHECess Amount" -= RcptLine."Custom SHECess Amount";

// Add the following line.
 END;

IF (("BED Amount" <> 0) OR ("ADET Amount" <> 0) OR ("AED(GSI) Amount" <> 0) OR ("AED(TTA) Amount" <> 0) OR
("CESS Amount" <> 0) OR("NCCD Amount" <> 0) OR ("SAED Amount" <> 0) OR ("SED Amount" <> 0) OR ("eCess Amount" <> 0) OR
("ADE Amount" <> 0) OR ("ADC VAT Amount" <> 0) OR ("SHE Cess Amount" <> 0) OR ("Custom eCess Amount" <> 0) OR
("Custom SHECess Amount" <> 0))
AND ("Excise Loading on Inventory" = FALSE)
...

Eksisterende kode 4

...
THEN BEGIN
"Qty. to Receive (Base)" := RcptLine.Quantity;
"Line No." := RcptLine."Line No.";
IF (((Type = Type::Item) AND ("Capital Item" = TRUE)) OR (Type = Type::"Fixed Asset")) THEN
ExciseInsertRGRegister.InsertRG23CPartIIPurchase(PurchLine,RcptHeader,ReturnShptHeader,TRUE)

// Delete the following lines.
 ELSE
 ExciseInsertRGRegister.InsertRG23APartIIPurchase(PurchLine,RcptHeader,ReturnShptHeader,TRUE);
// End of the lines.

RcptLine."BED Amount" := TempPurchLine."BED Amount";
RcptLine."ADET Amount" := TempPurchLine."ADET Amount";
RcptLine."ADE Amount" := TempPurchLine."ADE Amount";
RcptLine."AED(GSI) Amount" := TempPurchLine."AED(GSI) Amount";
RcptLine."AED(TTA) Amount" := TempPurchLine."AED(TTA) Amount";
...

Erstatningskode 4

...
THEN BEGIN
"Qty. to Receive (Base)" := RcptLine.Quantity;
"Line No." := RcptLine."Line No.";
IF (((Type = Type::Item) AND ("Capital Item" = TRUE)) OR (Type = Type::"Fixed Asset")) THEN
ExciseInsertRGRegister.InsertRG23CPartIIPurchase(PurchLine,RcptHeader,ReturnShptHeader,TRUE)

// Add the following lines.
 ELSE BEGIN
 IF (PurchLine."Receipt No." <> '') AND (PurchHeader."Currency Code" <> '') THEN BEGIN
 PurchRcptHead.GET(PurchLine."Receipt No.");
 IF PurchRcptHead."Currency Code" <> '' THEN
 ExciseInsertRGRegister.InsertRG23APartIIPurchase(PurchLine,RcptHeader,ReturnShptHeader,TRUE);
 END ELSE
 ExciseInsertRGRegister.InsertRG23APartIIPurchase(PurchLine,RcptHeader,ReturnShptHeader,TRUE);
 END;
// End of the lines.

RcptLine."BED Amount" := TempPurchLine."BED Amount";
RcptLine."ADET Amount" := TempPurchLine."ADET Amount";
RcptLine."ADE Amount" := TempPurchLine."ADE Amount";
RcptLine."AED(GSI) Amount" := TempPurchLine."AED(GSI) Amount";
RcptLine."AED(TTA) Amount" := TempPurchLine."AED(TTA) Amount";

Du kan ændre koden i funktionen InsertRG23APartIIPurchase i codeunit (13701) For punktafgiftsindsætningsregistre (13701) på følgende måde:
Eksisterende kode

...
RG23APartII."Remaining Excise Amount" := RG23APartII."Remaining BED Credit" + RG23APartII."Remaining AED(GSI) Credit" +
RG23APartII."Remaining SED Credit" + RG23APartII."Remaining SAED Credit" + RG23APartII."Remaining NCCD Credit" +
RG23APartII."Remaining eCess Credit" + RG23APartII."Remaining ADET Credit" + RG23APartII."Remaining AED(TTA) Credit" +
RG23APartII."Remaining ADE Credit" + RG23APartII."Remaining ADC VAT Credit" +
RG23APartII."Remaining SHECess Credit";

END ELSE BEGIN
RG23APartII."Posting Date" := ReturnShptHeader."Posting Date";
RG23APartII."Document No." := ReturnShptHeader."No.";
IF NOT ExciseDifference THEN BEGIN
RG23APartII."BED Debit" :=
...

Erstatningskode

...
RG23APartII."Remaining Excise Amount" := RG23APartII."Remaining BED Credit" + RG23APartII."Remaining AED(GSI) Credit" +
RG23APartII."Remaining SED Credit" + RG23APartII."Remaining SAED Credit" + RG23APartII."Remaining NCCD Credit" +
RG23APartII."Remaining eCess Credit" + RG23APartII."Remaining ADET Credit" + RG23APartII."Remaining AED(TTA) Credit" +
RG23APartII."Remaining ADE Credit" + RG23APartII."Remaining ADC VAT Credit" +
RG23APartII."Remaining SHECess Credit";

// Add the following lines.
 IF ExciseDifference THEN
 AdjustCrEntriesRG23A(RG23APartII);
// End of the lines.

END ELSE BEGIN
RG23APartII."Posting Date" := ReturnShptHeader."Posting Date";
RG23APartII."Document No." := ReturnShptHeader."No.";
IF NOT ExciseDifference THEN BEGIN
RG23APartII."BED Debit" :=
...

Tilføj en ny lokal variabel i funktionen InsertRG23CPartIIPurchase i codeunit for RG-registre (13701), og angiv derefter variablen på følgende måde:
- Navn: TempRG23CPartII2
- DataType: TEMPORARY Record
- Undertype: RG 23 C Del II (13722)

Du kan ændre koden i funktionen InsertRG23CPartIIPurchase i codeunit (13701) for Punktafgiftsindsættelsesregistre (13701) på følgende måde:
Eksisterende kode

...
RG23CPartII."Remaining Excise Amount" := RG23CPartII."Remaining BED Credit" + RG23CPartII."Remaining AED(GSI) Credit" +
RG23CPartII."Remaining SED Credit" + RG23CPartII."Remaining SAED Credit" + RG23CPartII."Remaining NCCD Credit" +
RG23CPartII."Remaining eCess Credit" + RG23CPartII."Remaining ADET Credit" + RG23CPartII."Remaining AED(TTA) Credit" +
RG23CPartII."Remaining ADE Credit" + RG23CPartII."Remaining ADC VAT Credit" +
RG23CPartII."Remaining SHECess Credit";

END ELSE BEGIN
RG23CPartII."Posting Date" := ReturnShptHeader."Posting Date";
RG23CPartII."Document No." := ReturnShptHeader."No.";
IF NOT ExciseDifference THEN BEGIN
RG23CPartII."BED Debit":=
...

Erstatningskode

...
RG23CPartII."Remaining Excise Amount" := RG23CPartII."Remaining BED Credit" + RG23CPartII."Remaining AED(GSI) Credit" +
RG23CPartII."Remaining SED Credit" + RG23CPartII."Remaining SAED Credit" + RG23CPartII."Remaining NCCD Credit" +
RG23CPartII."Remaining eCess Credit" + RG23CPartII."Remaining ADET Credit" + RG23CPartII."Remaining AED(TTA) Credit" +
RG23CPartII."Remaining ADE Credit" + RG23CPartII."Remaining ADC VAT Credit" +
RG23CPartII."Remaining SHECess Credit";

// Add the following lines.
 IF ExciseDifference THEN BEGIN
 TempRG23CPartII2.INIT;
 TempRG23CPartII2.TRANSFERFIELDS(RG23CPartII);
 TempRG23CPartII2."BED Debit" := ROUND(TempRG23CPartII2."BED Debit" * 0.5);
 TempRG23CPartII2."AED(GSI) Debit" := ROUND(TempRG23CPartII2."AED(GSI) Debit" * 0.5);
 TempRG23CPartII2."SAED Debit" := ROUND(TempRG23CPartII2."SAED Debit" * 0.5);
 TempRG23CPartII2."NCCD Debit" := ROUND(TempRG23CPartII2."NCCD Debit" * 0.5);
 TempRG23CPartII2."eCess Debit" := ROUND(TempRG23CPartII2."eCess Debit" * 0.5);
 TempRG23CPartII2."SED Debit" := ROUND(TempRG23CPartII2."SED Debit" * 0.5);
 TempRG23CPartII2."ADET Debit" := ROUND(TempRG23CPartII2."ADET Debit" * 0.5);
 TempRG23CPartII2."AED(TTA) Debit" := ROUND(TempRG23CPartII2."AED(TTA) Debit" * 0.5);
 TempRG23CPartII2."ADE Debit":= ROUND(TempRG23CPartII2."ADE Debit" * 0.5);
 TempRG23CPartII2."SHE Cess Debit" := ROUND(TempRG23CPartII2."SHE Cess Debit" * 0.5);
 TempRG23CPartII2."ADC VAT Debit" := ROUND(TempRG23CPartII2."ADC VAT Debit" * 0.5);
 AdjustCrEntriesRG23C(TempRG23CPartII2);
 END;
// End of the lines.

END ELSE BEGIN
RG23CPartII."Posting Date" := ReturnShptHeader."Posting Date";
RG23CPartII."Document No." := ReturnShptHeader."No.";
IF NOT ExciseDifference THEN BEGIN
RG23CPartII."BED Debit":=
...

Du kan ændre koden i funktionen AdjustCrEntriesRG23A i codeunit for RG-registre (13701) på følgende måde:
Eksisterende kode 1

...
BEGIN
WITH RG23APartII2 DO BEGIN
RG23APartII3.RESET;

// Delete the following line.
RG23APartII3.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Remaining Excise Amount","Location E.C.C. No.");

IF "Excise Credit Availed as ST" THEN BEGIN
RG23APartII3.SETRANGE("Excise as Service Tax Credit",TRUE);
NextEntryNo := 0;
ExciseAsSTUtilisation2.RESET;
IF ExciseAsSTUtilisation2.FINDLAST THEN
...

Erstatningskode 1

...
BEGIN
WITH RG23APartII2 DO BEGIN
RG23APartII3.RESET;

// Add the following line.
 RG23APartII3.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Location E.C.C. No.");

IF "Excise Credit Availed as ST" THEN BEGIN
RG23APartII3.SETRANGE("Excise as Service Tax Credit",TRUE);
NextEntryNo := 0;
ExciseAsSTUtilisation2.RESET;
IF ExciseAsSTUtilisation2.FINDLAST THEN
...

Eksisterende kode 2

...
IF ExciseAsSTUtilisation2.FINDLAST THEN
NextEntryNo := ExciseAsSTUtilisation2."Entry No.";
END;

RG23APartII3.SETRANGE(Closed,FALSE);

// Delete the following line.
RG23APartII3.SETFILTER("Remaining Excise Amount",'>%1',0);

RG23APartII3.SETRANGE("Location E.C.C. No.","Location E.C.C. No.");
IF RG23APartII3.FINDSET THEN
REPEAT
RG23APartII4 := RG23APartII3;
CompareAmt(RG23APartII4."Remaining BED Credit","BED Debit",RG23APartII4."Remaining Excise Amount");
...

Erstatningskode 2

...
IF ExciseAsSTUtilisation2.FINDLAST THEN
NextEntryNo := ExciseAsSTUtilisation2."Entry No.";
END;

RG23APartII3.SETRANGE(Closed,FALSE);

RG23APartII3.SETRANGE("Location E.C.C. No.","Location E.C.C. No.");
IF RG23APartII3.FINDSET THEN
REPEAT
RG23APartII4 := RG23APartII3;
CompareAmt(RG23APartII4."Remaining BED Credit","BED Debit",RG23APartII4."Remaining Excise Amount");
...

Du kan ændre koden i funktionen AdjustCrEntriesRG23C i codeunit for RG-registre (13701) som følger:
Eksisterende kode 1

...
BEGIN
WITH RG23CPartII2 DO BEGIN
RG23CPartII3.RESET;

// Delete the following line.
RG23CPartII3.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Remaining Excise Amount","Location E.C.C. No.");

IF "Excise Credit Availed as ST" THEN BEGIN
RG23CPartII3.SETRANGE("Excise as Service Tax Credit",TRUE);
NextEntryNo := 0;
ExciseAsSTUtilisation2.RESET;
IF ExciseAsSTUtilisation2.FINDLAST THEN
...

Erstatningskode 1

...
BEGIN
WITH RG23CPartII2 DO BEGIN
RG23CPartII3.RESET;

// Add the following line.
RG23CPartII3.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Location E.C.C. No.");

IF "Excise Credit Availed as ST" THEN BEGIN
RG23CPartII3.SETRANGE("Excise as Service Tax Credit",TRUE);
NextEntryNo := 0;
ExciseAsSTUtilisation2.RESET;
IF ExciseAsSTUtilisation2.FINDLAST THEN
...

Eksisterende kode 2

...
ExciseAsSTUtilisation2.RESET;
IF ExciseAsSTUtilisation2.FINDLAST THEN
NextEntryNo := ExciseAsSTUtilisation2."Entry No.";
END;
RG23CPartII3.SETRANGE(Closed,FALSE);

// Delete the following line.
RG23CPartII3.SETFILTER("Remaining Excise Amount",'>%1',0);

RG23CPartII3.SETRANGE("Location E.C.C. No.","Location E.C.C. No.");
IF RG23CPartII3.FINDSET THEN
REPEAT
RG23CPartII4 := RG23CPartII3;
CompareAmt(RG23CPartII4."Remaining BED Credit","BED Debit",RG23CPartII4."Remaining Excise Amount");
...

Erstatningskode 2

...
ExciseAsSTUtilisation2.RESET;
IF ExciseAsSTUtilisation2.FINDLAST THEN
NextEntryNo := ExciseAsSTUtilisation2."Entry No.";
END;
RG23CPartII3.SETRANGE(Closed,FALSE);

RG23CPartII3.SETRANGE("Location E.C.C. No.","Location E.C.C. No.");
IF RG23CPartII3.FINDSET THEN
REPEAT
RG23CPartII4 := RG23CPartII3;
CompareAmt(RG23CPartII4."Remaining BED Credit","BED Debit",RG23CPartII4."Remaining Excise Amount");
...

Skift koden i funktionen PostRegEntries i codeunit (16471) for Service Tax Management (16471) på følgende måde:
Eksisterende kode 1

...
GenJnlLine.RESET;
GenJnlLine.SETRANGE("Document No.",DocNo);
IF GenJnlLine.FINDFIRST THEN BEGIN
CheckAvailableRGCredit(GenJnlLine);;
RG23APartII.RESET;

// Delete the following lines.
RG23APartII.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Remaining Excise Amount","Location E.C.C. No.");
RG23APartII.SETRANGE("Excise as Service Tax Credit",TRUE);
RG23APartII.SETRANGE(Closed,FALSE);
RG23APartII.SETFILTER("Remaining Excise Amount",'>%1',0);
// End of the lines.

RG23APartII.SETRANGE("Location E.C.C. No.",GenJnlLine."E.C.C. No.");
IF RG23APartII.FINDFIRST THEN BEGIN
GenJnlLine."Excise Bus. Posting Group" := RG23APartII."Excise Bus. Posting Group";
GenJnlLine."Excise Prod. Posting Group" := RG23APartII."Excise Prod. Posting Group";
GenJnlLine.VALIDATE("Account No.",RG23APartII."Cenvat Cr. Receivable Account");
...

Erstatningskode 1

...
GenJnlLine.RESET;
GenJnlLine.SETRANGE("Document No.",DocNo);
IF GenJnlLine.FINDFIRST THEN BEGIN
CheckAvailableRGCredit(GenJnlLine);;
RG23APartII.RESET;

// Add the following lines.
RG23APartII.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Location E.C.C. No.");
RG23APartII.SETRANGE("Excise as Service Tax Credit",TRUE);
RG23APartII.SETRANGE(Closed,FALSE);
// End of the lines.

RG23APartII.SETRANGE("Location E.C.C. No.",GenJnlLine."E.C.C. No.");
IF RG23APartII.FINDFIRST THEN BEGIN
GenJnlLine."Excise Bus. Posting Group" := RG23APartII."Excise Bus. Posting Group";
GenJnlLine."Excise Prod. Posting Group" := RG23APartII."Excise Prod. Posting Group";
GenJnlLine.VALIDATE("Account No.",RG23APartII."Cenvat Cr. Receivable Account");
...

Eksisterende kode 2

...
GenJnlLine."Excise Bus. Posting Group" := RG23APartII."Excise Bus. Posting Group";
GenJnlLine."Excise Prod. Posting Group" := RG23APartII."Excise Prod. Posting Group";
GenJnlLine.VALIDATE("Account No.",RG23APartII."Cenvat Cr. Receivable Account");
END ELSE BEGIN
RG23CPartII.RESET;

// Delete the following lines.
RG23CPartII.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Remaining Excise Amount","Location E.C.C. No.");
RG23CPartII.SETRANGE("Excise as Service Tax Credit",TRUE);
RG23CPartII.SETRANGE(Closed,FALSE);
RG23CPartII.SETFILTER("Remaining Excise Amount",'>%1',0);
// End of the lines.

RG23CPartII.SETRANGE("Location E.C.C. No.",GenJnlLine."E.C.C. No.");
IF RG23CPartII.FINDFIRST THEN BEGIN
GenJnlLine."Excise Bus. Posting Group" := RG23CPartII."Excise Bus. Posting Group";
GenJnlLine."Excise Prod. Posting Group" := RG23CPartII."Excise Prod. Posting Group";
GenJnlLine.VALIDATE("Account No.",RG23CPartII."Cenvat Cr. Receivable Acc.");
...

Erstatningskode 2

...
GenJnlLine."Excise Bus. Posting Group" := RG23APartII."Excise Bus. Posting Group";
GenJnlLine."Excise Prod. Posting Group" := RG23APartII."Excise Prod. Posting Group";
GenJnlLine.VALIDATE("Account No.",RG23APartII."Cenvat Cr. Receivable Account");
END ELSE BEGIN
RG23CPartII.RESET;

// Add the following lines.
RG23CPartII.SETCURRENTKEY("Excise as Service Tax Credit",Closed,"Location E.C.C. No.");
RG23CPartII.SETRANGE("Excise as Service Tax Credit",TRUE);
RG23CPartII.SETRANGE(Closed,FALSE);
// End of the lines.

RG23CPartII.SETRANGE("Location E.C.C. No.",GenJnlLine."E.C.C. No.");
IF RG23CPartII.FINDFIRST THEN BEGIN
GenJnlLine."Excise Bus. Posting Group" := RG23CPartII."Excise Bus. Posting Group";
GenJnlLine."Excise Prod. Posting Group" := RG23CPartII."Excise Prod. Posting Group";
GenJnlLine.VALIDATE("Account No.",RG23CPartII."Cenvat Cr. Receivable Acc.");
...

Forudsætninger

Du skal have den indiske version af Microsoft Dynamics NAV 2009 Service Pack 1 installeret for at anvende dette hotfix.

Oplysninger om fjernelse

Du kan ikke fjerne dette hotfix.

Status

Microsoft har bekræftet, at dette er et problem i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".

Bemærk! Dette er en "FAST PUBLISH"-artikel, der er oprettet direkte fra Microsoft-supportorganisationen. Oplysningerne heri leveres, som de er som svar på nye problemer. Som følge af den hastighed, der er ved at stille den til rådighed, kan materialerne indeholde typografiske fejl og kan til enhver tid revideres uden varsel. Se Vilkår for anvendelse for andre overvejelser.

En ekstra RG 23 A Part II-post eller en ekstra RG 23 C Del II-post oprettes uventet, når du bogfører en købsfaktura i den indiske version af Microsoft Dynamics NAV 2009 Service Pack 1

Symptomer

Løsning

Oplysninger om hotfix

Installationsoplysninger

Kodeændringer

Forudsætninger

Oplysninger om fjernelse

Status

Var disse oplysninger nyttige?

Tak for din feedback!