COD  =PRINTC
NUME =Transmite lst prin e-mail
APLIC=
EXPL1=
EXPL2=
EXPL3=
EXPL4=
DESCH=D
CMD  =
// In cadrul aceluiasi apel "Utilitar de imprimare"
// pentru comunicarea intre pachete sint accesibile variabilele
// globale X_1, X_2, ..., X_9.
// La parasirea utilitarului valorile se pierd.
//
// Inainte de apel se creeaza vectorul h_gcmdparam cu urmatoarele elemente:
//
// h_gcmdparam[ 1] - C, 6: cod pachet, ex:PRINTx,
// h_gcmdparam[ 2] - L   : rezultatul operatiei de listare,
//                         la intrare valoarea este .T.,
//                         pentru iesire se poate seta in script .T. sau .F.
// h_gcmdparam[ 3] - C, 8: cod lista,
// h_gcmdparam[ 4] - C, n: drive + cale + nume fisier lista,
// h_gcmdparam[ 5] - C,25: denumire lista,
// h_gcmdparam[ 6] - C,10: cod imprimanta,
// h_gcmdparam[ 7] - C,10: cod hartie,
// h_gcmdparam[ 8] - D   : data
// h_gcmdparam[ 9] - C, 5: ora, hh:mm

h_MesHlp ("Asteptati !")

x_os     := RTRIM(UPPER(GETENV("OS")))
x_crlf   := CHR(13)+CHR(10)
x_par    := h_TruePath(h_AddPath("FISPAR"+h_StatId()+".TXT",h_FilePathes[fil_tmp]))
x_catexe := IF(TYPE("FIL_SPRO")="N", h_TruePath(h_FilePathes[fil_spro]), "")

#IF x_os=="LINUX"
    h_MesErr("Pe LINUX nu este implementat !",0)

#ELSEIF EMPTY(h_gcmdparam[ 3])
    h_MesErr("Cod lista absent !",0)

#ELSEIF !(TYPE("FIL_SCAT") = "N")
    // daca variabila scat nu este prezenta (exe mai vechi),
    // daca scat nu este definit,
    // daca catalog scat este vid,
    // atunci TYPE("FIL_SCAT")#"N"
    h_MesErr("Definiti catalogul spooler: scat",0)

#ELSE
    // generare fisier parametri pentru hMail
    MEMOWRIT(x_par,;
             "[EMAIL]"+x_crlf+;
             "ADDRESSTO=to@server.r"+x_crlf+;
             "SUBJECT=Lista "+h_gcmdparam[ 3]+"-"+h_gcmdparam[ 5]+" de la "+x_SocData()+x_crlf+;
             "ATTACHMENT="+h_gcmdparam[ 4]+x_crlf+;
             "DIALOG=1"+x_crlf+;
             "BODY01=Lista transmisa de "+x_SocData()+x_crlf+;
             "BODY02=Cod: "+h_gcmdparam[ 3]+x_crlf+;
             "BODY03=Denumire: "+h_gcmdparam[ 5]+x_crlf+;
             "BODY04=Imrimanta: "+h_gcmdparam[ 6]+x_crlf+;
             "BODY05=Hirtie: "+h_gcmdparam[ 7]+x_crlf+;
             "BODY06=Data: "+h_DTOC(h_gcmdparam[ 8],"zz/ll/aaaa")+x_crlf+;
             "BODY07=Ora: "+h_gcmdparam[ 9]+x_crlf)
    // generare comanda pentru hWTools
    MEMOWRIT(h_AddPath("hmail"+h_StatId()+".cmd",h_FilePathes[fil_scat]),;
             "[RUN]"+x_crlf+;
             "MODE=/MIN"+x_crlf+;
             "DIRECTORY="+x_catexe+x_crlf+;
             "EXE=hMail.exe"+x_crlf+;
             "PARAMETERS="+x_par+x_crlf)
    h_MesHlp("Lansat: hMail "+x_par,0)

#ENDIF