Problem ->E.R. -1 Report in indian localization

kashok

process those i follow--> i created a shipment by warehouse then i am making invoice by get shipment line from function button by Order Processing.





When i posting sales invoice , E.R. -1 table field Order No.(posted sales invoice no.) and posting Date not updated.

So i unable to view report E.R. -1 by month because it is based on posting Date

---

MAY BE PROBLEM IN CODE UNIT 13701

[WITH SalesLine DO BEGIN
RT12.RESET;
RT12.LOCKTABLE;
IF RT12.FIND('+') THEN
NextRT12EntryNo := RT12."Entry No." + 1
ELSE
NextRT12EntryNo := 1;
RT12.INIT;
RT12."Entry No." := NextRT12EntryNo;
RT12."Item No." := "No.";
RT12."Product Description" := Description;
RT12."Excise Prod. Posting Group" := "Excise Prod. Posting Group";
RT12."Excise Bus. Posting Group" := "Excise Bus. Posting Group";
RT12."Location Code" := "Location Code";
IF "Location Code" <> '' THEN BEGIN
Location.GET("Location Code");
RT12."E.C.C No." := Location."E.C.C. No."
END ELSE BEGIN
CompanyInformation.GET;
RT12."E.C.C No." := CompanyInformation."E.C.C. No.";
END;
RT12.TESTFIELD("E.C.C No.");
RT12.Unit := "Unit of Measure Code";
IF "Qty. to Ship (Base)" <> 0 THEN BEGIN
RT12."Order No.":= SalesInvHeader."No.";
RT12."Posting Date":= SalesInvHeader."Posting Date";

IF NOT (SalesLine.Type IN [SalesLine.Type::"G/L Account",SalesLine.Type::"Charge (Item)"]) THEN BEGIN
IF "Amount Including Excise" - "Excise Base Amount" <> 0 THEN
RT12."Quantity Removed(with duty)" := -"Qty. to Ship (Base)"
ELSE
RT12."Quantity Removed(without duty)" := -"Qty. to Ship (Base)";
END;
END ELSE BEGIN
SalesCrMemoHeader.SETCURRENTKEY("Return Order No.");
SalesCrMemoHeader.SETFILTER("Return Order No.",ReturnRcptHeader."Return Order No.");
IF SalesCrMemoHeader.FINDFIRST THEN
RT12."Order No." := SalesCrMemoHeader."No.";
RT12."Posting Date":= ReturnRcptHeader."Posting Date";
IF NOT (SalesLine.Type IN [SalesLine.Type::"G/L Account",SalesLine.Type::"Charge (Item)"]) THEN BEGIN
IF "Amount Including Excise" - "Excise Base Amount" <> 0 THEN
RT12."Quantity Removed(with duty)" := "Return Qty. to Receive (Base)"
ELSE
RT12."Quantity Removed(without duty)" := "Return Qty. to Receive (Base)";
SalesCancellation := TRUE;
END;
END;]


Please help me !!!!!!!