Copying Narration from customised table to G/L Entry table

lavanyaballurgi · 2012-07-24

Hello experts,

The requirement was to copy first 5 lines of Narration stored in "Posted Narration" table (customised table) to a new field created in "G/L entry" Table. The field in "Posted Narration" table correspond to G/L entry are "Document No. & Posting Date". Now I made a report with a button & made this code to run on button.
WITH lrc_glentry DO BEGIN

ltx_Narration := '';
lin_count := 0;
lrc_PostedNarration.SETCURRENTKEY("Document No.","Posting Date");
lrc_postednarration.SETRANGE("Document No.",lrc_glentry."Document No.");
lrc_postednarration.SETRANGE("Posting Date",lrc_glentry."Posting Date");

IF lrc_postednarration.FINDFIRST THEN
REPEAT
ltx_Narration := ltx_Narration + lrc_postednarration.Narration +'';
lin_count += 1;
UNTIL (lrc_postednarration.NEXT=0) OR (lin_count <= 5);

lrc_glentry.Narration := ltx_Narration;
lrc_glentry.MODIFY(FALSE);

END;

Now the error shows "G/L Entry Entry No. '0' does not exist"

What Am I missing?

mohana_cse06 · 2012-07-24

Where did you write code to get lrc_glentry record?

lavanyaballurgi · 2012-07-24

WITH lrc_glentry DO BEGIN.... will not work?/?
If so shall I make a report based on G/L Entry as dataitem instead of FOrm?

mohana_cse06 · 2012-07-24

You have to either get the g/l entry and repeat through all records or simply create report with g/l entry dataitem and write above code in OnAftergetrecord trigger..

lavanyaballurgi · 2012-07-24

what should I write to get all G/L entry?

IF lrc_glentry FINDFIRST THEN

END;

should work i guess???

mohana_cse06 · 2012-07-24

IF lrc_glentry FINDSET THEN
  REPEAT
  // your code
  UNTIL lrc_glentry.NEXT=0;

Please read some basic technical documents..

dans · 2012-07-24

better use FINDSET.

lavanyaballurgi wrote:

WITH lrc_glentry DO BEGIN.... will not work?

WITH Statement

lavanyaballurgi · 2012-07-24

Thanks... will read :-)

Copying Narration from customised table to G/L Entry table

Answers

Categories