YOU SAID:

FOR EACH ttCustomer WHERE ttCustomer.RowMod = 'A': DEF VAR cnt as int no-undo. cnt = 1. IF(LENGTH(ttCustomer.CustID) = 3) THEN DO: FOR EACH Customer FIELDS(CustID) WHERE Customer.Company = CUR-COMP AND Customer.CustID BEGINS ttCustomer.CustID NO-LOCK: cnt = cnt + 1. END. ttCustomer.CustID = ttCustomer.CustID + STRING(cnt,"99"). END. if(LENGTH(ttCustomer.CustID) <> 5) THEN DO: {lib/PublishEx.i &ExMSg ='"CustID format is XXX01, Enter Just first 3 Characters and the system will assign the next for you"'}. END. END.

INTO JAPANESE

各ttCustomerの場合ttCustomer.RowMod = 'A'：DEF VAR cnt as int no-undo。 cnt =1。IF（LENGTH（ttCustomer.CustID）= 3）次に、各顧客フィールド（CustID）に対して、Customer.Company = CUR-COMPおよびCustomer.CustIDが開始されます。ttCustomer.CustIDNO-LOCK：cnt = cnt + 1 。 終わり。 ttCustomer.CustID = ttCustomer.CustID + STRING（cnt、 "99"）。終わり。 if（LENGT

BACK INTO ENGLISH

For each ttCustomer, ttCustomer.RowMod = 'A': DEF VAR cnt as int no-undo. cnt = 1. IF (LENGTH (ttCustomer.CustID) = 3) Then, for each customer field (CustID), Customer.Company = CUR-COMP and Customer.CustID are started. ttCustomer.CustIDNO-LOCK: cnt = cnt + 1. the end. ttCustomer.CustID = ttCustomer

INTO JAPANESE

ttCustomerごとに、ttCustomer.RowMod = 'A'：DEF VAR cnt as int no-undo。 cnt = 1. IF（LENGTH（ttCustomer.CustID）= 3）次に、各顧客フィールド（CustID）について、Customer.Company = CUR-COMPおよびCustomer.CustIDが開始されます。 ttCustomer.CustIDNO-LOCK：cnt = cnt + 1.終わり。 ttCustomer.CustID = ttCustomer

BACK INTO ENGLISH

For each ttCustomer, ttCustomer.RowMod = 'A': DEF VAR cnt as int no-undo. cnt = 1. IF (LENGTH (ttCustomer.CustID) = 3) Then, for each customer field (CustID), Customer.Company = CUR-COMP and Customer.CustID are started. ttCustomer.CustIDNO-LOCK: cnt = cnt + 1. End. ttCustomer.CustID = ttCustomer

INTO JAPANESE

ttCustomerごとに、ttCustomer.RowMod = 'A'：DEF VAR cnt int no-undo。 cnt = 1. IF（LENGTH（ttCustomer.CustID）= 3）次に、各顧客フィールド（CustID）について、Customer.Company = CUR-COMPおよびCustomer.CustIDが開始されます。 ttCustomer.CustIDNO-LOCK：cnt = cnt +1。終了。 ttCustomer.CustID = ttCustomer

BACK INTO ENGLISH

For each ttCustomer, ttCustomer.RowMod = 'A': DEF VAR cnt int no-undo. cnt = 1. IF (LENGTH (ttCustomer.CustID) = 3) Then, for each customer field (CustID), Customer.Company = CUR-COMP and Customer.CustID are started. ttCustomer.CustIDNO-LOCK: cnt = cnt +1. End. ttCustomer.CustID = ttCustomer

INTO JAPANESE

ttCustomerごとに、ttCustomer.RowMod = 'A'：DEF VAR cnt int no-undo。 cnt = 1. IF（LENGTH（ttCustomer.CustID）= 3）次に、各顧客フィールド（CustID）について、Customer.Company = CUR-COMPおよびCustomer.CustIDが開始されます。 ttCustomer.CustIDNO-LOCK：cnt = cnt +1。終わり。 ttCustomer.CustID = ttCustomer

BACK INTO ENGLISH

For each ttCustomer, ttCustomer.RowMod = 'A': DEF VAR cnt int no-undo. cnt = 1. IF (LENGTH (ttCustomer.CustID) = 3) Then, for each customer field (CustID), Customer.Company = CUR-COMP and Customer.CustID are started. ttCustomer.CustIDNO-LOCK: cnt = cnt +1. the end. ttCustomer.CustID = ttCustomer

INTO JAPANESE

ttCustomerごとに、ttCustomer.RowMod = 'A'：DEF VAR cnt int no-undo。 cnt = 1. IF（LENGTH（ttCustomer.CustID）= 3）次に、各顧客フィールド（CustID）について、Customer.Company = CUR-COMPおよびCustomer.CustIDが開始されます。 ttCustomer.CustIDNO-LOCK：cnt = cnt +1。終わり。 ttCustomer.CustID = ttCustomer

BACK INTO ENGLISH

For each ttCustomer, ttCustomer.RowMod = 'A': DEF VAR cnt int no-undo. cnt = 1. IF (LENGTH (ttCustomer.CustID) = 3) Then, for each customer field (CustID), Customer.Company = CUR-COMP and Customer.CustID are started. ttCustomer.CustIDNO-LOCK: cnt = cnt +1. the end. ttCustomer.CustID = ttCustomer