6. Mai 2014 14:47
CreateCustomer(ChooseCustomerTemplate);
TESTFIELD("Company No.");
RMSetup.GET;
RMSetup.TESTFIELD("Bus. Rel. Code for Customers");
ContBusRel.RESET;
ContBusRel.SETRANGE("Contact No.","No.");
ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer);
IF ContBusRel.FIND('-') THEN
ERROR(
Text019,
TABLECAPTION,"No.",ContBusRel.TABLECAPTION,ContBusRel."Link to Table",ContBusRel."No.")
ELSE
IF CustomerTemplate <> '' THEN
CustTemplate.GET(CustomerTemplate);
CLEAR(Cust);
Cust.SetInsertFromContact(TRUE);
...
ContBusRel.RESET;
ContBusRel.SETRANGE("Contact No.","No.");
ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer);
IF ContBusRel.FIND('-') THEN
ERROR(
Text019,
TABLECAPTION,"No.",ContBusRel.TABLECAPTION,ContBusRel."Link to Table",ContBusRel."No.")
ELSE
...
8. Mai 2014 08:02
// NAV-Standard auskommentiert
// CreateCustomer(ChooseCustomerTemplate);
// ersetzt durch diese Zeile:
CreateCustomer("custTempl to coinnect");
12. Mai 2014 16:07