Mencatat struktur suatu tabel

Mencatat struktur suatu tabel

  07.14    Prometheus

---

 && FUNCTION DBFStruct
&& PARAMETERS _Alias
&& Fungsi ini untuk mencatat struktur dari suatu table
&& PARAMETERS _Alias = Alias yang diinginkan, jika dikosongkan dianggap alias saat ini
&& Nila retur berupa string seperti contoh berikut :
&& ( SEQNO C(10,0),DATETRN D(8,0), QTY N(11,2),REMARK C(20,0) )
&& CONTOH MEMBUAT TABEL dari struktur table yang terbuka
&& CLOSE DATABASES
&& SET PROCEDURE TO gSales
&& _FOLDERTEMP="D:\TEMP\"
&& USE data\mItems
&& CLEAR 
&& xCommand="CREATE TABLE "+_FOLDERTEMP+ALIAS()+".DBF "+DBFStruct(ALIAS())
&& ? xCommand
&& &xCommand 
USE 
CLOSE DATABASES 

FUNCTION DBFStruct
PARAMETERS _Alias
PRIVATE _Alias,_kei,_Struktur,_CurField
IF VARTYPE(_Alias)<>"C"
_Alias=ALIAS()
ENDIF 
=AFIELDS(_ArStruDBF,_Alias)
_Struktur=""
FOR _Kei=1 TO ALEN(_ArStruDBF,1)
&& Nama Field : ? _ArStruDBF(_Kei,1)
&& Jenis Field : ? _ArStruDBF(_Kei,2)
&& Panjang Field : ? _ArStruDBF(_Kei,3)
&& Panjang Descimal Filed : ? _ArStruDBF(_Kei,4)
_CurField=_ArStruDBF(_Kei,1)+CHR(32)+;
_ArStruDBF(_Kei,2)+"("+;
+ALLTRIM(STR(INT(_ArStruDBF(_Kei,3))))+","+;
+ALLTRIM(STR(INT(_ArStruDBF(_Kei,4))))+") "
IF EMPTY(_Struktur)
_Struktur="("+_CurField
ELSE 
_Struktur=_Struktur+", "+_CurField
ENDIF 
NEXT 
_Struktur=_Struktur+")"
RETURN _Struktur