procedure HasBusinessRelations(var RelatedCustomerEnabled: Boolean, var RelatedVendorEnabled: Boolean, var RelatedBankEnabled: Boolean, var RelatedEmployeeEnabled: Boolean)
Parameters
Name
Type
Description
RelatedCustomerEnabled
Boolean
RelatedVendorEnabled
Boolean
RelatedBankEnabled
Boolean
RelatedEmployeeEnabled
Boolean
SetSkipDefault
procedure SetSkipDefault()
IdenticalAddress
procedure IdenticalAddress(Cont: Record Contact): Boolean
[IntegrationEvent(False,False)]
local procedure OnAfterGetSalutation(var SalutationType: Enum "Salutation Formula Salutation Type", var LanguageCode: Code[10], var NamePart: array[5] of Text[100], var Contact: Record Contact, var SalutationFormula: Record "Salutation Formula")
[IntegrationEvent(False,False)]
local procedure OnAfterInheritCompanyToPersonData(var Contact: Record Contact, xContact: Record Contact, NewCompanyContact: Record Contact)
[IntegrationEvent(True,False)]
local procedure OnBeforeVendorInsert(var Vend: Record Vendor, var Contact: Record Contact, VendorTemplateCode: Code[20])
[IntegrationEvent(False,False)]
local procedure OnBeforeCheckIfTypeChangePossibleForPerson(var Contact: Record Contact, xContact: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeChooseNewCustomerTemplate(var Contact: Record Contact, var CustTemplateCode: Code[20], var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreateLink(var Contact: Record Contact, var TempContBusRel: Record "Contact Business Relation", var CreateForm: Integer, var BusRelCode: Code[10], var Table: Enum "Contact Business Relation Link To Table", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnChooseNewCustomerTemplateOnBeforeSelectWithConfirm(var Contact: Record Contact, var CustomerTempl: Record "Customer Templ.", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateCustomerFromTemplateOnBeforeCustomerInsert(var Cust: Record Customer, CustomerTemplate: Code[20], var Contact: Record Contact)
[IntegrationEvent(False,False)]
local procedure OnBeforeFindNewCustomerTemplate(var Contact: Record Contact, var CustTemplateCode: Code[20], var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeInheritCompanyToPersonData(var Contact: Record Contact, xContact: Record Contact, var NewCompanyContact: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeIsUpdateNeeded(var Contact: Record Contact, xContact: Record Contact, var UpdateNeeded: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateCustomerFromTemplateOnAfterApplyCustomerTemplate(var Customer: Record Customer, CustomerTemplate: Record "Customer Templ.", var Contact: Record Contact)
[IntegrationEvent(False,False)]
local procedure OnCreateCustomerLinkOnAfterCreateLink(var Contact: Record Contact, xContact: Record Contact, var ContactBusinessRelation: Record "Contact Business Relation")
[IntegrationEvent(False,False)]
local procedure OnAfterModifySellToCustomerNo(var SalesHeader: Record "Sales Header", var SalesLine: Record "Sales Line")
[IntegrationEvent(False,False)]
local procedure OnAfterModifyBillToCustomerNo(var SalesHeader: Record "Sales Header", var SalesLine: Record "Sales Line")
[IntegrationEvent(False,False)]
local procedure OnAfterProcessNameChange(var Contact: Record Contact, Customer: Record Customer, Vendor: Record Vendor)
[IntegrationEvent(False,False)]
local procedure OnAfterShowCustVendBank(var Contact: Record Contact, var ContactBusinessRelation: Record "Contact Business Relation", FormSelected: Boolean)
[IntegrationEvent(False,False)]
local procedure OnAfterSyncAddress(var Contact: Record Contact, RecContact: Record Contact, var ContChanged: Boolean, var ContactBeforeModify: Record Contact)
[IntegrationEvent(False,False)]
local procedure OnBeforeApplyCompanyChangeToPerson(var PersonContact: Record Contact, Contact: Record Contact, xContact: Record Contact, var ContChanged: Boolean, OldContact: Record Contact)
[IntegrationEvent(False,False)]
local procedure OnBeforeAssistEdit(var Contact: Record Contact, OldContact: Record Contact, var IsHandled: Boolean, var Result: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeDuplicateCheck(Contact: Record Contact, xContact: Record Contact, var IsDuplicateCheckNeeded: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCheckForExistingRelationships(var Contact: Record Contact, LinkToTable: Integer, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCheckForCompanyContactExistingRelationships(var Contact: Record Contact, var ContBusRel: Record "Contact Business Relation", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCheckContactType(var Contact: Record Contact, ContactType: Enum "Contact Type", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreateCustomerFromTemplate(var Contact: Record Contact, var CustNo: Code[20], var IsHandled: Boolean, CustomerTemplate: Code[20], HideValidationDialog: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreateCompanyContactCustomerFromTemplate(var Contact: Record Contact, CustomerTemplate: Code[20], var CustNo: Code[20], HideValidationDialog: Boolean, var CustomerCreated: Boolean, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreateCompanyContactVendor(var Contact: Record Contact, var VendorNo: Code[20], HideValidationDialog: Boolean, var VendorCreated: Boolean, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreateBankAccount(var Contact: Record Contact, var BankAccountNo: Code[20], var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeCreateSalesQuoteFromContact(var Contact: Record Contact, var SalesHeader: Record "Sales Header")
[IntegrationEvent(False,False)]
local procedure OnBeforeGetSalutation(var Contact: Record Contact, var SalutationType: Enum "Salutation Formula Salutation Type", var LanguageCode: Code[10], var IsHandled: Boolean, var Salutation: Text[260])
[IntegrationEvent(True,False)]
local procedure OnBeforeProcessPersonNameChange(var IsHandled: Boolean, var Contact: Record Contact, var Customer: Record Customer, var Vendor: Record Vendor)
[IntegrationEvent(True,False)]
local procedure OnBeforeTypeChange(var Contact: Record Contact, xContact: Record Contact, var InteractLogEntry: Record "Interaction Log Entry", var Opp: Record Opportunity, var Task: Record "To-do", var Cont: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeValidateCity(var Contact: Record Contact, var PostCode: Record "Post Code", CurrentFieldNo: Integer, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeValidateVATRegistrationNo(var Contact: Record Contact, xContact: Record Contact, FieldNumber: Integer, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeUpdateCompanyNo(var Contact: Record Contact, xContact: Record Contact, var IsHandled: Boolean, var SkipModifyOpportunity: Boolean, var SkipModifyOpportunityEntry: Boolean, var SkipModifyTask: Boolean, var SkipModifyInteractionLogEntry: Boolean, var SkipModifySalesHeader: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeUpdateQuotesFromTemplate(Customer: Record Customer, CustomerTemplateCode: Code[20], var IsHandled: Boolean, var Contact: Record Contact)
[IntegrationEvent(False,False)]
local procedure OnBeforeUpdateFieldForNewCompany(var Contact: Record Contact, var FieldNo: Integer, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeUpdateSearchName(var Contact: Record Contact, xContact: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeValidatePostCode(var Contact: Record Contact, var PostCode: Record "Post Code", CurrentFieldNo: Integer, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateSalesQuoteFromContactOnBeforeSalesHeaderInsert(var Contact: Record Contact, var SalesHeader: Record "Sales Header")
[IntegrationEvent(False,False)]
local procedure OnCreateCustomerOnBeforeUpdateQuotes(var Customer: Record Customer, Contact: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateVendorOnAfterUpdateVendor(var Vendor: Record Vendor, Contact: Record Contact, var ContBusRel: Record "Contact Business Relation")
[IntegrationEvent(False,False)]
local procedure OnLookupNewCustomerTemplateOnBeforeSetTableView(Contact: Record Contact, var CustomerTemplate: Record "Customer Templ.")
[IntegrationEvent(False,False)]
local procedure OnGetSalutationString(var SalutationString: Text[260], SalutationFormula: Record "Salutation Formula", NamePart: array[5] of Text[100])
[IntegrationEvent(False,False)]
local procedure OnShowCustVendBankOnBeforeRunPage(var Contact: Record Contact, FormSelected: Boolean, var ContBusRel: Record "Contact Business Relation", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnAfterCreateEmployee(var Employee: Record Employee, var ContBusRel: Record "Contact Business Relation")
[IntegrationEvent(False,False)]
local procedure OnBeforeShowResultForCustomer(var Customer: Record Customer, var Contact: Record Contact, var HideValidationDialog: Boolean, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnBeforeShowResultForVendor(var Vendor: Record Vendor, var Contact: Record Contact, var HideValidationDialog: Boolean, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateVendorFromTemplateOnBeforeCommit(Contact: Record Contact, Vend: Record Vendor, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateCustomerFromTemplateOnBeforeInitCustomerNo(var Customer: Record Customer, var Contact: Record Contact, CustomerTempl: Record "Customer Templ.", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateVendorFromTemplateOnBeforeInitVendorNo(var Vendor: Record Vendor, var Contact: Record Contact, VendorTempl: Record "Vendor Templ.", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnProcessPersonNameChangeOnBeforeAssignCustomerContact(var Customer: Record Customer, var Contact: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnProcessPersonNameChangeOnBeforeAssignVendorContact(var Vendor: Record Vendor, var Contact: Record Contact, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnShowResultForVendorOnBeforeShowrelatedRecordisCreatedMsg(var Vendor: Record Vendor, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateSalesQuoteFromContactOnBeforeRunPage(Contact: Record Contact, SalesHeader: Record "Sales Header", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateSalesQuoteFromContactOnAfterRunPage(Contact: Record Contact, SalesHeader: Record "Sales Header")
[IntegrationEvent(False,False)]
local procedure OnModifyOnBeforeInheritAddressDetails(var RecContact: Record Contact, var xRecContact: Record Contact, MarketingSetup: Record "Marketing Setup", Contact: Record Contact, var ContChanged: Boolean, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnModifyOnBeforeInheritCommunicationDetails(var RecContact: Record Contact, var xRecContact: Record Contact, MarketingSetup: Record "Marketing Setup", Contact: Record Contact, var ContChanged: Boolean, var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateEmployeeOnBeforeInitEmployeeNo(var Employee: Record Employee, var Contact: Record Contact, EmployeeTempl: Record "Employee Templ.", var IsHandled: Boolean)
[IntegrationEvent(False,False)]
local procedure OnCreateCustomerFromTemplateOnBeforeContBusRelInsert(var Contact: Record Contact, var Customer: Record Customer, var ContactBusinessRelation: Record "Contact Business Relation")
[IntegrationEvent(False,False)]
local procedure OnCreateVendorFromTemplateOnBeforeContBusRelInsert(var Contact: Record Contact, var Vendor: Record Vendor, var ContactBusinessRelation: Record "Contact Business Relation")
[IntegrationEvent(False,False)]
local procedure OnCreateBankAccountOnBeforeContBusRelInsert(var Contact: Record Contact, var BankAccount: Record "Bank Account", var ContactBusinessRelation: Record "Contact Business Relation")
[IntegrationEvent(False,False)]
local procedure OnShowBusinessRelationOnAfterFilterBusinessRelations(var Rec: Record Contact, var ContactBusinessRelation: Record "Contact Business Relation", ContactBusinessRelationLinkToTable: Enum "Contact Business Relation Link To Table", All: Boolean)