if file('transform_string4.dbf')
 drop table transform_string4
endif

if not file('transform_string4.dbf')
   create table transform_string4  (numStr character(15),nNum int)
   use transform_string4
   generate 30
//   replace all numStr with str(nNum,10,0)  //Saves values with leading spaces
   use
   delete from transform_string4 where nNum = 0  or nNum > 9000000
   update transform_string4 set numStr = cast(nNum as char(10)) //Saves values without leading spaces
   alter table transform_string4 drop nNum
   //Code above is used to create a test table with a field containing
   //integers as strings.  
 endif  
** END HEADER -- do not remove this line
//
// Generated on 2023-11-16
//
parameter bModal
local f
f = new transform_string4Form()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class transform_string4Form of FORM
   with (this)
      height = 20.7727
      left = 34.1429
      top = 0.2273
      width = 51.7143
      text = ""
   endwith

   this.TRANSFORM_STRING41 = new QUERY(this)
   with (this.TRANSFORM_STRING41)
      left = 1.0
      top = 18.0
      width = 14.0
      height = 1.0
      sql = 'select t.*,CAST(numstr as INT) numstr1 from transform_string4 t '
      active = true
   endwith

   with (this.TRANSFORM_STRING41.rowset)
      with (fields["numstr1"])
         beforeGetValue = {||transform(this.value,'999,999,999.99')}
      endwith
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.transform_string41.rowset
      columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN1"])
         dataLink = form.transform_string41.rowset.fields["numstr"]
         editorType = 1	// EntryField
         width = 21.4286
      endwith
      columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1)
      with (columns["COLUMN2"])
         dataLink = form.transform_string41.rowset.fields["numstr1"]
         editorType = 1	// EntryField
         width = 15.7143
      endwith
      with (columns["COLUMN1"].headingControl)
         value = "numstr"
      endwith

      with (columns["COLUMN2"].editorControl)
         function = "J"
      endwith

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

      height = 14.9091
      left = 3.5714
      top = 3.0455
      width = 44.8571
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 6.7143
      top = 0.6364
      width = 19.8571
      text = "data as saved in table"
   endwith

   this.TEXT1 = new TEXT(this)
   with (this.TEXT1)
      height = 1.5
      left = 28.8571
      top = 0.6364
      width = 18.7143
      text = "Calaculated field right justified in grid"
   endwith

   this.rowset = this.transform_string41.rowset

endclass

<br />
<b>Warning</b>:  Unknown: write failed: No space left on device (28) in <b>Unknown</b> on line <b>0</b><br />
<br />
<b>Warning</b>:  Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in <b>Unknown</b> on line <b>0</b><br />