Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	O350EMAIL - Envio de e-mail no Agendamento
	O350EMAIL - Envio de e-mail no Agendamento

Ponto-de-Entrada: O350EMAIL - Envio de e-mail no Agendamento

Abrangências:	Microsiga Protheus 10 , Microsiga Protheus 11
Versões:	Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Português (Brasil)

Descrição:

 Ponto de Entrada localizado na rotina de Agendamento (OFIOM350), executado ao preencher o campo Email e confirmar a inclusão que questiona se o usuário deseja enviar e-mail de confirmação para o cliente.

Eventos

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ O350EMAILº Autor ³ Andre Luis Almeida º Data ³ 09/01/10 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍ¹±±

±±ºDescricao ³ Formatacao do e-mail de confirmacao do Agendamento Oficina º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹±±

±±ºUso ³ OFIOM350 - Agendamento Oficina º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function O350EMAIL()

Local nCount := 0

Local cLembret1 := "Lembrete: Para seu melhor atendimento, solicitamos sua presenca com 5 minutos de antecedencia. Em caso de atraso superior"

Local cLembret2 := "a 15 minutos, liberaremos seu horario para outro atendimento. Solicitamos tambem, sua permanencia nos primeiros 20"

Local cLembret3 := "minutos do atendimento para realizar a inspecao visual dos componentes do seu veiculo junto ao Tecnico designado. Havendo"

Local cLembret4 := "necessidade de alteracao da data/hora do atendimento, favor entrar em contato com nosso centro de atendimento ao cliente, pelo telefone"

Local cLembret5 := ", atraves do Departamento de Atendimento ao Cliente, agradece a escolha por nossa empresa."

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

// cMensagem ( variavel PRIVATE com toda a formatacao do E-mail do Agendamento Oficina ) //

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

cMensagem := ""

cMensagem += "<center><table border=0 width=80%><tr>"

If !Empty( GetNewPar("MV_ENDLOGO","") )

cMensagem += "<td width=20%><img src='" + GetNewPar("MV_ENDLOGO","") + "'></td>"

EndIf

cMensagem += "<td align=center width=80%>"

cMensagem += SM0->M0_NOMECOM+" "

cMensagem += SM0->M0_ENDENT+" "

cMensagem += SM0->M0_CIDENT+" - "+SM0->M0_ESTENT+" "

cMensagem += "Fone: "+SM0->M0_TEL+"</td></tr></table><hr width=80%>" // Fone

cMensagem += ""+cTitulo+" <hr width=80%> "

cMensagem += "<table border=0 width=80%><tr>"

cMensagem += "<td>"+"Data:"+"</td>" // Data

cMensagem += "<td>"+Transform(M->VSO_DATAGE,"@D")+" - "+FG_CDOW(M->VSO_DATAGE)+"</td>"

cMensagem += "<td>"+"Hora:"+"</td>" // Hora

cMensagem += "<td>"+Transform(M->VSO_HORAGE,"@R 99:99")+"hs</td>"

cMensagem += "</tr><tr>"

cMensagem += "<td>"+"Tecnico:"+"</td>" // Tecnico

cMensagem += "<td>"+VAI->VAI_NOMTEC+"</td>"

cMensagem += "<td>"+"Box:"+"</td>" // Box

cMensagem += "<td>"+M->VSO_NUMBOX+"</td>"

cMensagem += "</tr></table> "

cMensagem += "<table border=0 width=80%><tr>"

cMensagem += "<td>"+"Chassi:"+"</td>" // Chassi

cMensagem += "<td>"+M->VSO_GETKEY+"</td>"

cMensagem += "<td>"+"Placa:"+"</td>" // Placa

cMensagem += "<td>"+Transform(M->VSO_PLAVEI,VV1->(x3Picture("VV1_PLAVEI")))+"</td>"

cMensagem += "</tr><tr>"

cMensagem += "<td>"+"Proprietario:"+"</td>" // Proprietario

cMensagem += "<td>"+M->VSO_NOMPRO+"</td>"

cMensagem += "<td>"+"Fone:"+"</td>" // Fone

cMensagem += "<td>"+M->VSO_FONPRO+"</td>"

cMensagem += "</tr><tr>"

cMensagem += "<td>"+"Endereco:"+"</td>" // Endereco

cMensagem += "<td>"+M->VSO_ENDPRO+"</td>"

cMensagem += "<td>"+"Cidade:"+"</td>" // Cidade

cMensagem += "<td>"+M->VSO_CIDPRO+" - "+M->VSO_ESTPRO+"</td>"

cMensagem += "</tr></table> "

If GetNewPar("MV_MOBSEMA","N") == "S" .and. !Empty(M->VSO_OBSERV)

cMensagem += "<table border=0 width=80%><tr><td>"

cMensagem += "<pre>"+"Observacao:"+" " // Observacao

cMensagem += "" + M->VSO_OBSERV + "</pre>"

cMensagem += "</td></tr></table>"

EndIf

cMensagem += "<table border=1 width=80%><tr>"

cMensagem += "<td bgcolor=#0000cc>"+"Servicos Agendados"+"</td>" // Servicos Agendados

cMensagem += "</tr>"

For nCount := 1 to Len(oAuxGetDados:aCols)

If !oAuxGetDados:aCols[nCount,Len(oAuxGetDados:aCols[nCount])]

cMensagem += "<tr><td>"

cMensagem += oAuxGetDados:aCols[nCount,FG_POSVAR("VST_DESINC","oAuxGetDados:aHeader")]

cMensagem += "</td></tr>"

EndIf

cMensagem += "<td>"

cMensagem += cLembret1+" "

cMensagem += cLembret2+" "

cMensagem += cLembret3+" "

cMensagem += cLembret4+" "+Alltrim(SM0->M0_TEL)+". "

cMensagem += "A"+" "+Alltrim(SM0->M0_FILIAL)+cLembret5+""

cMensagem += "</td></tr></table><hr width=80%><table border=0 width=80%><tr>"

cMensagem += "<td>"+"Agendado:"+"</td>" // Agendado

cMensagem += "<td>"+M->VSO_NOMAGE+"</td>"

cMensagem += "<td>"+"Data:"+"</td>" // Data

cMensagem += "<td>"+Transform(M->VSO_DATREG,"@D")+"</td>"

cMensagem += "<td>"+"Hora:"+"</td>" // Hora

cMensagem += "<td>"+Transform(M->VSO_HORREG,"@R 999:99")+"hs</td>" // hs

cMensagem += "</tr></table> </center>"

Return()

Programa Fonte

OFIOM350.PRW

Sintaxe

O350EMAIL - Envio de e-mail no Agendamento ( [ ] )

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

Array of Record

Retorno

()

Observações

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±

±±³Funcao ³FS_OM350EMAIL³ Autor ³ Andre Luis Almeida ³ Data ³ 13/01/10 ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±

±±³Descricao ³ Envia E-mail confirmando o Agendamento OFICINA ³±±

±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

Static Function FS_OM350EMAIL()

Local nRecSM0 := SM0->(Recno())

Local lOk := .f., lSendOK := .f.

Local cError := ""

Local nCount := 0

Local cMailConta := GETMV("MV_EMCONTA") // Usuario/e-mail de envio

Local cMailServer:= GETMV("MV_RELSERV") // Server de envio

Local cMailSenha := GETMV("MV_EMSENHA") // Senha e-mail de envio

Local lAutentica := GetMv("MV_RELAUTH",,.f.) // Determina se o Servidor de E-mail necessita de Autenticacao

Local cUserAut := Alltrim(GetMv("MV_RELAUSR",," ")) // Usuario para Autenticacao no Servidor de E-mail

Local cPassAut := Alltrim(GetMv("MV_RELAPSW",," ")) // Senha para Autenticacao no Servidor de E-mail

Private cTitulo := STR0041 // Confirmacao do Agendamento

Private cMensagem := ""

If !Empty(M->VSO_EMAIL)

If !MsgYesNo(STR0042,STR0015) // Deseja enviar e-mail de confirmacao para o cliente? / Atencao

Return(.t.)

EndIf

DbSelectArea("SM0")

DbSetOrder(1)

DbSeek( SM0->M0_CODIGO + cFilAnt )

DbSelectArea("VON")

DbSetOrder(1)

DbSeek( xFilial("VON") + M->VSO_NUMBOX )

DbSelectArea("VAI")

DbSetOrder(1)

DbSeek( xFilial("VAI") + VON->VON_CODPRO )

If ExistBlock("O350EMAIL") // Ponto de Entrada para formatacao do email

ExecBlock("O350EMAIL",.f.,.f.)

Else // HTML Padrao //

Variáveis

Nome

Tipo

Escopo

Pode Alterar

descrição

Array of Record

Global

Não

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave