UTS

FORM
==============
thisform.text1.Value =ctoD('  /  /  ')
thisform.text2.Value = ''
thisform.text3.Value = ''
thisform.text4.Value = 0
thisform.text5.Value = 0
thisform.text6.Value = 0
thisform.text1.setfocus ()


TEXT5
===============
thisform.text6.Value=(thisform.text4.Value * thisform.text5.value)

EXIT
======
THISFORM.RELEASE




SELECT UTS_11295080
IF FOUND()
     replace uts_11295080.tgl_trans WITH thisform.text1.value
     replace uts_11295080.Kode WITH thisform.text2.value
     replace uts_11295080.Nama_brng WITH thisform.text3.value
     replace uts_11295080.Harga WITH thisform.text4.value
     replace uts_11295080.Satuan WITH thisform.text5.value
     replace uts_11295080.Jumlah WITH thisform.text6.value
     thisform.grid1.Refresh()
ELSE
APPEND BLANK
     replace uts_11295080.tgl_trans WITH thisform.text1.value
     replace uts_11295080.Kode WITH thisform.text2.value
     replace uts_11295080.Nama_brng WITH thisform.text3.value
     replace uts_11295080.Harga WITH thisform.text4.value
     replace uts_11295080.Satuan WITH thisform.text5.value
     replace uts_11295080.Jumlah WITH thisform.text6.value
     thisform.GRID1.REFRESH()
endif



info
==========

thisform.lblinfo.Visible=!thisform.lblinfo.Visible


PRINT
==============
REPORT FORM UTS_11295080.frx preview