Automatic numbering in shipment address

[SavantKing]

Hi,

You have the table customer and the option sent address for customer.

You have a field code, where you can fill in the code. But now I want to have automatic numbering. for code.

But in the table: Ship-to Address there is no field: [No_ Series] in that table.

So I have this for automatic numbering:

WITH CustAddress DO BEGIN
CustAddress := Rec;
RMSetup.GET;
RMSetup.TESTFIELD(“Code”);
IF NoSeriesMgt.SelectSeries(RMSetup.Code,OldCustomerAddress.Code,“No. Series”) THEN BEGIN

RMSetup.GET;
RMSetup.TESTFIELD(“Contact Nos.”);
NoSeriesMgt.SetSeries(“No.”);
Rec := CustAddress;
EXIT(TRUE);
END;
END;

Thank you

[admin1]

Hi Niels,
And what is your question?
Is RMSetup the standard relationship management setup table?
And where did you put this code? [:)]

[Raja123]

HI Niels ,
We haven’t understood your request/requirements ? Can you be clear …
i think you were talking about Shipping Fasttab in Sales Order page But If you talking about "Ship to Code " Option
Then i would say it’s an Alternate Address which will be chosen if salesperson asked to ship to separate address other than
Default.
So you can’t make automatic or anything…

[SavantKing]

I just want to have automatic numbering by code. So a user can fill in a code number. But now I want to have Automatic numbering, like abc1, abc2, abc3…etc if you press by code TAB

[Raja123]

Are you talking About Customer Nos
If that is what you need As Automatic Customer No then you can Attain it Search for No. Series Setup page

Where a List Of all Series can be seen Search For CUST in Code Field Which is Defined For Customer Table and Edit Series

As per your Requirements And Remove/Clear Check Box on Manual Nos Field .

If this Is Not what you required Let me know

[SavantKing]

? How I can I edit my own post.

I have it now like this:

I have it now like this:

WITH CustAddress DO BEGIN
CustAddress := Rec;
RMSetup2.GET;
RMSetup2.TESTFIELD(“Example Nos.”);
IF NoSeriesMgt.SelectSeries(RMSetup2.“Example Nos.”,OldCustomerAddress.“No. Series”,“No. Series”) THEN BEGIN
// RMSetup.GET;
RMSetup2.TESTFIELD(“Example Nos.”);
NoSeriesMgt.SetSeries(Code);
Rec := CustAddress;
EXIT(TRUE);
END;
END;

[SavantKing]

I get this error:

[Raja123]

ok i Sorry i haven’t seen your version Indication i.e classic .

[SavantKing]

? what do you mean?

[SavantKing]

I get an error on this line:

WITH CustAddress DO BEGIN

CustAddress := Rec;

RMSetup2.GET;

RMSetup2.TESTFIELD(“Code Nos.”);

IF NoSeriesMgt.SelectSeries(RMSetup2.“Code Nos.”,OldCustomerAddress.“No. Series”,“No. Series”) THEN BEGIN

RMSetup.GET;

RMSetup2.TESTFIELD(“Example Nos.”);

NoSeriesMgt.SetSeries(Code);

Rec := CustAddress;

EXIT(TRUE);

END;

END;

RMSetup2.TESTFIELD(“Code Nos.”);

[Raja123]

From your Error Message i can say that there is a Form with Name “Marketing Setup”

Plz Run That setup form in That Form you can find A Menu Named “Numbering” Just Like Standard Setup tables

Like This

If you select the lookup button then you can create directly the series like below

[SavantKing]

HI

I am using table 5079:Marketing setup.

Here two screenshots:

But what I have to do then?

I called a automatic numbering reeks: ABC - Klant verzend adres

[SavantKing]

Oke, I found the form: 5094. But what I have to do with it?

[SavantKing]

You Mean I have to add to that form 5094 , an extra field, like this

[Raja123]

Select This See if if Works

[Raja123]

yes you have to have a field in Setup table and represent in Form also so that you can pick it in Table in relation to no series.

[SavantKing]

But how to bind the list. See image. I dont get a arrow like in the other fields, where you can select the correct numbering

[Raja123]

Hi
In Table i.e Setup Table where you defined this Field Select Properties And in Table Relation Make it to “No. Series”

Note: In Table not in Form

[SavantKing]

oke,

I added in table: 5079 - Marketing setup, this:

And I have the list now, see image:

But If I return to this screen:

I still get the same error

[SavantKing]

Oke, I changed the code to this:

WITH CustAddress DO BEGIN
CustAddress := Rec;
RMSetup2.GET;
RMSetup2.TESTFIELD(“Example Nos.”);
IF NoSeriesMgt.SelectSeries(RMSetup2.“Example Nos.”,OldCustomerAddress.“No. Series”,“No. Series”) THEN BEGIN
RMSetup.GET;
RMSetup2.TESTFIELD(“Example Nos.”);
NoSeriesMgt.SetSeries(Code);
Rec := CustAddress;
EXIT(TRUE);
END;
END;

and it works now