Public Sub MAIN()
    Call FyllFält("Obj_namn", "OBJEKTNAMN")
    Call FyllFält("Obj_adr", "OBJEKTADRESS")
    Call FyllFält("Obj_nummer", "OBJEKTNR")
    Call FyllFält("Fast_bet", "FAST_BET")
    Call FyllFält("Inh_namn", "INNEHAVARE")
    Call FyllFält("Inh_adr", "INNEHAVARE_ADRESS")
    Call FyllFält("Inh_adr2", "INNEHAVARE_ADRESS2")
    Call FyllFält("Ag_namn", "AGARE")
    Call FyllFält("Ag_adr", "AGARE_ADRESS")
    Call FyllFält("Ag_adr2", "AGARE_ADRESS2")
    Call FyllFält("Ku_namn", "KUND")
    Call FyllFält("Ku_adr", "KUND_ADRESS")
    Call FyllFält("Ku_adr2", "KUND_ADRESS2")
    Call FyllFält("Kund_Orgnr", "KUND_ORGNR")
    Call FyllFält("HDnummer", "H_DIARIENR")
    Call FyllFält("Bes_dat", "BESIKT_DATUM")

    Call FyllFält("Und_namn", "UNDERSKRIFT")
    Call FyllFält("Und_Tel", "UNDERSKRIFT_TEL")
    Call FyllFält("Und_titel", "UNDERSKRIFT_TITEL")
    Call FyllFält("Und_email", "UNDERSKRIFT_EMAIL")

    Call FyllMedDatum("txtDatum")

    If HämtaFrånCore("REGELB_BESIKT") = "1" Then Call MarkeraKryssruta("Bes_reg")
    If HämtaFrånCore("REGELB_BESIKT") = "0" Then Call MarkeraKryssruta("Bes_annan")
    If HämtaFrånCore("TILLSYN") = "1" Then Call MarkeraKryssruta("Kryss_till")
    If HämtaFrånCore("BRANDSYN") = "1" Then Call MarkeraKryssruta("Kryss_brand")

    WordBasic.UpdateFields

End Sub

Public Function HämtaFrånCore(ByVal CoreVärde)
    Dim SökvägDatafil: SökvägDatafil = WordBasic.[GetPrivateProfileString$]("SÖKVÄGAR", "Databibliotek", "core.ini")
    HämtaFrånCore = "" + WordBasic.[GetPrivateProfileString$]("POST 1", CoreVärde, SökvägDatafil + "\COREDATA.TXT")
End Function

Public Sub FyllFält(ByVal WordFält, ByVal CoreVärde)
    WordBasic.SetFormResult WordFält, HämtaFrånCore(CoreVärde)
End Sub

Public Sub FyllMedDatum(ByVal WordFält)
    WordBasic.SetFormResult WordFält, DatePart("yyyy", Date) & "-" & DatePart("m", Date) & "-" & DatePart("d", Date)
End Sub

Public Sub MarkeraKryssruta(ByVal WordFält)
    WordBasic.SetFormResult WordFält, 1
End Sub