COD  =UX_COP
NUME =Lansare copie cu hUTIL
APLIC=
EXPL1=
EXPL2=
EXPL3=
EXPL4=
DESCH=D
CMD  =
// citeste sistemul de operare
x_os   := RTRIM(UPPER(GETENV("OS")))

// citeste cataloagele
// daca variabila scat nu este prezenta (exe mai vechi),
// daca scat nu este definit,
// daca catalog scat este vid,
// atunci TYPE("FIL_SCAT")#"N"
x_scat := IF(TYPE("FIL_SPRO")="N",h_FilePathes[fil_scat],"")
x_spro := IF(TYPE("FIL_SPRO")="N",h_FilePathes[fil_spro],"")

x_crlf := CHR(13)+CHR(10)

#IF !EMPTY(x_scat)
    MEMOWRIT(h_AddPath("copy"+h_StatId()+".cmd",x_scat),;
             "[RUN]"+x_crlf+;
             "MODE=/MIN"+x_crlf+;
             "DIRECTORY="+x_spro+x_crlf+;
             "EXE=hUTIL.exe"+x_crlf+;
             "PARAMETERS="+h_CutSl(h_FilePathes[fil_file])+" U1_COP"+x_crlf)
    ALERT("Lansat: hUTIL "+h_CutSl(h_FilePathes[fil_file])+" U1_COP")
#ELSE
    h_MesErr("Spooler neactivat",0)
#ENDIF