Subject Assigning Values
From Norman Snowden <duluth@msn.com>
Date Fri, 13 Apr 2018 14:50:24 -0400
Newsgroups dbase.getting-started

This code changes a decimal angle to degrees minutes and seconds. On the Form.wfm the seconds, called tars, prints out  just fine in the tars Entryfield.

However the decimal tard value and the minute tarm value show as zeros in their Entryfields as zero, which they are.

As you can  see from the printouts tard and tarm refuse to accept their assigned values.

Can the program just be maxed out with too many Entryfields?

Thanks for any comments, Norman Snowden

with (this.ENTRYFIELD428)
      dataLink = form.area1.rowset.fields["tard"]
      height = 0.1667
      left = 10.1458
      top = 5.375
      width = 0.34
      picture = "99"
      fontSize = 8.0
      fontBold = true
   endwith

   this.ENTRYFIELD429 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD429)
      dataLink = form.area1.rowset.fields["tarm"]
      height = 0.1667
      left = 10.52
      top = 5.375
      width = 0.32
      picture = " 99"
      fontSize = 8.0
      fontBold = true
   endwith

   this.ENTRYFIELD430 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD430)
      dataLink = form.area1.rowset.fields["tars"]
      height = 0.1667
      left = 10.875
      top = 5.375
      width = 0.5833
      picture = "99.999"
      fontSize = 8.0
      fontBold = true
   endwith

   tcnvr = RTOD(Atan(m->yty/m->xtx))  && 03/16/2017                     
        m->tard = INT(tcnvr)
        m->tarm = INT((tcnvr - m->tard) * 60)
        m->tars = ((((tcnvr - m->tard) * 60) - INT((tcnvr - m->tard) * 60))) * 60
        ? m->tard, m->tarm, m->tars, "m->tard", "m->tarm", "m->tars"                
        form.area1.rowset.fields["tard"].value = m->tard
        form.area1.rowset.fields["tarm"].value = m->tarm
        form.area1.rowset.fields["tars"].value = m->tars
        form.area1.rowset.save()
        ? form.area1.rowset.fields["tard"].value , "tard"
        ? form.area1.rowset.fields["tard"].value , "tarm"
        ? form.area1.rowset.fields["tard"].value , "tars"  
          
  
        20         54         18.56681 m->tard m->tarm m->tars
        0 tard
        0 tarm
        18.56700 tars
   return