MNTA420P – Chamado após a inclusão, alteração ou o cancelamento de uma O.S.

⭐ Gostou do tema? Salve este artigo para consultar depois

/*/{Protheus.doc} MNTA420P
//TODO Chamado após a inclusão, alteração ou o cancelamento de uma O.S.
@author Fernando
@since 15/09/2017
@version undefined

@type function
/*/
User Function MNTA420P() 
Local aArea := GetArea()
Local cHtml 	:= ""
Local cNumOS 	:= STJ->TJ_ORDEM
Local dDataOrig := DTOC(STJ->TJ_DTORIGI)
Local cCodBem 	:= STJ->TJ_CODBEM
Local cServic 	:= STJ->TJ_SERVICO
Local cDesSer 	:= AllTrim(Posicione("ST4",1,xFilial("ST4")+STJ->TJ_SERVICO,"T4_NOME"))
Local cObserv 	:= STJ->TJ_OBSERVA
Local cUsr 		:= STJ->TJ_USUARIO

If AllTrim(STJ->TJ_TERCEIR) <> '2'
	RestArea(aArea)
	Return
EndIf

// Parâmetro 
nOPCX := ParamIxb[1] // Inclusão, Alteração ou Exclusão

cHtml += "<p><span style='text-decoration: underline;'><strong>Lanchero Alimentos do Brasil LTDA</strong></span></p>"
cHtml += "<p>&nbsp;</p>"
cHtml += "<p><strong>Dados da Ordem de Servi&ccedil;o</strong></p>"
cHtml += "<p><strong>Num:</strong> " + cNumOS + "</p>"
cHtml += "<p><strong>Data:</strong> " + dDataOrig + "</p>"
cHtml += "<p><strong>Bem:</strong> " + cCodBem + "</p>"
cHtml += "<p><strong>Servi&ccedil;o:</strong> " + cServic + " - " + cDesSer + "</p>"
cHtml += "<p><strong>Observa&ccedil;&atilde;o:&nbsp;</strong></p>"
cHtml += "<p>" + StrTran(cObserv,CHR(13),"<br/>") + "</p>"
cHtml += "<p><strong>Incluído por:</strong>" + cUsr + "</p>"
cHtml += "<p>&nbsp;</p>"
cHtml += "<p>Verifique se o documento fiscal referente a OS foi entregue em seu setor.</p>"
cHtml += "<p>Ao incluir o documento fiscal, vincule o item correspondente &agrave; OS</p>"
cHtml += "<p><em>Esta &eacute; uma mensagem autom&aacute;tica</em></p>"
cHtml += "<p>&nbsp;</p>"
cHtml += "<p>&nbsp;</p>" 

If nOPCX == 3 
	U_TEnvMail(SuperGETMV("MV__MAILOS",.F.,"mf@lanchero.com.br"),"Nova Ordem de Serviço para terceiros incluída",cHtml) 
ElseIf nOPCX == 4 
//MsgInfo("Alteração de O.S. Realizada.") 
ElseIf nOPCX == 5 
//MsgInfo("Cancelamento de O.S. Realizado.") 
EndIf 

RestArea(aArea)
Return .T.

/*/{Protheus.doc} MNTA420P

//TODO Chamado após a inclusão, alteração ou o cancelamento de uma O.S.

@author Fernando

@since 15/09/2017

@version undefined

@type function

/*/

User Function MNTA420P()

Local aArea := GetArea()

Local cHtml := ""

Local cNumOS := STJ->TJ_ORDEM

Local dDataOrig := DTOC(STJ->TJ_DTORIGI)

Local cCodBem := STJ->TJ_CODBEM

Local cServic := STJ->TJ_SERVICO

Local cDesSer := AllTrim(Posicione("ST4",1,xFilial("ST4")+STJ->TJ_SERVICO,"T4_NOME"))

Local cObserv := STJ->TJ_OBSERVA

Local cUsr := STJ->TJ_USUARIO

If AllTrim(STJ->TJ_TERCEIR) <> '2'

RestArea(aArea)

Return

EndIf

// Parâmetro

nOPCX := ParamIxb[1] // Inclusão, Alteração ou Exclusão

cHtml += "Lanchero Alimentos do Brasil LTDA"

cHtml += " "

cHtml += "Dados da Ordem de Serviço"

cHtml += "Num: " + cNumOS + ""

cHtml += "Data: " + dDataOrig + ""

cHtml += "Bem: " + cCodBem + ""

cHtml += "Serviço: " + cServic + " - " + cDesSer + ""

cHtml += "Observação: "

cHtml += "" + StrTran(cObserv,CHR(13)," ") + ""

cHtml += "Incluído por:" + cUsr + ""

cHtml += " "

cHtml += "Verifique se o documento fiscal referente a OS foi entregue em seu setor."

cHtml += "Ao incluir o documento fiscal, vincule o item correspondente à OS"

cHtml += "Esta é uma mensagem automática"

cHtml += " "

If nOPCX == 3

U_TEnvMail(SuperGETMV("MV__MAILOS",.F.,"mf@lanchero.com.br"),"Nova Ordem de Serviço para terceiros incluída",cHtml)

ElseIf nOPCX == 4

//MsgInfo("Alteração de O.S. Realizada.")

ElseIf nOPCX == 5

//MsgInfo("Cancelamento de O.S. Realizado.")

EndIf

RestArea(aArea)

Return .T.

Leave a Reply Cancelar resposta