Dynamics NAV C/AL - Objekt Source Code Compare Referenz

VISION 8 - powerd by DynamicsProject.com

Compare Information Source Database: Demo Database NAV (9-0) => Target Database: Demo Database NAV (9-0) Update

Dynamics NAV Table (Source): Customer -> Dynamics NAV Table (Target): Customer

Dynamics NAV Table (Source): Customer

  1 OBJECT Table 18 Customer

  2 {

  3  OBJECT-PROPERTIES

  4  {

  5   Date=15.09.15;

  6   Time=12:00:00;

  7   Version List=NAVW19.00;

  8  }

  9  PROPERTIES

 10  {

 11   Permissions=TableData 21=r;

 12   DataCaptionFields=No.,Name;

 13   OnInsert=BEGIN

 14         IF "No." = '' THEN BEGIN

 15          SalesSetup.GET;

 16          SalesSetup.TESTFIELD("Customer Nos.");

 17          NoSeriesMgt.InitSeries(SalesSetup."Customer Nos.",xRec."No. Series",0D,"No.","No. Series");

 18         END;

 19         IF "Invoice Disc. Code" = '' THEN

 20          "Invoice Disc. Code" := "No.";

 21

 22         IF NOT InsertFromContact THEN

 23          UpdateContFromCust.OnInsert(Rec);

 24

 25         DimMgt.UpdateDefaultDim(

 26          DATABASE::Customer,"No.",

 27          "Global Dimension 1 Code","Global Dimension 2 Code");

 28        END;

 29

 30   OnModify=BEGIN

 31         "Last Date Modified" := TODAY;

 32

 33         IF (Name <> xRec.Name) OR

 34          ("Search Name" <> xRec."Search Name") OR

 35          ("Name 2" <> xRec."Name 2") OR

 36          (Address <> xRec.Address) OR

 37          ("Address 2" <> xRec."Address 2") OR

 38          (City <> xRec.City) OR

 39          ("Phone No." <> xRec."Phone No.") OR

 40          ("Telex No." <> xRec."Telex No.") OR

 41          ("Territory Code" <> xRec."Territory Code") OR

 42          ("Currency Code" <> xRec."Currency Code") OR

 43          ("Language Code" <> xRec."Language Code") OR

 44          ("Salesperson Code" <> xRec."Salesperson Code") OR

 45          ("Country/Region Code" <> xRec."Country/Region Code") OR

 46          ("Fax No." <> xRec."Fax No.") OR

 47          ("Telex Answer Back" <> xRec."Telex Answer Back") OR

 48          ("VAT Registration No." <> xRec."VAT Registration No.") OR

 49          ("Post Code" <> xRec."Post Code") OR

 50          (County <> xRec.County) OR

 51          ("E-Mail" <> xRec."E-Mail") OR

 52          ("Home Page" <> xRec."Home Page") OR

 53          (Contact <> xRec.Contact)

 54         THEN BEGIN

 55          MODIFY;

 56          UpdateContFromCust.OnModify(Rec);

 57          IF FIND THEN;

 58

 59

 60

 61         END;

 62        END;

 63

 64   OnDelete=VAR

 65         CampaignTargetGr@1000 : Record 7030;

 66         ContactBusRel@1001 : Record 5054;

 67         Job@1004 : Record 167;

 68         DOPaymentCreditCard@1005 : Record 827;

 69         SocialListeningSearchTopic@1007 : Record 871;

 70         StdCustSalesCode@1003 : Record 172;

 71         CustomReportSelection@1008 : Record 9657;

 72         CampaignTargetGrMgmt@1002 : Codeunit 7030;

 73         VATRegistrationLogMgt@1006 : Codeunit 249;

 74        BEGIN

 75         ApprovalsMgmt.OnCancelCustomerApprovalRequest(Rec);

 76

 77         IF DOPaymentCreditCard.FINDFIRST THEN

 78          DOPaymentCreditCard.DeleteByCustomer(Rec);

 79

 80         ServiceItem.SETRANGE("Customer No.","No.");

 81         IF ServiceItem.FINDFIRST THEN

 82          IF CONFIRM(

 83            Text008,

 84            FALSE,

 85            TABLECAPTION,

 86            "No.",

 87            ServiceItem.FIELDCAPTION("Customer No."))

 88          THEN

 89           ServiceItem.MODIFYALL("Customer No.",'')

 90          ELSE

 91           ERROR(Text009);

 92

 93         Job.SETRANGE("Bill-to Customer No.","No.");

 94         IF Job.FINDFIRST THEN

 95          ERROR(Text015,TABLECAPTION,"No.",Job.TABLECAPTION);

 96

 97         MoveEntries.MoveCustEntries(Rec);

 98

 99         CommentLine.SETRANGE("Table Name",CommentLine."Table Name"::Customer);

100         CommentLine.SETRANGE("No.","No.");

101         CommentLine.DELETEALL;

102

103         CustBankAcc.SETRANGE("Customer No.","No.");

104         CustBankAcc.DELETEALL;

105

106         ShipToAddr.SETRANGE("Customer No.","No.");

107         ShipToAddr.DELETEALL;

108

109         SalesPrice.SETRANGE("Sales Type",SalesPrice."Sales Type"::Customer);

110         SalesPrice.SETRANGE("Sales Code","No.");

111         SalesPrice.DELETEALL;

112

113         SalesLineDisc.SETRANGE("Sales Type",SalesLineDisc."Sales Type"::Customer);

114         SalesLineDisc.SETRANGE("Sales Code","No.");

115         SalesLineDisc.DELETEALL;

116

117         SalesPrepmtPct.SETCURRENTKEY("Sales Type","Sales Code");

118         SalesPrepmtPct.SETRANGE("Sales Type",SalesPrepmtPct."Sales Type"::Customer);

119         SalesPrepmtPct.SETRANGE("Sales Code","No.");

120         SalesPrepmtPct.DELETEALL;

121

122         StdCustSalesCode.SETRANGE("Customer No.","No.");

123         StdCustSalesCode.DELETEALL(TRUE);

124

125         ItemCrossReference.SETCURRENTKEY("Cross-Reference Type","Cross-Reference Type No.");

126         ItemCrossReference.SETRANGE("Cross-Reference Type",ItemCrossReference."Cross-Reference Type"::Customer);

127         ItemCrossReference.SETRANGE("Cross-Reference Type No.","No.");

128         ItemCrossReference.DELETEALL;

129

130         IF NOT SocialListeningSearchTopic.ISEMPTY THEN BEGIN

131          SocialListeningSearchTopic.FindSearchTopic(SocialListeningSearchTopic."Source Type"::Customer,"No.");

132          SocialListeningSearchTopic.DELETEALL;

133         END;

134

135         SalesOrderLine.SETCURRENTKEY("Document Type","Bill-to Customer No.");

136         SalesOrderLine.SETFILTER(

137          "Document Type",'%1|%2',

138          SalesOrderLine."Document Type"::Order,

139          SalesOrderLine."Document Type"::"Return Order");

140         SalesOrderLine.SETRANGE("Bill-to Customer No.","No.");

141         IF SalesOrderLine.FINDFIRST THEN

142          ERROR(

143           Text000,

144           TABLECAPTION,"No.",SalesOrderLine."Document Type");

145

146         SalesOrderLine.SETRANGE("Bill-to Customer No.");

147         SalesOrderLine.SETRANGE("Sell-to Customer No.","No.");

148         IF SalesOrderLine.FINDFIRST THEN

149          ERROR(

150           Text000,

151           TABLECAPTION,"No.",SalesOrderLine."Document Type");

152

153         CampaignTargetGr.SETRANGE("No.","No.");

154         CampaignTargetGr.SETRANGE(Type,CampaignTargetGr.Type::Customer);

155         IF CampaignTargetGr.FIND('-') THEN BEGIN

156          ContactBusRel.SETRANGE("Link to Table",ContactBusRel."Link to Table"::Customer);

157          ContactBusRel.SETRANGE("No.","No.");

158          ContactBusRel.FINDFIRST;

159          REPEAT

160           CampaignTargetGrMgmt.ConverttoContact(Rec,ContactBusRel."Contact No.");

161          UNTIL CampaignTargetGr.NEXT = 0;

162         END;

163

164         ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled);

165         ServContract.SETRANGE("Customer No.","No.");

166         IF ServContract.FINDFIRST THEN

167          ERROR(

168           Text007,

169           TABLECAPTION,"No.");

170

171         ServContract.SETRANGE(Status);

172         ServContract.MODIFYALL("Customer No.",'');

173

174         ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled);

175         ServContract.SETRANGE("Bill-to Customer No.","No.");

176         IF ServContract.FINDFIRST THEN

177          ERROR(

178           Text007,

179           TABLECAPTION,"No.");

180

181         ServContract.SETRANGE(Status);

182         ServContract.MODIFYALL("Bill-to Customer No.",'');

183

184         ServHeader.SETCURRENTKEY("Customer No.","Order Date");

185         ServHeader.SETRANGE("Customer No.","No.");

186         IF ServHeader.FINDFIRST THEN

187          ERROR(

188           Text013,

189           TABLECAPTION,"No.",ServHeader."Document Type");

190

191         ServHeader.SETRANGE("Bill-to Customer No.");

192         IF ServHeader.FINDFIRST THEN

193          ERROR(

194           Text013,

195           TABLECAPTION,"No.",ServHeader."Document Type");

196

197         UpdateContFromCust.OnDelete(Rec);

198

199         CustomReportSelection.SETRANGE("Source Type",DATABASE::Customer);

200         CustomReportSelection.SETRANGE("Source No.","No.");

201         CustomReportSelection.DELETEALL;

202

203         VATRegistrationLogMgt.DeleteCustomerLog(Rec);

204

205         DimMgt.DeleteDefaultDim(DATABASE::Customer,"No.");

206        END;

207

208   OnRename=BEGIN

209         ApprovalsMgmt.RenameApprovalEntries(xRec.RECORDID,RECORDID);

210         "Last Date Modified" := TODAY;

211        END;

212

213   CaptionML=ENU=Customer;

214   LookupPageID=Page22;

215   DrillDownPageID=Page22;

216  }

217  FIELDS

218  {

219   { 1  ;  ;No.         ;Code20    ;AltSearchField=Search Name;

220                           OnValidate=BEGIN

221                                 IF "No." <> xRec."No." THEN BEGIN

222                                  SalesSetup.GET;

223                                  NoSeriesMgt.TestManual(SalesSetup."Customer Nos.");

224                                  "No. Series" := '';

225                                 END;

226                                 IF "Invoice Disc. Code" = '' THEN

227                                  "Invoice Disc. Code" := "No.";

228                                END;

229

230                           CaptionML=ENU=No. }

231   { 2  ;  ;Name        ;Text50    ;OnValidate=BEGIN

232                                 IF ("Search Name" = UPPERCASE(xRec.Name)) OR ("Search Name" = '') THEN

233                                  "Search Name" := Name;

234                                END;

235

236                           CaptionML=ENU=Name }

237   { 3  ;  ;Search Name     ;Code50    ;CaptionML=ENU=Search Name }

238   { 4  ;  ;Name 2       ;Text50    ;CaptionML=ENU=Name 2 }

239   { 5  ;  ;Address       ;Text50    ;CaptionML=ENU=Address }

240   { 6  ;  ;Address 2      ;Text50    ;CaptionML=ENU=Address 2 }

241   { 7  ;  ;City        ;Text30    ;TableRelation=IF (Country/Region Code=CONST()) "Post Code".City

242                                  ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code".City WHERE (Country/Region Code=FIELD(Country/Region Code));

243                           OnValidate=BEGIN

244                                 PostCode.ValidateCity(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);

245                                END;

246

247                           ValidateTableRelation=No;

248                           TestTableRelation=No;

249                           CaptionML=ENU=City }

250   { 8  ;  ;Contact       ;Text50    ;OnValidate=BEGIN

251                                 IF RMSetup.GET THEN

252                                  IF RMSetup."Bus. Rel. Code for Customers" <> '' THEN

253                                   IF (xRec.Contact = '') AND (xRec."Primary Contact No." = '') THEN BEGIN

254                                    MODIFY;

255                                    UpdateContFromCust.OnModify(Rec);

256                                    UpdateContFromCust.InsertNewContactPerson(Rec,FALSE);

257                                    MODIFY(TRUE);

258                                   END

259                                END;

260

261                           CaptionML=ENU=Contact }

262   { 9  ;  ;Phone No.      ;Text30    ;ExtendedDatatype=Phone No.;

263                           CaptionML=ENU=Phone No. }

264   { 10 ;  ;Telex No.      ;Text20    ;CaptionML=ENU=Telex No. }

265   { 11 ;  ;Document Sending Profile;Code20  ;TableRelation="Document Sending Profile".Code;

266                           CaptionML=ENU=Document Sending Profile }

267   { 14 ;  ;Our Account No.   ;Text20    ;CaptionML=ENU=Our Account No. }

268   { 15 ;  ;Territory Code   ;Code10    ;TableRelation=Territory;

269                           CaptionML=ENU=Territory Code }

270   { 16 ;  ;Global Dimension 1 Code;Code20   ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1));

271                           OnValidate=BEGIN

272                                 ValidateShortcutDimCode(1,"Global Dimension 1 Code");

273                                END;

274

275                           CaptionML=ENU=Global Dimension 1 Code;

276                           CaptionClass='1,1,1' }

277   { 17 ;  ;Global Dimension 2 Code;Code20   ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2));

278                           OnValidate=BEGIN

279                                 ValidateShortcutDimCode(2,"Global Dimension 2 Code");

280                                END;

281

282                           CaptionML=ENU=Global Dimension 2 Code;

283                           CaptionClass='1,1,2' }

284   { 18 ;  ;Chain Name     ;Code10    ;CaptionML=ENU=Chain Name }

285   { 19 ;  ;Budgeted Amount   ;Decimal    ;CaptionML=ENU=Budgeted Amount;

286                           AutoFormatType=1;

287                           AutoFormatExpr="Currency Code" }

288   { 20 ;  ;Credit Limit (LCY) ;Decimal    ;CaptionML=ENU=Credit Limit (LCY);

289                           AutoFormatType=1 }

290   { 21 ;  ;Customer Posting Group;Code10   ;TableRelation="Customer Posting Group";

291                           CaptionML=ENU=Customer Posting Group }

292   { 22 ;  ;Currency Code    ;Code10    ;TableRelation=Currency;

293                           CaptionML=ENU=Currency Code }

294   { 23 ;  ;Customer Price Group;Code10    ;TableRelation="Customer Price Group";

295                           CaptionML=ENU=Customer Price Group }

296   { 24 ;  ;Language Code    ;Code10    ;TableRelation=Language;

297                           CaptionML=ENU=Language Code }

298   { 26 ;  ;Statistics Group  ;Integer    ;CaptionML=ENU=Statistics Group }

299   { 27 ;  ;Payment Terms Code ;Code10    ;TableRelation="Payment Terms";

300                           CaptionML=ENU=Payment Terms Code }

301   { 28 ;  ;Fin. Charge Terms Code;Code10   ;TableRelation="Finance Charge Terms";

302                           CaptionML=ENU=Fin. Charge Terms Code }

303   { 29 ;  ;Salesperson Code  ;Code10    ;TableRelation=Salesperson/Purchaser;

304                           CaptionML=ENU=Salesperson Code }

305   { 30 ;  ;Shipment Method Code;Code10    ;TableRelation="Shipment Method";

306                           CaptionML=ENU=Shipment Method Code }

307   { 31 ;  ;Shipping Agent Code ;Code10    ;TableRelation="Shipping Agent";

308                           OnValidate=BEGIN

309                                 IF "Shipping Agent Code" <> xRec."Shipping Agent Code" THEN

310                                  VALIDATE("Shipping Agent Service Code",'');

311                                END;

312

313                           AccessByPermission=TableData 5790=R;

314                           CaptionML=ENU=Shipping Agent Code }

315   { 32 ;  ;Place of Export   ;Code20    ;CaptionML=ENU=Place of Export }

316   { 33 ;  ;Invoice Disc. Code ;Code20    ;TableRelation=Customer;

317                           ValidateTableRelation=No;

318                           TestTableRelation=No;

319                           CaptionML=ENU=Invoice Disc. Code }

320   { 34 ;  ;Customer Disc. Group;Code20    ;TableRelation="Customer Discount Group";

321                           CaptionML=ENU=Customer Disc. Group }

322   { 35 ;  ;Country/Region Code ;Code10    ;TableRelation=Country/Region;

323                           CaptionML=ENU=Country/Region Code }

324   { 36 ;  ;Collection Method  ;Code20    ;CaptionML=ENU=Collection Method }

325   { 37 ;  ;Amount       ;Decimal    ;CaptionML=ENU=Amount;

326                           AutoFormatType=1;

327                           AutoFormatExpr="Currency Code" }

328   { 38 ;  ;Comment       ;Boolean    ;FieldClass=FlowField;

329                           CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Customer),

330                                               No.=FIELD(No.)));

331                           CaptionML=ENU=Comment;

332                           Editable=No }

333   { 39 ;  ;Blocked       ;Option    ;CaptionML=ENU=Blocked;

334                           OptionCaptionML=ENU=" ,Ship,Invoice,All";

335                           OptionString=[ ,Ship,Invoice,All] }

336   { 40 ;  ;Invoice Copies   ;Integer    ;CaptionML=ENU=Invoice Copies }

337   { 41 ;  ;Last Statement No. ;Integer    ;CaptionML=ENU=Last Statement No. }

338   { 42 ;  ;Print Statements  ;Boolean    ;CaptionML=ENU=Print Statements }

339   { 45 ;  ;Bill-to Customer No.;Code20    ;TableRelation=Customer;

340                           CaptionML=ENU=Bill-to Customer No. }

341   { 46 ;  ;Priority      ;Integer    ;CaptionML=ENU=Priority }

342   { 47 ;  ;Payment Method Code ;Code10    ;TableRelation="Payment Method";

343                           OnValidate=VAR

344                                 PaymentMethod@1000 : Record 289;

345                                BEGIN

346                                 IF "Payment Method Code" = '' THEN

347                                  EXIT;

348                                 PaymentMethod.GET("Payment Method Code");

349                                 IF PaymentMethod."Direct Debit" AND ("Payment Terms Code" = '') THEN

350                                  "Payment Terms Code" := PaymentMethod."Direct Debit Pmt. Terms Code";

351                                END;

352

353                           CaptionML=ENU=Payment Method Code }

354   { 54 ;  ;Last Date Modified ;Date     ;CaptionML=ENU=Last Date Modified;

355                           Editable=No }

356   { 55 ;  ;Date Filter     ;Date     ;FieldClass=FlowFilter;

357                           CaptionML=ENU=Date Filter }

358   { 56 ;  ;Global Dimension 1 Filter;Code20  ;FieldClass=FlowFilter;

359                           TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1));

360                           CaptionML=ENU=Global Dimension 1 Filter;

361                           CaptionClass='1,3,1' }

362   { 57 ;  ;Global Dimension 2 Filter;Code20  ;FieldClass=FlowFilter;

363                           TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2));

364                           CaptionML=ENU=Global Dimension 2 Filter;

365                           CaptionClass='1,3,2' }

366   { 58 ;  ;Balance       ;Decimal    ;FieldClass=FlowField;

367                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.),

368                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

369                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

370                                                        Currency Code=FIELD(Currency Filter)));

371                           CaptionML=ENU=Balance;

372                           Editable=No;

373                           AutoFormatType=1;

374                           AutoFormatExpr="Currency Code" }

375   { 59 ;  ;Balance (LCY)    ;Decimal    ;FieldClass=FlowField;

376                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.),

377                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

378                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

379                                                            Currency Code=FIELD(Currency Filter)));

380                           CaptionML=ENU=Balance (LCY);

381                           Editable=No;

382                           AutoFormatType=1 }

383   { 60 ;  ;Net Change     ;Decimal    ;FieldClass=FlowField;

384                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.),

385                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

386                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

387                                                        Posting Date=FIELD(Date Filter),

388                                                        Currency Code=FIELD(Currency Filter)));

389                           CaptionML=ENU=Net Change;

390                           Editable=No;

391                           AutoFormatType=1;

392                           AutoFormatExpr="Currency Code" }

393   { 61 ;  ;Net Change (LCY)  ;Decimal    ;FieldClass=FlowField;

394                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.),

395                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

396                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

397                                                            Posting Date=FIELD(Date Filter),

398                                                            Currency Code=FIELD(Currency Filter)));

399                           CaptionML=ENU=Net Change (LCY);

400                           Editable=No;

401                           AutoFormatType=1 }

402   { 62 ;  ;Sales (LCY)     ;Decimal    ;FieldClass=FlowField;

403                           CalcFormula=Sum("Cust. Ledger Entry"."Sales (LCY)" WHERE (Customer No.=FIELD(No.),

404                                                        Global Dimension 1 Code=FIELD(Global Dimension 1 Filter),

405                                                        Global Dimension 2 Code=FIELD(Global Dimension 2 Filter),

406                                                        Posting Date=FIELD(Date Filter),

407                                                        Currency Code=FIELD(Currency Filter)));

408                           CaptionML=ENU=Sales (LCY);

409                           Editable=No;

410                           AutoFormatType=1 }

411   { 63 ;  ;Profit (LCY)    ;Decimal    ;FieldClass=FlowField;

412                           CalcFormula=Sum("Cust. Ledger Entry"."Profit (LCY)" WHERE (Customer No.=FIELD(No.),

413                                                        Global Dimension 1 Code=FIELD(Global Dimension 1 Filter),

414                                                        Global Dimension 2 Code=FIELD(Global Dimension 2 Filter),

415                                                        Posting Date=FIELD(Date Filter),

416                                                        Currency Code=FIELD(Currency Filter)));

417                           CaptionML=ENU=Profit (LCY);

418                           Editable=No;

419                           AutoFormatType=1 }

420   { 64 ;  ;Inv. Discounts (LCY);Decimal    ;FieldClass=FlowField;

421                           CalcFormula=Sum("Cust. Ledger Entry"."Inv. Discount (LCY)" WHERE (Customer No.=FIELD(No.),

422                                                            Global Dimension 1 Code=FIELD(Global Dimension 1 Filter),

423                                                            Global Dimension 2 Code=FIELD(Global Dimension 2 Filter),

424                                                            Posting Date=FIELD(Date Filter),

425                                                            Currency Code=FIELD(Currency Filter)));

426                           CaptionML=ENU=Inv. Discounts (LCY);

427                           Editable=No;

428                           AutoFormatType=1 }

429   { 65 ;  ;Pmt. Discounts (LCY);Decimal    ;FieldClass=FlowField;

430                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.),

431                                                             Entry Type=FILTER(Payment Discount..'Payment Discount (VAT Adjustment)'),

432                                                             Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

433                                                             Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

434                                                             Posting Date=FIELD(Date Filter),

435                                                             Currency Code=FIELD(Currency Filter)));

436                           CaptionML=ENU=Pmt. Discounts (LCY);

437                           Editable=No;

438                           AutoFormatType=1 }

439   { 66 ;  ;Balance Due     ;Decimal    ;FieldClass=FlowField;

440                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.),

441                                                        Posting Date=FIELD(UPPERLIMIT(Date Filter)),

442                                                        Initial Entry Due Date=FIELD(Date Filter),

443                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

444                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

445                                                        Currency Code=FIELD(Currency Filter)));

446                           CaptionML=ENU=Balance Due;

447                           Editable=No;

448                           AutoFormatType=1;

449                           AutoFormatExpr="Currency Code" }

450   { 67 ;  ;Balance Due (LCY)  ;Decimal    ;FieldClass=FlowField;

451                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.),

452                                                            Posting Date=FIELD(UPPERLIMIT(Date Filter)),

453                                                            Initial Entry Due Date=FIELD(Date Filter),

454                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

455                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

456                                                            Currency Code=FIELD(Currency Filter)));

457                           CaptionML=ENU=Balance Due (LCY);

458                           Editable=No;

459                           AutoFormatType=1 }

460   { 69 ;  ;Payments      ;Decimal    ;FieldClass=FlowField;

461                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Payment),

462                                                         Entry Type=CONST(Initial Entry),

463                                                         Customer No.=FIELD(No.),

464                                                         Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

465                                                         Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

466                                                         Posting Date=FIELD(Date Filter),

467                                                         Currency Code=FIELD(Currency Filter)));

468                           CaptionML=ENU=Payments;

469                           Editable=No;

470                           AutoFormatType=1;

471                           AutoFormatExpr="Currency Code" }

472   { 70 ;  ;Invoice Amounts   ;Decimal    ;FieldClass=FlowField;

473                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Invoice),

474                                                        Entry Type=CONST(Initial Entry),

475                                                        Customer No.=FIELD(No.),

476                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

477                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

478                                                        Posting Date=FIELD(Date Filter),

479                                                        Currency Code=FIELD(Currency Filter)));

480                           CaptionML=ENU=Invoice Amounts;

481                           Editable=No;

482                           AutoFormatType=1;

483                           AutoFormatExpr="Currency Code" }

484   { 71 ;  ;Cr. Memo Amounts  ;Decimal    ;FieldClass=FlowField;

485                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Credit Memo),

486                                                         Entry Type=CONST(Initial Entry),

487                                                         Customer No.=FIELD(No.),

488                                                         Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

489                                                         Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

490                                                         Posting Date=FIELD(Date Filter),

491                                                         Currency Code=FIELD(Currency Filter)));

492                           CaptionML=ENU=Cr. Memo Amounts;

493                           Editable=No;

494                           AutoFormatType=1;

495                           AutoFormatExpr="Currency Code" }

496   { 72 ;  ;Finance Charge Memo Amounts;Decimal;FieldClass=FlowField;

497                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Finance Charge Memo),

498                                                        Entry Type=CONST(Initial Entry),

499                                                        Customer No.=FIELD(No.),

500                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

501                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

502                                                        Posting Date=FIELD(Date Filter),

503                                                        Currency Code=FIELD(Currency Filter)));

504                           CaptionML=ENU=Finance Charge Memo Amounts;

505                           Editable=No;

506                           AutoFormatType=1;

507                           AutoFormatExpr="Currency Code" }

508   { 74 ;  ;Payments (LCY)   ;Decimal    ;FieldClass=FlowField;

509                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Payment),

510                                                             Entry Type=CONST(Initial Entry),

511                                                             Customer No.=FIELD(No.),

512                                                             Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

513                                                             Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

514                                                             Posting Date=FIELD(Date Filter),

515                                                             Currency Code=FIELD(Currency Filter)));

516                           CaptionML=ENU=Payments (LCY);

517                           Editable=No;

518                           AutoFormatType=1 }

519   { 75 ;  ;Inv. Amounts (LCY) ;Decimal    ;FieldClass=FlowField;

520                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Invoice),

521                                                            Entry Type=CONST(Initial Entry),

522                                                            Customer No.=FIELD(No.),

523                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

524                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

525                                                            Posting Date=FIELD(Date Filter),

526                                                            Currency Code=FIELD(Currency Filter)));

527                           CaptionML=ENU=Inv. Amounts (LCY);

528                           Editable=No;

529                           AutoFormatType=1 }

530   { 76 ;  ;Cr. Memo Amounts (LCY);Decimal   ;FieldClass=FlowField;

531                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Credit Memo),

532                                                             Entry Type=CONST(Initial Entry),

533                                                             Customer No.=FIELD(No.),

534                                                             Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

535                                                             Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

536                                                             Posting Date=FIELD(Date Filter),

537                                                             Currency Code=FIELD(Currency Filter)));

538                           CaptionML=ENU=Cr. Memo Amounts (LCY);

539                           Editable=No;

540                           AutoFormatType=1 }

541   { 77 ;  ;Fin. Charge Memo Amounts (LCY);Decimal;

542                           FieldClass=FlowField;

543                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Finance Charge Memo),

544                                                            Entry Type=CONST(Initial Entry),

545                                                            Customer No.=FIELD(No.),

546                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

547                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

548                                                            Posting Date=FIELD(Date Filter),

549                                                            Currency Code=FIELD(Currency Filter)));

550                           CaptionML=ENU=Fin. Charge Memo Amounts (LCY);

551                           Editable=No;

552                           AutoFormatType=1 }

553   { 78 ;  ;Outstanding Orders ;Decimal    ;FieldClass=FlowField;

554                           CalcFormula=Sum("Sales Line"."Outstanding Amount" WHERE (Document Type=CONST(Order),

555                                                       Bill-to Customer No.=FIELD(No.),

556                                                       Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

557                                                       Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

558                                                       Currency Code=FIELD(Currency Filter)));

559                           AccessByPermission=TableData 110=R;

560                           CaptionML=ENU=Outstanding Orders;

561                           Editable=No;

562                           AutoFormatType=1;

563                           AutoFormatExpr="Currency Code" }

564   { 79 ;  ;Shipped Not Invoiced;Decimal    ;FieldClass=FlowField;

565                           CalcFormula=Sum("Sales Line"."Shipped Not Invoiced" WHERE (Document Type=CONST(Order),

566                                                        Bill-to Customer No.=FIELD(No.),

567                                                        Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

568                                                        Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

569                                                        Currency Code=FIELD(Currency Filter)));

570                           AccessByPermission=TableData 110=R;

571                           CaptionML=ENU=Shipped Not Invoiced;

572                           Editable=No;

573                           AutoFormatType=1;

574                           AutoFormatExpr="Currency Code" }

575   { 80 ;  ;Application Method ;Option    ;CaptionML=ENU=Application Method;

576                           OptionCaptionML=ENU=Manual,Apply to Oldest;

577                           OptionString=Manual,Apply to Oldest }

578   { 82 ;  ;Prices Including VAT;Boolean    ;CaptionML=ENU=Prices Including VAT }

579   { 83 ;  ;Location Code    ;Code10    ;TableRelation=Location WHERE (Use As In-Transit=CONST(No));

580                           CaptionML=ENU=Location Code }

581   { 84 ;  ;Fax No.       ;Text30    ;CaptionML=ENU=Fax No. }

582   { 85 ;  ;Telex Answer Back  ;Text20    ;CaptionML=ENU=Telex Answer Back }

583   { 86 ;  ;VAT Registration No.;Text20    ;OnValidate=VAR

584                                 VATRegNoFormat@1000 : Record 381;

585                                 VATRegistrationLogMgt@1002 : Codeunit 249;

586                                BEGIN

587                                 IF VATRegNoFormat.Test("VAT Registration No.","Country/Region Code","No.",DATABASE::Customer) THEN

588                                  IF "VAT Registration No." <> xRec."VAT Registration No." THEN

589                                   VATRegistrationLogMgt.LogCustomer(Rec);

590                                END;

591

592                           CaptionML=ENU=VAT Registration No. }

593   { 87 ;  ;Combine Shipments  ;Boolean    ;AccessByPermission=TableData 110=R;

594                           CaptionML=ENU=Combine Shipments }

595   { 88 ;  ;Gen. Bus. Posting Group;Code10   ;TableRelation="Gen. Business Posting Group";

596                           OnValidate=BEGIN

597                                 IF xRec."Gen. Bus. Posting Group" <> "Gen. Bus. Posting Group" THEN

598                                  IF GenBusPostingGrp.ValidateVatBusPostingGroup(GenBusPostingGrp,"Gen. Bus. Posting Group") THEN

599                                   VALIDATE("VAT Bus. Posting Group",GenBusPostingGrp."Def. VAT Bus. Posting Group");

600                                END;

601

602                           CaptionML=ENU=Gen. Bus. Posting Group }

603   { 89 ;  ;Picture       ;BLOB     ;CaptionML=ENU=Picture;

604                           SubType=Bitmap }

605   { 90 ;  ;GLN         ;Code13    ;OnValidate=VAR

606                                 GLNCalculator@1000 : Codeunit 1607;

607                                BEGIN

608                                 IF GLN <> '' THEN

609                                  GLNCalculator.AssertValidCheckDigit13(GLN);

610                                END;

611

612                           CaptionML=ENU=GLN;

613                           Numeric=Yes }

614   { 91 ;  ;Post Code      ;Code20    ;TableRelation=IF (Country/Region Code=CONST()) "Post Code"

615                                  ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Country/Region Code));

616                           OnValidate=BEGIN

617                                 PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED);

618                                END;

619

620                           ValidateTableRelation=No;

621                           TestTableRelation=No;

622                           CaptionML=ENU=Post Code }

623   { 92 ;  ;County       ;Text30    ;CaptionML=ENU=County }

624   { 97 ;  ;Debit Amount    ;Decimal    ;FieldClass=FlowField;

625                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Debit Amount" WHERE (Customer No.=FIELD(No.),

626                                                            Entry Type=FILTER(<>Application),

627                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

628                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

629                                                            Posting Date=FIELD(Date Filter),

630                                                            Currency Code=FIELD(Currency Filter)));

631                           CaptionML=ENU=Debit Amount;

632                           BlankZero=Yes;

633                           Editable=No;

634                           AutoFormatType=1;

635                           AutoFormatExpr="Currency Code" }

636   { 98 ;  ;Credit Amount    ;Decimal    ;FieldClass=FlowField;

637                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Credit Amount" WHERE (Customer No.=FIELD(No.),

638                                                             Entry Type=FILTER(<>Application),

639                                                             Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

640                                                             Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

641                                                             Posting Date=FIELD(Date Filter),

642                                                             Currency Code=FIELD(Currency Filter)));

643                           CaptionML=ENU=Credit Amount;

644                           BlankZero=Yes;

645                           Editable=No;

646                           AutoFormatType=1;

647                           AutoFormatExpr="Currency Code" }

648   { 99 ;  ;Debit Amount (LCY) ;Decimal    ;FieldClass=FlowField;

649                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Debit Amount (LCY)" WHERE (Customer No.=FIELD(No.),

650                                                               Entry Type=FILTER(<>Application),

651                                                               Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

652                                                               Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

653                                                               Posting Date=FIELD(Date Filter),

654                                                               Currency Code=FIELD(Currency Filter)));

655                           CaptionML=ENU=Debit Amount (LCY);

656                           BlankZero=Yes;

657                           Editable=No;

658                           AutoFormatType=1 }

659   { 100 ;  ;Credit Amount (LCY) ;Decimal    ;FieldClass=FlowField;

660                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Credit Amount (LCY)" WHERE (Customer No.=FIELD(No.),

661                                                                Entry Type=FILTER(<>Application),

662                                                                Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

663                                                                Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

664                                                                Posting Date=FIELD(Date Filter),

665                                                                Currency Code=FIELD(Currency Filter)));

666                           CaptionML=ENU=Credit Amount (LCY);

667                           BlankZero=Yes;

668                           Editable=No;

669                           AutoFormatType=1 }

670   { 102 ;  ;E-Mail       ;Text80    ;ExtendedDatatype=E-Mail;

671                           CaptionML=ENU=E-Mail }

672   { 103 ;  ;Home Page      ;Text80    ;ExtendedDatatype=URL;

673                           CaptionML=ENU=Home Page }

674   { 104 ;  ;Reminder Terms Code ;Code10    ;TableRelation="Reminder Terms";

675                           CaptionML=ENU=Reminder Terms Code }

676   { 105 ;  ;Reminder Amounts  ;Decimal    ;FieldClass=FlowField;

677                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Reminder),

678                                                        Entry Type=CONST(Initial Entry),

679                                                        Customer No.=FIELD(No.),

680                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

681                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

682                                                        Posting Date=FIELD(Date Filter),

683                                                        Currency Code=FIELD(Currency Filter)));

684                           CaptionML=ENU=Reminder Amounts;

685                           Editable=No;

686                           AutoFormatType=1;

687                           AutoFormatExpr="Currency Code" }

688   { 106 ;  ;Reminder Amounts (LCY);Decimal   ;FieldClass=FlowField;

689                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Reminder),

690                                                            Entry Type=CONST(Initial Entry),

691                                                            Customer No.=FIELD(No.),

692                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

693                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

694                                                            Posting Date=FIELD(Date Filter),

695                                                            Currency Code=FIELD(Currency Filter)));

696                           CaptionML=ENU=Reminder Amounts (LCY);

697                           Editable=No;

698                           AutoFormatType=1 }

699   { 107 ;  ;No. Series     ;Code10    ;TableRelation="No. Series";

700                           CaptionML=ENU=No. Series;

701                           Editable=No }

702   { 108 ;  ;Tax Area Code    ;Code20    ;TableRelation="Tax Area";

703                           CaptionML=ENU=Tax Area Code }

704   { 109 ;  ;Tax Liable     ;Boolean    ;CaptionML=ENU=Tax Liable }

705   { 110 ;  ;VAT Bus. Posting Group;Code10   ;TableRelation="VAT Business Posting Group";

706                           CaptionML=ENU=VAT Bus. Posting Group }

707   { 111 ;  ;Currency Filter   ;Code10    ;FieldClass=FlowFilter;

708                           TableRelation=Currency;

709                           CaptionML=ENU=Currency Filter }

710   { 113 ;  ;Outstanding Orders (LCY);Decimal  ;FieldClass=FlowField;

711                           CalcFormula=Sum("Sales Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Order),

712                                                          Bill-to Customer No.=FIELD(No.),

713                                                          Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

714                                                          Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

715                                                          Currency Code=FIELD(Currency Filter)));

716                           AccessByPermission=TableData 110=R;

717                           CaptionML=ENU=Outstanding Orders (LCY);

718                           Editable=No;

719                           AutoFormatType=1 }

720   { 114 ;  ;Shipped Not Invoiced (LCY);Decimal ;FieldClass=FlowField;

721                           CalcFormula=Sum("Sales Line"."Shipped Not Invoiced (LCY)" WHERE (Document Type=CONST(Order),

722                                                           Bill-to Customer No.=FIELD(No.),

723                                                           Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

724                                                           Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

725                                                           Currency Code=FIELD(Currency Filter)));

726                           AccessByPermission=TableData 110=R;

727                           CaptionML=ENU=Shipped Not Invoiced (LCY);

728                           Editable=No;

729                           AutoFormatType=1 }

730   { 115 ;  ;Reserve       ;Option    ;InitValue=Optional;

731                           AccessByPermission=TableData 110=R;

732                           CaptionML=ENU=Reserve;

733                           OptionCaptionML=ENU=Never,Optional,Always;

734                           OptionString=Never,Optional,Always }

735   { 116 ;  ;Block Payment Tolerance;Boolean  ;OnValidate=BEGIN

736                                 UpdatePaymentTolerance((CurrFieldNo <> 0) AND GUIALLOWED);

737                                END;

738

739                           CaptionML=ENU=Block Payment Tolerance }

740   { 117 ;  ;Pmt. Disc. Tolerance (LCY);Decimal ;FieldClass=FlowField;

741                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.),

742                                                             Entry Type=FILTER(Payment Discount Tolerance|'Payment Discount Tolerance (VAT Adjustment)'|'Payment Discount Tolerance (VAT Excl.)'),

743                                                             Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

744                                                             Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

745                                                             Posting Date=FIELD(Date Filter),

746                                                             Currency Code=FIELD(Currency Filter)));

747                           CaptionML=ENU=Pmt. Disc. Tolerance (LCY);

748                           Editable=No;

749                           AutoFormatType=1 }

750   { 118 ;  ;Pmt. Tolerance (LCY);Decimal    ;FieldClass=FlowField;

751                           CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.),

752                                                             Entry Type=FILTER(Payment Tolerance|'Payment Tolerance (VAT Adjustment)'|'Payment Tolerance (VAT Excl.)'),

753                                                             Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

754                                                             Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

755                                                             Posting Date=FIELD(Date Filter),

756                                                             Currency Code=FIELD(Currency Filter)));

757                           CaptionML=ENU=Pmt. Tolerance (LCY);

758                           Editable=No;

759                           AutoFormatType=1 }

760   { 119 ;  ;IC Partner Code   ;Code20    ;TableRelation="IC Partner";

761                           OnValidate=VAR

762                                 CustLedgEntry@1001 : Record 21;

763                                 AccountingPeriod@1000 : Record 50;

764                                 ICPartner@1002 : Record 413;

765                                BEGIN

766                                 IF xRec."IC Partner Code" <> "IC Partner Code" THEN BEGIN

767                                  CustLedgEntry.SETCURRENTKEY("Customer No.","Posting Date");

768                                  CustLedgEntry.SETRANGE("Customer No.","No.");

769                                  AccountingPeriod.SETRANGE(Closed,FALSE);

770                                  IF AccountingPeriod.FINDFIRST THEN

771                                   CustLedgEntry.SETFILTER("Posting Date",'>=%1',AccountingPeriod."Starting Date");

772                                  IF CustLedgEntry.FINDFIRST THEN

773                                   IF NOT CONFIRM(Text011,FALSE,TABLECAPTION) THEN

774                                    "IC Partner Code" := xRec."IC Partner Code";

775

776                                  CustLedgEntry.RESET;

777                                  IF NOT CustLedgEntry.SETCURRENTKEY("Customer No.",Open) THEN

778                                   CustLedgEntry.SETCURRENTKEY("Customer No.");

779                                  CustLedgEntry.SETRANGE("Customer No.","No.");

780                                  CustLedgEntry.SETRANGE(Open,TRUE);

781                                  IF CustLedgEntry.FINDLAST THEN

782                                   ERROR(Text012,FIELDCAPTION("IC Partner Code"),TABLECAPTION);

783                                 END;

784

785                                 IF "IC Partner Code" <> '' THEN BEGIN

786                                  ICPartner.GET("IC Partner Code");

787                                  IF (ICPartner."Customer No." <> '') AND (ICPartner."Customer No." <> "No.") THEN

788                                   ERROR(Text010,FIELDCAPTION("IC Partner Code"),"IC Partner Code",TABLECAPTION,ICPartner."Customer No.");

789                                  ICPartner."Customer No." := "No.";

790                                  ICPartner.MODIFY;

791                                 END;

792

793                                 IF (xRec."IC Partner Code" <> "IC Partner Code") AND ICPartner.GET(xRec."IC Partner Code") THEN BEGIN

794                                  ICPartner."Customer No." := '';

795                                  ICPartner.MODIFY;

796                                 END;

797                                END;

798

799                           CaptionML=ENU=IC Partner Code }

800   { 120 ;  ;Refunds       ;Decimal    ;FieldClass=FlowField;

801                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Refund),

802                                                        Entry Type=CONST(Initial Entry),

803                                                        Customer No.=FIELD(No.),

804                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

805                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

806                                                        Posting Date=FIELD(Date Filter),

807                                                        Currency Code=FIELD(Currency Filter)));

808                           CaptionML=ENU=Refunds }

809   { 121 ;  ;Refunds (LCY)    ;Decimal    ;FieldClass=FlowField;

810                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Refund),

811                                                            Entry Type=CONST(Initial Entry),

812                                                            Customer No.=FIELD(No.),

813                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

814                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

815                                                            Posting Date=FIELD(Date Filter),

816                                                            Currency Code=FIELD(Currency Filter)));

817                           CaptionML=ENU=Refunds (LCY) }

818   { 122 ;  ;Other Amounts    ;Decimal    ;FieldClass=FlowField;

819                           CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(" "),

820                                                        Entry Type=CONST(Initial Entry),

821                                                        Customer No.=FIELD(No.),

822                                                        Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

823                                                        Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

824                                                        Posting Date=FIELD(Date Filter),

825                                                        Currency Code=FIELD(Currency Filter)));

826                           CaptionML=ENU=Other Amounts }

827   { 123 ;  ;Other Amounts (LCY) ;Decimal    ;FieldClass=FlowField;

828                           CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(" "),

829                                                            Entry Type=CONST(Initial Entry),

830                                                            Customer No.=FIELD(No.),

831                                                            Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter),

832                                                            Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter),

833                                                            Posting Date=FIELD(Date Filter),

834                                                            Currency Code=FIELD(Currency Filter)));

835                           CaptionML=ENU=Other Amounts (LCY) }

836   { 124 ;  ;Prepayment %    ;Decimal    ;CaptionML=ENU=Prepayment %;

837                           DecimalPlaces=0:5;

838                           MinValue=0;

839                           MaxValue=100 }

840   { 125 ;  ;Outstanding Invoices (LCY);Decimal ;FieldClass=FlowField;

841                           CalcFormula=Sum("Sales Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Invoice),

842                                                          Bill-to Customer No.=FIELD(No.),

843                                                          Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

844                                                          Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

845                                                          Currency Code=FIELD(Currency Filter)));

846                           AccessByPermission=TableData 110=R;

847                           CaptionML=ENU=Outstanding Invoices (LCY);

848                           Editable=No;

849                           AutoFormatType=1 }

850   { 126 ;  ;Outstanding Invoices;Decimal    ;FieldClass=FlowField;

851                           CalcFormula=Sum("Sales Line"."Outstanding Amount" WHERE (Document Type=CONST(Invoice),

852                                                       Bill-to Customer No.=FIELD(No.),

853                                                       Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

854                                                       Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

855                                                       Currency Code=FIELD(Currency Filter)));

856                           AccessByPermission=TableData 110=R;

857                           CaptionML=ENU=Outstanding Invoices;

858                           Editable=No;

859                           AutoFormatType=1;

860                           AutoFormatExpr="Currency Code" }

861   { 130 ;  ;Bill-to No. Of Archived Doc.;Integer;

862                           FieldClass=FlowField;

863                           CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),

864                                                   Bill-to Customer No.=FIELD(No.)));

865                           CaptionML=ENU=Bill-to No. Of Archived Doc. }

866   { 131 ;  ;Sell-to No. Of Archived Doc.;Integer;

867                           FieldClass=FlowField;

868                           CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),

869                                                   Sell-to Customer No.=FIELD(No.)));

870                           CaptionML=ENU=Sell-to No. Of Archived Doc. }

871   { 132 ;  ;Partner Type    ;Option    ;CaptionML=ENU=Partner Type;

872                           OptionCaptionML=ENU=" ,Company,Person";

873                           OptionString=[ ,Company,Person] }

874   { 288 ;  ;Preferred Bank Account;Code10   ;TableRelation="Customer Bank Account".Code WHERE (Customer No.=FIELD(No.));

875                           CaptionML=ENU=Preferred Bank Account }

876   { 840 ;  ;Cash Flow Payment Terms Code;Code10;TableRelation="Payment Terms";

877                           CaptionML=ENU=Cash Flow Payment Terms Code }

878   { 5049;  ;Primary Contact No. ;Code20    ;TableRelation=Contact;

879                           OnValidate=VAR

880                                 Cont@1000 : Record 5050;

881                                 ContBusRel@1001 : Record 5054;

882                                BEGIN

883                                 Contact := '';

884                                 IF "Primary Contact No." <> '' THEN BEGIN

885                                  Cont.GET("Primary Contact No.");

886

887                                  ContBusRel.SETCURRENTKEY("Link to Table","No.");

888                                  ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer);

889                                  ContBusRel.SETRANGE("No.","No.");

890                                  ContBusRel.FINDFIRST;

891

892                                  IF Cont."Company No." <> ContBusRel."Contact No." THEN

893                                   ERROR(Text003,Cont."No.",Cont.Name,"No.",Name);

894

895                                  IF Cont.Type = Cont.Type::Person THEN

896                                   Contact := Cont.Name

897                                 END;

898                                END;

899

900                           OnLookup=VAR

901                                Cont@1000 : Record 5050;

902                                ContBusRel@1001 : Record 5054;

903                               BEGIN

904                                ContBusRel.SETCURRENTKEY("Link to Table","No.");

905                                ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer);

906                                ContBusRel.SETRANGE("No.","No.");

907                                IF ContBusRel.FINDFIRST THEN

908                                 Cont.SETRANGE("Company No.",ContBusRel."Contact No.")

909                                ELSE

910                                 Cont.SETRANGE("No.",'');

911

912                                IF "Primary Contact No." <> '' THEN

913                                 IF Cont.GET("Primary Contact No.") THEN ;

914                                IF PAGE.RUNMODAL(0,Cont) = ACTION::LookupOK THEN

915                                 VALIDATE("Primary Contact No.",Cont."No.");

916                               END;

917

918                           CaptionML=ENU=Primary Contact No. }

919   { 5700;  ;Responsibility Center;Code10    ;TableRelation="Responsibility Center";

920                           CaptionML=ENU=Responsibility Center }

921   { 5750;  ;Shipping Advice   ;Option    ;AccessByPermission=TableData 110=R;

922                           CaptionML=ENU=Shipping Advice;

923                           OptionCaptionML=ENU=Partial,Complete;

924                           OptionString=Partial,Complete }

925   { 5790;  ;Shipping Time    ;DateFormula  ;AccessByPermission=TableData 5790=R;

926                           CaptionML=ENU=Shipping Time }

927   { 5792;  ;Shipping Agent Service Code;Code10 ;TableRelation="Shipping Agent Services".Code WHERE (Shipping Agent Code=FIELD(Shipping Agent Code));

928                           OnValidate=BEGIN

929                                 IF ("Shipping Agent Code" <> '') AND

930                                   ("Shipping Agent Service Code" <> '')

931                                 THEN

932                                  IF ShippingAgentService.GET("Shipping Agent Code","Shipping Agent Service Code") THEN

933                                   "Shipping Time" := ShippingAgentService."Shipping Time"

934                                  ELSE

935                                   EVALUATE("Shipping Time",'<>');

936                                END;

937

938                           CaptionML=ENU=Shipping Agent Service Code }

939   { 5900;  ;Service Zone Code  ;Code10    ;TableRelation="Service Zone";

940                           CaptionML=ENU=Service Zone Code }

941   { 5902;  ;Contract Gain/Loss Amount;Decimal ;FieldClass=FlowField;

942                           CalcFormula=Sum("Contract Gain/Loss Entry".Amount WHERE (Customer No.=FIELD(No.),

943                                                       Ship-to Code=FIELD(Ship-to Filter),

944                                                       Change Date=FIELD(Date Filter)));

945                           CaptionML=ENU=Contract Gain/Loss Amount;

946                           Editable=No;

947                           AutoFormatType=1 }

948   { 5903;  ;Ship-to Filter   ;Code10    ;FieldClass=FlowFilter;

949                           TableRelation="Ship-to Address".Code WHERE (Customer No.=FIELD(No.));

950                           CaptionML=ENU=Ship-to Filter }

951   { 5910;  ;Outstanding Serv. Orders (LCY);Decimal;

952                           FieldClass=FlowField;

953                           CalcFormula=Sum("Service Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Order),

954                                                           Bill-to Customer No.=FIELD(No.),

955                                                           Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

956                                                           Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

957                                                           Currency Code=FIELD(Currency Filter)));

958                           CaptionML=ENU=Outstanding Serv. Orders (LCY);

959                           Editable=No;

960                           AutoFormatType=1 }

961   { 5911;  ;Serv Shipped Not Invoiced(LCY);Decimal;

962                           FieldClass=FlowField;

963                           CalcFormula=Sum("Service Line"."Shipped Not Invoiced (LCY)" WHERE (Document Type=CONST(Order),

964                                                            Bill-to Customer No.=FIELD(No.),

965                                                            Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

966                                                            Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

967                                                            Currency Code=FIELD(Currency Filter)));

968                           CaptionML=ENU=Serv Shipped Not Invoiced(LCY);

969                           Editable=No;

970                           AutoFormatType=1 }

971   { 5912;  ;Outstanding Serv.Invoices(LCY);Decimal;

972                           FieldClass=FlowField;

973                           CalcFormula=Sum("Service Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Invoice),

974                                                           Bill-to Customer No.=FIELD(No.),

975                                                           Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter),

976                                                           Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter),

977                                                           Currency Code=FIELD(Currency Filter)));

978                           CaptionML=ENU=Outstanding Serv.Invoices(LCY);

979                           Editable=No;

980                           AutoFormatType=1 }

981   { 7001;  ;Allow Line Disc.  ;Boolean    ;InitValue=Yes;

982                           CaptionML=ENU=Allow Line Disc. }

983   { 7171;  ;No. of Quotes    ;Integer    ;FieldClass=FlowField;

984                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Quote),

985                                               Sell-to Customer No.=FIELD(No.)));

986                           CaptionML=ENU=No. of Quotes;

987                           Editable=No }

988   { 7172;  ;No. of Blanket Orders;Integer   ;FieldClass=FlowField;

989                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Blanket Order),

990                                               Sell-to Customer No.=FIELD(No.)));

991                           AccessByPermission=TableData 110=R;

992                           CaptionML=ENU=No. of Blanket Orders;

993                           Editable=No }

994   { 7173;  ;No. of Orders    ;Integer    ;FieldClass=FlowField;

995                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Order),

996                                               Sell-to Customer No.=FIELD(No.)));

997                           AccessByPermission=TableData 110=R;

998                           CaptionML=ENU=No. of Orders;

999                           Editable=No }

1000   { 7174;  ;No. of Invoices   ;Integer    ;FieldClass=FlowField;

1001                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Invoice),

1002                                               Sell-to Customer No.=FIELD(No.)));

1003                           CaptionML=ENU=No. of Invoices;

1004                           Editable=No }

1005   { 7175;  ;No. of Return Orders;Integer    ;FieldClass=FlowField;

1006                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Return Order),

1007                                               Sell-to Customer No.=FIELD(No.)));

1008                           AccessByPermission=TableData 6660=R;

1009                           CaptionML=ENU=No. of Return Orders;

1010                           Editable=No }

1011   { 7176;  ;No. of Credit Memos ;Integer    ;FieldClass=FlowField;

1012                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Credit Memo),

1013                                               Sell-to Customer No.=FIELD(No.)));

1014                           CaptionML=ENU=No. of Credit Memos;

1015                           Editable=No }

1016   { 7177;  ;No. of Pstd. Shipments;Integer   ;FieldClass=FlowField;

1017                           CalcFormula=Count("Sales Shipment Header" WHERE (Sell-to Customer No.=FIELD(No.)));

1018                           CaptionML=ENU=No. of Pstd. Shipments;

1019                           Editable=No }

1020   { 7178;  ;No. of Pstd. Invoices;Integer   ;FieldClass=FlowField;

1021                           CalcFormula=Count("Sales Invoice Header" WHERE (Sell-to Customer No.=FIELD(No.)));

1022                           CaptionML=ENU=No. of Pstd. Invoices;

1023                           Editable=No }

1024   { 7179;  ;No. of Pstd. Return Receipts;Integer;

1025                           FieldClass=FlowField;

1026                           CalcFormula=Count("Return Receipt Header" WHERE (Sell-to Customer No.=FIELD(No.)));

1027                           CaptionML=ENU=No. of Pstd. Return Receipts;

1028                           Editable=No }

1029   { 7180;  ;No. of Pstd. Credit Memos;Integer ;FieldClass=FlowField;

1030                           CalcFormula=Count("Sales Cr.Memo Header" WHERE (Sell-to Customer No.=FIELD(No.)));

1031                           CaptionML=ENU=No. of Pstd. Credit Memos;

1032                           Editable=No }

1033   { 7181;  ;No. of Ship-to Addresses;Integer  ;FieldClass=FlowField;

1034                           CalcFormula=Count("Ship-to Address" WHERE (Customer No.=FIELD(No.)));

1035                           CaptionML=ENU=No. of Ship-to Addresses;

1036                           Editable=No }

1037   { 7182;  ;Bill-To No. of Quotes;Integer   ;FieldClass=FlowField;

1038                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Quote),

1039                                               Bill-to Customer No.=FIELD(No.)));

1040                           CaptionML=ENU=Bill-To No. of Quotes;

1041                           Editable=No }

1042   { 7183;  ;Bill-To No. of Blanket Orders;Integer;

1043                           FieldClass=FlowField;

1044                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Blanket Order),

1045                                               Bill-to Customer No.=FIELD(No.)));

1046                           AccessByPermission=TableData 110=R;

1047                           CaptionML=ENU=Bill-To No. of Blanket Orders;

1048                           Editable=No }

1049   { 7184;  ;Bill-To No. of Orders;Integer   ;FieldClass=FlowField;

1050                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Order),

1051                                               Bill-to Customer No.=FIELD(No.)));

1052                           AccessByPermission=TableData 110=R;

1053                           CaptionML=ENU=Bill-To No. of Orders;

1054                           Editable=No }

1055   { 7185;  ;Bill-To No. of Invoices;Integer  ;FieldClass=FlowField;

1056                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Invoice),

1057                                               Bill-to Customer No.=FIELD(No.)));

1058                           CaptionML=ENU=Bill-To No. of Invoices;

1059                           Editable=No }

1060   { 7186;  ;Bill-To No. of Return Orders;Integer;

1061                           FieldClass=FlowField;

1062                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Return Order),

1063                                               Bill-to Customer No.=FIELD(No.)));

1064                           AccessByPermission=TableData 6660=R;

1065                           CaptionML=ENU=Bill-To No. of Return Orders;

1066                           Editable=No }

1067   { 7187;  ;Bill-To No. of Credit Memos;Integer;FieldClass=FlowField;

1068                           CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Credit Memo),

1069                                               Bill-to Customer No.=FIELD(No.)));

1070                           CaptionML=ENU=Bill-To No. of Credit Memos;

1071                           Editable=No }

1072   { 7188;  ;Bill-To No. of Pstd. Shipments;Integer;

1073                           FieldClass=FlowField;

1074                           CalcFormula=Count("Sales Shipment Header" WHERE (Bill-to Customer No.=FIELD(No.)));

1075                           CaptionML=ENU=Bill-To No. of Pstd. Shipments;

1076                           Editable=No }

1077   { 7189;  ;Bill-To No. of Pstd. Invoices;Integer;

1078                           FieldClass=FlowField;

1079                           CalcFormula=Count("Sales Invoice Header" WHERE (Bill-to Customer No.=FIELD(No.)));

1080                           CaptionML=ENU=Bill-To No. of Pstd. Invoices;

1081                           Editable=No }

1082   { 7190;  ;Bill-To No. of Pstd. Return R.;Integer;

1083                           FieldClass=FlowField;

1084                           CalcFormula=Count("Return Receipt Header" WHERE (Bill-to Customer No.=FIELD(No.)));

1085                           CaptionML=ENU=Bill-To No. of Pstd. Return R.;

1086                           Editable=No }

1087   { 7191;  ;Bill-To No. of Pstd. Cr. Memos;Integer;

1088                           FieldClass=FlowField;

1089                           CalcFormula=Count("Sales Cr.Memo Header" WHERE (Bill-to Customer No.=FIELD(No.)));

1090                           CaptionML=ENU=Bill-To No. of Pstd. Cr. Memos;

1091                           Editable=No }

1092   { 7600;  ;Base Calendar Code ;Code10    ;TableRelation="Base Calendar";

1093                           CaptionML=ENU=Base Calendar Code }

1094   { 7601;  ;Copy Sell-to Addr. to Qte From;Option;

1095                           AccessByPermission=TableData 5050=R;

1096                           CaptionML=ENU=Copy Sell-to Addr. to Qte From;

1097                           OptionCaptionML=ENU=Company,Person;

1098                           OptionString=Company,Person }

1099  }

1100  KEYS

1101  {

1102   {  ;No.                   ;Clustered=Yes }

1103   {  ;Search Name               }

1104   {  ;Customer Posting Group          }

1105   {  ;Currency Code              }

1106   {  ;Country/Region Code           }

1107   {  ;Gen. Bus. Posting Group         }

1108   {  ;Name,Address,City            }

1109   {  ;VAT Registration No.           }

1110   {  ;Name                   }

1111   {  ;City                   }

1112   {  ;Post Code                }

1113   {  ;Phone No.                }

1114   {  ;Contact                 }

1115  }

1116  FIELDGROUPS

1117  {

1118   { 1  ;DropDown      ;No.,Name,City,Post Code,Phone No.,Contact }

1119   { 2  ;Brick        ;No.,Name,Balance (LCY),Contact,Balance Due (LCY) }

1120  }

1121  CODE

1122  {

1123   VAR

1124    Text000@1000 : TextConst 'ENU=You cannot delete %1 %2 because there is at least one outstanding Sales %3 for this customer.';

1125    Text002@1001 : TextConst 'ENU=Do you wish to create a contact for %1 %2?';

1126    SalesSetup@1002 : Record 311;

1127    CommentLine@1004 : Record 97;

1128    SalesOrderLine@1005 : Record 37;

1129    CustBankAcc@1006 : Record 287;

1130    ShipToAddr@1007 : Record 222;

1131    PostCode@1008 : Record 225;

1132    GenBusPostingGrp@1009 : Record 250;

1133    ShippingAgentService@1010 : Record 5790;

1134    ItemCrossReference@1016 : Record 5717;

1135    RMSetup@1018 : Record 5079;

1136    SalesPrice@1021 : Record 7002;

1137    SalesLineDisc@1022 : Record 7004;

1138    SalesPrepmtPct@1003 : Record 459;

1139    ServContract@1026 : Record 5965;

1140    ServHeader@1034 : Record 5900;

1141    ServiceItem@1027 : Record 5940;

1142    PaymentToleranceMgt@1038 : Codeunit 426;

1143    NoSeriesMgt@1011 : Codeunit 396;

1144    MoveEntries@1012 : Codeunit 361;

1145    UpdateContFromCust@1013 : Codeunit 5056;

1146    DimMgt@1014 : Codeunit 408;

1147    ApprovalsMgmt@1039 : Codeunit 1535;

1148    InsertFromContact@1015 : Boolean;

1149    Text003@1020 : TextConst 'ENU=Contact %1 %2 is not related to customer %3 %4.';

1150    Text004@1023 : TextConst 'ENU=post';

1151    Text005@1024 : TextConst 'ENU=create';

1152    Text006@1025 : TextConst 'ENU=You cannot %1 this type of document when Customer %2 is blocked with type %3';

1153    Text007@1028 : TextConst 'ENU=You cannot delete %1 %2 because there is at least one not cancelled Service Contract for this customer.';

1154    Text008@1029 : TextConst 'ENU=Deleting the %1 %2 will cause the %3 to be deleted for the associated Service Items. Do you want to continue?';

1155    Text009@1030 : TextConst 'ENU=Cannot delete customer.';

1156    Text010@1031 : TextConst 'ENU=The %1 %2 has been assigned to %3 %4.\The same %1 cannot be entered on more than one %3. Enter another code.';

1157    Text011@1033 : TextConst 'ENU=Reconciling IC transactions may be difficult if you change IC Partner Code because this %1 has ledger entries in a fiscal year that has not yet been closed.\ Do you still want to change the IC Partner Code?';

1158    Text012@1032 : TextConst 'ENU=You cannot change the contents of the %1 field because this %2 has one or more open ledger entries.';

1159    Text013@1035 : TextConst 'ENU=You cannot delete %1 %2 because there is at least one outstanding Service %3 for this customer.';

1160    Text014@1017 : TextConst 'ENU=Before you can use Online Map, you must fill in the Online Map Setup window.\See Setting Up Online Map in Help.';

1161    Text015@1036 : TextConst 'ENU=You cannot delete %1 %2 because there is at least one %3 associated to this customer.';

1162    AllowPaymentToleranceQst@1037 : TextConst 'ENU=Do you want to allow payment tolerance for entries that are currently open?';

1163    RemovePaymentRoleranceQst@1019 : TextConst 'ENU=Do you want to remove payment tolerance from entries that are currently open?';

1164

1165   PROCEDURE AssistEdit@2(OldCust@1000 : Record 18) : Boolean;

1166   VAR

1167    Cust@1001 : Record 18;

1168   BEGIN

1169    WITH Cust DO BEGIN

1170     Cust := Rec;

1171     SalesSetup.GET;

1172     SalesSetup.TESTFIELD("Customer Nos.");

1173     IF NoSeriesMgt.SelectSeries(SalesSetup."Customer Nos.",OldCust."No. Series","No. Series") THEN BEGIN

1174      NoSeriesMgt.SetSeries("No.");

1175      Rec := Cust;

1176      EXIT(TRUE);

1177     END;

1178    END;

1179   END;

1180

1181   LOCAL PROCEDURE ValidateShortcutDimCode@29(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);

1182   BEGIN

1183    DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);

1184    DimMgt.SaveDefaultDim(DATABASE::Customer,"No.",FieldNumber,ShortcutDimCode);

1185    MODIFY;

1186   END;

1187

1188   PROCEDURE ShowContact@1();

1189   VAR

1190    ContBusRel@1000 : Record 5054;

1191    Cont@1001 : Record 5050;

1192   BEGIN

1193    IF "No." = '' THEN

1194     EXIT;

1195

1196    ContBusRel.SETCURRENTKEY("Link to Table","No.");

1197    ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer);

1198    ContBusRel.SETRANGE("No.","No.");

1199    IF NOT ContBusRel.FINDFIRST THEN BEGIN

1200     IF NOT CONFIRM(Text002,FALSE,TABLECAPTION,"No.") THEN

1201      EXIT;

1202     UpdateContFromCust.InsertNewContact(Rec,FALSE);

1203     ContBusRel.FINDFIRST;

1204    END;

1205    COMMIT;

1206

1207    Cont.SETCURRENTKEY("Company Name","Company No.",Type,Name);

1208    Cont.SETRANGE("Company No.",ContBusRel."Contact No.");

1209    PAGE.RUN(PAGE::"Contact List",Cont);

1210   END;

1211

1212   PROCEDURE SetInsertFromContact@3(FromContact@1000 : Boolean);

1213   BEGIN

1214    InsertFromContact := FromContact;

1215   END;

1216

1217   PROCEDURE CheckBlockedCustOnDocs@5(Cust2@1000 : Record 18;DocType@1001 : 'Quote,Order,Invoice,Credit Memo,Blanket Order,Return Order';Shipment@1005 : Boolean;Transaction@1003 : Boolean);

1218   BEGIN

1219    WITH Cust2 DO BEGIN

1220     IF ((Blocked = Blocked::All) OR

1221       ((Blocked = Blocked::Invoice) AND (DocType IN [DocType::Quote,DocType::Order,DocType::Invoice,DocType::"Blanket Order"])) OR

1222       ((Blocked = Blocked::Ship) AND (DocType IN [DocType::Quote,DocType::Order,DocType::"Blanket Order"]) AND

1223        (NOT Transaction)) OR

1224       ((Blocked = Blocked::Ship) AND (DocType IN [DocType::Quote,DocType::Order,DocType::Invoice,DocType::"Blanket Order"]) AND

1225        Shipment AND Transaction))

1226     THEN

1227      CustBlockedErrorMessage(Cust2,Transaction);

1228    END;

1229   END;

1230

1231   PROCEDURE CheckBlockedCustOnJnls@7(Cust2@1003 : Record 18;DocType@1002 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund';Transaction@1000 : Boolean);

1232   BEGIN

1233    WITH Cust2 DO BEGIN

1234     IF (Blocked = Blocked::All) OR

1235       ((Blocked = Blocked::Invoice) AND (DocType IN [DocType::Invoice,DocType::" "]))

1236     THEN

1237      CustBlockedErrorMessage(Cust2,Transaction)

1238    END;

1239   END;

1240

1241   PROCEDURE CustBlockedErrorMessage@4(Cust2@1001 : Record 18;Transaction@1000 : Boolean);

1242   VAR

1243    Action@1002 : Text[30];

1244   BEGIN

1245    IF Transaction THEN

1246     Action := Text004

1247    ELSE

1248     Action := Text005;

1249    ERROR(Text006,Action,Cust2."No.",Cust2.Blocked);

1250   END;

1251

1252   PROCEDURE DisplayMap@8();

1253   VAR

1254    MapPoint@1001 : Record 800;

1255    MapMgt@1000 : Codeunit 802;

1256   BEGIN

1257    IF MapPoint.FINDFIRST THEN

1258     MapMgt.MakeSelection(DATABASE::Customer,GETPOSITION)

1259    ELSE

1260     MESSAGE(Text014);

1261   END;

1262

1263   PROCEDURE GetTotalAmountLCY@10() : Decimal;

1264   BEGIN

1265    CALCFIELDS("Balance (LCY)","Outstanding Orders (LCY)","Shipped Not Invoiced (LCY)","Outstanding Invoices (LCY)",

1266     "Outstanding Serv. Orders (LCY)","Serv Shipped Not Invoiced(LCY)","Outstanding Serv.Invoices(LCY)");

1267

1268    EXIT(GetTotalAmountLCYCommon);

1269   END;

1270

1271   PROCEDURE GetTotalAmountLCYUI@16() : Decimal;

1272   BEGIN

1273    SETAUTOCALCFIELDS("Balance (LCY)","Outstanding Orders (LCY)","Shipped Not Invoiced (LCY)","Outstanding Invoices (LCY)",

1274     "Outstanding Serv. Orders (LCY)","Serv Shipped Not Invoiced(LCY)","Outstanding Serv.Invoices(LCY)");

1275

1276    EXIT(GetTotalAmountLCYCommon);

1277   END;

1278

1279   LOCAL PROCEDURE GetTotalAmountLCYCommon@17() : Decimal;

1280   VAR

1281    SalesLine@1000 : Record 37;

1282    ServiceLine@1002 : Record 5902;

1283    SalesOutstandingAmountFromShipment@1001 : Decimal;

1284    ServOutstandingAmountFromShipment@1003 : Decimal;

1285    InvoicedPrepmtAmountLCY@1004 : Decimal;

1286   BEGIN

1287    SalesOutstandingAmountFromShipment := SalesLine.OutstandingInvoiceAmountFromShipment("No.");

1288    ServOutstandingAmountFromShipment := ServiceLine.OutstandingInvoiceAmountFromShipment("No.");

1289    InvoicedPrepmtAmountLCY := GetInvoicedPrepmtAmountLCY;

1290

1291    EXIT("Balance (LCY)" + "Outstanding Orders (LCY)" + "Shipped Not Invoiced (LCY)" + "Outstanding Invoices (LCY)" +

1292     "Outstanding Serv. Orders (LCY)" + "Serv Shipped Not Invoiced(LCY)" + "Outstanding Serv.Invoices(LCY)" -

1293     SalesOutstandingAmountFromShipment - ServOutstandingAmountFromShipment - InvoicedPrepmtAmountLCY);

1294   END;

1295

1296   PROCEDURE GetSalesLCY@13() : Decimal;

1297   VAR

1298    CustomerSalesYTD@1005 : Record 18;

1299    AccountingPeriod@1004 : Record 50;

1300    StartDate@1001 : Date;

1301    EndDate@1000 : Date;

1302   BEGIN

1303    StartDate := AccountingPeriod.GetFiscalYearStartDate(WORKDATE);

1304    EndDate := AccountingPeriod.GetFiscalYearEndDate(WORKDATE);

1305    CustomerSalesYTD := Rec;

1306    CustomerSalesYTD."SECURITYFILTERING"("SECURITYFILTERING");

1307    CustomerSalesYTD.SETRANGE("Date Filter",StartDate,EndDate);

1308    CustomerSalesYTD.CALCFIELDS("Sales (LCY)");

1309    EXIT(CustomerSalesYTD."Sales (LCY)");

1310   END;

1311

1312   PROCEDURE CalcAvailableCredit@9() : Decimal;

1313   BEGIN

1314    EXIT(CalcAvailableCreditCommon(FALSE));

1315   END;

1316

1317   PROCEDURE CalcAvailableCreditUI@15() : Decimal;

1318   BEGIN

1319    EXIT(CalcAvailableCreditCommon(TRUE));

1320   END;

1321

1322   LOCAL PROCEDURE CalcAvailableCreditCommon@14(CalledFromUI@1000 : Boolean) : Decimal;

1323   BEGIN

1324    IF "Credit Limit (LCY)" = 0 THEN

1325     EXIT(0);

1326    IF CalledFromUI THEN

1327     EXIT("Credit Limit (LCY)" - GetTotalAmountLCYUI);

1328    EXIT("Credit Limit (LCY)" - GetTotalAmountLCY);

1329   END;

1330

1331   PROCEDURE CalcOverdueBalance@11() OverDueBalance : Decimal;

1332   VAR

1333    CustLedgEntryRemainAmtQuery@1000 : Query 21 SECURITYFILTERING(Filtered);

1334   BEGIN

1335    CustLedgEntryRemainAmtQuery.SETRANGE(Customer_No,"No.");

1336    CustLedgEntryRemainAmtQuery.SETRANGE(IsOpen,TRUE);

1337    CustLedgEntryRemainAmtQuery.SETFILTER(Due_Date,'<%1',WORKDATE);

1338    CustLedgEntryRemainAmtQuery.OPEN;

1339

1340    IF CustLedgEntryRemainAmtQuery.READ THEN

1341     OverDueBalance := CustLedgEntryRemainAmtQuery.Sum_Remaining_Amt_LCY;

1342   END;

1343

1344   PROCEDURE GetLegalEntityType@6() : Text;

1345   BEGIN

1346    EXIT(FORMAT("Partner Type"));

1347   END;

1348

1349   PROCEDURE GetLegalEntityTypeLbl@26() : Text;

1350   BEGIN

1351    EXIT(FIELDCAPTION("Partner Type"));

1352   END;

1353

1354   PROCEDURE SetStyle@12() : Text;

1355   BEGIN

1356    IF CalcAvailableCredit < 0 THEN

1357     EXIT('Unfavorable');

1358    EXIT('');

1359   END;

1360

1361   PROCEDURE HasValidDDMandate@23(Date@1000 : Date) : Boolean;

1362   VAR

1363    SEPADirectDebitMandate@1001 : Record 1230;

1364   BEGIN

1365    EXIT(SEPADirectDebitMandate.GetDefaultMandate("No.",Date) <> '');

1366   END;

1367

1368   PROCEDURE GetInvoicedPrepmtAmountLCY@18() : Decimal;

1369   VAR

1370    SalesLine@1000 : Record 37;

1371   BEGIN

1372    SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No.");

1373    SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::Order);

1374    SalesLine.SETRANGE("Bill-to Customer No.","No.");

1375    SalesLine.CALCSUMS("Prepmt. Amount Inv. (LCY)","Prepmt. VAT Amount Inv. (LCY)");

1376    EXIT(SalesLine."Prepmt. Amount Inv. (LCY)" + SalesLine."Prepmt. VAT Amount Inv. (LCY)");

1377   END;

1378

1379   PROCEDURE CalcCreditLimitLCYExpendedPct@19() : Decimal;

1380   BEGIN

1381    IF "Credit Limit (LCY)" = 0 THEN

1382     EXIT(0);

1383

1384    IF "Balance (LCY)" / "Credit Limit (LCY)" < 0 THEN

1385     EXIT(0);

1386

1387    IF "Balance (LCY)" / "Credit Limit (LCY)" > 1 THEN

1388     EXIT(10000);

1389

1390    EXIT(ROUND("Balance (LCY)" / "Credit Limit (LCY)" * 10000,1));

1391   END;

1392

1393   PROCEDURE CreateAndShowNewInvoice@21();

1394   VAR

1395    SalesHeader@1000 : Record 36;

1396   BEGIN

1397    SalesHeader."Document Type" := SalesHeader."Document Type"::Invoice;

1398    SalesHeader.SETRANGE("Sell-to Customer No.","No.");

1399    SalesHeader.INSERT(TRUE);

1400    COMMIT;

1401    PAGE.RUNMODAL(PAGE::"Mini Sales Invoice",SalesHeader)

1402   END;

1403

1404   PROCEDURE CreateAndShowNewCreditMemo@22();

1405   VAR

1406    SalesHeader@1000 : Record 36;

1407   BEGIN

1408    SalesHeader."Document Type" := SalesHeader."Document Type"::"Credit Memo";

1409    SalesHeader.SETRANGE("Sell-to Customer No.","No.");

1410    SalesHeader.INSERT(TRUE);

1411    COMMIT;

1412    PAGE.RUNMODAL(PAGE::"Mini Sales Credit Memo",SalesHeader)

1413   END;

1414

1415   PROCEDURE CreateAndShowNewQuote@24();

1416   VAR

1417    SalesHeader@1000 : Record 36;

1418   BEGIN

1419    SalesHeader."Document Type" := SalesHeader."Document Type"::Quote;

1420    SalesHeader.SETRANGE("Sell-to Customer No.","No.");

1421    SalesHeader.INSERT(TRUE);

1422    COMMIT;

1423    PAGE.RUNMODAL(PAGE::"Mini Sales Quote",SalesHeader)

1424   END;

1425

1426   LOCAL PROCEDURE UpdatePaymentTolerance@20(UseDialog@1000 : Boolean);

1427   BEGIN

1428    IF "Block Payment Tolerance" THEN BEGIN

1429     IF UseDialog THEN

1430      IF NOT CONFIRM(RemovePaymentRoleranceQst,FALSE) THEN

1431       EXIT;

1432     PaymentToleranceMgt.DelTolCustLedgEntry(Rec);

1433    END ELSE BEGIN

1434     IF UseDialog THEN

1435      IF NOT CONFIRM(AllowPaymentToleranceQst,FALSE) THEN

1436       EXIT;

1437     PaymentToleranceMgt.CalcTolCustLedgEntry(Rec);

1438    END;

1439   END;

1440

1441   PROCEDURE GetBillToCustomerNo@27() : Code[20];

1442   BEGIN

1443    IF "Bill-to Customer No." <> '' THEN

1444     EXIT("Bill-to Customer No.");

1445    EXIT("No.");

1446   END;

1447

1448   BEGIN

1449   END.

1450  }

1451 }

1452

 

Dynamics NAV Table (Target): Customer

  1 OBJECT Table 18 Customer

  2 {

  3  OBJECT-PROPERTIES

  4  {

  5   Date=26.11.15;

  6   Time=12:00:00;

  7   Version List=NAVW19.00.00.43897;

  8  }

  9  PROPERTIES

 10  {

 11   Permissions=TableData 21=r;

 12   DataCaptionFields=No.,Name;

 13   OnInsert=BEGIN

 14         IF "No." = '' THEN BEGIN

 15          SalesSetup.GET;

 16          SalesSetup.TESTFIELD("Customer Nos.");

 17          NoSeriesMgt.InitSeries(SalesSetup."Customer Nos.",xRec."No. Series",0D,"No.","No. Series");

 18         END;

 19         IF "Invoice Disc. Code" = '' THEN

 20          "Invoice Disc. Code" := "No.";

 21

 22         IF NOT InsertFromContact THEN

 23          UpdateContFromCust.OnInsert(Rec);

 24

 25         DimMgt.UpdateDefaultDim(

 26          DATABASE::Customer,"No.",

 27          "Global Dimension 1 Code","Global Dimension 2 Code");

 28        END;

 29

 30   OnModify=BEGIN

 31         "Last Date Modified" := TODAY;

 32

 33         IF (Name <> xRec.Name) OR

 34          ("Search Name" <> xRec."Search Name") OR

 35          ("Name 2" <> xRec."Name 2") OR

 36          (Address <> xRec.Address) OR

 37          ("Address 2" <> xRec."Address 2") OR

 38          (City <> xRec.City) OR

 39          ("Phone No." <> xRec."Phone No.") OR

 40          ("Telex No." <> xRec."Telex No.") OR

 41          ("Territory Code" <> xRec."Territory Code") OR

 42          ("Currency Code" <> xRec."Currency Code") OR

 43          ("Language Code" <> xRec."Language Code") OR

 44          ("Salesperson Code" <> xRec."Salesperson Code") OR

 45          ("Country/Region Code" <> xRec."Country/Region Code") OR

 46          ("Fax No." <> xRec."Fax No.") OR

 47          ("Telex Answer Back" <> xRec."Telex Answer Back") OR

 48          ("VAT Registration No." <> xRec."VAT Registration No.") OR

 49          ("Post Code" <> xRec."Post Code") OR

 50          (County <> xRec.County) OR

 51          ("E-Mail" <> xRec."E-Mail") OR

 52          ("Home Page" <> xRec."Home Page") OR

 53          (Contact <> xRec.Contact)

 54         THEN BEGIN

 55          MODIFY;

 56          UpdateContFromCust.OnModify(Rec);

 57          IF NOT FIND THEN BEGIN

 58           RESET;

 59           IF FIND THEN;

 60          END;

 61         END;

 62        END;

 63

 64   OnDelete=VAR

 65         CampaignTargetGr@1000 : Record 7030;

 66         ContactBusRel@1001 : Record 5054;

 67         Job@1004 : Record 167;

 68         DOPaymentCreditCard@1005 : Record 827;

 69         SocialListeningSearchTopic@1007 : Record 871;

 70         StdCustSalesCode@1003 : Record 172;

 71         CustomReportSelection@1008 : Record 9657;

 72         CampaignTargetGrMgmt@1002 : Codeunit 7030;

 73         VATRegistrationLogMgt@1006 : Codeunit 249;

 74        BEGIN

 75         ApprovalsMgmt.OnCancelCustomerApprovalRequest(Rec);

 76

 77         IF DOPaymentCreditCard.FINDFIRST THEN

 78          DOPaymentCreditCard.DeleteByCustomer(Rec);

 79

 80         ServiceItem.SETRANGE("Customer No.","No.");

 81         IF ServiceItem.FINDFIRST THEN

 82          IF CONFIRM(

 83            Text008,

 84            FALSE,

 85            TABLECAPTION,

 86            "No.",

 87            ServiceItem.FIELDCAPTION("Customer No."))

 88          THEN

 89           ServiceItem.MODIFYALL("Customer No.",'')

 90          ELSE

 91           ERROR(Text009);

 92

 93         Job.SETRANGE("Bill-to Customer No.","No.");

 94         IF Job.FINDFIRST THEN

 95          ERROR(Text015,TABLECAPTION,"No.",Job.TABLECAPTION);

 96

 97         MoveEntries.MoveCustEntries(Rec);

 98

 99         CommentLine.SETRANGE("Table Name",CommentLine."Table Name"::Customer);

100         CommentLine.SETRANGE("No.","No.");

101         CommentLine.DELETEALL;

102

103         CustBankAcc.SETRANGE("Customer No.","No.");

104         CustBankAcc.DELETEALL;

105

106         ShipToAddr.SETRANGE("Customer No.","No.");

107         ShipToAddr.DELETEALL;

108

109         SalesPrice.SETRANGE("Sales Type",SalesPrice."Sales Type"::Customer);

110         SalesPrice.SETRANGE("Sales Code","No.");

111         SalesPrice.DELETEALL;

112

113         SalesLineDisc.SETRANGE("Sales Type",SalesLineDisc."Sales Type"::Customer);

114         SalesLineDisc.SETRANGE("Sales Code","No.");

115         SalesLineDisc.DELETEALL;

116

117         SalesPrepmtPct.SETCURRENTKEY("Sales Type","Sales Code");

118         SalesPrepmtPct.SETRANGE("Sales Type",SalesPrepmtPct."Sales Type"::Customer);

119         SalesPrepmtPct.SETRANGE("Sales Code","No.");

120         SalesPrepmtPct.DELETEALL;

121

122         StdCustSalesCode.SETRANGE("Customer No.","No.");

123         StdCustSalesCode.DELETEALL(TRUE);

124

125         ItemCrossReference.SETCURRENTKEY("Cross-Reference Type","Cross-Reference Type No.");

126         ItemCrossReference.SETRANGE("Cross-Reference Type",ItemCrossReference."Cross-Reference Type"::Customer);

127         ItemCrossReference.SETRANGE("Cross-Reference Type No.","No.");

128         ItemCrossReference.DELETEALL;

129

130         IF NOT SocialListeningSearchTopic.ISEMPTY THEN BEGIN

131          SocialListeningSearchTopic.FindSearchTopic(SocialListeningSearchTopic."Source Type"::Customer,"No.");

132          SocialListeningSearchTopic.DELETEALL;

133         END;

134

135         SalesOrderLine.SETCURRENTKEY("Document Type","Bill-to Customer No.");

136         SalesOrderLine.SETFILTER(

137          "Document Type",'%1|%2',

138          SalesOrderLine."Document Type"::Order,

139          SalesOrderLine."Document Type"::"Return Order");

140         SalesOrderLine.SETRANGE("Bill-to Customer No.","No.");

141         IF SalesOrderLine.FINDFIRST THEN

142          ERROR(

143           Text000,

144           TABLECAPTION,"No.",SalesOrderLine."Document Type");

145

146         SalesOrderLine.SETRANGE("Bill-to Customer No.");

147         SalesOrderLine.SETRANGE("Sell-to Customer No.","No.");

148         IF SalesOrderLine.FINDFIRST THEN

149          ERROR(

150           Text000,

151           TABLECAPTION,"No.",SalesOrderLine."Document Type");

152

153         CampaignTargetGr.SETRANGE("No.","No.");

154         CampaignTargetGr.SETRANGE(Type,CampaignTargetGr.Type::Customer);

155         IF CampaignTargetGr.FIND('-') THEN BEGIN

156          ContactBusRel.SETRANGE("Link to Table",ContactBusRel."Link to Table"::Customer);

157          ContactBusRel.SETRANGE("No.","No.");

158          ContactBusRel.FINDFIRST;

159          REPEAT

160           CampaignTargetGrMgmt.ConverttoContact(Rec,ContactBusRel."Contact No.");

161          UNTIL CampaignTargetGr.NEXT = 0;

162         END;

163

164         ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled);

165         ServContract.SETRANGE("Customer No.","No.");

166         IF ServContract.FINDFIRST THEN

167          ERROR(

168           Text007,

169           TABLECAPTION,"No.");

170

171         ServContract.SETRANGE(Status);

172         ServContract.MODIFYALL("Customer No.",'');

173

174         ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled);

175         ServContract.SETRANGE("Bill-to Customer No.","No.");

176         IF ServContract.FINDFIRST THEN

177          ERROR(

178           Text007,

179           TABLECAPTION,"No.");

180

181         ServContract.SETRANGE(Status);

182         ServContract.MODIFYALL("Bill-to Customer No.",'');

183

184         ServHeader.SETCURRENTKEY("Customer No.","Order Date");

185         ServHeader.SETRANGE("Customer No.","No.");

186         IF ServHeader.FINDFIRST THEN

187          ERROR(

188           Text013,

189           TABLECAPTION,"No.",ServHeader."Document Type");

190

191         ServHeader.SETRANGE("Bill-to Customer No.");

192         IF ServHeader.FINDFIRST THEN

193          ERROR(

194           Text013,

195           TABLECAPTION,"No.",ServHeader."Document Type");

196

197         UpdateContFromCust.OnDelete(Rec);

198

199         CustomReportSelection.SETRANGE("Source Type",DATABASE::Customer);

200         CustomReportSelection.SETRANGE("Source No.","No.");

201         CustomReportSelection.DELETEALL;

202

203         VATRegistrationLogMgt.DeleteCustomerLog(Rec);

204

205         DimMgt.DeleteDefaultDim(DATABASE::Customer,"No.");

206        END;

207

208   OnRename=BEGIN

209         ApprovalsMgmt.RenameApprovalEntries(xRec.RECORDID,RECORDID);

210         "Last Date Modified" := TODAY;

211        END;

212

213   CaptionML=ENU=Customer;

214   LookupPageID=Page22;

215   DrillDownPageID=Page22;

216  }

217  FIELDS

218  {

219   { 1  ;  ;No.         ;Code20    ;AltSearchField=Search Name;

220                           OnValidate=BEGIN

221                                 IF "No." <> xRec."No." THEN BEGIN

222                                  SalesSetup.GET;

223                                  NoSeriesMgt.TestManual(SalesSetup."Customer Nos.");

224                                  "No. Series" := '';

225                                 END;

226                                 IF "Invoice Disc. Code" = '' THEN

227                                  "Invoice Disc. Code" := "No.";

228                                END;

229

230                           CaptionML=ENU=No. }

231   { 2  ;  ;Name   &#