// verifica versiune program.
// In rutina apelanta trebuie sa existe x_open declarat,
// Parametru: x_versiune - vector - incarcat cu versiunile ce se verifica.
//            lEroare    - parametru de iesire. S-a depistat eroare la
//                         versiune
//
// Fisierul aplic de referinta ramine deschis, articolul in care 
// este declarata aplicatia x_arrecno se retine in x_aplrecno.
// Fisierul aplic ramine deschis, articolul in care este declarata aplicatia
// se retine in x_aplrecno.
//

lEroare := .F.
#WHILE .T.

// verificare APLIC.DBF
    h_NewSelect()
    #IF ! h_NetUse (homepath+"APLIC",,, ;
                    "Aplicatii referinta ("+homepath+"APLIC.DBF)", "aref")
        lEroare := .T.
        #EXIT
    #ENDIF
    __dbLocate( {|| aref->CODE = h_ApplCode},,,, .F. )
    #IF ! FOUND()
        sMesaj  := h_ApplCode+" - aplicatie absenta in Aplicatii referinta !"
        lEroare := .T.
        #EXIT
    #ENDIF
    x_arrecno := RECNO()

    #IF ! h_UseAlias({"apl"},x_open)
        lEroare := .T.
        #EXIT
    #ENDIF
    __dbLocate( {|| apl->CODE = h_ApplCode},,,, .F. )
    #IF ! FOUND()
        sMesaj  := h_ApplCode + " - aplicatie nepermisa !"
        lEroare := .T.
        #EXIT
    #ENDIF
    x_aplrecno := RECNO()
    #IF ! (ASCAN(x_versiune,{|p| apl->V = p}) > 0)
        sVers := ""
        AEVAL(x_versiune,{|p| sVers := sVers + IF(EMPTY(sVers),"",", ")+p})
        sMesaj  := "Baza de date este versiunea "+apl->V+" Nu este versiunea: "+sVers+" !"
        lEroare := .T.
        #EXIT
    #ENDIF

    #EXIT

#ENDDO

#RETURN

