Printing PDFs Using VFP

Program dibawah ini berguna untuk mencetak file PDF di program yang di created dengan VFP.
 
Download artikel lengkap (DOC) :
printing-pdfs-using-vfp.doc

Printing PDFs Using VFP

Program dibawah ini berguna untuk mencetak file PDF di program yang di created dengan VFP.
 
Buat program (prosedur.prg), dengan script :
 
PROCEDURE ShellExec (exeName, exeParms, exePath)
LOCAL nStat, errorDesc
nStat = ShellExecute(0,”print”,exeName,exeParms,exePath,1)
 * If nStat > 32, then it is the Instance Handle
 * To get a Windows Handle see support.microsoft.com/kb/q242308/
 IF  nStat <= 32
     errorDesc = ICASE(nStat=2,”Invalid path [...]

Split Kalimat

Tanya :
Di foxpro ada nggak ya, fungsi untuk split kalimat menjadi kata perkata
contoh
Ini Barang Baru Datang di split menjadi
1. Ini
2. Barang
3. Baru
4. Datang
Jawab :
KataSaya=’Ini Barang Baru Datang’
=pisah(KataSaya)
procedure pisah
parameter kalimat
no=1
terus=.t.
do while terus
posawal=iif(no=1,1,at(‘ ‘,kalimat,no-1)+1)
if at(‘ ‘,kalimat,no)=0
jmlhuruf=iif(no=1,at(‘ ‘,kalimat,no)-1,len(kalimat)-;
at(‘ ‘,kalimat,no-1))
else
jmlhuruf=iif(no=1,at(‘ ‘,kalimat,no)-1,;
at(‘ ‘,kalimat,no)-at(‘ ‘,kalimat,no-1)-1)
endif
kmacro=”kalimat”+allt(str(no))+”=’”;
+substr(kalimat,posawal,jmlhuruf);
+”‘”
&kmacro
if at(‘ ‘,kalimat,no)=0
terus=.f.
endif
no=no+1
enddo

Cek Field di Table

Dalam sebuah milis di vfp-indonesia@yahoogroups.com, ada pertanyaan bagaimana mengecek ada tidaknya sebuah field di tabel.
Pertanyaan :
Saya punya Free Table (DBF) dengan nama PEGAWAI.DBF didalamnya ada Filed NO_INDUK, NAMA,ALAMAT,KOTA dsb
Yang ingin saya tanyakan :
Apa perintahnya (sintaks) untuk mendeteksi dalam table tersebut sudah ada Field KOTA apa belum, kalau belum ada maka akan di sisipkan Filed [...]