this.rowset = this.vraagbak_artikel.rowset

   function rowset_onAppend()    
   	local c_CrossNum, inD_CrossNum
	      inD_CrossNum = this.parent.parent.vraagbak_nummer.rowset.indexname
            this.parent.parent.vraagbak_nummer.rowset.indexname = "ivolgID" // test met create index
         if this.parent.parent.vraagbak_nummer.rowset.endoFset
             c_CrossNum = "0000000001"
        else
          if this.parent.parent.vraagbak_nummer.rowset.last()
           c_CrossNum = this.parent.parent.vraagbak_nummer.rowset.fields["eigenvolgnr"].value
            c_CrossNum= str(val(this.parent.parent.vraagbak_nummer.rowset.fields["eigenvolgnr"].value)+1,10,0,"0")
			endif
        endif
          this.parent.parent.vraagbak_nummer.Rowset.IndexName = "Ind_CrossNum"
  return
  *****

  function rowset_onAppend1()  // vraagbak_afmeting
    local c_AfmN, Ind_AfmN
      Ind_AfmN = this.parent.parent.vraagbak_AfmNum.rowset.indexName
	    this.parent.parent.vraagbak_AfmNum.rowset.IndexName = "Id_volgnr" 
	  if this.parent.parent.vraagbak_AfmNum.rowset.EndOfSet
		     c_AfmN = "0000000001"
	  else
		if this.parent.parent.Vraagbak_AfmNum.rowset.last()   
        c_AfmN = this.parent.parent.vraagbak_AfmNum.rowset.fields["afmvolgnr"].value
		   c_AfmN = str(val(this.parent.parent.vraagbak_AfmNum.rowset.fields["afmvolgnr"].value)+1,10,0,"0")
		 endif
     Endif		
		this.parent.parent.vraagbak_AfmNum.rowset.indexName = ind_AfmN 
	
  return
  *****

   function rowset_onNavigate(type, nRows)
	 if empty(this.parent.parent.vraagbak_beschrijf.rowset.fields["artikelbeschrijving"].value)
      this.parent.parent.DOOS_ARTIKELINFO.KNOP_INFO_INGAVE.enabled = true   //  ?" niet zichtbaar"
     else
      this.parent.parent.DOOS_ARTIKELINFO.KNOP_INFO_INGAVE.enabled = false    //  ?"zichtbaar"
    endif
  return
  *****

  function  ingaveAfm  // voor navigatie knoppen
   if not empty(this.parent.parent.vraagbak_afmeting.rowset.fields["afmeigennr"].value)
	    this.parent.parent.DOOS_AFMETING.KNOP_AFMETING_INGAVE.enabled = false //true
	  elseif  empty(this.parent.parent.vraagbak_afmeting.rowset.fields["afmeigennr"].value ) 
	   this.parent.parent.DOOS_AFMETING.KNOP_AFMETING_INGAVE.enabled = true //false // false
	 endif 
	return
  *****
  

   function  ingaveAfm_open  / bij openen form
   if not empty(this.vraagbak_afmeting.rowset.fields["afmeigennr"].value)
	    this.DOOS_AFMETING.KNOP_AFMETING_INGAVE.enabled = false //true
	 elseif  empty(this.vraagbak_afmeting.rowset.fields["afmeigennr"].value) 
	  this.DOOS_AFMETING.KNOP_AFMETING_INGAVE.enabled = true //false // false
	 endif 
  return
  *****
  
  function rowset_onSave()
   this.parent.parent.vraagbak_artikel.rowset.refreshControls()
    this.parent.parent.vraagbak_crossen.rowset.refreshControls() 
  return
  ***** 

  function veld_merkId_when(bOpen)
  return false
  *****

  function KNOP_AFMETING_INGAVE_onClick()
   local  c_AFM 
	 class::rowset_onAppend1()
	  if this.parent.parent.vraagbak_AFMNUM.rowset.endofSet
      c_AFM = "0000000001"
	   else
	   if   this.parent.parent.vraagbak_AFMNUM.rowset.last()   //q_Afm.last()
	    c_Afm =str(val(this.parent.parent.vraagbak_AFMNUM.rowset.fields["afmvolgnr"].value)+1,10,0,"0")
       endif
    endif
	  this.parent.parent.vraagbak_AFMETING.rowset.beginappend() //q_afm.beginappend()
	   this.parent.parent.vraagbak_AFMETING.rowset.fields["afmvolgnr"].value = c_AFM   
       this.parent.parent.vraagbak_AFMETING.rowset.fields["afmeigennr"].value  = this.parent.parent.vraagbak_crossen.rowset.fields["crossvolgnr"].value 
       class::afmkleurenApEd()
 return
  ***** 

   function KNOP_MERK_TYPE_onClick()
      local f_types, c_Types
    set procedure to ..\forms\model_type.wfm additive
     this.f_types = new Model_typeform()
      this.f_types.top = form.top + 400
       this.f_types.left = form.left + 450
        this.f_types.mdi = false
        this.f_types.parent = this.parent
         c_Types = this.parent.vraagbak_crossen.rowset.Fields["crossvolgnr"].value
          this.f_types.rowset.filter=[crossvolgnr=']+c_types+['] 
      this.f_types.readModal()
     close procedure ..\forms\model_type.wfm
  return
  *****

  function KNOP_AFMETING_OPSLAAN_onClick()
    this.parent.parent.vraagbak_afmeting.rowset.save()      
	 class::afmkleuren()
  return
  *****

  function KNOP_PRIJSAANPASSEN_onClick()
    this.parent.parent.vraagbak_prijs.rowset.beginEdit()
     class::prijskleur(null)
  return
  *****

  function KNOP_PRIJSOPSLAAN_onClick()
     this.parent.parent.vraagbak_prijs.rowset.save()
      this.parent.parent.vraagbak_crossen.rowset.refreshControls()
       class::prijskleurOem(null)
  return
  *****

  function KNOP_PRIJSVERLATEN_onClick()
    if this.parent.parent.vraagbak_prijs.rowset.modified
      if msgbox(" wilt u deze verandering negeren ?","verandereing negeren ?",36)==6
        this.parent.parent.vraagbak_prijs.rowset.abandon()
      endif
     else
       this.parent.parent.vraagbak_prijs.rowset.abandon() 
     endif
     class::prijskleurOEM(null)
  return
  *****

  function KNOP_PRIJSVERWIJDEREN_onClick()
   msgbox( " data kan niet verwijderd worden","*** bci dataverwerking ***", 48)
    this.enabled = false	 
   return
  *****

  function KNOP_ARTVERLATEN_onClick()
    if this.parent.parent.rowset.modified 
      if msgbox(" wilt u deze verandering negeren ?","verandereing negeren ?",36)==6
       this.parent.parent.rowset.abandon()   
      endif
     else
      this.parent.parent.rowset.abandon()   
    endif
	  this.parent.parent.VELD_ZOEK.value = " "
			   this.parent.parent.veld_zoek.enabled = true 
              this.parent.parent.veld_zoek.SetFocus()		
     class::kleurenoem(null)
  return
  *****

  function KNOP_ARTVERWIJDEREN_onClick()
   msgbox( " data kan niet verwijderd worden","*** bci dataverwerking ***", 48)
    this.enabled = false	 
  return
  *****

  function KNOP_ARTVOLGEND_onClick()
	 if(not form.rowset.next())
       form.rowset.next( -1 )
        msgbox( "Einde Data", " kan niet verder", 64 )
     endif
	  class::ingaveAfm()
  return
  *****
	

  function KNOP_ARTVORIG_onClick()
    if (not form.rowset.next(-1))
      form.rowset.next(1)
        msgbox( "Begin Data", " kan niet verder", 64 )
    endif 		  
	  class::ingaveafm()
  return
  ***** 

  function KNOP_AFMETING_AANPAS_onClick()
   this.parent.parent.vraagbak_afmeting.rowset.beginEdit()      
     class::afmkleurenApEd()
  return
  *****

  function KNOP_ARTAANPASSEN_onClick()
     this.parent.parent.veld_artikelnr.value  = form.vraagbak_artikel.rowset.fields["artikelnr"].value    
	  this.parent.parent.rowset.beginEdit()  
    class::kleuren()
  return
  *****

  function KNOP_ARTIKELINFO_onClick()
    local f_Ainfo, c_Info   
    set procedure to ..\forms\artikelinfo.wfm
     f_Ainfo  = new artikelInfoform()
      f_Ainfo.top = this.parent.top +100.0
      f_Ainfo.left = this.parent.left +600.0  
       f_Ainfo.mdi = false      
       f_Ainfo.parent = this.parent  // = artikelform
        c_Info = form.vraagbak_crossen.rowset.fields["eigenvolgnr"].value // eigen volgnr = van artikelscross 
           f_Ainfo.rowset.filter = [eigenvolgnr=']+ c_Info +['] 
          f_Ainfo.readmodal() 
     close procedure ..\forms\artikelinfo.wfm
  return
  *****

  function KNOP_ARTBIJVOEGEN_onClick()  // hier wordt een volgnr aangemaakt voor basis atikel
    local Ind_Art, c_Bijvoeg
	   // Ind_Art= this.parent.parent.rowset.indexname
    //  this.parent.parent.vraagbak_artikel.rowset.indexname = "identartikel"
		 this.parent.parent.rowset.last()
       if this.parent.parent.rowset.endoFset
         c_Bijvoeg = "0000000001"
       else
        this.parent.parent.rowset.last()
         c_Bijvoeg= str(val(this.parent.parent.rowset.fields["volgnr"].value)+1,10,0,"0")
       endif
       // this.parent.parent.Rowset.IndexName = Ind_Art
         this.parent.parent.rowset.beginappend()  // artikelen
          this.parent.parent.rowset.fields["volgnr"].value = c_Bijvoeg
           this.parent.parent.vraagbak_artikel.rowset.fields["artikelnr"].value = this.parent.parent.VELD_zoek.value 	
         class::kleuren()
			 class::valideren()
  return
  ***** 

  function KNOP_EXCEL_EF_onClick()
   Local o_Excel, q_Cross, n_Rij, n_Cols, o_Range, x_Value, o_Cell
     store 0 to o_Excel, q_Cross, n_Rij, n_Cols, o_Range, x_Value, o_Cell
   
   q_Cross = this.parent.vraagbak_crossen.rowset
    o_Excel := new OleAutoClient("Excel.application")      
     o_Excel.workbooks.add()  // een nieuw blad wordt aangemaakt
      o_Excel.Activesheet.cells(1,1).select()  // selecteren van boven links cell
       o_Range := o_Excel.ActiveSheet.Range("1:1")
        o_Range.font.bold := true         
         o_Excel.visible = true
       n_Rij = 2
     do while not q_Cross.endOfSet
       n_Rij++   // verhogen van een rij
        for n_Cols = 5 to (q_Cross.fields.size -1)
          x_Value = q_Cross.fields[n_Cols].value  
           o_Cell= o_Excel.activeSheet.Cells(n_rij,n_Cols)  // 260122022
            o_cell.formulaR1C1 = ("'")+ x_Value
        next
       q_Cross.next()
     enddo
      o_Excel.ActiveSheet.Columns.AutoFit()
       o_Excel.quit()
        o_Excel =0
         q_Cross.first()
          this.parent.Veld_zoek.setFocus()
  return
  *****

  function KNOP_INFO_EDIT_onClick()
     this.parent.parent.veld_info_artikel.ColorNormal ="Black/cyan"
      this.parent.parent.veld_info_artikel.setFocus()
       this.parent.parent.vraagbak_beschrijf.rowset.beginEdit()   
  return
  *****

  function KNOP_CROSSAANPAS_onClick()
   this.parent.parent.vraagbak_crossen.rowset.beginEdit() 
    class::crosskleuren(null)
  return
  *****

  function KNOP_CROSSART_onClick()
    local q_CRossC, c_RefC, q_Refa, c_Refa, ind_Art, c_Bijvoeg 
         c_RefC = "crossArtikelnr='"+ this.parent.veld_zoek.value+"'"    
         q_CrossC = this.parent.vraagbak_CrossArt
         q_CrossC.rowset.beginlocate()
         q_CrossC.rowset.LocateOptions := 3
          q_CrossC.rowset.Applylocate(c_RefC)    
 	       if  q_CrossC.rowset.fields["crossartikelnr"].value = this.parent.veld_zoek.value  
			  msgbox( "deze referentie reeds in het systeem"+chr(13)+ ;
       		 "alleen crossreferentie aanmaken of aanpassen","**** bci dataverwerking ****",48)
			   c_Refa = "Artikelnr='"+ this.parent.veld_zoek.value+"'"    
             q_Refa = this.parent.vraagbak_Artikel
               q_Refa.rowset.beginlocate()
                q_Refa.rowset.LocateOptions := 3
                 q_Refa.rowset.Applylocate(c_Refa)    
					 this.parent.veld_zoek.value = "" 
		       else  
     		    Msgbox("deze referentie nog niet in het systeem"+chr(13)+;
				     "deze referentie wordt aangemaakt" , "**** bci dataverwerking***", 48)
			 this.parent.rowset.last()
          if this.parent.rowset.endoFset
             c_Bijvoeg = "0000000001"
          else
           this.parent.rowset.last()
            c_Bijvoeg= str(val(this.parent.rowset.fields["volgnr"].value)+1,10,0,"0")
          endif
           this.parent.rowset.beginappend()  // artikelen
			   this.parent.rowset.fields["volgnr"].value = c_Bijvoeg
              this.parent.vraagbak_artikel.rowset.fields["artikelnr"].value = this.parent.VELD_zoek.value 	
            class::kleuren()
				class::ingaveAfm_open()
		    endif  
   return
   *****

   function KNOP_CROSSBIJVOEG_onClick()
   local c_Cross
    this.parent.parent.vraagbak_nummer.rowset.indexname = "ivolgID" // test met create index
     if this.parent.parent.vraagbak_nummer.rowset.endoFset
       c_Cross = "0000000001"
      else
       if this.parent.parent.vraagbak_nummer.rowset.last()
        c_Cross= str(val(this.parent.parent.vraagbak_nummer.rowset.fields["eigenvolgnr"].value)+1,10,0,"0")
       endif
     endif
       this.parent.parent.vraagbak_crossen.rowset.beginappend()
        this.parent.parent.vraagbak_crossen.rowset.fields["eigenvolgnr"].value = c_Cross
         this.parent.parent.vraagbak_crossen.rowset.fields["crossingavedatum"].value = date() 		
         this.parent.parent.keuzedoos_crossfirma.value = this.parent.parent.vraagbak_crossen.rowset.fields["crossleverancierId"]  // datalink veranderd in value
        this.parent.parent.keuzedoos_crossmerk.value  = this.parent.parent.vraagbak_crossen.rowset.fields["crossbrandnr"]
       this.parent.parent.keuzedoos_crossprod.value = this.parent.parent.vraagbak_crossen.rowset.fields["crossproductnr"]
     class::crosskleuren(null)
  return
  *****

  function KNOP_CROSSEERST_onClick()
    this.parent.parent.vraagbak_crossen.rowset.first()  
  return
  *****

  function KNOP_CROSSLAATST_onClick()
     this.parent.parent.vraagbak_crossen.rowset.last() 
  return
  *****

  function KNOP_CROSSONGEDAAN_onClick()
    if this.parent.parent.vraagbak_crossen.rowset.modified 
      if msgbox(" wilt u deze verandering negeren ?","verandereing negeren ?",36)==6
       this.parent.parent.vraagbak_crossen.rowset.abandon()   
      endif
     else
      this.parent.parent.vraagbak_crossen.rowset.abandon()   
    endif
    class::crosskleurenoem(null)
  return
	*****

  function KNOP_CROSSOPSLAAN_onClick()
   this.parent.parent.vraagbak_crossen.rowset.save()
   this.parent.parent.vraagbak_prijs.rowset.save()
    class::crosskleurenoem(null)
  return
  *****
/*
  function KNOP_CROSSREF_onClick()
    local o_Cross, c_Ref
   set procedure to artikelcross.wfm additive
    o_Cross = new artikelcrossForm()
     o_Cross.top = this.parent.top + 100.0
      o_Cross.left = this.parent.left + 900.0
		 o_Cross.parent =this.parent 		  // 05052023 als test voor zoeken in artikelen form 
     //c_ref = this.parent.rowset.fields["volgnr"].value
       //c_ref = o_cross.rowset.fields["crossvolgnr"].value // = c_ref // +c_ref+['] 
  			//        this.rowset.fields["veld_zoek"].value = o_cross.rowset.fields["veld_zoek"].value 
          o_Cross.open()
           // Close procedure artikelcross.wfm	
  return
  *****
 */

  function KNOP_CROSSVERWIJDEREN_onClick()
   msgbox( " data kan niet verwijderd worden","*** bci dataverwerking ***", 48)
   this.enabled = false	 
	 //this.parent.parent.veld_zoekref.setFocus()
	 /* If msgbox(" deze crossdata verwijderen ?","Verwijderen?",36) == 6
       if this.parent.parent.vraagbak_prijs.rowset.endofSet
         this.parent.parent.vraagbak_crossen.rowset.delete()
      else
         this.parent.parent.vraagbak_prijs.rowset.delete()
         this.parent.parent.vraagbak_crossen.rowset.delete()
     endif    
   Endif
	*/
  return
   ***** 

  function KNOP_CROSSVOLGEND_onClick()
   if(not this.parent.parent.vraagbak_crossen.rowset.next() )
       this.parent.parent.vraagbak_crossen.rowset.Next(-1)
		  msgbox("einde data","kan niet verder",64)
    endif		 
  return
  *****

  function KNOP_CROSSVORIG_onClick()
	  if (not this.parent.parent.vraagbak_crossen.rowset.next(-1))
      this.parent.parent.vraagbak_crossen.rowset.next(1)
        msgbox( "Begin Data", " kan niet verder", 64 )
     endif 		   
  return
  ***** 

  function KNOP_ARTEERST_onClick()
    this.parent.parent.rowset.first()  
     class::ingaveafm()
  return
  ***** 

  function KNOP_INFO_INGAVE_onClick()
     if this.parent.parent.vraagbak_artikel.rowset.state ==2 or this.parent.parent.vraagbak_artikel.rowset.state  == 3
      msgbox("artikel opslaan")
     endif

     this.parent.parent.veld_info_artikel.ColorNormal ="Black/cyan"
      this.parent.parent.veld_info_artikel.setFocus()
    this.parent.parent.vraagbak_beschrijf.rowset.beginappend()   
  return
  *****

  function KNOP_INFO_ONGEDAAN_onClick()
       this.parent.parent.veld_info_artikel.ColorNormal ="Black/silver"
      this.parent.parent.vraagbak_beschrijf.rowset.abandon()
  return
  *****

  function KNOP_INFO_OPSLAAN_onClick()
     this.parent.parent.veld_info_artikel.ColorNormal ="Black/silver" 
     this.parent.parent.vraagbak_beschrijf.rowset.save()   
       form.DOOS_ARTIKELINFO.KNOP_INFO_INGAVE.enabled = false
  return
  *****

  function KNOP_INFO_VERWIJDER_onClick()
  msgbox( " data kan niet verwijderd worden","*** bci dataverwerking ***", 48)
   this.enabled = false	 
	/* this.parent.parent.veld_zoekref.setFocus()
	    this.parent.parent.veld_info_artikel.ColorNormal ="Black/cyan"
    if msgbox(" Deze Data verwijderen ?","Verwijderen?",36) == 6
     this.parent.parent.vraagbak_beschrijf.rowset.rowset.delete()
     endif
   */	  
  return
  *****

  function KNOP_ARTLAATST_onClick()
    this.parent.parent.rowset.last()  
	  class::ingaveafm()
  return
  *****

  function KNOP_ARTOPSLAAN_onClick()
   class::kleurenoem(null)
    if form.rowset.state == 2 // edit
        class :: crossgegevens(null) 
     else
      if not form.rowset.state ==2 and not form.rowset.state  ==3
       msgbox(" niets biigevoegd of aangepast","niets opgeslagen",48)
     else
      class::crossplus(null)    
       this.parent.parent.vraagbak_crossen.rowset.save() // crossartikelen 
		 this.parent.parent.rowset.save()  // artikelen 
      endif
    endif
     this.parent.parent.veld_zoek.value =  "  "
     this.parent.parent.veld_zoek.setFocus()
     form.DOOS_KNOPPEN.KNOP_ARTBIJVOEGEN.enabled = false 
  return
  *****

  function kleuren
     if form.rowset.state ==2
       form.veld_artikelnr.ColorNormal ="black/cyan"
        form.keuzedoos_merk.colorNormal ="black/cyan"
         // form.veld_artgewicht.ColorNormal ="black/cyan"
        //   form.veld_artlengte.ColorNormal ="black/cyan"
        //  form.veld_artbreed.ColorNormal ="black/cyan"
        //  form.veld_arthoogte.ColorNormal ="black/cyan"
         form.veld_zoek.enabled = false
      else
       form.veld_artikelnr.ColorNormal = "black/silver"
       form.keuzedoos_merk.colorNormal ="black/cyan"
       // form.veld_artgewicht.ColorNormal ="black/cyan"
       //    form.veld_artlengte.ColorNormal ="black/cyan"
       //   form.veld_artbreed.ColorNormal ="black/cyan"
       //   form.veld_arthoogte.ColorNormal ="black/cyan"
    endif
  return
  ***** 

  function kleurenoem
	  form.veld_artikelnr.ColorNormal ="black/silver"
	   form.keuzedoos_merk.colorNormal ="black/silver"
   return
  *****

  function Crosskleuren
       form.veld_art_cross.ColorNormal ="black/cyan"
         form.keuzeveld_CrIngav.colorNormal ="black/cyan"
	         form.keuzedoos_crossmerk.colorNormal ="black/cyan"
            form.keuzedoos_crossprod.ColorNormal ="black/cyan"
	           form.keuzedoos_crossfirma.ColorNormal ="black/cyan"
              Form.keuzedoos_Crossfirma.ColorNormal = "black/cyan" 
                this.parent.parent.keuzedoos_SEGM.colorNormal = "black/cyan"
  return
  *****
  

  function AfmkleurenApEd
       if this.parent.parent.vraagbak_afmeting.rowset.state == 2  or this.parent.parent.vraagbak_afmeting.rowset.state == 3 
        this.parent.parent.DOOS_AFM_INHOUD.VELD_BINNENDIAM.colorNormal = "black/cyan"
		   this.parent.parent.DOOS_AFM_INHOUD.VELD_DIAMBUITEN.colorNormal = "black/cyan"
			 this.parent.parent.DOOS_AFM_INHOUD.VELD_gewicht.colorNormal = "black/cyan"
			  this.parent.parent.DOOS_AFM_INHOUD.VELD_dikte.colorNormal = "black/cyan"
			   this.parent.parent.DOOS_AFM_INHOUD.VELD_lengte.colorNormal = "black/cyan"
				 this.parent.parent.DOOS_AFM_INHOUD.VELD_breedte.colorNormal = "black/cyan"
				  this.parent.parent.DOOS_AFM_INHOUD.VELD_hoogte.colorNormal = "black/cyan"
        endif
  return
  *****

     function afmkleuren
	      this.parent.parent.DOOS_AFM_INHOUD.VELD_BINNENDIAM.colorNormal = "black/silver"
		    this.parent.parent.DOOS_AFM_INHOUD.VELD_DIAMBUITEN.colorNormal = "black/silver"
			  this.parent.parent.DOOS_AFM_INHOUD.VELD_gewicht.colorNormal = "black/silver"
			   this.parent.parent.DOOS_AFM_INHOUD.VELD_dikte.colorNormal = "black/silver"
			    this.parent.parent.DOOS_AFM_INHOUD.VELD_lengte.colorNormal = "black/silver"
				  this.parent.parent.DOOS_AFM_INHOUD.VELD_breedte.colorNormal = "black/silver"
				   this.parent.parent.DOOS_AFM_INHOUD.VELD_hoogte.colorNormal = "black/silver"
        
  return
  *****

  function crosskleurenoem
	    form.veld_art_cross.ColorNormal ="black/silver"
         form.keuzeveld_CrIngav.colorNormal ="black/silver"
	        form.keuzedoos_crossmerk.colorNormal ="black/silver"
           form.keuzedoos_crossprod.ColorNormal ="black/silver"
	          form.keuzedoos_crossfirma.ColorNormal = "Black/silver"
            this.parent.parent.keuzedoos_SEGM.colorNormal = "black/silver"
  return
  *****
  

  function prijskleur
      form.veld_crossprijs.ColorNormal = "black/cyan"
       form.veld_crossAantal.ColorNormal ="black/cyan"
        form.keuzedoos_crossEenheid.ColorNormal = "black/cyan"
  return
  *****          

  function prijskleurOem
      form.veld_crossprijs.ColorNormal = "black/silver"
       form.veld_crossAantal.ColorNormal ="black/silver"
        form.keuzedoos_crossEenheid.ColorNormal = "black/silver"
  return
  *****          

  function KNOP_PRIJSINGAVE_onClick()
    this.parent.parent.vraagbak_prijs.rowset.beginappend()
    class::prijskleur(null)
    form.veld_crossaantal.setFocus()
  return
  *****

  function KNOP_AFMETING_VERLATEN_onClick()
     if  this.parent.parent.vraagbak_afmeting.rowset.modified  
       if msgbox(" wilt u deze verandering negeren ?","verandereing negeren ?",36)==6
       this.parent.parent.vraagbak_afmeting.rowset.abandon()   
      endif
     else
      this.parent.parent.vraagbak_afmeting.rowset.abandon()   
	  endif
    class::afmkleuren()
  return
  ***** 
  function VELD_VOLGCROSS_when(bOpen)
  return false
  *****

  function VELD_VOLGEN_when(bOpen)
  return false
  *****

  function VELD_ZOEK_onKey(nChar, nPosition,bShift,bControl)
   /*this.parent.rowset.IndexName = "refartikel"
	 this.parent.rowset.first()
     this.parent.rowset.findKeynearest(Form.Veld_Zoek.value)
	  if not this.parent.rowset.fields["artikelnr"].value  = this.value
 	  this.parent.DOOS_KNOPPEN.knop_Artbijvoegen.enabled = true 
	  else
	  this.parent.DOOS_KNOPPEN.KNOP_ARTBIJVOEGEN.enabled = false 
     endif
	*/
 return
  *****

  function form_onOpen()
     this.vraagbak_artikel.rowset.first()   
     if empty(form.vraagbak_beschrijf.rowset.fields["artikelbeschrijving"].value)
      form.DOOS_ARTIKELINFO.KNOP_INFO_INGAVE.enabled = true   //  ?" niet zichtbaar"
     else
      form.DOOS_ARTIKELINFO.KNOP_INFO_INGAVE.enabled = false    //  ?"zichtbaar"
     endif
    class::valideren(null)
	   class::ingaveafm_open()
  	  this.veld_zoek.setFocus()
  return
  *****

  function VELD_ZOEK_onOpen()
     if this.parent.veld_zoek.value = Null
      this.parent.parent.knop.Artbijvoegen.enabled = false //return false // this.parent.parent.knop_artbijvoegen.enabled = false
    endif
  return
  *****

  function crossgegevens
   form.vraagbak_artikel.rowset.fields["artikelnr"].value = this.parent.parent.VELD_ARTIKELNR.value
    this.parent.parent.vraagbak_crossen.rowset.fields["crossbrandnr"].value =  this.parent.parent.rowset.fields["brandnr"].value   
     this.parent.parent.vraagbak_crossen.rowset.fields["crossArtikelnr"].value = form.vraagbak_artikel.rowset.fields["artikelnr"].value
    //  this.parent.parent.rowset.save()      
    //   this.parent.parent.vraagbak_crossen.rowset.save()
      this.parent.parent.VELD_ARTIKELNR.value = " "
     this.parent.parent.VELD_ZOEK.value = " "
    this.parent.parent.veld_zoek.enabled = true   
  return  
  *****
  
  function Verlaatgegevens
   form.vraagbak_artikel.rowset.fields["artikelnr"].value = this.parent.parent.VELD_ARTIKELNR.value
    this.parent.parent.vraagbak_crossen.rowset.fields["crossbrandnr"].value =  this.parent.parent.rowset.fields["brandnr"].value   
     this.parent.parent.vraagbak_crossen.rowset.fields["crossArtikelnr"].value = form.vraagbak_artikel.rowset.fields["artikelnr"].value
      this.parent.parent.rowset.abandon()      
       this.parent.parent.vraagbak_crossen.rowset.abandon()
        this.parent.parent.VELD_ARTIKELNR.value = " "
         this.parent.parent.VELD_ZOEK.value = " "
	       this.parent.parent.veld_zoek.enabled = true   
  return  
  *****

  function  crossplus  // wordt gebruikt bij aanmaken en opslaan van nieuw artikelnr
    local c_Cross
     this.parent.parent.vraagbak_nummer.rowset.indexname = "ivolgID" 
      if this.parent.parent.vraagbak_nummer.rowset.endoFset
        c_Cross = "0000000001"
       else
         if this.parent.parent.vraagbak_nummer.rowset.last()
        //  crossK = this.parent.parent.vraagbak_nummer.rowset.fields["eigenvolgnr"].value
          c_Cross= str(val(this.parent.parent.vraagbak_nummer.rowset.fields["eigenvolgnr"].value)+1,10,0,"0")
         endif
      endif
        this.parent.parent.vraagbak_crossen.rowset.beginappend()
         this.parent.parent.vraagbak_crossen.rowset.fields["eigenvolgnr"].value = c_Cross
          this.parent.parent.vraagbak_crossen.rowset.fields["crossbrandnr"].value =  this.parent.parent.rowset.fields["brandnr"].value  
           this.parent.parent.vraagbak_crossen.rowset.fields["crossArtikelnr"].value = this.parent.parent.vraagbak_artikel.rowset.fields["artikelnr"].value
            this.parent.parent.vraagbak_crossen.rowset.fields["crossingavedatum"].value =  date() 
  return
  *****  

  function valideren
      if empty(form.veld_zoek.value)
           msgbox("gelieve eerst artikelnr zoeken","data ingeven",64) // this.parent.parent.knop_Artbijvoegen.enabled = false
          this.DOOS_KNOPPEN.KNOP_ARTBIJVOEGEN.enabled = false //classname //knop_artbijvoegen.enabled = false
       endif
  return       
  *****
endclass