Insert Record

(0) Share

Report

Posted on by jsshivalik

3,027

I have Main Form (Location) & SaleDeposit SubForm (Source table is SaleDepositLines) . I have 1 Button . On Push Trigger of Button

I want those lines which have ReceiptAmount > 0 should be inserted in same table SaleDepositLines. I am trying below code but not working

CDLine refers to the same table which Subform refers to

CDLine.RESET;
CDLine.SETRANGE("Location.","No.");
CDLine.SETFILTER("receipt Amount",'<>%1',0);
IF CDLine.FINDFIRST THEN BEGIN
REPEAT
CDLine.INIT;
EntryNo := EntryNo + 1;
CDLine.VALIDATE("Entry No.",EntryNo);
CDLine.VALIDATE("Location","No.");
CDLine.VALIDATE("Posted Amount", CDLine."Receipt Amount");
CDLine.INSERT;
UNTIL CDLine.NEXT = 0;
END;

Thanks

*This post is locked for comments

All responses (1)

Answers (1)

Verified answer

RockwithNav 6,562 on at

Like (0)

Report

RE: Insert Record

CDLine.RESET;
CDLine.SETRANGE("Location.","No.");
CDLine.SETFILTER("receipt Amount",'>%1',0); I changed it to greater then 0 otherwise it will consider negative values too.
IF CDLine.FINDFIRST THEN BEGIN
REPEAT
CDLine2.INIT; //I will recommend to make aa new variable as CDline2
EntryNo := EntryNo + 1; // Make it findlast then increment it with SETCURRENTKEY so that you have sorting.
CDLine2.VALIDATE("Entry No.",EntryNo);
CDLine2.VALIDATE("Location","No.");
CDLine2.VALIDATE("Posted Amount", CDLine."Receipt Amount");
CDLine2.INSERT;
UNTIL CDLine.NEXT = 0;
END;

Try this.

What was the error you were getting?