Automatic numbering in shipment address

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

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

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…

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

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

? 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;

I get this error:

Address.png

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

? what do you mean?

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.”);

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

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

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

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

Select This See if if Works

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.

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

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

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

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