Overriding Address Data

If you want to override the default address data with your own, you can implement this using an event subscriber.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18


codeunit 50200 EPostApiExt
{
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"BEL365 E-POST Api", 'OnBeforeWriteJSONContent', '', false, false)]

    local procedure OnBeforeWriteJSONContent(var addressLine1: Text; var addressLine2: Text; var addressLine3: Text; RecRef: RecordRef)
    var
        Contact: Record Contact;
        ContactFieldRef: FieldRef;
        DataTypeMgmt: Codeunit "Data Type Management";
    begin
    // Get document related contact data
        DataTypeMgmt.FindFieldByName(RecRef, ContactFieldRef, 'Bill-to Contact No.');
        if Contact.Get(ContactFieldRef.Value) then begin
    // Override address data with different field from contact
            addressLine3 := Contact."Address 2";
        end;
    end;
}