Advertisement
jamboljack

SImpan Data File

Oct 14th, 2016
1,425
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ** Lokasi Asli
  2. cpath  = Alltrim(This.Parent.txtlokasidata.Value)
  3. xtime = Chrtran(Time(Rand()),':.','')
  4. ** Nama File Baru
  5. namafilebaru = vno_id+"_"+vnama_berkas+"_"+xtime+'_'+Alltrim(muser)+'.jpg'
  6. ** Copy File ke Folder Filescan dan Rename Langsung
  7. Copy File (cpath) To Sys(2003)+"\"+"Filescan\"+Alltrim(namafilebaru)
  8.  
  9. && Simpan ke Table Berkas_file
  10. Insert Into berkas_file (no_id,nama_berkas,tgl_berkas,nama_file);
  11.     Values (vno_id,cnama_berkas,Date(),namafilebaru)
  12. Select berkas_file
  13. Tableupdate(.T
  14. ** Nama File Baru
  15. namafilebaru = vno_id+"_"+vnama_berkas+"_"+xtime+'_'+Alltrim(muser)+'.jpg'
  16. ** Copy File ke Folder Filescan dan Rename Langsung
  17. Copy File (cpath) To Sys(2003)+"\"+"Filescan\"+Alltrim(namafilebaru)
  18.  
  19. && Simpan ke Table Berkas_file
  20. Insert Into berkas_file (no_id,nama_berkas,tgl_berkas,nama_file);
  21.     Values (vno_id,cnama_berkas,Date(),namafilebaru)
  22. Select berkas_file
  23. Tableupdate(.T
  24. ** Copy File ke Folder Filescan dan Rename Langsung
  25. Copy File (cpath) To Sys(2003)+"\"+"Filescan\"+Alltrim(namafilebaru)
  26.  
  27. && Simpan ke Table Berkas_file
  28. Insert Into berkas_file (no_id,nama_berkas,tgl_berkas,nama_file);
  29.     Values (vno_id,cnama_berkas,Date(),namafilebaru)
  30. Select berkas_file
  31. Tableupdate(.T.)
Advertisement
RAW Paste Data Copied
Advertisement