Photobucket

fox pro


Key login
LPARAMETERS nKeyCode, nShiftAltCtrl
*IF neykode 27
      NODEFAULT
      RELEASE thisform
*endif
DO case
     CASE thisform.tmerk.value="BMW"
     THISFORM.TSEWA.VALUE=100000
     THISFORM.TNOPLAT.Value="H1245"
     THISFORM.TNOMESIN.Value=456786
     CASE thisform.tmerk.value="APV"
     THISFORM.TSEWA.VALUE=150000
     THISFORM.TNOPLAT.Value="H4567"
     THISFORM.TNOMESIN.Value=989877
     CASE thisform.tmerk.value="HONDAJAZZ"
     THISFORM.TSEWA.VALUE=200000
     THISFORM.TNOPLAT.Value="H6785"
     THISFORM.TNOMESIN.Value=125467
     CASE thisform.tmerk.value="XENIA"
     THISFORM.TSEWA.VALUE=250000
     THISFORM.TNOPLAT.Value="H5987"
     THISFORM.TNOMESIN.Value=765673
ENDCASE

Diposting oleh anandhita di 10.02

0 komentar:

Posting Komentar

 
© 2013 Anandhita Blog Powered by Blogger.com
Template Created by: Gusti Putu IBS