Exibir origem

2702 As rotinas de geracao/baixa de pendencias das Nao-Conformidades e Acoes Corretivas forem implementadas com o envio de e-mail para os responsaveis dos lancamentos, e para diversificar a comunicacao foram criados alguns Pontos de Entrada para a configuracao do Lay-Out dos e-mails. Os Pontos de Entrada sao:

QNCBXFNC - Aviso ao Responsavel da Ficha de Nao-Conformidades quando for Baixa automatica das Etapas das Acoes Corretivas.
QNCFICHA - Aviso ao Responsavel da Ficha de Nao-Conformidades quando for inclusao/alteracao.
QNCRACAO - Aviso ao Responsavel da Acao Corretiva quando for incluida/alterada.
QNCEACAO - Aviso ao Responsavel da Etapa/Passo atual da Acao Corretiva
QNCCACAO - Aviso aos Responsaveis das Etapas/Passos das Acoes Corretivas quando a Acao Corretiva for CANCELADA.

Todos os Pontos de Entrada de configuracao de envio de e-mail deverao obrigatoriamente retornar um array de uma linha com o seguinte formato:

1a.Coluna = Subject/Assunto
2a.Coluna = Conteudo/formato do envio do e-mail
3a.Coluna = Nome do arquivo atachado/anexo.

Exemplo de Lay-Out em HTML:

/////////////////////////////////////////////////////////////////
#INCLUDE "RDMAKE.CH"

User Function QNCFICHA()

SetPrvt("CRLF,ATIPO,ASTATUS,APRIORI,CMSG,CTXTDET,")
SetPrvt("NLINDET,NCOLT,NT,AMSG,NCOL1,")
SetPrvt("CTEXTO,NLINHASQ,NCOLUNA,ACOLUNA,")

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

aTipo := { "Nao Conformidade Potencial",;
"Nao Conformidade Existencial",;
"Melhoria" }

aStatus := { "Registrada","Em Analise","Procede",;
"Nao Procede","Cancelada" }

aPriori := { "Baixa", "Media" , "Alta" }

cMsg := '<html>' + CRLF
cMsg += '<head>' + CRLF
cMsg += '<title> New Page 1 </title>' + CRLF
cMsg += '</head>' + CRLF
cMsg += '<body background="telam.jpg">' + CRLF

cMsg += 'Nao Conformidade ocorrida em '+
DTOC(M->QI2_OCORRE)+' Data Prevista p/ Conclusao: '+DTOC(M->QI2_CONPRE)+
'' + CRLF

cMsg += 'Desc.Detalhada:'+CRLF
cMsg += ''+
STRTRAN(M->QI2_MEMO1,CHR(13)+CHR(10)," ")+' ' + CRLF

cMsg += ' ' + CRLF
cMsg += 'Atenciosamente'+CRLF
cMsg += ''+M->QI2_NUSR+''+CRLF
cMsg += '+
QA_NDEPT(cMatDep,.F.,cFilAnt)+' ' + CRLF

cMsg += 'Mensagem gerada automatica pelo Modulo SIGAQNC - Controle de Nao-Conformidades' + CRLF

cMsg += '</body></html>'

////////////////////////////////////////////////////////////////

Nível Acesso	Nível 1 (Acesso Clientes)
Idioma	Espanhol , Inglês