** END HEADER -- do not remove this line
//
// Generated on 05/10/2021
//
parameter bModal
local f
f = new StammcustForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class StammcustForm of FORM
   with (this)
      onGotFocus = class::FORM_ONGOTFOCUS
      onLostFocus = class::FORM_ONLOSTFOCUS
      onNavigate = class::FORM_ONNAVIGATE
      canClose = class::FORM_CANCLOSE
      canNavigate = class::FORM_CANNAVIGATE
      onOpen = class::FORM_ONOPEN
      onClose = class::FORM_ONCLOSE
      open = class::FORM_OPEN
      readModal = class::FORM_READMODAL
      scaleFontSize = 10.0
      scaleFontBold = true
      metric = 6	// Pixels
      colorNormal = "0x787878"
      height = 638.0
      left = 199.0
      top = 30.0
      width = 731.0
      text = "firma adressen ****Bci**** "
      autoCenter = true
      mdi = true
      showTaskBarButton = true
      smallTitle = true
      sizeable = false
      moveable = true
      statusMessage = ""
      menuFile = "bci2.mnu"
      icon = "filename D:\DFCC_Programms\Customerinfo\include\dfccinfo.ico"
   endwith

   this.DATABANK_KLANTEN = new DATABASE(this)
   with (this.DATABANK_KLANTEN)
      left = 19.0
      top = 135.0
      width = 96.0
      height = 37.0
      databaseName = "CUSTINFO"
      active = true
   endwith

   this.VRaagBak_FIRMA = new QUERY(this)
   with (this.VRaagbak_FIRMA)
      left = 35.0
      top = 77.0
      width = 53.0
      height = 37.0
      database = form.databank_klanten
      sql = [Select idnummer, name, street, plz, city, province,areacode, country, basetelefon, basefax, handy,;
                email, web, soort, choice, creatie,;
                 outside, taal, monitor, btwnummer, btw, betalingen from "stammdat"]
      active = true
   endwith

   with (this.VRaagbak_FIRMA.rowset)
      with (fields["Province"])
         lookupSQL = "select areacode,area from euroregions order by area"
      endwith
      with (fields["Country"])
         lookupSQL = "select landId,land from country order by land"
      endwith
      with (fields["soort"])
         lookupSQL = "select segcode,description from segm order by description"
      endwith
      with (fields["outside"])
         lookupSQL = [select * from employee order by name]
      endwith
      with (fields["TAAL"])
         lookupSQL = [select idtaal,naam from taal order by naam]
      endwith
      autoEdit = false
   endwith

   this.VRaagbak_BEDRIJFSTAK = new QUERY(this)
   with (this.VRaagbak_BEDRIJFSTAK)
      left = 301.0
      top = 99.0
      width = 87.0
      height = 37.0
      database = form.databank_klanten
      sql = 'Select * from "branches"'
      active = true
   endwith

   this.VRaagbak_SEGM = new QUERY(this)
   with (this.VRaagbak_SEGM)
      left = 259.0
      top = 33.0
      width = 50.0
      height = 37.0
      database = form.databank_klanten
      sql = [Select segm.segcode,segm.description from "segm.dbf" segm]
      active = true
   endwith

   with (this.VRaagbak_SEGM.rowset)
      autoEdit = false
      indexName = "segcode"
   endwith

   this.vraagbak_BEDIEND = new QUERY(this)
   with (this.vraagbak_BEDIEND)
      left = 539.0
      top = 237.0
      width = 66.0
      height = 37.0
      database = form.databank_klanten
      sql = 'Select * from "employee"'
      active = true
   endwith

   with (this.vraagbak_BEDIEND.rowset)
      autoEdit = false
   endwith

   this.vraagbak_REGIO = new QUERY(this)
   with (this.vraagbak_REGIO)
      left = 231.0
      top = 239.0
      width = 54.0
      height = 37.0
      database = form.databank_klanten
      sql = 'Select landcode, areacode,area from "euroregions"'
      active = true
   endwith

   with (this.vraagbak_REGIO.rowset)
      autoEdit = false
   endwith

   this.vraagbak_KONTAKT = new QUERY(this)
   with (this.vraagbak_KONTAKT)
      onOpen = class::vraagbak_KONTAKT_ONOPEN
      left = 399.0
      top = 66.0
      width = 66.0
      height = 37.0
      database = form.databank_klanten
      sql = 'Select * from "communicate"'
      active = true
   endwith

   with (this.vraagbak_KONTAKT.rowset)
      with (fields["task"])
         lookupSQL = "select * from job"
      endwith
      with (fields["Voor_en_naam"])
         beforeGetValue = class::VOOR_EN_NAAM_BEFOREGETVALUE
      endwith
      autoEdit = false
      masterRowset = form.vraagbak_firma.rowset
      masterFields = "IDNUMMER"
   endwith

   this.TEKST_HOOFDING = new TEXT(this)
   with (this.TEKST_HOOFDING)
      height = 22.0
      left = 10.0
      top = 5.0
      width = 221.0
      colorNormal = "blue/0x787878"
      fontName = "Times New Roman"
      fontSize = 14.0
      fontBold = true
      text = ""
   endwith

   this.RECHTHOEK_EIGENSCHAPPEN = new RECTANGLE(this)
   with (this.RECHTHOEK_EIGENSCHAPPEN)
      left = 5.0
      top = 330.0
      width = 630.0
      height = 63.0
      text = ""
      colorNormal = "white/0x8d8d8d"
      border = false
      borderStyle = 2	// Lowered
   endwith

   this.RECHTHOEK_BLADWIJZER = new RECTANGLE(this)
   with (this.RECHTHOEK_BLADWIJZER)
      left = 5.0
      top = 495.0
      width = 715.0
      height = 135.0
      text = "Firma    Contact"
      colorNormal = "white/0x8d8d8d"
      fontBold = true
   endwith

   this.RECHTHOEK_COMMUNICATIE = new RECTANGLE(this)
   with (this.RECHTHOEK_COMMUNICATIE)
      left = 5.0
      top = 225.0
      width = 630.0
      height = 100.0
      text = ""
      colorNormal = "white/0x8d8d8d"
      border = false
      borderStyle = 2	// Lowered
   endwith

   this.RECHTHOEK_BASISDATA = new RECTANGLE(this)
   with (this.RECHTHOEK_BASISDATA)
      left = 5.0
      top = 66.0
      width = 630.0
      height = 121.0
      text = ""
      colorNormal = "white/0x8d8d8d"
      border = false
      borderStyle = 2	// Lowered
   endwith

   this.RECHTHOEK_KONTAKTEN = new RECTANGLE(this)
   with (this.RECHTHOEK_KONTAKTEN)
      left = 640.0
      top = 70.0
      width = 83.0
      height = 60.0
      text = "contact"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.VELD_IDNR = new ENTRYFIELD(this)
   with (this.VELD_IDNR)
      when = class::VELD_IDNR_WHEN
      dataLink = form.vraagbak_firma.rowset.fields["idnummer"]
      height = 15.0
      left = 88.0
      top = 74.0
      width = 84.0
      colorNormal = "black/silver"
      border = false
      tabStop = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_FIRMA = new TEXT(this)
   with (this.TEKST_FIRMA)
      height = 16.0
      left = 10.0
      top = 96.0
      width = 61.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "firma"
   endwith

   this.VELD_NAAM = new ENTRYFIELD(this)
   with (this.VELD_NAAM)
      dataLink = form.vraagbak_firma.rowset.fields["name"]
      systemTheme = false
      height = 15.0
      left = 88.0
      top = 96.0
      width = 538.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_STRAAT = new TEXT(this)
   with (this.TEKST_STRAAT)
      height = 15.0
      left = 10.0
      top = 117.0
      width = 60.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "straat"
   endwith

   this.VELD_STRAAT = new ENTRYFIELD(this)
   with (this.VELD_STRAAT)
      dataLink = form.vraagbak_firma.rowset.fields["street"]
      height = 15.0
      left = 88.0
      top = 117.0
      width = 538.0
      colorNormal = "black/silver"
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_POSTNUMMER = new TEXT(this)
   with (this.TEKST_POSTNUMMER)
      height = 15.0
      left = 10.0
      top = 138.0
      width = 72.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "postkode"
   endwith

   this.VELD_POSTNR = new ENTRYFIELD(this)
   with (this.VELD_POSTNR)
      dataLink = form.vraagbak_firma.rowset.fields["plz"]
      height = 15.0
      left = 88.0
      top = 138.0
      width = 96.0
      colorNormal = "black/silver"
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_STAD = new TEXT(this)
   with (this.TEKST_STAD)
      height = 18.0
      left = 194.0
      top = 138.0
      width = 30.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "Stad"
   endwith

   this.VELD_STAD = new ENTRYFIELD(this)
   with (this.VELD_STAD)
      dataLink = form.vraagbak_firma.rowset.fields["city"]
      height = 15.0
      left = 230.0
      top = 138.0
      width = 395.0
      colorNormal = "black/silver"
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_LAND = new TEXT(this)
   with (this.TEKST_LAND)
      height = 22.0
      left = 10.0
      top = 159.0
      width = 49.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "land"
   endwith

   this.DOOS_DATA = new CONTAINER(this)
   with (this.DOOS_DATA)
      left = 5.0
      top = 30.0
      width = 275.0
      height = 32.0
      colorNormal = "0x8d8d8d"
      borderStyle = 10	// Etched Out
   endwith

   this.DOOS_DATA.KNOP_NIEUW = new PUSHBUTTON(this.DOOS_DATA)
   with (this.DOOS_DATA.KNOP_NIEUW)
      onClick = class::KNOP_NIEUW_ONCLICK
      height = 25.0
      left = 3.0
      top = 1.0
      width = 49.0
      text = ""
      speedBar = true
      upBitmap = "RESOURCE PS_APPEND"
      fontBold = true
      tabStop = false
      speedTip = "nieuwe Data"
      colorNormal = "BtnText/blue"
      pageno = 0
   endwith

   this.DOOS_DATA.KNOP_AANPASSEN = new PUSHBUTTON(this.DOOS_DATA)
   with (this.DOOS_DATA.KNOP_AANPASSEN)
      onClick = class::KNOP_AANPASSEN_ONCLICK
      height = 25.0
      left = 56.0
      top = 1.0
      width = 49.0
      text = ""
      speedBar = true
      upBitmap = "RESOURCE ps_edit"
      fontBold = true
      tabStop = false
      speedTip = "aanpassen Data"
      colorNormal = "BtnText/blue"
      pageno = 0
   endwith

   this.DOOS_DATA.KNOP_OPSLAAN = new PUSHBUTTON(this.DOOS_DATA)
   with (this.DOOS_DATA.KNOP_OPSLAAN)
      onClick = class::KNOP_OPSLAAN_ONCLICK
      height = 25.0
      left = 107.0
      top = 1.0
      width = 49.0
      text = ""
      speedBar = true
      upBitmap = "RESOURCE ps_save"
      fontBold = true
      tabStop = false
      speedTip = "opslaan Data"
      colorNormal = "BtnText/Green"
      pageno = 0
   endwith

   this.DOOS_DATA.KNOP_ONGEDAAN = new PUSHBUTTON(this.DOOS_DATA)
   with (this.DOOS_DATA.KNOP_ONGEDAAN)
      onClick = class::KNOP_ONGEDAAN_ONCLICK
      height = 25.0
      left = 159.0
      top = 1.0
      width = 49.0
      text = ""
      speedBar = true
      upBitmap = "RESOURCE ps_abandon"
      fontBold = true
      tabStop = false
      speedTip = "ongedaan maken Data"
      colorNormal = "black/0x80ff"
      pageno = 0
   endwith

   this.DOOS_DATA.KNOP_VERWIJDEREN = new PUSHBUTTON(this.DOOS_DATA)
   with (this.DOOS_DATA.KNOP_VERWIJDEREN)
      onClick = class::KNOP_VERWIJDEREN_ONCLICK
      height = 25.0
      left = 213.0
      top = 1.0
      width = 49.0
      text = ""
      speedBar = true
      upBitmap = "RESOURCE ps_delete"
      fontBold = true
      tabStop = false
      speedTip = "Verwijderen Data"
      colorNormal = "BtnText/red"
      pageno = 0
   endwith

   this.DOOS_NAVIGATIE = new CONTAINER(this)
   with (this.DOOS_NAVIGATIE)
      left = 295.0
      top = 30.0
      width = 270.0
      height = 32.0
      colorNormal = "0x8d8d8d"
      borderStyle = 10	// Etched Out
   endwith

   this.DOOS_NAVIGATIE.KNOP_EERST = new PUSHBUTTON(this.DOOS_NAVIGATIE)
   with (this.DOOS_NAVIGATIE.KNOP_EERST)
      onClick = class::KNOP_EERST_ONCLICK
      height = 26.0
      left = 5.0
      top = 1.0
      width = 60.0
      text = ""
      upBitmap = "RESOURCE PS_FIRST"
      fontBold = true
      tabStop = false
      speedTip = "Aanvang Data"
      pageno = 0
   endwith

   this.DOOS_NAVIGATIE.KNOP_VORIG = new PUSHBUTTON(this.DOOS_NAVIGATIE)
   with (this.DOOS_NAVIGATIE.KNOP_VORIG)
      onClick = class::KNOP_VORIG_ONCLICK
      height = 25.0
      left = 70.0
      top = 1.0
      width = 60.0
      text = ""
      upBitmap = "RESOURCE PS_prev"
      fontBold = true
      tabStop = false
      speedTip = "Vorige Data"
      pageno = 0
   endwith

   this.DOOS_NAVIGATIE.KNOP_VOLGEND = new PUSHBUTTON(this.DOOS_NAVIGATIE)
   with (this.DOOS_NAVIGATIE.KNOP_VOLGEND)
      onClick = class::KNOP_VOLGEND_ONCLICK
      height = 25.0
      left = 135.0
      top = 1.0
      width = 60.0
      text = ""
      upBitmap = "RESOURCE PS_next"
      fontBold = true
      tabStop = false
      speedTip = "volgende Data"
      pageno = 0
   endwith

   this.DOOS_NAVIGATIE.KNOP_LAATST = new PUSHBUTTON(this.DOOS_NAVIGATIE)
   with (this.DOOS_NAVIGATIE.KNOP_LAATST)
      onClick = class::KNOP_LAATST_ONCLICK
      height = 25.0
      left = 200.0
      top = 1.0
      width = 60.0
      text = ""
      upBitmap = "RESOURCE PS_last"
      fontBold = true
      tabStop = false
      speedTip = "laatste Data"
      pageno = 0
   endwith

   this.KEUZEDOOS_LAND = new COMBOBOX(this)
   with (this.KEUZEDOOS_LAND)
      onGotFocus = class::KEUZEDOOS_LAND_ONGOTFOCUS
      dataLink = form.vraagbak_firma.rowset.fields["country"]
      height = 22.0
      left = 88.0
      top = 159.0
      width = 210.0
      fontBold = true
      colorNormal = "black/silver"
      autoTrim = true
      style = 2	// DropDownList
      dropDownHeight = 132.0
      borderStyle = 3	// None
   endwith

   this.TEKST_TELEFOON = new TEXT(this)
   with (this.TEKST_TELEFOON)
      height = 15.0
      left = 10.0
      top = 230.0
      width = 55.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "telefoon"
   endwith

   this.VELD_TELEFOON = new ENTRYFIELD(this)
   with (this.VELD_TELEFOON)
      dataLink = form.vraagbak_firma.rowset.fields["basetelefon"]
      height = 15.0
      left = 85.0
      top = 230.0
      width = 210.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_FAX = new TEXT(this)
   with (this.TEKST_FAX)
      height = 16.0
      left = 375.0
      top = 230.0
      width = 30.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "fax"
   endwith

   this.VELD_FAX = new ENTRYFIELD(this)
   with (this.VELD_FAX)
      dataLink = form.vraagbak_firma.rowset.fields["basefax"]
      height = 15.0
      left = 415.0
      top = 230.0
      width = 210.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_GSM = new TEXT(this)
   with (this.TEKST_GSM)
      height = 19.0
      left = 10.0
      top = 250.0
      width = 35.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "gsm"
   endwith

   this.VELD_GSM = new ENTRYFIELD(this)
   with (this.VELD_GSM)
      dataLink = form.vraagbak_firma.rowset.fields["handy"]
      height = 15.0
      left = 85.0
      top = 250.0
      width = 210.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_EMAIL = new TEXT(this)
   with (this.TEKST_EMAIL)
      height = 22.0
      left = 10.0
      top = 275.0
      width = 38.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      alignHorizontal = 2	// Right
      fontBold = true
      text = "e-Mail"
   endwith

   this.VELD_MAIL = new ENTRYFIELD(this)
   with (this.VELD_MAIL)
      onLeftDblClick = class::VELD_MAIL_ONLEFTDBLCLICK
      dataLink = form.vraagbak_firma.rowset.fields["email"]
      height = 15.0
      left = 85.0
      top = 275.0
      width = 540.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      mousePointer = 13	// Hand
      borderStyle = 3	// None
   endwith

   this.TEKST_WEB = new TEXT(this)
   with (this.TEKST_WEB)
      height = 15.0
      left = 10.0
      top = 300.0
      width = 56.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 1	// Middle
      fontBold = true
      text = "website"
   endwith

   this.VELD_WEBSITE = new ENTRYFIELD(this)
   with (this.VELD_WEBSITE)
      onLeftDblClick = class::VELD_WEBSITE_ONLEFTDBLCLICK
      dataLink = form.vraagbak_firma.rowset.fields["web"]
      height = 15.0
      left = 85.0
      top = 300.0
      width = 540.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      mousePointer = 13	// Hand
      borderStyle = 3	// None
   endwith

   this.KNOP_AANMAAK_CONTACT = new PUSHBUTTON(this)
   with (this.KNOP_AANMAAK_CONTACT)
      onClick = class::KNOP_AANMAAK_CONTACT_ONCLICK
      height = 35.0
      left = 648.0
      top = 88.0
      width = 67.0
      text = ""
      upBitmap = "RESOURCE #355"
      fontBold = true
      tabStop = false
      speedTip = "aanvullen"
      colorNormal = "BtnText/Blue"
   endwith

   this.ROOSTER_KONTAKTNAAM = new GRID(this)
   with (this.ROOSTER_KONTAKTNAAM)
      onLeftMouseDown = class::ROOSTER_KONTAKTNAAM_ONLEFTMOUSEDOWN
      colorNormal = "black/silver"
      dataLink = form.vraagbak_kontakt.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.ROOSTER_KONTAKTNAAM)
      with (columns["COLUMN1"])
         dataLink = form.vraagbak_kontakt.rowset.fields["name"]
         editorType = 1	// EntryField
         width = 260.0
      endwith
      columns["COLUMN2"] = new GRIDCOLUMN(form.ROOSTER_KONTAKTNAAM)
      with (columns["COLUMN2"])
         dataLink = form.vraagbak_kontakt.rowset.fields["voornaam"]
         editorType = 1	// EntryField
         width = 155.0
      endwith
      with (columns["COLUMN1"].headingControl)
         value = "Contacts"
      endwith

      with (columns["COLUMN2"].headingControl)
         value = "voornaam"
      endwith

      headingHeight = 22.0
      cellHeight = 22.0
      hasRowLines = false
      hasIndicator = false
      hasColumnHeadings = false
      rowSelect = true
      allowEditing = false
      allowAddRows = false
      height = 110.0
      left = 290.0
      top = 510.0
      width = 420.0
   endwith

   this.KLEVER_VELD_ZOEK_DATA = new TEXTLABEL(this)
   with (this.KLEVER_VELD_ZOEK_DATA)
      height = 20.0
      left = 496.0
      top = 3.0
      width = 65.0
      transparent = true
      text = "zoek data"
      fontBold = true
   endwith

   this.TEKST_SEGMENT = new TEXT(this)
   with (this.TEKST_SEGMENT)
      height = 16.0
      left = 10.0
      top = 340.0
      width = 57.0
      wrap = false
      colorNormal = "BtnText/0x8d8d8d"
      alignVertical = 2	// Bottom
      fontBold = true
      text = "segment"
   endwith

   this.ROOSTER_KONTAKT = new GRID(this)
   with (this.ROOSTER_KONTAKT)
      colorNormal = "black/silver"
      dataLink = form.vraagbak_firma.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.ROOSTER_KONTAKT)
      with (columns["COLUMN1"])
         dataLink = form.vraagbak_firma.rowset.fields["name"]
         editorType = 1	// EntryField
         width = 600.0
      endwith
      with (columns["COLUMN1"].headingControl)
         value = "Name"
      endwith

      headingHeight = 22.0
      cellHeight = 22.0
      hasColumnLines = false
      hasRowLines = false
      hasIndicator = false
      hasColumnHeadings = false
      colorRowSelect = "HighLightText/0xbfbfbf"
      allowEditing = false
      allowAddRows = false
      hScrollBar = 0	// Off
      height = 110.0
      left = 10.0
      top = 510.0
      width = 266.0
   endwith

   this.VELD_ZOEK_DATA = new ENTRYFIELD(this)
   with (this.VELD_ZOEK_DATA)
      onOpen = class::VELD_ZOEK_DATA_ONOPEN
      onKey = class::VELD_ZOEK_DATA_ONKEY
      height = 20.0
      left = 240.0
      top = 5.0
      width = 250.0
      colorNormal = "black/yellow"
      border = false
      value = ""
      borderStyle = 3	// None
   endwith

   this.VELD_CREATIE = new ENTRYFIELD(this)
   with (this.VELD_CREATIE)
      dataLink = form.vraagbak_firma.rowset.fields["creatie"]
      enabled = false
      height = 16.0
      left = 557.0
      top = 74.0
      width = 69.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.KLEVER_AANMAAKDAT = new TEXTLABEL(this)
   with (this.KLEVER_AANMAAKDAT)
      height = 17.0
      left = 462.0
      top = 74.0
      width = 84.0
      text = "aangemaakt"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.KEUZEDOOS_VERKOPER = new COMBOBOX(this)
   with (this.KEUZEDOOS_VERKOPER)
      onGotFocus = class::KEUZEDOOS_VERKOPER_ONGOTFOCUS
      dataLink = form.vraagbak_firma.rowset.fields["outside"]
      height = 22.0
      left = 380.0
      top = 370.0
      width = 245.0
      fontBold = true
      colorNormal = "black/silver"
      autoTrim = true
      style = 2	// DropDownList
      dropDownHeight = 132.0
      borderStyle = 3	// None
   endwith

   this.KLEVER_VERKOPER = new TEXTLABEL(this)
   with (this.KLEVER_VERKOPER)
      height = 17.0
      left = 308.0
      top = 370.0
      width = 58.0
      text = "verkoop"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.KLEVER_REGIO = new TEXTLABEL(this)
   with (this.KLEVER_REGIO)
      height = 22.0
      left = 315.0
      top = 159.0
      width = 49.0
      text = "regio"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.KEUZEDOOS_TAAL = new COMBOBOX(this)
   with (this.KEUZEDOOS_TAAL)
      onGotFocus = class::KEUZEDOOS_TAAL_ONGOTFOCUS
      dataLink = form.vraagbak_firma.rowset.fields["taal"]
      height = 22.0
      left = 380.0
      top = 340.0
      width = 245.0
      fontBold = true
      colorNormal = "black/silver"
      autoTrim = true
      style = 2	// DropDownList
      dropDownHeight = 132.0
      borderStyle = 3	// None
   endwith

   this.KLEVER_TAAL = new TEXTLABEL(this)
   with (this.KLEVER_TAAL)
      height = 22.0
      left = 308.0
      top = 340.0
      width = 66.0
      text = "taal"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.VELD_FUNKTIE = new ENTRYFIELD(this)
   with (this.VELD_FUNKTIE)
      dataLink = form.vraagbak_kontakt.rowset.fields["task"]
      height = 15.0
      left = 504.0
      top = 405.0
      width = 217.0
      colorNormal = "blue/0x787878"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.KLEVER_FUNKTIE = new TEXTLABEL(this)
   with (this.KLEVER_FUNKTIE)
      height = 17.0
      left = 441.0
      top = 405.0
      width = 47.0
      text = "functie"
      colorNormal = "BtnText/0x787878"
      fontBold = true
   endwith

   this.KEUZEDOOS_SEGMENT = new COMBOBOX(this)
   with (this.KEUZEDOOS_SEGMENT)
      dataLink = form.vraagbak_firma.rowset.fields["soort"]
      height = 22.0
      left = 72.0
      top = 340.0
      width = 230.0
      fontBold = true
      colorNormal = "black/silver"
      autoTrim = true
      style = 2	// DropDownList
      dropDownHeight = 300.0
      borderStyle = 3	// None
   endwith

   this.KEUZEDOOS_REGIO = new COMBOBOX(this)
   with (this.KEUZEDOOS_REGIO)
      onGotFocus = class::KEUZEDOOS_REGIO_ONGOTFOCUS
      dataLink = form.vraagbak_firma.rowset.fields["province"]
      height = 22.0
      left = 387.0
      top = 159.0
      width = 238.0
      fontBold = true
      colorNormal = "black/silver"
      autoTrim = true
      style = 2	// DropDownList
      dropDownHeight = 132.0
      borderStyle = 3	// None
   endwith

   this.VELD_GSM_KONTAKT = new ENTRYFIELD(this)
   with (this.VELD_GSM_KONTAKT)
      dataLink = form.vraagbak_kontakt.rowset.fields["gsm"]
      height = 20.0
      left = 440.0
      top = 435.0
      width = 280.0
      colorNormal = "blue/0x787878"
      border = false
      fontSize = 14.0
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.KLEVER_KONTAKT = new TEXTLABEL(this)
   with (this.KLEVER_KONTAKT)
      height = 17.0
      left = 10.0
      top = 370.0
      width = 50.0
      text = "contact"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.KONTROLEDOOS_KEUZE = new COMBOBOX(this)
   with (this.KONTROLEDOOS_KEUZE)
      height = 22.0
      left = 72.0
      top = 370.0
      width = 96.0
      colorNormal = "black/silver"
      dataSource = 'array {"Keuze","3","2","1","0","M","P","T"}'
      style = 1	// DropDown
      dropDownHeight = 132.0
   endwith

   this.KONTROLEDOOS_MONITOR = new CHECKBOX(this)
   with (this.KONTROLEDOOS_MONITOR)
      height = 17.0
      left = 231.0
      top = 370.0
      width = 69.0
      text = "monitor"
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
   endwith

   this.VELD_TELEFOON_KONTAKT = new ENTRYFIELD(this)
   with (this.VELD_TELEFOON_KONTAKT)
      dataLink = form.vraagbak_kontakt.rowset.fields["telefon"]
      height = 20.0
      left = 65.0
      top = 435.0
      width = 284.0
      colorNormal = "blue/0x787878"
      border = false
      fontSize = 14.0
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.KLEVER_GSM = new TEXTLABEL(this)
   with (this.KLEVER_GSM)
      height = 22.0
      left = 379.0
      top = 435.0
      width = 31.0
      text = "gsm"
      colorNormal = "BtnText/0x787878"
      fontBold = true
   endwith

   this.KLEVER_TEL = new TEXTLABEL(this)
   with (this.KLEVER_TEL)
      height = 22.0
      left = 5.0
      top = 435.0
      width = 30.0
      text = "tel."
      colorNormal = "BtnText/0x787878"
      fontBold = true
   endwith

   this.KLEVER_EMAIL = new TEXTLABEL(this)
   with (this.KLEVER_EMAIL)
      height = 22.0
      left = 5.0
      top = 465.0
      width = 45.0
      text = "e-Mail"
      colorNormal = "WindowText/0x787878"
      fontBold = true
   endwith

   this.VELD_EMAIL_KONTAKT = new ENTRYFIELD(this)
   with (this.VELD_EMAIL_KONTAKT)
      onLeftDblClick = class::VELD_EMAIL_KONTAKT_ONLEFTDBLCLICK
      dataLink = form.vraagbak_kontakt.rowset.fields["email"]
      height = 15.0
      left = 65.0
      top = 465.0
      width = 565.0
      colorNormal = "blue/0x787878"
      border = false
      fontBold = true
      mousePointer = 13	// Hand
      borderStyle = 3	// None
   endwith

   this.TEKST_IDNUMMER = new TEXT(this)
   with (this.TEKST_IDNUMMER)
      height = 20.0
      left = 10.0
      top = 74.0
      width = 72.0
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
      text = "id nummer"
   endwith

   this.KEUZEDOOS_SORTEREN = new COMBOBOX(this)
   with (this.KEUZEDOOS_SORTEREN)
      onChange = class::KEUZEDOOS_SORTEREN_ONCHANGE
      height = 22.0
      left = 570.0
      top = 5.0
      width = 154.0
      colorNormal = "black/silver"
      dataSource = 'array {"selekteren","firma","postkode","stad","volgnummer"}'
      style = 2	// DropDownList
      dropDownHeight = 132.0
   endwith

   this.KLEVERNAAM = new TEXTLABEL(this)
   with (this.KLEVERNAAM)
      height = 22.0
      left = 5.0
      top = 405.0
      width = 47.0
      text = "contact"
      colorNormal = "BtnText/0x787878"
      fontName = "arial"
      fontBold = true
   endwith

   this.VELD_CONTACTNAAM = new ENTRYFIELD(this)
   with (this.VELD_CONTACTNAAM)
      dataLink = form.vraagbak_kontakt.rowset.fields["voor_en_naam"]
      height = 22.0
      left = 63.0
      top = 405.0
      width = 364.0
      colorNormal = "blue/0x787878"
      border = false
      fontName = "arial"
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.RECHTHOEK_BRANCHE = new RECTANGLE(this)
   with (this.RECHTHOEK_BRANCHE)
      left = 640.0
      top = 135.0
      width = 83.0
      height = 60.0
      text = "bedrijfstak"
      colorNormal = "BtnText/0x8d8d8d"
      fontName = "arial"
      fontBold = true
   endwith

   this.RECHTHOEK_MERKEN = new RECTANGLE(this)
   with (this.RECHTHOEK_MERKEN)
      left = 640.0
      top = 200.0
      width = 83.0
      height = 60.0
      text = "merken"
      colorNormal = "BtnText/0x8d8d8d"
      fontName = "arial"
      fontBold = true
   endwith

   this.KNOP_AANMAAK_BEDRIJFSTAK = new PUSHBUTTON(this)
   with (this.KNOP_AANMAAK_BEDRIJFSTAK)
      onClick = class::KNOP_AANMAAK_BEDRIJFSTAK_ONCLICK
      height = 35.0
      left = 648.0
      top = 153.0
      width = 67.0
      text = ""
      upBitmap = "RESOURCE #1230"
      fontBold = true
      tabStop = false
      speedTip = "aanvullen"
      colorNormal = "BtnText/Blue"
   endwith

   this.KNOP_AANMAAK_MERKEN = new PUSHBUTTON(this)
   with (this.KNOP_AANMAAK_MERKEN)
      onClick = class::KNOP_AANMAAK_MERKEN_ONCLICK
      height = 35.0
      left = 648.0
      top = 219.0
      width = 67.0
      text = ""
      upBitmap = "RESOURCE #1230"
      fontBold = true
      tabStop = false
      speedTip = "aanvullen"
      colorNormal = "BtnText/Blue"
   endwith

   this.DOOS_BIJKOMEND = new CONTAINER(this)
   with (this.DOOS_BIJKOMEND)
      left = 570.0
      top = 30.0
      width = 154.0
      height = 32.0
      colorNormal = "0x8d8d8d"
      borderStyle = 10	// Etched Out
   endwith

   this.DOOS_BIJKOMEND.KNOP_ORD_OFFERTE = new PUSHBUTTON(this.DOOS_BIJKOMEND)
   with (this.DOOS_BIJKOMEND.KNOP_ORD_OFFERTE)
      onClick = class::KNOP_ORD_OFFERTE_ONCLICK
      height = 25.0
      left = 3.0
      top = 0.0
      width = 45.0
      text = ""
      upBitmap = "RESOURCE #20"
      speedTip = "Maak map aanvraag & bestelling"
      pageno = 0
   endwith

   this.DOOS_BIJKOMEND.KNOP_INFO_PROBL = new PUSHBUTTON(this.DOOS_BIJKOMEND)
   with (this.DOOS_BIJKOMEND.KNOP_INFO_PROBL)
      onClick = class::KNOP_INFO_PROBL_ONCLICK
      height = 25.0
      left = 53.0
      top = 0.0
      width = 45.0
      text = ""
      upBitmap = "RESOURCE #32"
      speedTip = "Maak map Info"
      pageno = 0
   endwith

   this.DOOS_BIJKOMEND.KNOP_EXCEL = new PUSHBUTTON(this.DOOS_BIJKOMEND)
   with (this.DOOS_BIJKOMEND.KNOP_EXCEL)
      onClick = class::KNOP_EXCEL_ONCLICK
      height = 25.0
      left = 101.0
      top = 0.0
      width = 45.0
      text = ""
      upBitmap = "RESOURCE #1040"
      pageno = 0
   endwith

   this.RECHTHOEK_TOPIC = new RECTANGLE(this)
   with (this.RECHTHOEK_TOPIC)
      left = 640.0
      top = 265.0
      width = 83.0
      height = 60.0
      text = "topics"
      colorNormal = "BtnText/0x8d8d8d"
      fontName = "arial"
      fontBold = true
   endwith

   this.KNOP_AANMAAK_TOPICS = new PUSHBUTTON(this)
   with (this.KNOP_AANMAAK_TOPICS)
      onClick = class::KNOP_AANMAAK_TOPICS_ONCLICK
      height = 35.0
      left = 647.0
      top = 283.0
      width = 67.0
      text = ""
      upBitmap = "RESOURCE #1230"
      fontBold = true
      tabStop = false
      speedTip = "aanvullen"
      colorNormal = "BtnText/Blue"
   endwith

   this.RECTANGLE1 = new RECTANGLE(this)
   with (this.RECTANGLE1)
      left = 5.0
      top = 188.0
      width = 630.0
      height = 35.0
      text = ""
      colorNormal = "white/0x8d8d8d"
   endwith

   this.TEKST_BTW = new TEXT(this)
   with (this.TEKST_BTW)
      height = 20.0
      left = 14.0
      top = 195.0
      width = 30.0
      colorNormal = "BtnText/0x8d8d8d"
      fontBold = true
      text = "btw"
   endwith

   this.VELD_BTWNR = new ENTRYFIELD(this)
   with (this.VELD_BTWNR)
      dataLink = form.vraagbak_firma.rowset.fields["btwnummer"]
      height = 15.0
      left = 44.0
      top = 197.0
      width = 210.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.TEKST_BET = new TEXT(this)
   with (this.TEKST_BET)
      height = 20.0
      left = 331.0
      top = 195.0
      width = 53.0
      colorNormal = "black/0x8d8d8d"
      fontBold = true
      text = "betaling"
   endwith

   this.VELD_BETAL = new ENTRYFIELD(this)
   with (this.VELD_BETAL)
      dataLink = form.vraagbak_firma.rowset.fields["betalingen"]
      height = 15.0
      left = 393.0
      top = 197.0
      width = 235.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      borderStyle = 3	// None
   endwith

   this.VELD_BTW = new ENTRYFIELD(this)
   with (this.VELD_BTW)
      height = 15.0
      left = 262.0
      top = 197.0
      width = 34.0
      colorNormal = "black/silver"
      border = false
      fontBold = true
      value = ""
      borderStyle = 3	// None
   endwith

   this.TEKST_PROCENT = new TEXT(this)
   with (this.TEKST_PROCENT)
      height = 17.0
      left = 306.0
      top = 196.0
      width = 15.0
      colorNormal = "black/0x8d8d8d"
      fontBold = true
      text = "%"
   endwith

   this.RECHTHOEK_BYPASS = new RECTANGLE(this)
   with (this.RECHTHOEK_BYPASS)
      left = 640.0
      top = 332.0
      width = 83.0
      height = 60.0
      text = "bypass"
      colorNormal = "BtnText/0x8d8d8d"
      fontName = "arial"
      fontBold = true
   endwith

   this.KNOP_BYPASS = new PUSHBUTTON(this)
   with (this.KNOP_BYPASS)
      onClick = class::KNOP_BYPASS_ONCLICK
      height = 35.0
      left = 647.0
      top = 350.0
      width = 67.0
      text = ""
      upBitmap = "RESOURCE #1230"
      fontBold = true
      tabStop = false
      speedTip = "aanvullen"
      colorNormal = "BtnText/Blue"
   endwith

   this.rowset = this.vraagbak_firma.rowset

  
	
  function knop_ongedaan_onClick
   form.rowset.abandon()
    form.Veld_zoek_data.setfocus()
     this.form.Doos_Data.Knop_nieuw.enabled = true
      this.form.Doos_Data.Knop_verwijderen.enabled = true 
       this.form.Doos_Data.Knop_aanpassen.enabled =true
        this.form.knop_aanmaak_contact.enabled := true
        this.form.knop_aanmaak_merken.enabled := true
       this.form.knop_aanmaak_topics.enabled := true
      this.form.knop_aanmaak_bedrijfstak.enabled := true
	 class::aanpassen_kleuren()
  return
  *****

  function keuzedoos_land_onGotFocus
    this.savedvalue = This.value 
  return
  *****

  function Knop_verwijderen_onClick
    if msgbox("deze data verwijderen?","verwijderen ?",36)==6
	   form.rowset.delete()
	 endif 	
    form.Veld_zoek_data.setfocus()
  return
  *****
  

  function KEUZEDOOS_SORTEREN_onChange
    form.Veld_zoek_data.value = ""
      form.Veld_zoek_data.setfocus() 
     Do Case
      case this.value ="firma"
      form.rowset.indexname :="Company"
      form.rowset.exactMatch := false
       form.rowset.first()
      Case this.value ="postkode"
       form.rowset.indexname ="Postcode"
        Form.rowset.first()
      Case this.value ="stad"
        Form.Rowset.indexName = "Citycode"
         form.Rowset.First()		
     Case this.value = "volgnummer"
         form.rowset.indexname ="Identify"
			form.veld_zoek_data.value ="00000"
       form.rowset.last()			
      Endcase  
  return
  *****

  function Knop_aanpassen_onClick
    form.rowset.beginedit()
     class :: Zet_Knoppen()
      class::bijvoegen_kleuren()
  return
  *****

  function veld_website_onLeftDblClick(flags, col, row)
   #include winuser.h
    extern cHandle ShellExecute( cHandle, cString, cString, ;
     cString, cString, cINT ) shell32 ;
      from "ShellExecuteA"
       cUrl = ["] + this.parent.veld_website.value + ["]
     private sd         && macro needs private not local
       sd = set( "dire" ) && sometimes it *could* change dirs, so
                    && we are preventing it ...
      ShellExecute( this.parent.hwnd, "open", ;     //Iexplore.exe
                          cURL,null,null,SW_SHOWmaximized)
      * if the directory changed:
       if sd # set("dire")
        set dire to "&sd."
       endif
  return
  *****

  function KNOP_AANMAAK_BEDRIJFSTAK_onClick()
   set procedure to ..\forms\bedrijfklant2.wfm additive
    local BedrijfT,cTak
	  store NULL to BedrijfT
      this.bedrijfT = new Bedrijfklant2form()
		 this.bedrijfT.top := form.top + 400
		  this.bedrijfT.Left := form.left +300
		   this.BedrijfT.Parent = this.parent
         cTak = form.rowset.Fields["idnummer"].value
       this.BedrijfT.Rowset.filter :=[idnummer=']+cTak+[']  		  
       this.Bedrijft.readModal()
		close procedure ..\forms\bedrijfklant2.wfm
  return
  *****

  function KNOP_AANMAAK_MERKEN_onClick()
   local merk,cMerk
    set procedure to ..\forms\brandcust2.wfm additive
     this.merk = new brandcust2form()
       this.merk.top = form.top + 400
        this.merk.left = form.left + 300
         this.merk.parent = this.parent
		  cMerk = Form.rowset.Fields["idnummer"].value
       this.merk.rowset.filter=[idnummer=']+cMerk+['] 
      this.Merk.readModal()
     close procedure ..\forms\Brandcust2.wfm
  return
  ***** 
 

  function KNOP_AANMAAK_TOPICS_onClick()
   local themas,cThemas
    set procedure to ..\forms\topicklant2.wfm additive
     this.themas = new klanttopic2Form()
      this.themas.top  = Form.top +400
       this.themas.left = form.left+300
        this.themas.parent = this.parent
		  cThemas = form.rowset.fields["idnummer"].value
        this.themas.rowset.filter =[idnummer=']+cthemas+[']
      this.themas.readmodal()
     close procedure ..\forms\topicklant2.wfm
      
  return
  *****

  function KNOP_BYPASS_onClick()
   local bijkomend,cbijkomend
    set procedure to ..\forms\ingavebypass.wfm additive
      bijkomend = new ingavebypassForm()
       bijkomend.top = Form.top +400
        bijkomend.left = form.left+300
		   bijkomend.parent = this.parent
         cbijkomend =form.rowset.fields["idnummer"].value
		    bijkomend.rowset.filter=[idnummer=']+cbijkomend+[']
         bijkomend.readmodal()
     //  bijkomend.release()
    close procedure..\forms\ingavebypass.wfm 			  
 
 //  msgbox("momenteel niet gebruikt")
   Return
  *****
  

  function KNOP_EERST_onClick
   form.rowset.first()
    form.Veld_zoek_data.setfocus() 
  return
  *****

  function form_canClose
          //om te verhinderen dat de form in een verkeerd status wordt gesloten
             // indien een rowset aanwezige moet er nagezien worden of
             // de status append (3)of edit(2) is 
       if Form.rowset # null and;
          (form.rowset.state ==2 or Form.rowset.state ==3)
              // indien de rowset is aangepast 
        if Form.rowset.modified
          nAnswer=msgbox("gelieve op te slaan"," Data werd aangepast",32+3)
              // klik een button in Messagbox 
          do case 
            case nAnswer == 6
             form.rowset.save()
            case nAnswer == 7     
             form.rowset.abandon()
            otherwise 
             Return false
           endcase
         endif
        endif

  return true
  ******

  function form_canNavigate(nWorkArea)
    local kan, antwoord
      kan = true
       if form.rowset.state == 3  or form.rowset.state ==2
        antwoord = msgbox("Verandering opslaan","Bevestig",32+3)
         
        if antwoord == 6
          form.rowset.save()
           form.Doos_Data.Knop_aanpassen.enabled := true
            form.Doos_Data.Knop_verwijderen.enabled := true
             form.Doos_Data.Knop_nieuw.enabled := true
           
        elseif antwoord ==7
         form.rowset.abandon() 
          form.Doos_Data.Knop_aanpassen.enabled := true
           form.Doos_Data.Knop_verwijderen.enabled := true
            form.Doos_Data.Knop_nieuw.enabled := true
        else
          form.Doos_Data.Knop_aanpassen.enabled := true
           form.Doos_Data.Knop_verwijderen.enabled := true
            form.Doos_Data.Knop_nieuw.enabled := true
             form.rowset.abandon()
      kan = false                                                 
        endif
       endif
  return kan
  *****

  function form_onClose()
   //this.release()    
  return
  *****

   function form_onGotFocus
     // set application reference to this form:
    if type( "_app.framewin" ) # "U"
     _app.framewin.currentForm = this
    endif
     form.Vernieuwen_scherm()
  return
  *****

  function form_onLostFocus
      // null out application's reference to this form:
    if type( "_app.framewin.currentForm" ) # "U"
     _app.framewin.currentForm := null
    endif
  return
  *****
   

  function form_onNavigate(nWorkArea)
    if form.vraagbak_kontakt.rowset.fields["verlaten"].value = true
      form.veld_Contactnaam.Fontstrikeout = true
	  else
	   form.veld_Contactnaam.Fontstrikeout = false
    endif 	
      form.vraagbak_kontakt.rowset.refresh()    
  return
  *****
	

  function form_onOpen
   if form.vraagbak_kontakt.rowset.fields["verlaten"].value = true
    form.veld_Contactnaam.Fontstrikeout = true
   else
	 form.veld_Contactnaam.Fontstrikeout = false
   endif 	  
	form.rowset.last()
  Return      
  *****

   function veld_IdNr_when(bOpen)
     form.Veld_IdNr.mousePointer = 12 // ?"testen"   
  return false //true
  *****

  function knop_info_probl_onClick
   if TYPE("CreateDirectory") # "FP"
     extern clogical CreateDirectory(cstring, cptr) kernel32 ;
      from "CreateDirectoryA"
    endif

  // function CheckDirectory
      local c,a
        c= "d:\dfcc_programms\klanteninfo\"
      a= upper(form.rowset.fields["name"].value) 
     if CreateDirectory(c + a,null)
      else
       msgbox("Map reeds aangemaakt","Opgelet ***Bci***",64)
     endif
  return
  *****

  function knop_ord_offerte_onClick
      //api aanroepen 
    if TYPE("CreateDirectory") # "FP"
     extern clogical CreateDirectory(cstring, cptr) kernel32 ;
      from "CreateDirectoryA"
    endif
     local c,a, cStr
      c= "d:\dfcc_programms\klantenoffer\"
       a=  upper(trim(form.rowset.fields["name"].value)) 
        if CreateDirectory(c + a,null)
       else
        msgbox("Map reeds aangemaakt","Opgelet ***Bci***",64)
    endif   
  return
  *****

  function Knop_laatst_onClick
   form.rowset.last()
   form.Veld_zoek_data.setfocus() 
  return
  *****

  function veld_mail_onLeftDblClick(flags, col, row)
   Set procedure to zendemail.wfm additive
    local emailbladAA
	  emailbladAA = new zendemailForm()
	   emailbladAA.mdi = false
	    emailbladAA.veld_adres_naar.value = this.parent.veld_mail.value 
       emailbladAA.veld_Naam_naar.value = lTrim(rTRim(this.parent.vraagbak_Kontakt.rowset.fields["Name"].value)) + "  " + lTrim(rTrim(this.parent.vraagbak_Kontakt.rowset.fields["voornaam"].value))		
		    emailbladAA.readmodal()
	 close procedure zendemail.wfm
	 
  return
  ***** 
        

  function veld_email_kontakt_onLeftDblClick(flags, col, row)
  //Set procedure to zendemail.wfm additive  // test met setup prog
    local emailbladAA
	  emailbladAA = new zendemailForm()
	   emailbladAA.mdi = false
	    emailbladAA.veld_adres_naar.value = this.parent.veld_email_kontakt.value 
        emailbladAA.veld_naam_naar.value = lTrim(rTrim(this.parent.vraagbak_Kontakt.rowset.fields["Name"].value)) + "  " + lTrim(rTrim(this.parent.vraagbak_Kontakt.rowset.fields["voornaam"].value))		
	    emailbladAA.readmodal()
	 close procedure zendemail.wfm
  *****

  function Knop_nieuw_onClick
    local ck      //,sIndexSave
    // sIndexSave = form.rowset.indexName
      form.rowset.indexname ="identify" 
       if this.form.rowset.endoFset
         ck = "0000000001"
       else
        this.form.rowset.last()
         ck= str(val(this.form.rowset.fields["idnummer"].value)+1,10,0,"0")
       endif
      //  Form.Rowset.IndexName = sIndexSave
         form.vraagbak_firma.rowset.beginappend()
          form.Veld_IdNr.value =ck
          form.vraagbak_firma.rowset.fields["creatie"].value = date()
          form.Veld_Naam.setfocus()
      class::Zet_Knoppen() 
		class::bijvoegen_kleuren()
   return
  *****

  function knop_aanmaak_contact_onClick
   set procedure to ..\forms\custview.wfm additive
     local kConForm,cCont
      this.kConForm = new CustviewForm()
       this.kConForm.left = 400
        this.kconForm.top = 200
		 this.kConForm.parent= this.parent
        cCont = form.rowset.fields["idnummer"].value
     this.kConForm.rowset.filter =[idnummer=']+cCont+[']
	 this.kConForm.readmodal()
   Close procedure ..\forms\custview.wfm	
  return                                               
  *****

  function Knop_volgend_onClick
     if(not form.rowset.next())
       form.rowset.next( -1 )
        msgbox( "Einde Data", " kan niet verder", 64 )
     endif
      form.Veld_zoek_data.setfocus()
  return
  *****

  function keuzedoos_verkoper_onGotFocus
   this.savedvalue = This.value 
  return
  *****

  function Knop_vorig_onClick
    if(not form.rowset.next(-1))
     form.rowset.next(1)
      msgbox("Begin Data", "Kan niet verder",64)
       endif 
      form.Veld_zoek_data.setfocus()  
  return
  *****

  function knop_excel_onClick
    a =  form.rowset.fields   
    b = form.vraagbak_kontakt.rowset
    set procedure to ..\system2\ExFirmdat.cc additive 
        edat  = new weergave_excel()
        edat.FirmaExl(a,b)
        edat.rf = a     
        edat.rc = b
      close procedure  ..\system2\exFirmdat.cc
  return
  *****

  function keuzedoos_regio_onGotFocus
    this.savedvalue = This.value 
  return
  *****

  function Knop_opslaan_onClick
     class :: Verplicht_data()  
	form.rowset.save()
     this.form.Doos_Data.Knop_nieuw.enabled := true
     this.form.Doos_Data.Knop_verwijderen.enabled = true 
     this.form.Doos_Data.Knop_aanpassen.enabled =true
     this.form.knop_aanmaak_contact.enabled := true
     this.form.knop_aanmaak_merken.enabled := true
     this.form.knop_aanmaak_topics.enabled := true
     this.form.knop_aanmaak_bedrijfstak.enabled := true
     form.Veld_zoek_data.setfocus() 
	  class::aanpassen_kleuren()
    // this.parent.popupMenu = Null
  return
  *****

  function ROOSTER_KONTAKTNAAM_onLeftMouseDown(flags, col, row)
    if form.vraagbak_kontakt.rowset.fields["verlaten"].value = true
      form.veld_Contactnaam.Fontstrikeout = true
	  else
	   form.veld_Contactnaam.Fontstrikeout = false
    endif 
  Return
  ***** 

  function Veld_zoek_data_onKey(nChar, nPosition,bShift,bControl)
     form.rowset.findkeynearest(form.Veld_zoek_data.value)
  return
  *****

  function Veld_zoek_data_onOpen
    form.Veld_zoek_data.setfocus()
  return
  *****

  function form_open()
   class::basis() 
    return STAMMCUSTFORM::open()
  ***** 
 

  function form_readModal()
   class::basis()
  return STAMMCUSTFORM::readModal()
  *****

  function keuzedoos_Taal_onGotFocus
   this.savedvalue = This.value 
  return
  *****
  

  function Vernieuwen_scherm
   parameter oForm
     if type( "oForm" ) == "U" or empty( oForm )
      oForm = form
     endif
      if type( "UpdateWindow" ) # "FP"
       extern CLOGICAL UpdateWindow( CHANDLE ) USER32
     endif
  RETURN UpdateWindow( oForm.hWnd )
  *****

  function Zet_Knoppen
   if this.form.rowset.state == 3 // bijvoegen van gegevens of append state
      this.form.Doos_Data.Knop_aanpassen.enabled := false
      this.form.Doos_Data.Knop_opslaan.enabled := true
      this.form.Doos_Data.Knop_ongedaan.enabled := true
      this.form.Doos_Data.Knop_verwijderen.enabled := false
      this.parent.parent.knop_aanmaak_contact.enabled :=false
      this.form.knop_aanmaak_merken.enabled :=false
      this.form.knop_aanmaak_topics.enabled :=false
      this.form.knop_aanmaak_bedrijfstak.enabled :=false
    elseif this.form.rowset.state == 2 // veranderen van gegevens of edit state
       this.form.Doos_Data.Knop_nieuw.enabled := false
       this.form.Doos_Data.Knop_opslaan.enabled := true
       this.form.Doos_Data.Knop_ongedaan.enabled := true
       this.form.Doos_Data.Knop_verwijderen.enabled := false
       this.form.knop_aanmaak_contact.enabled :=false
      this.form.knop_aanmaak_merken.enabled :=false
      this.form.knop_aanmaak_topics.enabled :=false
      this.form.knop_aanmaak_bedrijfstak.enabled :=false 
    else  //alles andere uitgenomen append of edit mode
      this.form.Doos_Data.Knop_nieuw.enabled := true
      this.form.Doos_Data.Knop_opslaan.enabled := false
      this.form.Doos_Data.Knop_Ongedaan.enabled := false
      this.form.Doos_Data.Knop_verwijderen.enabled := true
     endif
  return
  *****  

  Function Verplicht_data
    if form.vraagbak_firma.RowSet.fields["soort"].Value = (Null)
     form.vraagbak_firma.rowset.fields["soort"].value = "(selecteren)"
    endif
  
   if form.vraagbak_firma.RowSet.fields["choice"].Value = Null
    form.vraagbak_firma.RowSet.fields["choice"].value = "0"
   Endif
   
	
   if form.vraagbak_firma.RowSet.fields["plz"].value = Null
    form.vraagbak_firma.RowSet.fields["PLZ"].Value = "0000000000"
   endif 

   if form.vraagbak_firma.RowSet.fields["Country"].Value = Null
    form.vraagbak_firma.RowSet.fields["Country"].Value ="(selecteer land)"
   Endif
  Return
  *****

  Function basis
   set procedure to bewerken.pop additive
    form.popupMenu := new Bewerkenpopup(this,"Bewerkenpopup") // aangepast ipv this.popupMenu
     form.ScaleFontName := "Arial"
      form.ScaleFontSize := 10
     form.width +=1 
    //popup in open geplaatst ipv onopen() :: parem naam van bewerk naar bewerkenpopup gezet, volgens tutorial,
    // is zo wie zo arbitrair.
	  *****
   if Form.mdi = true
    form.tekst_hoofding.text := "ingave en aanpassen data"
	 endif
  	 if form.mdi = false
	  form.tekst_hoofding.text := "aanpassen Data"
	  form.doos_navigatie.visible := false
	  form.DOOS_DATA.KNOP_NIEUW.visible := false
	   form.doos_data.knop_verwijderen.visible := false
	    form.veld_zoek_data.visible := false
	     form.keuzedoos_sorteren.visible := false
	    form.klever_veld_zoek_data.visible := false
	   form.doos_data.left := 240
	  form.doos_data.top := 5
	 form.doos_bijkomend.top := 5
 	 form.menuFile = Null
	endif 
  Return 
  *****

  function bijvoegen_kleuren
   form.veld_naam.colorNormal ="black/cyan"
    form.veld_straat.colorNormal ="black/cyan"
     form.veld_fax.colorNormal ="black/cyan"
      form.veld_gsm.colorNormal ="black/cyan"
        form.veld_mail.colorNormal ="black/cyan"
    
	 form.Veld_postnr.colorNormal ="black/cyan"
	  form.Veld_stad.colorNormal ="black/cyan"
	   form.veld_telefoon.colorNormal ="black/cyan"
	    form.veld_betal.colorNormal ="black/cyan"
	     form.veld_btw.ColorNormal ="black/cyan"
	 
	 form.keuzedoos_land.ColorNormal ="black/cyan"
	  form.keuzedoos_segment.ColorNormal ="black/cyan"
	   form.keuzedoos_regio.ColorNormal= "black/cyan"
	    form.Veld_website.ColorNormal ="Black/cyan"
        form.Keuzedoos_taal.ColorNormal="black/cyan"
	  
	  form.kontroledoos_keuze.ColorNormal ="Black/cyan"
	   form.kontroledoos_Monitor.ColorNormal ="black/cyan"
	    form.keuzedoos_verkoper.ColorNormal ="black/cyan"  
		  form.veld_btw.ColorNormal ="black/cyan"
		   form.veld_btwnr.ColorNormal ="black/cyan"
  Return
  *****

  function aanpassen_kleuren
   form.veld_naam.colorNormal ="black/silver"
    form.veld_straat.colorNormal ="black/silver"
     form.veld_fax.colorNormal ="black/silver"
      form.veld_gsm.colorNormal ="black/silver"
       form.veld_mail.colorNormal ="black/silver"
    
	 form.Veld_postnr.colorNormal ="black/silver"
	  form.Veld_stad.colorNormal ="black/silver"
	   form.veld_telefoon.colorNormal ="black/silver"
	    form.veld_betal.colorNormal ="black/silver"
	     form.veld_btw.ColorNormal ="black/silver"
	 
	 form.keuzedoos_land.ColorNormal ="black/silver"
	  form.keuzedoos_segment.ColorNormal ="black/silver"
	   form.keuzedoos_regio.ColorNormal= "black/silver"
	    form.Veld_website.ColorNormal = "black/silver"
	     form.Keuzedoos_taal.ColorNormal="black/silver"
	  
	  form.kontroledoos_keuze.ColorNormal ="Black/silver"
	   form.kontroledoos_Monitor.ColorNormal ="black/silver"
       form.Keuzedoos_verkoper.ColorNormal ="black/silver"
		  form.veld_btw.ColorNormal ="black/silver"
		   form.Veld_btwnr.ColorNormal ="black/silver"
	Return
   *****	

	function vraagbak_kontakt_onOpen()
     class :: naamveld("Voor_en_naam",50) 
   return
	****

   function naamVeld(cNaam,Clengte)
	  local aVeld
	   aVeld = new field()
	    aVeld.FieldName = cNaam
       aVeld.length = clengte		
		this.rowset.Fields.add(aVeld)
   Return
   *****

   function Voor_en_naam_beforeGetValue()
	   local a 
		 a= trim(this.parent["name"].value) + "   " +trim(this.parent["voornaam"].value) 
	return a
   ***** 

    function talen(groet)
     local Taal, groet
       taal = this.parent.vraagbak_firma.rowset.fields["taal"].value
        
        if taal = "D"
          groet = "Guten Tag"
        endif
      return(groet)
endclass