Dodaten vnos RG 23 A del II ali dodaten vnos RG 23 C del II se nepričakovano ustvari, ko knjižite račun za nakup v indijski različici servisnega paketa SP1 za Microsoft Dynamics NAV 2009

Velja za

Dynamics NAV 2009 Service Pack 1

Ta članek velja za Microsoft Dynamics NAV za področne nastavitve v indijskem jeziku.

Znaki

Razmislite o tem scenariju v indijski različici servisnega paketa SP1 za Microsoft Dynamics NAV 2009:

Ustvarite naročilnico, ki za izdelek uporablja tujo valuto.
Nakupu priložite strukturo, da izračunate CVD ali trošarino za izdelek.
Naročilnico knjižite kot potrdilo.
Ustvarjen je vnos RG 23 A del II.
Račun za nakup za naročilnico ustvarite s funkcijo pridobitve računa.
Knjižite račun za nakup.

V tem scenariju se nepričakovano ustvari dodaten vnos RG 23 A del II.
Poleg tega predpostavimo, da ustvarite drugo naročilnico za osnovno sredstvo ali za element, v katerem je potrjeno potrditveno polje Kapitalska postavka . V istem scenariju, ko knjižite ustrezen račun za nakup, ki je ustvarjen za naročilnico, se nepričakovano ustvari dodaten vnos RG 23 C del II.

Rešitev

Informacije o sprotnem popravku

Podprt sprotni popravek je zdaj na voljo pri Microsoftu. Vendar pa je namenjen le odpravljanju težave, ki je opisana v tem članku. Uporabite ga samo za sisteme, ki imajo to težavo. Ta sprotni popravek bo morda dodatno preučen. Če vas ta težava ne prizadene, priporočamo, da počakate na naslednji servisni paket za Microsoft Dynamics NAV ali naslednjo različico sistema Microsoft Dynamics NAV, ki vsebuje ta sprotni popravek.

Opomba V posebnih primerih se lahko stroški, ki običajno nastanejo za klice podpore, prekličejo, če strokovnjak za tehnično podporo za Microsoft Dynamics in sorodne izdelke ugotovi, da bo določena posodobitev odpravila vašo težavo. Običajni stroški podpore bodo veljali za dodatna vprašanja o podpori in težave, ki ne izpolnjujejo pogojev za določeno zadevno posodobitev.

Informacije o namestitvi

Microsoft ponuja primere programiranja samo za ponazoritev, brez izrecnega ali implicitnega jamstva. To vključuje, vendar ni omejeno na, implicitna jamstva primernosti za prodajo ali primernost za določen namen. V tem članku je predvideno, da ste seznanjeni s programskim jezikom, ki je prikazan, in z orodji, ki se uporabljajo za ustvarjanje in odpravljanje napak v postopkih. Microsoftovi inženirji za podporo vam lahko pomagajo razložiti funkcionalnost določenega postopka, vendar teh primerov ne bodo spremenili, da bi zagotovili dodano funkcionalnost ali ustvarili postopke, ki ustrezajo vašim posebnim zahtevam.

Opomba Preden namestite ta sprotni popravek, preverite, ali so vsi uporabniki odjemalca Microsoft Navision odjavljeni iz sistema. To vključuje uporabnike odjemalcev Microsoft Navision Application Services (NAS). Pri uvedbi tega sprotnega popravka bi morali biti edini uporabnik odjemalca, ki je prijavljen.

Če želite izvesti ta sprotni popravek, morate imeti licenco za razvijalce.

Priporočamo, da se uporabniškemu računu v oknu »Prijave v sistem Windows« ali v oknu »Prijave v zbirko podatkov« dodeli ID vloge »SUPER«. Če uporabniškemu računu ni mogoče dodeliti ID-ja vloge »SUPER«, morate preveriti, ali ima uporabniški račun ta dovoljenja:

Dovoljenje »Spremeni« za predmet, ki ga boste spremenili.
Dovoljenje za izvajanje za predmet ID sistemskega objekta 5210 in za predmet ID sistemskega objekta 9015.

Opomba Ni vam treba imeti pravic do shramb podatkov, razen če morate opraviti popravilo podatkov.

Spremembe kode

Opomba Popravke kode vedno preskusite v nadzorovanem okolju, preden jih uporabite v proizvodnih računalnikih.
Če želite odpraviti to težavo, sledite tem korakom:

Kodo v poljih v tabeli »Vrstica za nakup« (39) spremenite na naslednji način:
Obstoječa koda 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;
...

Nadomestna koda 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;
...

Obstoječa koda 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" }
...

Nadomestna koda 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" }
...

V tabelo »Vrstica nakupa« (39) dodajte novo globalno spremenljivko in nato določite spremenljivko, kot sledi:
- Ime: Text16510
- Podatkovni tip: TextConst
- Vrednost: ENU=RG register je že ustvarjen za potrdila. Da bi se spremembe odrazile v registrih RG, uporabite funkcijo ''Pridobi vrstice prejemka'' iz računa in nato objavite.

Kodo v funkciji UpdateStruOrdLineDetails v tabeli vrstice za nakup (39) spremenite na naslednji način:
Obstoječa koda

...
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');
...

Nadomestna koda

...
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');
...

Spremenite kodo v funkciji ShowSubOrderRcptForm v tabeli vrstice za nakup (39) na naslednji način:
Obstoječa koda

...
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.
}
}
...

Nadomestna koda

...
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;}
}
...

Spremenite tipke v tabeli RG 23 A del II (13720) na naslednji način:
Obstoječa koda

...
{ ;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;
...

Koda repalcementa

...
{ ;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;
...

Spremenite tipke v tabeli RG 23 C, del II (13722), kot sledi:
Obstoječa koda

...
{ ;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;
...

Nadomestna koda

...
{ ;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;
...

Dodajte novo lokalno spremenljivko v funkcijo CheckExciseInvoiceDiff v enoti kode Purch.-Post (90) in nato določite spremenljivko, kot sledi:
- Ime: PurchRcptHead
- DataType: Zapis
- Podtip: Purch. Rcpt. Glava (120)

Spremenite kodo v funkciji CheckExciseInvoiceDiff v kodni enoti Purch.-Post (90), kot sledi:
Obstoječa koda 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
...

Nadomestna koda 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
...

Obstoječa koda 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";
...

Nadomestna koda 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";
...

Obstoječa koda 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)
...

Nadomestna koda 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)
...

Obstoječa koda 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";
...

Nadomestna koda 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";

Spremenite kodo v funkciji InsertRG23APartIIPurchase v kodni enoti Trošarinski vstavek registrov RG (13701) na naslednji način:
Obstoječa koda

...
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" :=
...

Nadomestna koda

...
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" :=
...

Dodajte novo lokalno spremenljivko v funkcijo InsertRG23CPartIIPurchase v kodno enoto Trošarina vstavi registre RG (13701) in nato določite spremenljivko, kot sledi:
- Ime: TempRG23CPartII2
- Podatkovni tip: ZAČASNI zapis
- Podtip: RG 23 C II. del (13722)

Spremenite kodo v funkciji InsertRG23CPartIIPurchase v kodni enoti Trošarina vstavi registre RG (13701) na naslednji način:
Obstoječa koda

...
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":=
...

Nadomestna koda

...
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":=
...

Spremenite kodo v funkciji AdjustCrEntriesRG23A v kodni enoti Trošarinski vstavek RG registrov (13701) na naslednji način:
Obstoječa koda 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
...

Nadomestna koda 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
...

Obstoječa koda 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");
...

Nadomestna koda 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");
...

Spremenite kodo v funkciji AdjustCrEntriesRG23C v kodni enoti Trošarinski vstavek registrov RG (13701) na naslednji način:
Obstoječa koda 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
...

Nadomestna koda 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
...

Obstoječa koda 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");
...

Nadomestna koda 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");
...

Spremenite kodo v funkciji PostRegEntries v kodni enoti za upravljanje davka na storitve (16471) na naslednji način:
Obstoječa koda 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");
...

Nadomestna koda 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");
...

Obstoječa koda 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.");
...

Nadomestna koda 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.");
...

Pogoji

Če želite uporabiti ta sprotni popravek, morate imeti nameščeno indijsko različico servisnega paketa SP1 za Microsoft Dynamics NAV 2009.

Podatki o odstranitvi

Tega sprotnega popravka ne morete odstraniti.

Stanje

Microsoft je potrdil, da gre za težavo v Microsoftovih izdelkih, ki so navedeni v razdelku »Velja za«.

Opomba To je članek »FAST PUBLISH«, ustvarjen neposredno v Microsoftovi organizaciji za podporo. Informacije, ki jih vsebuje ta dokument, so na voljo kot odgovor na nastajajoča vprašanja. Zaradi hitrosti dajanja na voljo lahko gradivo vsebuje tipografske napake in jih je mogoče kadar koli brez predhodnega obvestila revidirati. Za druge pomisleke glejte Pogoje uporabe .

Dodaten vnos RG 23 A del II ali dodaten vnos RG 23 C del II se nepričakovano ustvari, ko knjižite račun za nakup v indijski različici servisnega paketa SP1 za Microsoft Dynamics NAV 2009

Znaki

Rešitev

Informacije o sprotnem popravku

Informacije o namestitvi

Spremembe kode

Pogoji

Podatki o odstranitvi

Stanje

Ali so bile te informacije uporabne?

Zahvaljujemo se vam za povratne informacije.