{"id":3792,"date":"2020-07-21T16:43:22","date_gmt":"2020-07-21T19:43:22","guid":{"rendered":"https:\/\/www.codevix.com.br\/?p=3792"},"modified":"2020-07-21T16:43:29","modified_gmt":"2020-07-21T19:43:29","slug":"erros-do-protheus-no-telegram","status":"publish","type":"post","link":"https:\/\/www.codevix.com.br\/index.php\/2020\/07\/21\/erros-do-protheus-no-telegram\/","title":{"rendered":"Erros do Protheus no Telegram"},"content":{"rendered":"\n

Introdu\u00e7\u00e3o<\/h2>\n\n\n\n

Sabe aquela rotina cr\u00edtica rodando via Schedule <\/strong>no Protheus que n\u00e3o pode parar? aquele velho processo de importar os pedidos de vendas para o Protheus que quando algum execauto <\/strong>da erro ningu\u00e9m fica sabendo e acaba tendo vendas perdidas ou atrasadas? Com a solu\u00e7\u00e3o apresentada nesse artigo voc\u00ea poder\u00e1 monitorar os erros do Protheus direto no Telegram, inclusive em um grupo com todos envolvidos e detalhes do que aconteceu!!<\/p>\n\n\n\n

Protheus no Telegram<\/h2>\n\n\n\n

O Telegram possui muita flexibilidade para integra\u00e7\u00f5es e bots, podendo assim ter uma infinidade de casos de uso para ele. Vamos come\u00e7ar pelo processo mais simples, que \u00e9 o envio de mensagens automaticamente para grupos selecionados.<\/p>\n\n\n\n

Vamos come\u00e7ar criando ent\u00e3o o nosso BOT, que ser\u00e1 respons\u00e1vel por enviar as mensagens para o Telegram sempre que ocorrer algum erro na importa\u00e7\u00e3o do pedido de venda.<\/p>\n\n\n\n

Para cri\u00e1-lo, v\u00e1 no aplicativo do Telegram e pesquise por @BotFather <\/strong>e clique sobre ele:<\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

Clique em “COME\u00c7AR<\/strong>” no rodap\u00e9 do chat do BotFather:<\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

Agora envie a mensagem: \/newbot<\/strong><\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

O BotFather vai pedir para voc\u00ea informar o nome do seu bot, esse \u00e9 o nome que vai aparecer no chat.<\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

Para esse exemplo, eu escolhi o nome: Code Vix BOT<\/strong> … fique a vontade para nomear o seu do jeito que preferir.<\/p>\n\n\n\n

O pr\u00f3ximo passo \u00e9 escolher um username <\/strong>para o bot, esse ser\u00e1 o nome \u00fanico do bot no Telegram e obrigatoriamente dever\u00e1 terminar com BOT<\/strong> no final, exemplo: CodeBot, Code_Bot, etc.<\/p>\n\n\n\n

Irei utilizar para esse exemplo: CodeVixBot<\/p>\n\n\n\n

Com isso o nosso BOT do Telegram j\u00e1 est\u00e1 criado e pronto para utilizar, na \u00faltima mensagem enviada o BotFather te envia o TOKEN <\/strong>para acessar a API do Telegram e utilizar esse bot.<\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

Escondi uma parte do Token por seguran\u00e7a, mas voc\u00ea dever\u00e1 utilizar o token completo enviado.<\/p>\n\n\n\n

Agora precisamos adicionar o nosso amigo bot ao grupo em que ele poder\u00e1 enviar as mensagem, ent\u00e3o vamos criar um novo grupo:<\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

Na cria\u00e7\u00e3o do grupo inclu\u00edmos o nosso bot @CodeVixBot ao grupo e em seguida daremos um nome ao grupo, fique a vontade para escolher o nome.<\/p>\n\n\n\n

\"protheus<\/figure><\/div>\n\n\n\n

Agora com o grupo criado e o BOT fazendo parte dele, precisamos pegar o ID desse grupo para enviar as mensagens via API, para isso v\u00e1 no navegador e acesse o seguinte endere\u00e7o:<\/p>\n\n\n

\nhttps:\/\/api.telegram.org\/bot<TOKEN>\/getUpdates\n<\/pre><\/div>\n\n\n
Substitua <TOKEN> pelo token recebido na cria\u00e7\u00e3o do Bot, ficando o endere\u00e7o parecido com: https:\/\/api.telegram.org\/bot3256985236:AAHz99QPXW_AA_bdsecHiQffz5vqfxyzf0I\/getUpdates<\/p>\n\n\n\n
Fazendo isso ser\u00e1 retornado um JSON <\/strong>com o ID do chat que o bot faz parte, procure por “chat” e salve o ID informado nele.<\/p>\n\n\n\n
\"\"<\/figure><\/div>\n\n\n\n
Agora temos o ID do Chat e o Token, podemos utilizar o bot no Protheus via instru\u00e7\u00f5es ADVPL.<\/p>\n\n\n\n
Bora Codar!!<\/h2>\n\n\n\n
Vou usar como exemplo para esse artigo um execauto <\/strong>de inclus\u00e3o do pedido de venda no Protheus atrav\u00e9s da rotina MATA410<\/strong> e caso o mesmo falhe ser\u00e1 enviado os detalhes do erro para o grupo do Telegram que criamos atrav\u00e9s do bot.<\/p>\n\n\n\n
Vamos come\u00e7ar com a classe respons\u00e1vel por enviar mensagem para o telegram:<\/p>\n\n\n
\n  Class Telegram From FwRest\n\n    Data cUrl       As String\n    Data cToken     As String\n    Data aHeadOut   As Array\n    Data cPath      As String\n    Data cEndPoint  As String\n    Data cChatId    As String\n\n    Method New() Constructor\n    Method SetChat()\n    Method SendMessage()\n\n  EndClass\n\nMethod New () Class Telegram\n\n  Local cUrl    := "https:\/\/api.telegram.org"\n  Local cToken\t:= "3256985236:AAHz99QPXW_AA_bdsecHiQffz5vqfxyzf0I"\n\n  _Super:New(cUrl) \/\/ Inicializa metodo da classe pai\n\n  Self:cURL\t      := cUrl\n  Self:cToken \t      := cToken\n  Self:cPath          := "\/bot" + ::cToken\n  Self:cChatId        := "-48721111"\n  Self:aHeadOut       := {}\n  Self:cEndPoint      := ""\n\nReturn( Self )\n\nMethod SetChat( cChatId ) Class Telegram\n\n  ::cChatId := cChatId\n\nReturn( ::cChatId  )\n\n\n\/\/ ---------------------------------------------------------------------+\n\/\/ Faz o envio de mensagens para determinad chat id - markdown ou  HTML |\n\/\/ ---------------------------------------------------------------------+   \nMethod SendMessage( cMessage, lHtml ) Class Telegram\n\n  Local cParseMode    := ""\n  Local lRet          := .F.\n\n  Default cMessage    := ""\n  Default lHtml       := .F.\n\n  \/\/-- Determina se a msg ser\u00e1 no formato HTML ou normal\n  cParseMode  := "parse_mode="\n  cParseMode  += IIF( lHtml, "HTML", "markdown" )\n  ::cEndPoint := ::cPath + "\/sendMessage?"  + cParseMode  + "&use_aliases=true&chat_id=" + ::cChatId + "&text=" + cMessage\n\n  _Super:SetPath( ::cEndPoint )\n\n  lRet := _Super:Get()\n\nReturn( lRet )\n\n<\/pre><\/div>\n\n\n
Agora vamos desenvolver a fun\u00e7\u00e3o respons\u00e1vel por consumir a classe Telegram para envio das mensagens:<\/p>\n\n\n
\n\/\/----------------------------------------------------------+\n\/\/ Envia a mensagem de erro para o BOT                      |\n\/\/----------------------------------------------------------+\nUser Function Telegram(cMsg)\n\n  Local xRet      := ""\n\n  Default cMsg    := ""\n\n  \/\/|Remove caracteres invalidos e acentos |\n  cMsg  := StrTran(cMsg, "<", "")\n  cMsg  := StrTran(cMsg, ">", "")\n  cMsg  := FwNoAccent(cMsg)\n\n  oTelegram := Telegram():New()\n\n  If ValType(oTelegram) == "O"\n\n    xRet := oTelegram:SetChat( "-48721111" \/* ChatId *\/  )\n\n    \/\/|Envio o Texto |\n    If ValType(xRet) == "C" .And. !Empty(xRet)\n      xRet := oTelegram:SendMessage( cMsg, .T. \/* lHtml *\/ )\n    EndIf\n\n  EndIf\n\nReturn()\n<\/pre><\/div>\n\n\n
Agora o execauto e o tratamento para enviar o erro:<\/p>\n\n\n
\nUser Function CodeVix()\n\n  Local cEmp\t    := "99"\n  Local cFil\t    := "01"\n  Local cItem\t    := "00"\n  Local cNumPed   := ""\n  Local cError    := ""\n  Local cPulaLn   := "%0A"\n  Local nI        := 0\n  Local nX        := 0\n  Local aError    := {}\n  Local aCab\t    := {}\n  Local aItens\t  := {}\n  Local aDet  \t  := {}\n\n  \/\/|Inicializa ambiente |\n  RpcSetEnv( cEmp, cFil, "", " ", "FAT", "MATA410", , , , ,  )\n\n  cNumPed   := GetSXENum( "SC5", "C5_NUM" )\n\n  \/\/|Preenche cabe\u00e7alho |\n  aAdd(aCab,\t{"C5_FILIAL" \t  , xFilial("SC5")\t\t\t,Nil})\n  aAdd(aCab,\t{"C5_NUM"   \t  , cNumPed\t\t\t\t\t    ,Nil})\n  aAdd(aCab,\t{"C5_TIPO"   \t  , "N"\t\t\t\t\t\t      ,Nil})\n  aAdd(aCab,\t{"C5_CLIENTE"\t  , "000001"\t\t\t\t\t\t,Nil})\n  aAdd(aCab,\t{"C5_LOJACLI"\t  , "01"\t\t\t\t\t\t    ,Nil})\n  aAdd(aCab,\t{"C5_EMISSAO"\t  , dDatabase\t\t\t\t\t  ,Nil})\n  aAdd(aCab,\t{"C5_VEND1"  \t  , "000001"\t\t\t\t\t  ,Nil})\n  aAdd(aCab,\t{"C5_CONDPAG" \t, "001"\t\t\t\t\t      ,Nil})\n\n  dbSelectArea("SB1")\n  SB1->( dbSetOrder(1) )\n\n  For nI := 1 To 2\n\n    aDet    := {}\n    cItem   := Soma1(cItem)\n\n    SB1->( dbSeek( xFilial("SB1") + "000001" ) )\n\n    AAdd(aDet,\t{"C6_FILIAL" , xFilial("SC6")\t      ,Nil})\n    aAdd(aDet,\t{"C6_NUM"  \t , cNumPed\t\t\t        ,Nil})\n    AAdd(aDet,\t{"C6_ITEM"   , cItem\t\t\t          ,Nil})\n    AAdd(aDet,\t{"C6_PRODUTO", SB1->B1_COD\t\t      ,Nil})\n    AAdd(aDet,\t{"C6_UM"     , SB1->B1_UM\t\t        ,Nil})\n    AAdd(aDet,\t{"C6_QTDVEN" , 1\t                  ,Nil})\n    AAdd(aDet,\t{"C6_PRCVEN" , 100\t\t\t            ,Nil})\n    AAdd(aDet,\t{"C6_PRUNIT" , 100\t\t\t            ,Nil})\n    AAdd(aDet,\t{"C6_TES"    , SB1->B1_TS\t\t\t\t    ,Nil})\n    AAdd(aDet,\t{"C6_DESCRI" , SB1->B1_DESC\t\t      ,Nil})\n    AAdd(aDet,\t{"C6_LOCAL"  , SB1->B1_LOCPAD\t\t\t  ,Nil})\n    AAdd(aDet,\t{"C6_VALOR"  , 100                  ,Nil})\n\n    AAdd(aItens,AClone(aDet))\n\n  Next nI\n\n  Begin Transaction\n\n    lMsErroAuto       := .F.\n    lMSHelpAuto \t    := .F.\n    lAutoErrNoFile \t  := .T.\n\n    MSExecAuto( { |x,y,z| Mata410( x,y,z ) }, aCab, aItens, 3 )\n\n    If lMsErroAuto\n\n      U_Telegram("[CODEVIX] Falha no execauto")\n\n      aError := GetAutoGRLog()\n      For nX := 1 To Len(aError)\n        cError += StrTran(aError[nX], CRLF, "") + cPulaLn\n      Next nX\n\n      RollBackSX8()\n      DisarmTransaction()\n\n      \/\/|Notifica o TI via TELEGRAM |\n      U_Telegram(cError)\n\n    EndIf\n\n  End Transaction\n\n  RpcClearEnv()\n\nReturn\n<\/pre><\/div>\n\n\n
Repare que da linha 68 a 79<\/strong> \u00e9 armazenado os detalhes do erro na vari\u00e1vel “cError<\/strong>” e logo em seguida enviado para o grupo do Telegram.<\/p>\n\n\n\n
Veja como a mensagem chega no Telegram:<\/p>\n\n\n\n
\"protheus<\/figure><\/div>\n\n\n\n
S\u00f3 de olhar rapidamente, j\u00e1 sabemos que o execauto falou devido a n\u00e3o existir o vendedor 000001 no Protheus.<\/p>\n\n\n\n
\u00c9 isso a\u00ed jovens, espero que esse artigo seja \u00fatil… at\u00e9 a pr\u00f3xima!!<\/p>\n\n\n\n
Agradecimento<\/h2>\n\n\n\n
Gostaria de agradecer ao grande Lucas Brustolin<\/a> por disponibilizar para a comunidade a classe de integra\u00e7\u00e3o com Telegram.<\/p>\n\n\n\n
J\u00e1 viu a tela de loading customizada que o Lucas fez? clique aqui<\/a> e confira<\/p>\n\n\n\n
Refer\u00eancias<\/h2>\n\n\n\n