Need help on No. Series

It4Ch1

OnNewRecord()

SalesSetup.GET;
SeriesList := SalesSetup."Order Nos.";
NoSeriesRelations.RESET;
NoSeriesRelations.SETFILTER(Code,SalesSetup."Order Nos.");
i:=1;
IF NoSeriesRelations.FIND('-') THEN
  REPEAT
    SeriesList := SeriesList+','+NoSeries."Series Code";
    SeriesCode[i] := NoSeriesRelations."Series Code";
    i:=i+1;
  UNTIL NoSeries.NEXT = 0;
CASE STRMENU(SeriesList,0,'Please choose a series:') OF
  1 : "No." := NoSeriesMgmt.GetNextNo(SalesSetup."Order Nos.",0D,TRUE);
  2 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[1],0D,TRUE);
  3 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[2],0D,TRUE);
  4 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[3],0D,TRUE);
  5 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[4],0D,TRUE);
  6 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[5],0D,TRUE);
END;

I've been trying to get this code to work. User will be prompt to choose a series No. before adding a new record.
However, faced with error: cant make any changes to database until a transaction has been started.

Any clues?

NoSeriesRelations = No. Series Relationships

kapil4dynamics

[quote= User will be prompt to choose a series No. before adding a new record.Any clues?[/quote]

Why don't u use No. Series Relationship.

It4Ch1

kapil4dynamics wrote:

[quote= User will be prompt to choose a series No. before adding a new record.Any clues?

Why don't u use No. Series Relationship.[/quote]

used.

kine

It4Ch1 wrote:

OnNewRecord()

SalesSetup.GET;
SeriesList := SalesSetup."Order Nos.";
NoSeriesRelations.RESET;
NoSeriesRelations.SETFILTER(Code,SalesSetup."Order Nos.");
i:=1;
IF NoSeriesRelations.FIND('-') THEN
  REPEAT
    SeriesList := SeriesList+','+NoSeries."Series Code";
    SeriesCode[i] := NoSeriesRelations."Series Code";
    i:=i+1;
  UNTIL NoSeries.NEXT = 0;
CASE STRMENU(SeriesList,0,'Please choose a series:') OF
  1 : "No." := NoSeriesMgmt.GetNextNo(SalesSetup."Order Nos.",0D,TRUE);
  2 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[1],0D,TRUE);
  3 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[2],0D,TRUE);
  4 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[3],0D,TRUE);
  5 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[4],0D,TRUE);
  6 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[5],0D,TRUE);
END;

I've been trying to get this code to work. User will be prompt to choose a series No. before adding a new record.
However, faced with error: cant make any changes to database until a transaction has been started.

Any clues?

NoSeriesRelations = No. Series Relationships

You are using wrong trigger.

DevendraSharma

kine wrote:

It4Ch1 wrote:

OnNewRecord()

SalesSetup.GET;
SeriesList := SalesSetup."Order Nos.";
NoSeriesRelations.RESET;
NoSeriesRelations.SETFILTER(Code,SalesSetup."Order Nos.");
i:=1;
IF NoSeriesRelations.FIND('-') THEN
  REPEAT
    SeriesList := SeriesList+','+NoSeries."Series Code";
    SeriesCode[i] := NoSeriesRelations."Series Code";
    i:=i+1;
  UNTIL NoSeries.NEXT = 0;
CASE STRMENU(SeriesList,0,'Please choose a series:') OF
  1 : "No." := NoSeriesMgmt.GetNextNo(SalesSetup."Order Nos.",0D,TRUE);
  2 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[1],0D,TRUE);
  3 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[2],0D,TRUE);
  4 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[3],0D,TRUE);
  5 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[4],0D,TRUE);
  6 : "No." := NoSeriesMgmt.GetNextNo(SeriesCode[5],0D,TRUE);
END;

I've been trying to get this code to work. User will be prompt to choose a series No. before adding a new record.
However, faced with error: cant make any changes to database until a transaction has been started.

Any clues?

NoSeriesRelations = No. Series Relationships

You are using wrong trigger.

you can use OnInsert() trigger


Thank !!!
Devendra

Phae

Apart from your error, I'm wondering why you use FIND on "NoSeriesRelations" and NEXT on "NoSeries"...

It4Ch1

Phae wrote:

Apart from your error, I'm wondering why you use FIND on "NoSeriesRelations" and NEXT on "NoSeries"...

Sorry my bad. I used NoSeries. just added ~Relations for this post for Clarification of my problem. no error in that part.