No. Series on Ship-To Address Table

thaug · **Posted:** Wed Apr 25, 2012 6:29 pm

I'm trying to implement an automatic/default no. series on the Ship-To Address table. I've got all of the pieces set up in code, but I'm having a problem with it that I think is related to the form link.

On the customer card, when I select Ship-To Addresses, I hit F3 to create a new record and get the following error: "Code must be filled in. Please enter a value." If I click on the AssistEdit button and choose the no. series, it creates the new record as expected. So it works, I'm just looking for a way to implement this so that it works by the normal process of inserting a new record by hitting F3.

Classic client.

Alex Chow · **Posted:** Wed Apr 25, 2012 7:06 pm

Not know what your code is or what additional fields you created on the Ship-to table, I can only assume your code is wrong.

Post what code you have written so far.

thaug · **Posted:** Wed Apr 25, 2012 7:54 pm

In table 222, Ship-To Address:
OnInsert()

Code: Select all

IF Code = '' THEN BEGIN
  SalesSetup.GET;
  SalesSetup.TESTFIELD("Cust. Ship-To Nos.");
  NoSeriesMgt.InitSeries(SalesSetup."Cust. Ship-To Nos.",xRec."No. Series",0D,Code,"No. Series");
END;

Code field - OnValidate()

Code: Select all

IF Code <> xRec.Code THEN BEGIN
  SalesSetup.GET;
  NoSeriesMgt.TestManual(SalesSetup."Cust. Ship-To Nos.");
  "No. Series" := '';
END;

Function AssistEdit

Code: Select all

WITH Cust DO BEGIN
  Cust := Rec;
  SalesSetup.GET;
  SalesSetup.TESTFIELD("Cust. Ship-To Nos.");
  IF NoSeriesMgt.SelectSeries(SalesSetup."Cust. Ship-To Nos.",OldCust."No. Series","No. Series") THEN BEGIN
    NoSeriesMgt.SetSeries(Code);
    Rec := Cust;
    EXIT(TRUE);
  END;
END;

Cust and OldCust variables = T222, Ship-To Address

On Form 300, Ship-To Address
OnAssistEdit

Code: Select all

IF AssistEdit(xRec) THEN
  CurrForm.UPDATE;

New field in Sales & Receivalbe Setup table
SalesSetup."Cust. Ship-To Nos."

I created the necessary no. series. Ship-To Address form is called from the Customer Card form Function menu with
RunFormLink = Customer No.=FIELD(No.)

BernardJ · **Posted:** Wed Apr 25, 2012 10:43 pm

This is related to the 'not blank' property of the Code table field.
Because this property is set on a primary key field, this will be validated as soon as you insert a new record (before the No series-code is given a chance to fill this field)

thaug · **Posted:** Thu Apr 26, 2012 7:19 pm

Thank you. That worked.

mibuso.com

No. Series on Ship-To Address Table

Who is online