Restriction after 25 lines have been selected while applying

Stivan_dsouza21

In Applied vendor Ledger Entries form, i want to restrict when above 25 lines of invoices are slected while applying.....


Friends how can i do it.......

mohana_cse06

Stivan_dsouza21 wrote:

Friends how can i do it.......

Friend, what did you try till now?

Stivan_dsouza21

code written on set applies ID on form Apply vendor Ledger Entry

<Control32> - OnPush()
MaxLines := 0;
recVendorLedgerEntry.RESET;
recVendorLedgerEntry.SETCURRENTKEY("Vendor No.",Open,Positive);
recVendorLedgerEntry.SETRANGE("Vendor No.",GenJnlLine."Account No.");
recVendorLedgerEntry.SETRANGE(Open,TRUE);
IF recVendorLedgerEntry.FIND('-') THEN BEGIN
REPEAT
MaxLines := MaxLines +1
//MaxLines := recVendorLedgerEntry.COUNT;
UNTIL recVendorLedgerEntry.NEXT = 0;
END;


IF MaxLines > 25 THEN
ERROR('You Can not select 26th line');



IF i getting the count proper
but the error message is executed everytime.
i think i need more filters
can some one suggest me more filters.....

mohana_cse06

So you want to get error when you press Set Applies-to ID?

I tried your code in 6.0SP1 base cronus database..I didnt get after 26th line also..

how can you get for each line? :-k

The reason is GenJnlLine."Account No." blank so I used ApplyingVendLedgEntry."Vendor No."

MaxLines := 0;
recVendorLedgerEntry.RESET;
recVendorLedgerEntry.SETCURRENTKEY("Vendor No.",Open,Positive);
//recVendorLedgerEntry.SETRANGE("Vendor No.",GenJnlLine."Account No.");
recVendorLedgerEntry.SETRANGE("Vendor No.",ApplyingVendLedgEntry."Vendor No.");
recVendorLedgerEntry.SETRANGE(Open,TRUE);
recVendorLedgerEntry.SETRANGE("Applies-to ID",USERID); //Added new Line
IF recVendorLedgerEntry.FINDSET THEN
  REPEAT
    MaxLines := MaxLines + 1;
  UNTIL recVendorLedgerEntry.NEXT = 0;


IF MaxLines > 25 THEN
  ERROR('You Can not select 26th line');

Stivan_dsouza21

mohana i tire yu code also
but then too i m not getting error when i select more then 25 lines......

mohana_cse06

Did you try with GenJnlLine."Account No." instead of ApplyingVendLedgEntry."Vendor No."?

I can give sample code not the 100% code..

Stivan_dsouza21

ya i tired with it......
but coming...... :-k

mohana_cse06

Stivan_dsouza21 wrote:

but coming...... :-k

Is it coming or not coming? :?:

Stivan_dsouza21

Sorry......
its not coming

mohana_cse06

Its coming for me..can you debug why it is not coming?

Did you write this code after SetVendApplId; function only?

mohana_cse06

May I know from which form you are applying?

Stivan_dsouza21

no i m not getting the error......
if i select more then 25

Stivan_dsouza21

form no 233

mohana_cse06

Stivan_dsouza21 wrote:

form no 233

Very funny...

Are you applying entries from payment Journal or vendor Card?

Stivan_dsouza21

i m applying from Bank Payment Voucher.......

Stivan_dsouza21

<Control32> - OnPush()
SetVendApplId;

MaxLines := 0;
recVendorLedgerEntry.RESET;
recVendorLedgerEntry.SETCURRENTKEY("Vendor No.",Open,Positive);
recVendorLedgerEntry.SETRANGE("Vendor No.",GenJnlLine."Account No.");
//recVendorLedgerEntry.SETRANGE("Vendor No.",ApplyingVendLedgEntry."Vendor No.");
recVendorLedgerEntry.SETRANGE(Open,TRUE);
//recVendorLedgerEntry.SETRANGE("Applies-to ID",USERID);
IF recVendorLedgerEntry.FINDSET THEN
REPEAT
MaxLines := MaxLines +1
//MaxLines := recVendorLedgerEntry.COUNT;
UNTIL recVendorLedgerEntry.NEXT = 0;
//END;

IF MaxLines > 25 THEN
ERROR('You Can not select 26th line');

mohana_cse06

Add below filter also and try

recVendorLedgerEntry.SETRANGE("Applies-to ID",ApplyingVendLedgEntry."Document No.");

Stivan_dsouza21

Thanks Mohana.....
with that additional filter its done.......
=D> :-({|=

mohana_cse06

Stivan_dsouza21 wrote:

Thanks Mohana.....
with that additional filter its done.......
=D> :-({|=

Welcome and Make sure you done with all possible testing combinations before move to live..

Stivan_dsouza21

Ya sure........