[RESOLVIDO] Funcionario desligado e Hcm enviar email.

Boa tarde a todos,
pessoal é possivel fazer algo do tipo o funcionario foi demitido o HCM enviar email com esta informacao?
ex.:
Funcionario Joao foi demitido..
Sera dado a entrada desta demissao no HCM e automaticamente é disparado um email para algumas pessoas terem ciencia do desligamento deste funcionario.
obrigado...

Aqui na empresa existe isso, onde é usada upc no fr5040, quando o tipo de rescisão for efetiva, pode ser usada tbm trigger na tabela funcionario.



att,

Ola amigo.. obrigado pela ajuda..
voce nao conseguiria um exemplo ou algo para eu ter uma nocao de como fazer?
obrigado.

Pode compartilhar conosco ?

Código:

{include/i-freeac.i}

def input param p-ind-event  as char          no-undo.
def input param p-ind-object as char          no-undo.
def input param p-wgh-object as handle        no-undo.
def input param p-wgh-frame  as widget-handle no-undo.
def input param p-cod-table  as char          no-undo.
def input param p-row-table  as rowid         no-undo.

DEF VAR mails-dest LIKE grp_mail_func.nom_mail_contat NO-UNDO.

IF p-ind-event = "AFTER-END-UPDATE" AND p-ind-object = "VIEWER" THEN DO:
    run upc/findwidget.p (input 'cdn_funcionario'        , input p-wgh-frame, output h-codigo-func).
    run upc/findwidget.p (input 'dat_desligto_func'      , input p-wgh-frame, output h-dat-deslig ).
    run upc/findwidget.p (input 'v_idi_tip_rescis_func'  , input p-wgh-frame, output h-tip-rescis ).

    FIND FIRST funcionario NO-LOCK
        WHERE funcionario.cdn_funcionario = int(h-codigo-func:SCREEN-VALUE) NO-ERROR.
    IF AVAIL funcionario THEN DO:
        IF h-tip-rescis:SCREEN-VALUE = "1" THEN DO: /** Efetiva **/
            FOR EACH grp_mail_func NO-LOCK
                WHERE grp_mail_func.cod_grp_mail = "Eng Qualidade".
                ASSIGN mails-dest = grp_mail_func.nom_mail_contat.
           
                FIND FIRST turno_trab no-lock
                    WHERE turno_trab.cdn_turno_trab = funcionario.cdn_turno_trab NO-ERROR.
                
                ASSIGN c-email    = "system@atlas.ind.br"
                       c-destino  = mails-dest
                       c-assunto  = "Demissão Funcionario " + unid_lotac.des_unid_lotac
                       c-mensagem = "Matricula: " + string(funcionario.cdn_funcionario) + CHR(13) +
                                    "Funcionario: " + funcionario.nom_pessoa_fisic + CHR(13) +
                                    "Setor: " + unid_lotac.des_unid_lotac + CHR(13) +
                                    "Turno: " + turno_trab.des_turno_trab + CHR(13) +
                                    "A partir da data " + h-dat-deslig:SCREEN-VALUE + CHR(13) +
                                    "Pelo usuário " + c-seg-usuario.
                RUN utils\envia-email.p (INPUT c-email, INPUT c-arquivo, INPUT c-assunto, INPUT c-mensagem, INPUT c-destino).
            END.
        END.
    END.
END.

OBS: utils\envia-email.p usa a api utp/utapi009.p.

Miguel, muito obrigado pelo seu breve retorno.

Até !