Memeriksa Kesamaan Struktur 2 File DBF dengan Visual Foxpro

Memeriksa Kesamaan Struktur 2 File DBF dengan Visual Foxpro

  09.29    Prometheus

---

&& FUNCTION ApadbfSama
&& untuk menguji kesamaan struktur 2 workarea
&& Parameter _alias1,_alias2 ==> Alias yang akan dibandingkan
&& Return
&& .T. jika kedua workarea sama strukturnya
&& .F. Jika :
&& - Parameter workarea tak diberikan
&& - kedua workarea tak sama

FUNCTION ApadbfSama
PARAMETERS _alias1,_alias2
IF VARTYPE(_alias1)<>"C" .or. VARTYPE(_alias2)<>"C"
        RETURN .F.
ENDIF
_lenar1=AFIELDS(_ar1,_alias1)
_lenar2=AFIELDS(_ar2,_alias2)
IF VARTYPE(_lenar1)<>"N" .or. VARTYPE(_lenar2)<>"N"
        RETURN .F.
ENDIF
IF _lenar1<>_lenar2
        RETURN .F.
ENDIF
_balik=.T.
FOR _kej=1 TO 18
        FOR _kei=1 TO _lenar1
                IF _ar1(_kei,_kej)<>_ar2(_kei,_kej)
                        _balik=.F.
                        EXIT
                ENDIF
                * ? _ar1(_kei,_kej)
        NEXT

NEXT
RETURN _balik