SImpan Data File

** Lokasi Asli
cpath  = Alltrim(This.Parent.txtlokasidata.Value)
xtime = Chrtran(Time(Rand()),':.','')
** Nama File Baru
namafilebaru = vno_id+"_"+vnama_berkas+"_"+xtime+'_'+Alltrim(muser)+'.jpg'
** Copy File ke Folder Filescan dan Rename Langsung
Copy File (cpath) To Sys(2003)+"\"+"Filescan\"+Alltrim(namafilebaru)

&& Simpan ke Table Berkas_file
Insert Into berkas_file (no_id,nama_berkas,tgl_berkas,nama_file);
    Values (vno_id,cnama_berkas,Date(),namafilebaru)
Select berkas_file
Tableupdate(.T
** Nama File Baru
namafilebaru = vno_id+"_"+vnama_berkas+"_"+xtime+'_'+Alltrim(muser)+'.jpg'
** Copy File ke Folder Filescan dan Rename Langsung
Copy File (cpath) To Sys(2003)+"\"+"Filescan\"+Alltrim(namafilebaru)

&& Simpan ke Table Berkas_file
Insert Into berkas_file (no_id,nama_berkas,tgl_berkas,nama_file);
    Values (vno_id,cnama_berkas,Date(),namafilebaru)
Select berkas_file
Tableupdate(.T
** Copy File ke Folder Filescan dan Rename Langsung
Copy File (cpath) To Sys(2003)+"\"+"Filescan\"+Alltrim(namafilebaru)

&& Simpan ke Table Berkas_file
Insert Into berkas_file (no_id,nama_berkas,tgl_berkas,nama_file);
    Values (vno_id,cnama_berkas,Date(),namafilebaru)
Select berkas_file
Tableupdate(.T.)