OXIEMAIL - Envio de E-mail no Orçamento

Ponto-de-Entrada: OXIEMAIL - Envio de E-mail no Orçamento

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 Orçamento de Peças e Serviços (OFIXX001), executado na abertura do orçamento no envio de-mail ao cliente.

Eventos

#INCLUDE "PROTHEUS.CH"

#INCLUDE "AP5MAIL.CH"

/*

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

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

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

±±³Funcao ³OXIEMAIL ³ Autor ³ Thiago ³ Data ³ 15/06/11 ³±±

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

±±³Descricao ³ Envia E-mail do orcamento. ³±±

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

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

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

*/

User Function OXIEMAIL()

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

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

Local cError := ""

Local nCount := 0

Private cEmail := ""

Private cCliente := ""

Private cAssunto := ""

Private cMensagem := ""

SetPrvt("cTamanho,Limite,aOrdem,cTitulo,nLastKey,aReturn,cTitulo")

SetPrvt("cTamanho,cNomProg,cNomeRel,nLastKey,Limite,aOrdem,cAlias")

SetPrvt("cDesc1,cDesc2,cDesc3,lHabil,nOpca,nTipo,aPosGru,Inclui")

SetPrvt("cMarca,cObserv")

dbSelectArea("SA1")

dbSetOrder(1)

dbSeek(xFilial("SA1")+VS1->VS1_CLIFAT+VS1->VS1_LOJA)

cCliente := SA1->A1_NOME

cEmail := SA1->A1_EMAIL

cAssunto := "Orcamento "+VS1->VS1_NUMORC+space(15)

cMarca := " "

DEFINE MSDIALOG oDlg1 FROM 000,000 TO 015,040 TITLE "Envio de Email" OF oMainWnd

@ 012,006 SAY "Cliente" SIZE 50,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ 012,050 MSGET oCliente VAR cCliente PICTURE "@!" SIZE 100,08 OF oDlg1 PIXEL when .f.

@ 026,006 SAY "Enviar para:" SIZE 100,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ 026,050 MSGET oEmail VAR cEmail PICTURE "@!" SIZE 100,08 OF oDlg1 PIXEL

@ 039,006 SAY "Assunto:" SIZE 100,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ 039,050 MSGET oAssunto VAR cAssunto PICTURE "@!" SIZE 100,08 OF oDlg1 PIXEL

@ 052,006 SAY "Mensagem:" SIZE 100,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ 052,050 GET oMensagem VAR cMensagem OF oDlg1 MEMO SIZE 100,041 PIXEL

@ 100,067 BUTTON oOK PROMPT OemToAnsi(" <<< Enviar >>> ") OF oDlg1 SIZE 55,10 PIXEL ACTION (FS_ENVIAR())

ACTIVATE MSDIALOG oDlg1 CENTER //ON INIT EnchoiceBar(oDlg, {|| if(FS_OK(),(oDlg:End(),nOpca := 1),.f.) } , {|| oDlg:End(),nOpca := 2})

Return(.t.)

/*

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

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

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

±±³Funcao ³FS_ENVIAR ³ Autor ³ Thiago ³ Data ³ 15/09/11 ³±±

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

±±³Descricao ³ Envia E-mail ³±±

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

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

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

*/

Static Function FS_ENVIAR()

//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 := cAssunto

Private cMsg := ""

cPerg := "ORCAMT"

ValidPerg()

cNomeEmp := SM0->M0_NOMECOM

cEndeEmp := SM0->M0_ENDENT

cNomeCid := " Cidade: " + SM0->M0_CIDENT

cEstaEmp := SM0->M0_ESTENT

cCep_Emp := SM0->M0_CEPENT

cFoneEmp := " - FONE: " + SM0->M0_TEL

cFax_Emp := "FAX: " + SM0->M0_FAX

cCNPJEmp := transform(SM0->M0_CGC,"@R 99.999.999/9999-99")

cInscEmp := SM0->M0_INSC

cCodMun := SM0->M0_CODMUN

Pergunte(cPerg,.f.)

setprc(0,0)

lin := 1

cCompac := "CHR(15)"

cNormal := "CHR(18)"

Pag := 1

cOrdem := mv_par01

nTotPec := nTotSer := 0

nTotCAI := 0

cMarca := VS1->VS1_CODMAR

nUltKil := 0

if VS1->VS1_KILOME != 0

nUltKil := VS1->VS1_KILOME

else

nUltKil := FG_UltKil(VV1->VV1_CHAINT)

endif

If !Empty(cEmail)

// Cabecalho

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

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

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

EndIf

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

cMsg+= SM0->M0_NOMECOM+" "

cMsg+= SM0->M0_ENDENT+" "

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

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

cMsg+= ""+cMensagem+" "+cTitulo+" "

cMsg+= ""+&cCompac+" "

cMsg+= ""+repl([=],132)+" "

cMsg+= ""+"ORCAMENTO No. "+VS1->VS1_NUMORC+" PECAS e SERVICOS Emissao: " + DtoC(dDataBase) + " Hora: " + time() + " Pag: " + StrZero(Pag,5)+" "

cMsg+= ""+repl([=],132)+" "

cMsg+= "Emitente: " + cNomeEmp + " - CNPJ " + cCNPJEmp + " - IE " + CInscEmp+cFoneEmp+" "

cMsg+= "Endereco: " + cEndeEmp+" "

cMsg+= "CEP " + transform(cCep_Emp,"@R 99999-999") + " - " + cNomeCid + " - " + cEstaEmp +" - "+cFax_Emp+" "

cMsg+= ""+repl([-],132)+" "

SA3->(DbSetOrder(1))

SA3->(dbgotop())

SA3->(DbSeek(xFilial("SA3")+VS1->VS1_CODVEN))

cMsg+= ""+"Data do Orcamento....: " + DTOC(VS1->VS1_DATORC)+" "

cMsg+= ""+"Validade do Orcamento.: " + DTOC(VS1->VS1_DATVAL) +" Tipo de Tempo..:"+VS1->VS1_TIPTEM+" - "+VOI->VOI_DESTTE+" "

cMsg+= ""+"Vendedor: " + VS1->VS1_CODVEN + " - " + left(SA3->A3_NREDUZ,15)+" "

cMsg+= ""+"Validade do Orcamento.: " + DTOC(VS1->VS1_DATVAL) + " Vendedor: " + VS1->VS1_CODVEN + " - " + left(SA3->A3_NREDUZ,15)+" "

cMsg+= ""+repl([-],132)+" "

cCGCCPF1 := subs(transform(SA1->A1_CGC,PicPes(RetPessoa(SA1->A1_CGC))),1,at("%",transform(SA1->A1_CGC,PicPes(RetPessoa(SA1->A1_CGC))))-1)

cCGCPro := cCGCCPF1 + space(18-len(cCGCCPF1))

cMsg+= ""+"Cliente.: " + VS1->VS1_CLIFAT + " - " + left(SA1->A1_NOME,40) + " CNPJ/CPF: " + cCGCPro+" "

cMsg+= ""+"Endereco: " + left(SA1->A1_END,40)+""

cMsg+= ""+" Cidade : " + SA1->A1_MUN+ " - " +SA1->A1_EST+" "

VAM->( DbSeek( xFilial("VAM") + SA1->A1_IBGE ) )

cMsg+= ""+"Telefone: (" + VAM->VAM_DDD + ") " + Alltrim(SA1->A1_TEL)+""

cMsg+= ""+"Fax: (" + VAM->VAM_DDD + ") " + Alltrim(SA1->A1_FAX)+" "

// Daniele 28/09/2006 - Verificacao do combustivel do veiculo

if VV1->VV1_COMVEI = "0"

cCombus := "GASOLINA"

Elseif VV1->VV1_COMVEI == "1"

cCombus := "ALCOOL"

Elseif VV1->VV1_COMVEI == "2"

cCombus := "DIESEL"

Elseif VV1->VV1_COMVEI == "3"

cCombus := "GAS NATURAL"

Elseif VV1->VV1_COMVEI == "4"

cCombus := "GASOLINA/ALCOOL"

Elseif VV1->VV1_COMVEI == "9"

cCombus := "SEM COMBUSTIVEL"

Else

cCombus := Space(15)

Endif

if VS1->VS1_TIPORC == "2"

cMsg+= ""+ repl([-],132)+" "

cMsg+= ""+"Dados do Veiculo - Chassi: " + VV1->VV1_CHASSI + " Placa: " + VV1->VV1_PLAVEI + " Cor: " + VV1->VV1_CORVEI + " - " + VVC->VVC_DESCRI+" "

cMsg+= " Modelo: " + left(VV1->VV1_MODVEI,20) + "-" + left(VV2->VV2_DESMOD,15) + " Fab/Mod: " + left(VV1->VV1_FABMOD,4)+"/"+right(VV1->VV1_FABMOD,4) + " Km: " + strzero(nUltKil,8) + " Comb: " + cCombus +" "

Endif

cMsg+= ""+repl([-],132)+" "

cMsg+= ""+"Atendendo solicitacao de V.Sa.(s), temos a satisfacao de fornecer a relacao de pecas e servicos necessarios"+" "

cMsg+= ""+"para o veiculo acima especificado. Estimativa de orcamento sujeito a alteracao apos desmontagem."+" "

// Detalhes

FS_DETALHE()

FS_RODAPE()

cMsg+= ""

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³Envia e-mail do Evento 003 ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

If !Empty(cMailConta) .And. !Empty(cMailServer) .And. !Empty(cMailSenha)

// Conecta uma vez com o servidor de e-mails

CONNECT SMTP SERVER cMailServer ACCOUNT cMailConta PASSWORD cMailSenha RESULT lOk

If lOk

lOk := .f.

If lAutentica

If !MailAuth(cUserAut,cPassAut)

MsgStop("Erro no envio de e-mail","Atencao") // Erro no envio de e-mail / Atencao

DISCONNECT SMTP SERVER

Else

lOk := .t.

EndIf

Else

lOk := .t.

EndIf

If lOk

// Envia e-mail com os dados necessarios

SEND MAIL FROM cMailConta to Alltrim(cEmail) SUBJECT (cTitulo) BODY cMsg FORMAT TEXT RESULT lSendOk

If !lSendOk

//Erro no Envio do e-mail

GET MAIL ERROR cError

MsgStop(cError,"Erro no envio de e-mail") // Erro no envio de e-mail

EndIf

// Desconecta com o servidor de e-mails

DISCONNECT SMTP SERVER

EndIf

Else

MsgStop(OemToAnsi("Nao foi possivel conectar no servidor de e-mail"+" "+chr(13)+chr(10)+cMailServer),"Atenção") // Nao foi possivel conectar no servidor de e-mail / Atencao

EndIf

Else

MsgInfo("Email deve ser informado!")

Return(.f.)

EndIf

oDlg1:End()

Return(.t.)

Static Function FS_DETALHE()

Local bCampo := { |nCPO| Field(nCPO) }

Local i := 0

CCusMed := 1

nSemEstoque := 0

nMenEstoque := 0

cSeqSer := mv_par03

cTpoPad := if(mv_par02==1,"S","N")

SetPrvt("nSubTot,cGrupo,aStru,cTipSer,nSaldo")

nSubtot := 0

nTotDesS := nTotDesP := 0

nTotGSer := 0

nTGSer := 0

if VS1->VS1_TIPORC == "2"

aStru := {}

DbSelectArea("SX3")

DbSetOrder(1)

DbSeek("VS4")

Do While !Eof() .And. x3_arquivo == "VS4"

if x3_context # "V"

Aadd(aStru,{x3_campo,x3_tipo,x3_tamanho,x3_decimal})

Endif

DbSkip()

EndDo

cArqTemp := CriaTrab(aStru)

dbUseArea( .T.,,cArqTemp,"TRB", .F. , .F. )

if cSeqSer == 2

cChave := "VS4_FILIAL+VS4_NUMORC+VS4_TIPSER+VS4_GRUSER+VS4_CODSER"

Else

cChave := "VS4_FILIAL+VS4_NUMORC+VS4_SEQUEN"

Endif

IndRegua("TRB",cArqTemp,cChave,,,"Filtrando Servicos")

DbSelectArea("TRB")

DbSetOrder(1)

DbSelectArea("VS4")

DbSeek(xFilial("VS4")+VS1->VS1_NUMORC)

Do While !Eof() .and. VS4->VS4_NUMORC == VS1->VS1_NUMORC .and. VS4->VS4_FILIAL == xFilial("VS4")

DbSelectArea("TRB")

RecLock("TRB",.T.)

For i := 1 to FCOUNT()

cCpo := aStru[i,1]

TRB->&(cCpo) := VS4->&(cCpo)

DbSelectArea("VS4")

DbSkip()

EndDo

DbSelectArea("TRB")

DbGotop()

Endif

//Pecas

DbSelectArea("VS3")

DbGotop()

DbSetOrder(1)

if cOrdem == 2

DbSetOrder(2)

Endif

if DbSeek(xFilial("VS3")+VS1->VS1_NUMORC)

cMsg+= ""+&cCompac+" "+" "

cMsg+= "******** PECAS ******** "

cMsg+= ""+repl([=],132)+" <pre>"

cMsg+= "<table witdh='800' border=1>"

If cCusMed = 2

cMsg+= "<tr><td>"+"Seq </td>"

cMsg+= "<td>Grup</td>"

cMsg+= "<td>"+If(MV_PAR05#1," Codigo"+space(23),space(29))+"</td>"

cMsg+= "<td>Descricao</td>"

cMsg+= "<td>Local</td>"

cMsg+= "<td>Qtde</td>"

cMsg+= "<td>Vl Unitar</td>"

cMsg+= "<td>%Desct</td>"

cMsg+= "<td>Vl Descto</td>"

cMsg+= "<td>Valor Total</td>"

cMsg+= "<td>Custo Med </td></tr>"

else

cMsg+= "<tr><td>"+"Seq </td>"

cMsg+= "<td>Grup</td>"

cMsg+= "<td>"+If(MV_PAR05#1," Codigo"+space(23),space(29))+"</td>"

cMsg+= "<td>Descricao</td>"

cMsg+= "<td>Local</td>"

cMsg+= "<td>Qtde</td>"

cMsg+= "<td>Vl Unitar</td>"

cMsg+= "<td>%Desct</td>"

cMsg+= "<td>Vl Descto</td>"

cMsg+= "<td>Valor Total"+" </td></tr>"

endif

//////// cMsg+= ""+repl([=],132)+" "

DbSelectArea("SB1")

DbSetOrder(7)

DbSelectArea("SB5")

DbSelectArea("VS3")

cGrupo := VS3->VS3_GRUITE

nSeq := 0

cGrp := VS3->VS3_GRUITE

nQtdIte := 0

nPerDes := 0

nTotDes := 0

nTotGer := 0

aVetCai := {}

Do While !EOF() .and. VS3->VS3_NUMORC == VS1->VS1_NUMORC .AND. VS3->VS3_FILIAL == xFilial("VS3")

DbSelectArea("SB1")

DbGotop()

DbSeek(xFilial("SB1")+VS3->VS3_GRUITE+VS3->VS3_CODITE)

DbSelectArea("SB5")

DbGotop()

DbSeek(xFilial("SB5")+SB1->B1_COD)

DbSelectArea("SBM")

DbGotop()

DbSeek(xFilial("SBM")+VS3->VS3_GRUITE)

DbSelectArea("SB2")

DbSeek(xFilial("SB2")+SB1->B1_COD+SB1->B1_LOCPAD)

nSaldo := SaldoSB2()

DbSelectArea("VS3")

if cOrdem == 2

if cGrp <> VS3->VS3_GRUITE

cMsg+= ""+"Total "+cGrp+"........................................................:"+""

cMsg+= ""+Transform(nQtdIte,"@E 99999")+""

cMsg+= ""+Transform(nPerDes,"999.99")+""

cMsg+= ""+Transform(nTotDes,"@E 99,999.99")+""

cMsg+= ""+Transform(nTotGer,"@E 9999,999.99")+" "

nQtdIte := 0

nPerDes := 0

nTotDes := 0

nTotGer := 0

Endif

nSeq++

cMsg+= "<tr><td>"+strzero(nSeq,3)+"</td><td width='10'>"+" "+VS3->VS3_GRUITE+"</td>"

If MV_PAR05 # 1

cMsg+= "<td>"+VS3->VS3_CODITE+"</td>"

EndIf

cMsg+= "<td>"+left(SB1->B1_DESC,25)+"</td>"

cMsg+= "<td>"+" "+Alltrim(FM_PRODSBZ(SB1->B1_COD,"SB5->B5_LOCALIZ"))+"</td>"

cMsg+= "<td>"+Transform(VS3->VS3_QTDITE,"@E 99999")+"</td>"

if nSaldo <= 0

nSemEstoque++

cMsg+= "<td>"+"**"+"</td>"

elseif nSaldo < VS3->VS3_QTDITE

nMenEstoque++

cMsg+= "<td>"+"*"+"</td>"

Endif

cMsg+= "<td>"+Transform(VS3->VS3_VALPEC,"@E 99999,999.99")+"</td>"

cMsg+= "<td>"+Transform(VS3->VS3_PERDES,"999.99")+"</td>"

cMsg+= "<td>"+Transform(VS3->VS3_VALDES,"@E 99,999.99")+"</td>"

cMsg+= "<td>"+Transform(VS3->VS3_VALTOT,"@E 9999,999.99")+"</td>"

If cCusMed = 2

cMsg+= "<td>"+Transform(SB2->B2_CM1,"@E 99,999.99")+"</td></tr>"

Else

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

endif

nTotPec := nTotPec + VS3->VS3_VALTOT

nTotCAI := nTotCAI + VS3->VS3_VALTOT

nTotDesP := nTotDesP + VS3->VS3_VALDES

if cOrdem == 2

nSubTot := nSubTot + VS3->VS3_VALTOT

Endif

nQtdIte += VS3->VS3_QTDITE

nPerDes += VS3->VS3_PERDES

nTotDes += VS3->VS3_VALDES

nTotGer += VS3->VS3_VALTOT

cGrp := VS3->VS3_GRUITE

DbSelectArea("VS3")

DbSkip()

EndDo

cMsg += "</table>"

if mv_par01 == 1

asort(aVetCai,,,{|x,y| x[15] < y[15]})

elseif mv_par01 == 2

asort(aVetCai,,,{|x,y| x[1]+x[2] < y[1]+y[2]})

else

asort(aVetCai,,,{|x,y| x[3]+x[1]+x[2] < y[3]+y[1]+y[2]})

endif

cCai := ""

if cOrdem == 2

cMsg+= ""+"Total "+cGrp+"........................................................:"+""

cMsg+= ""+Transform(nQtdIte,"@E 99999")+""

cMsg+= ""+Transform(nPerDes,"999.99")+""

cMsg+= ""+Transform(nTotDes,"@E 99,999.99")+""

cMsg+= ""+Transform(nTotGer,"@E 9999,999.99")+" "

cMsg+= ""+repl([-],132)+" "

EndIf

if nTotDesP > 0

cMsg+= ""+"Desconto em Pecas.....:"+""

cMsg+= ""+Transform(nTotDesP,"@E 9999,999.99")+" "

endif

cMsg+= ""+"Subtotal de Pecas........:"+""

cMsg+= ""+Transform(nTotPec,"@E 9999,999.99")+" </pre>"

Endif

//Servicos

aTipoSer := {}

aVetSer := {}

if VS1->VS1_TIPORC == "2" //.and. TRB->(DbSeek(xFilial("TRB")+VS1->VS1_NUMORC))

DbSelectArea("TRB")

DbGotop()

if reccount() > 0

cMsg+= "<table width='250' border=1>"+&cCompac+" "+" "

cMsg+= ""+"******** SERVICOS ********"+" "

// cMsg+= ""+repl([=],132)+" <pre>"

if cTpoPad == "N"

cMsg+= "<tr><td>"+"Grupo</td>"

cMsg+= "<td>"+If(MV_PAR05#1," Codigo ",Space(29))+"</td>"

cMsg+= "<td width = '100'>Descricao </td>"

cMsg+= "<td>Tipo </td>"

cMsg+= "<td>Vlr Servico </td>"

cMsg+= "<td>%Desct </td>"

cMsg+= "<td>Valor Descto </td>"

cMsg+= "<td>Tot Servico</td>"

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

Else

cMsg+= "<tr><td>"+"Grupo"

cMsg+= "<td>"+If(MV_PAR05#1," Codigo ",Space(29))+"</td>"

cMsg+= "<td>Descricao </td>"

cMsg+= "<td>Tipo </td>"

cMsg+= "<td>TpPad </td>"

cMsg+= "<td>Vlr Servico </td>"

cMsg+= "<td>%Desct </td>"

cMsg+= "<td>Valor Descto </td>"

cMsg+= "<td>Tot Servico </td></tr>"

Endif

// cMsg+= ""+repl([=],132)+" "

DbSelectArea("SB1")

DbSetOrder(7)

DbSelectArea("TRB")

nSubTot := 0

cTipSer := TRB->VS4_TIPSER

Do While !EOF() .and. TRB->VS4_NUMORC == VS1->VS1_NUMORC

DbSelectArea("VO6")

DbSetOrder(2)

DbGotop()

DbSeek(xFilial("VO6")+FG_MARSRV(cMarca,TRB->VS4_CODSER)+TRB->VS4_CODSER)

DbSelectArea("VOK")

DbSetOrder(1)

DbGotop()

DbSeek(xFilial("VS4")+TRB->VS4_TIPSER)

DbSelectArea("VOS")

DbSetOrder(1)

DbSeek(xFilial("VOS")+cMarca+TRB->VS4_GRUSER)

DbSelectArea("TRB")

cMsg+= "<tr><td width='30'>"+TRB->VS4_GRUSER+"</td>"

cMsg+= "<td width='30'>"+TRB->VS4_CODSER+"</td>"

cMsg+= "<td width='100'>"+VO6->VO6_DESSER+"</td>"

cMsg+= "<td width='30'>"+TRB->VS4_TIPSER+"</td>"

if cTpoPad == "S"

cMsg+= "<td width='30'>"+Transform(TRB->VS4_TEMPAD,"@R 99:99")+"</td>"

Endif

cMsg+= "<td width='30'>"+Transform(TRB->VS4_VALSER,"@E 999,999.99")+"</td>"

cMsg+= "<td width='30'>"+Transform(TRB->VS4_PERDES,"999.99")+"</td>"

cMsg+= "<td width='30'>"+Transform(TRB->VS4_VALDES,"@E 9,999,999.99")+"</td>"

cMsg+= "<td width='30'>"+Transform(TRB->VS4_VALTOT,"@E 9999,999.99")+" </td></tr>"

nTotSer := nTotSer + TRB->VS4_VALTOT

nTotDesS := nTotDesS + TRB->VS4_VALDES

if cSeqSer == 2

nSubTot := nSubTot + TRB->VS4_VALTOT

Endif

DbSelectArea("TRB")

DbSkip()

EndDo

asort(aVetSer,,,{|x,y| x[1]+x[2] < y[1]+y[2]})

cSer := ""

cMsg+= ""+repl([-],132)+" </table>"

cMsg+= ""+"Subtotal de Servicos.....:"+""

cMsg+= ""+Transform(nTotSer,"@E 9999,999.99")+" </pre>"

endif

Endif

if VS1->VS1_TIPORC == "2"

DbSelectArea("TRB")

TRB->(DbCloseArea())

&& Apaga Arquivo de Trabalho

#IFNDEF TOP

If File(cArqTemp+".dbf")

fErase(cArqTemp+".dbf")

Endif

#ENDIF

&& Apaga Arquivo de Trabalho

#IFNDEF TOP

If File(cArqTemp+OrdBagExt())

fErase(cArqTemp+OrdBagExt())

Endif

#ENDIF

endif

if nSemEstoque > 0

cMsg+= ""+"OBS: OS ITENS ASSINALADOS COM '**' AO LADO DA QUANTIDADE ESTAO COM SALDO ZERO NO MOMENTO "+""

Endif

if nMenEstoque > 0

cMsg+= ""+"OBS: OS ITENS ASSINALADOS COM '* ' AO LADO DA QUANTIDADE ESTAO INSUFICIENTES NO MOMENTO"+""

Endif

cMsg+= ""+&cCompac+" "+" "

Return

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

Static Function FS_RODAPE()

cMsg+= ""+"Observacao:"+""

cKeyAce := VS1->VS1_OBSMEM + [001]

DbSelectArea("SYP")

DbSetOrder(1)

FG_SEEK("SYP","cKeyAce",1,.f.)

do while xFilial("SYP")+VS1->VS1_OBSMEM == SYP->YP_FILIAL+SYP->YP_CHAVE .and. !eof()

nPos := AT("

if nPos > 0

nPos-=1

Else

nPos := Len(SYP->YP_TEXTO)

Endif

cObserv := Substr(SYP->YP_TEXTO,1,nPos)

cMsg+= ""+cObserv+" "

SYP->(DbSkip())

enddo

nTotal := nTotPec + nTotSer

// Daniele - 27/09/2006 - Inclusao do numero da Ordem de Servico

cMsg+= "Ordem de Servico: " + VS1->VS1_NUMOSV+" "

cMsg+= "***** T O T A I S ***** "

cMsg+= "Pecas....: " + Transform(nTotPec,"@E 999,999,999.99")+" "

cMsg+= "Servicos.: " + Transform(nTotSer,"@E 999,999,999.99")+" "

cMsg+= "Orcamento: " + Transform(nTotal,"@E 999,999,999.99") + " Cond.Pagto.: " + VS1->VS1_FORPAG + "-" + SE4->E4_DESCRI+" "

cMsg+= "A U T O R I Z O ( A M O S ) O F A T U R A M E N T O D E S T E O R C A M E N T O . "

cMsg+= "Local:________________________________________, Data:________/__________________/________ "

cMsg+= "CARIMBO "

cMsg+= "Ass.:_________________________________________ "

Return

/*/

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

±±ºFun‡„o ³VALIDPERG º Autor ³ AP5 IDE º Data ³ 13/07/01 º±±

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

/*/

Static Function ValidPerg

local _sAlias := Alias()

local aRegs := {}

local i,j

dbSelectArea("SX1")

dbSetOrder(1)

cPerg := left(cPerg+space(15),len(X1_GRUPO))

// Grupo/Ordem/Pergunta/Variavel/Tipo/Tamanho/Decimal/Presel/GSC/Valid/Var01/Def01/Cnt01/Var02/Def02/Cnt02/Var03/Def03/Cnt03/Var04/Def04/Cnt04/Var05/Def05/Cnt05

aAdd(aRegs,{cPerg,"01","Ordem Seq/Codigo","","" ,"mv_ch1","N",1,0,0,"C","","mv_par1","Sequencia","","","","","Codigo","","","","","CAI (Scania)","","","","","","","","","","","","","","","","","","","","","",""})

aAdd(aRegs,{cPerg,"02","Imprime Tempo Padrao","","","mv_ch2","N",1,0,0,"C","","mv_par2","Sim","","","","","Nao","","","","","","","","","","","","","","","","","","","","","","","","","","",""})

aAdd(aRegs,{cPerg,"03","Ordem Seq/Tipo Serv","","","mv_ch3","N",1,0,0,"C","","mv_par3","Sequencia","","","","","Tipo de Servico","","","","","","","","","","","","","","","","","","","","","","","","","","",""})

aAdd(aRegs,{cPerg,"04","Imprime Custo Medio","","","mv_ch4","N",1,0,0,"C","","mv_par4","Nao","","","","","Sim","","","","","","","","","","","","","","","","","","","","","","","","","","",""})

aAdd(aRegs,{cPerg,"05","Imprime Cod do Item","","","mv_ch5","N",1,0,0,"C","","mv_par5","Nao","","","","","Sim","","","","","","","","","","","","","","","","","","","","","","","","","","",""})

For i:=1 to Len(aRegs)

If !dbSeek(cPerg+aRegs[i,2])

RecLock("SX1",.T.)

For j:=1 to FCount()

If j <= Len(aRegs[i])

FieldPut(j,aRegs[i,j])

Endif

Return

Programa Fonte

OFIXX001.PRW

Sintaxe

OXIEMAIL - Envio de E-mail no Orçamento ( [ ] )

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

Array of Record

Retorno

()

Observações

Elseif cFaseAtu == "E" // ORCAMENTO ENVIO DE EMAIL

//#########################################################################################

if ExistBlock("OXIEMAIL")

ExecBlock("OXIEMAIL",.f.,.f.,)

Endif

//#########################################################################################

Variáveis

Nome

Tipo

Escopo

Pode Alterar

descrição

Array of Record

Global

Não

Árvore de páginas

OXIEMAIL - Envio de E-mail no Orçamento