Não sabe o que fazemos ainda? Dá uma olhadinha no nosso menu ali em cima ☝️
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
/*/{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> </p>" cHtml += "<p><strong>Dados da Ordem de Serviç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ço:</strong> " + cServic + " - " + cDesSer + "</p>" cHtml += "<p><strong>Observação: </strong></p>" cHtml += "<p>" + StrTran(cObserv,CHR(13),"<br/>") + "</p>" cHtml += "<p><strong>Incluído por:</strong>" + cUsr + "</p>" cHtml += "<p> </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 à OS</p>" cHtml += "<p><em>Esta é uma mensagem automática</em></p>" cHtml += "<p> </p>" cHtml += "<p> </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. |
Fernando Bueno
Consultor em FBSOLUTIONS
Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In