//Faza _: Initializari

// titlu meniu de operatii
MenuTitle   := "Operatii upgrade hMARFA/hMARFT"

// Procedura upgrade se executa in regim normal, cu afisarea textelor
// si a ferestrelor ajutatoare.
lModSilentios := .F.

// Procedura upgrade se executa in mod "silentios", fara afisarea textelor
// si a ferestrelor ajutatoare.
// Ferestrele de decizie absolut necesare pentru executarea procedurii upgrade
// vor fi afisate si in acest regim.
// lModSilentios := .T.

// pt. vizibilitate intre faze:
// - variabile
x_aplrecno  := 0
x_arrecno   := 0
x_versiune  := {}
lEroare     := .F.
sMesaj      := ""
x_path      := h_FilePathes[fil_file]
DataMarfa   := CtoD("")

x_open      := {}
slogf       := h_AddPath("UMV89D_F1_"+h_StatId()+".TXT",h_FilePathes[fil_tmp])

sDBName   := h_FileName(h_CutSl(h_FilePathes[fil_file]))

fil_n2    := IIF(Type("fil_n2")   ="N", fil_n2,   nil)
fil_x2    := IIF(Type("fil_x2")   ="N", fil_x2,   nil)
