ערך נוסף RG 23 חלק II או ערך נוסף RG 23 C Part II נוצר באופן בלתי צפוי בעת פרסום חשבונית רכישה בגירסה ההודית של Microsoft Dynamics NAV 2009 Service Pack 1

חל על
Dynamics NAV 2009 Service Pack 1

מאמר זה חל על Microsoft Dynamics NAV עבור אזור השפה ההודית (ב).

סימפטומים

שקול את התרחיש הבא בגירסה ההודית של Microsoft Dynamics NAV 2009 Service Pack 1 (SP1):

  • אתה יוצר הזמנת רכש המשתמשת במטבע זר עבור פריט.
  • עליך לצרף מבנה לרכישה כדי לחשב את ה- CVD או להסיר אותו מהפריט.
  • פרסם את הזמנת הרכש כקבלה.
  • נוצר ערך RG 23 A Part II.
  • צור חשבונית רכישה עבור הזמנת הרכש באמצעות הפונקציונליות קבל קבלה.
  • פרסם את חשבונית הרכישה.

בתרחיש זה, ערך נוסף RG 23 A חלק II נוצר באופן בלתי צפוי.
בנוסף, נניח שאתה יוצר הזמנת רכש נוספת עבור נכס קבוע או עבור פריט שבו נבחרה תיבת הסימון פריט רישית. באותו תרחיש, בעת פרסום חשבונית הרכישה המתאימה שנוצר עבור הזמנת הרכש, ערך נוסף RG 23 C Part II נוצר באופן בלתי צפוי.

פתרון

מידע אודות תיקונים חמים

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. החל אותו רק על מערכות שנתקלות בבעיה ספציפית זו. תיקון חם זה עשוי לקבל בדיקות נוספות. לכן, אם אתה לא מושפע באופן חמור מבעיה זו, מומלץ להמתין ל- Service Pack הבא של Microsoft Dynamics NAV או לגירסת Microsoft Dynamics NAV הבאה המכילה תיקון חם זה.

הערה במקרים מיוחדים, חיובים שנצבורים בדרך כלל עבור שיחות תמיכה עשויים להבוטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים קובע שעדכון ספציפי יפתור את הבעיה. עלויות התמיכה הרגילות יחולו על שאלות ובעיות תמיכה נוספות שלא עומדות בדרישות לעדכון הספציפי הרלוונטי.

            
          

מידע התקנה

Microsoft מספקת דוגמאות תיכנות לאיור בלבד, ללא אחריות, מפורשת או משתמעת. הדבר כולל, אך אינו מוגבל לאחריות המשתמעת של סוחר או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התיכנות המודגמת, עם הכלים המשמשים ליצירת הליכים ולאתר באגים. מהנדסי התמיכה של Microsoft יכולים לעזור להסביר את הפונקציונליות של הליך מסוים, אך הם לא ישנו דוגמאות אלה כדי לספק פונקציונליות נוספת או לבנות הליכים שיסייעו לך לעמוד בדרישות הספציפיות שלך.

הערה לפני התקנת תיקון חם זה, ודא כי כל משתמשי לקוח Microsoft Navision נרשם המערכת. הדבר כולל משתמשי לקוח של Microsoft Navision Application Services (NAS). עליך להיות משתמש הלקוח היחיד שנכנס בעת יישום תיקון חם זה.

כדי ליישם תיקון חם זה, דרוש לך רשיון מפתח.

אנו ממליצים להקצות לחשבון המשתמש בחלון כניסות Windows או בחלון כניסות מסד נתונים את מזהה התפקיד "SUPER". אם אין אפשרות להקצות לחשבון המשתמש את מזהה התפקיד "SUPER", עליך לוודא שלחשבון המשתמש יש את ההרשאות הבאות:

  • ההרשאה Modify עבור האובייקט שאתה תשנה.
  • ההרשאה Execute עבור אובייקט System Object ID 5210 ולאובייקט System Object ID 9015.

                
הערה אין צורך להחזיק בזכויות על מאגרי הנתונים אלא אם עליך לבצע תיקון נתונים.

שינויי קוד

הערה בדוק תמיד את תיקוני הקוד בסביבה מבוקרת לפני החלת התיקונים על מחשבי הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:

  1. שנה את הקוד בשדות בטבלה קו רכישה (39) באופן הבא:
    קוד קיים 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;
...

    קוד חלופי 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;
...

    קוד קיים 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" }
...

    קוד חלופי 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" }
...

  2. הוסף משתנה כללי חדש בטבלה Purchase Line (39), ולאחר מכן ציין את המשתנה באופן הבא:

    • שם: טקסט16510
    • סוג נתונים: TextConst
    • ערך: רישום ENU=RG כבר נוצר עבור האישורים. כדי לבצע את השינויים המשקפים ברישום של RG, השתמש בפונקציונליות 'קבל שורות קבלה' מהחשבונית ולאחר מכן פרסם.

  3. שנה את הקוד בפונקציה UpdateStruOrdLineDetails בטבלה Purchase Line (39) באופן הבא:
    קוד קיים

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

    קוד חלופי

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

  4. שנה את הקוד בפונקציה ShowSubOrderRcptForm בטבלה Purchase Line (39) באופן הבא:
    קוד קיים

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

    קוד חלופי

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

  5. שנה את המפתחות בטבלה RG 23 A חלק II (13720) באופן הבא:
    קוד קיים

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

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

  6. שנה את המפתחות בטבלה RG 23 C חלק II (13722) באופן הבא:
    קוד קיים

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

    קוד חלופי

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

  7. הוסף משתנה מקומי חדש בפונקציה CheckExciseInvoiceDiff ב- Purch.-Post codeunit (90) ולאחר מכן ציין את המשתנה באופן הבא:

    • שם: PurchRcptHead
    • סוג נתונים: רשומה
    • סוג משנה: Purch. Rcpt. Header (120)

  8. שנה את הקוד בפונקציה CheckExciseInvoiceDiff ב- Purch.-Post codeunit (90) באופן הבא:
    קוד קיים 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
...

    קוד חלופי 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
...

    קוד קיים 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";
...

    קוד חלופי 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";
...

    קוד קיים 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)
...

    קוד חלופי 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)
...

    קוד קיים 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";
...

    קוד חלופי 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";

  9. שנה את הקוד בפונקציה InsertRG23APartIIPurchase ב- Codeunit של Excise Insert RG Registers (13701) באופן הבא:
    קוד קיים

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

    קוד חלופי

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

  10. הוסף משתנה מקומי חדש בפונקציה InsertRG23CPartIIPurchase ב- Excise Insert RG Registers codeunit (13701), ולאחר מכן ציין את המשתנה באופן הבא:

    • Name: TempRG23CPartII2
    • DataType: רשומה זמנית
    • סוג משנה: RG 23 C חלק II (13722)

  11. שנה את הקוד בפונקציה InsertRG23CPartIIPurchase ב- Excise Insert RG Registers codeunit (13701) באופן הבא:
    קוד קיים

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

    קוד חלופי

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

  12. שנה את הקוד בפונקציה AdjustCrEntriesRG23A ב- Codeunit של Excise Insert RG Registers (13701) באופן הבא:
    קוד קיים 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
...

    קוד חלופי 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
...

    קוד קיים 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");
...

    קוד חלופי 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");
...

  13. שנה את הקוד בפונקציה AdjustCrEntriesRG23C ב- Codeunit של Excise Insert RG Registers (13701) באופן הבא:
    קוד קיים 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
...

    קוד חלופי 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
...

    קוד קיים 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");
...

    קוד חלופי 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");
...

  14. שנה את הקוד בפונקציה PostRegEntries ב codeunit של ניהול מס שירות (16471) באופן הבא:
    קוד קיים 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");
...

    קוד חלופי 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");
...

    קוד קיים 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.");
...

    קוד חלופי 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.");
...

דרישות מוקדמות

עליך להתקין את הגירסה ההודית של Microsoft Dynamics NAV 2009 Service Pack 1 כדי להחיל תיקון חם זה.

מידע על הסרה

אין באפשרותך להסיר תיקון חם זה.

מצב

Microsoft אישרה שזוהי בעיה במוצרי Microsoft המפורטים בסעיף "חל על".

הערה זהו מאמר "FAST PUBLISH" שנוצר ישירות מתוך ארגון התמיכה של Microsoft. המידע הכלול ב- Herein מסופק כפי שהוא בתגובה לבעיות מתפתחות. כתוצאה מההפיכתה לזמינה, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיתוקנו בכל עת ללא הודעה מוקדמת. ראה תנאי שימוש לקבלת שיקולים אחרים.