PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
WORKFLOW
Versão:
12.1.25
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PINHEIRO67 PINHEIRO67 em 19/05/2020, 08:28 h
Local: SP  Registro: 18/05/2020  Postagens: 6
Bom dia
Estou desenvolvendo um workflow (via link) de aprovação de pedido de compra e o envio está ok. Quando aciono o botão ENVIAR o retorno aparentemente está ok também, aparece na browse (resposta enviada ao servidor).
Quando eu executo a função WFRETURN que está configurado no CFG, reparo que no console do protheus indica que a caixa está vazia.
Detalhe... eu troco "mailto:..." por WFHTTPRET.APL, isso evita erro ao clicar no botao ENVIAR do Browse.
Alguem sabe me dizer o que poderia estar de errado?

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário NEWMAX NEWMAX em 19/05/2020, 10:51 h
Local: SP  Registro: 12/05/2020  Postagens: 4
Bom dia amigo, estou precisando desenvolver uma rotina parecida aqui onde trabalho, porem nunca fiz algo nesses moldes, estava pesquisando e os modos que encontrei não funcionam mais, que eram com a função sendmail, consegue me passar quais as funções que usam hoje em dia?

Obrigado e espero que encontre o seu erro.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PINHEIRO67 PINHEIRO67 em 19/05/2020, 10:54 h
Local: SP  Registro: 18/05/2020  Postagens: 6
BOM DIA

Passo sim... sem problema...

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário NEWMAX NEWMAX em 19/05/2020, 11:06 h
Local: SP  Registro: 12/05/2020  Postagens: 4
Agradeço muito, entre em contato comigo no e-mail informatica@newmaxindustrial.com.br ou me passa seu email que eu entro em contato contigo.

Obrigado.

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PINHEIRO67 PINHEIRO67 em 19/05/2020, 11:13 h
Local: SP  Registro: 18/05/2020  Postagens: 6
adflpj@gmail.com

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário DEUSDETE87 DEUSDETE87 em 19/05/2020, 14:48 h
Local: GO  Registro: 27/02/2020  Postagens: 4
Tenho um modelo implementado para solicitação de compras. Segue o mesmo conceito, só tem que fazer as adaptações para pedido. Caso queira posso enviar.

Consultor Protheus
Deusdete Lopes
deusdetelopes@bol.com.br
(62) 99273-9500

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PINHEIRO67 PINHEIRO67 em 19/05/2020, 14:53 h
Local: SP  Registro: 18/05/2020  Postagens: 6
Boa tarde Deusdete,

gostaria sim, dessa forma, consigo ver o que pode estar de errado no processo de retorno.

Obrigado
adflpj@gmail.com

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário NEWMAX NEWMAX em 19/05/2020, 16:18 h
Local: SP  Registro: 12/05/2020  Postagens: 4
Boa tarde Deusdete, se puder enviar para mim também, eu agradeço.

Obrigado
informatica@newmaxindustrial.com.br

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário DEUSDETE87 DEUSDETE87 em 19/05/2020, 16:32 h
Local: GO  Registro: 27/02/2020  Postagens: 4
Sem problemas.

Acabei de enviar para vocês.


Consultor Protheus
Deusdete Lopes
deusdetelopes@bol.com.br
(62) 99273-9500

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MAZONI MAZONI em 20/05/2020, 09:09 h
Local: SP  Registro: 21/08/2014  Postagens: 1
Deusdete, bom dia!
Seria possível enviar para danilomazoni@hotmail.com?

Desde já agradeço.
Muito obrigado!

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MARCOS_AH MARCOS_AH em 21/05/2020, 09:44 h
Local: SP  Registro: 04/03/2010  Postagens: 9
Bom dia,

Por favor, enviar para marcos_ah@hotmail.com

Obrigado

Marcos Holando
Consultor TMS

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário PINHEIRO67 PINHEIRO67 em 26/05/2020, 08:59 h
Local: SP  Registro: 18/05/2020  Postagens: 6
#include "PROTHEUS.CH"
#include "TBICONN.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} wfExemplo    
Função de exemplo de utilização da classe TWFProcess.
/*/
//-------------------------------------------------------------------
User Function wfExemplo()
     Local oProcess      := Nil                                   //Objeto da classe TWFProcess.
     Local cMailId      := ""                                   //ID do processo gerado.
     Local cHostWF     := "http://localhost:81/wf"     //URL configurado no ini para WF Link.
     Local cTo           := "willian.carvalho@totvs.com.br"      //Destinatário de email.    
     Local cCc       := "willian.carvalho@totvs.com.br;" // Copia do Destinatario
     
     PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"    
     
     //-------------------------------------------------------------------
     // "FORMULARIO"
     //-------------------------------------------------------------------      

     //-------------------------------------------------------------------
     // Instanciamos a classe TWFProcess informando o código e nome do processo.
     //-------------------------------------------------------------------
     oProcess := TWFProcess():New("000001", "Treinamento")
     oProcess:cPriority := "3"

     //-------------------------------------------------------------------
     // Criamos a tafefa principal que será respondida pelo usuário.
     //-------------------------------------------------------------------
     oProcess:NewTask("FORMULARIO", "\Workflow\WF_FORM.html")

     //-------------------------------------------------------------------
     // Atribuímos valor a um dos campos do formulário.
     //-------------------------------------------------------------------         
     oProcess:oHtml:ValByName("TEXT_TIME", Time() )
     
     oProcess:oHtml:ValByName("TEST", ‘TESTE‘ )
     
     oProcess:oHtml:ValByName("N", "N" )
     
     oProcess:oHtml:ValByName("S", "S" )
                                
     //-------------------------------------------------------------------
     // Informamos em qual diretório será gerado o formulário.
     //-------------------------------------------------------------------      
     oProcess:cTo           := "HTML"    

     //-------------------------------------------------------------------
     // Informamos qual função será executada no evento de timeout.
     //-------------------------------------------------------------------      
     oProcess:bTimeOut      := {{"u_wfTimeout()", 0, 0, 5 }}
          
    oProcess:AttachFile("C:\P1225\protheus_data\workflow\Teste.txt")       
    

     //-------------------------------------------------------------------
     // Informamos qual função será executada no evento de retorno.   
     //-------------------------------------------------------------------      
     //oProcess:bReturn      := "u_wfRetorno()"

     //-------------------------------------------------------------------
     // Iniciamos a tarefa e recuperamos o nome do arquivo gerado.   
     //-------------------------------------------------------------------
     cMailID := oProcess:Start()     

     //-------------------------------------------------------------------
     // "LINK"
     //-------------------------------------------------------------------

     //-------------------------------------------------------------------
     // Criamos o ling para o arquivo que foi gerado na tarefa anterior.
     //-------------------------------------------------------------------      
     oProcess:NewTask("LINK", "\workflow\WF_LINK.html")
     
     //-------------------------------------------------------------------
     // Atribuímos valor a um dos campos do formulário.
     //-------------------------------------------------------------------
     oProcess:oHtml:ValByName("A_LINK", cHostWF + "/messenger/emp" + cEmpAnt + "/HTML/" + cMailId + ".htm")
     
     //-------------------------------------------------------------------
     // Informamos o destinatário do email contendo o link.
     //-------------------------------------------------------------------      
     oProcess:cTo           := cTo
     oProcess:cCc           := cCc   
     
     //-------------------------------------------------------------------
     // Informamos o assunto do email.
     //-------------------------------------------------------------------      
     oProcess:cSubject     := "Workflow via link."

     //-------------------------------------------------------------------
     // Iniciamos a tarefa e enviamos o email ao destinatário.
     //-------------------------------------------------------------------      
     oProcess:Start()                                                                        
Return    

//-------------------------------------------------------------------
/*/{Protheus.doc} wfRetorno    
Função executada no retorno do processo.

/*/
//-------------------------------------------------------------------       
User Function wfRetorno( poProcess )
     Local cTime      := ""
     Local cProcesso := ""
     Local cTarefa     := ""
     Local cMailID     := ""
     Local cRet := ""

     cRet := poProcess:oHtml:RetByName("OPC")
     //-------------------------------------------------------------------
     // Recuperamos a hora do processo utilizando o método RetByName.
     //-------------------------------------------------------------------           
     cTime           := poProcess:oHtml:RetByName("TEXT_TIME")
     
     //-------------------------------------------------------------------
     // Recuperamos o identificador do email utilizando o método RetByName.
     //-------------------------------------------------------------------           
     cMailID          := poProcess:oHtml:RetByName("WFMAILID")

     //-------------------------------------------------------------------
     // Recuperamos o ID do processo através do atributo do processo.
     //-------------------------------------------------------------------           
     cProcesso      := poProcess:FProcessID

     //-------------------------------------------------------------------
     // Recuperamos o ID da tarefa através do atributo do processo.
     //-------------------------------------------------------------------      
     cTarefa          := poProcess:FTaskID

     //-------------------------------------------------------------------
     // Exibe mensagem com dados do processamento no console.
     //-------------------------------------------------------------------                  
     Conout(‘Retorno do processo gerado às ‘ + cTime + " número " + cProcesso + ‘ ‘ + poProcess:oHtml:RetByName("WFMAILID") + ‘ tarefa ‘ + cTarefa + ‘ executado com sucesso!‘)
Return Nil    

//-------------------------------------------------------------------
/*/{Protheus.doc} wfTimeout    
Função executada no timeout do processo.

/*/
//-------------------------------------------------------------------
User Function wfTimeout( poProcess )
     //-------------------------------------------------------------------
     // Exibe mensagem com dados do processamento no console.
     //-------------------------------------------------------------------              
     Conout(‘Timeout do processo‘ + poProcess:FProcessID)
Return Nil    

//-------------------------------------------------------------------
/*/{Protheus.doc} WFPE007    
Permite customizar a mensagem de processamento do WF por link.
/*/
//-------------------------------------------------------------------
User Function WFPE007()
     Local cHTML           := ""
     Local plSuccess          := ParamIXB[1]
     Local pcMessage      := ParamIXB[2]     
     Local pcProcessID      := ParamIXB[3]
     
     If ( plSuccess )
          //-------------------------------------------------------------------
          // Mensagem em formato HTML para sucesso no processamento.
          //-------------------------------------------------------------------
         cHTML += ‘Processamento executado com sucesso!‘
         cHTML += ‘

         cHTML += pcMessage
     Else       
          //-------------------------------------------------------------------
          // Mensagem em formato HTML para falha no processamento.
          //-------------------------------------------------------------------
          cHTML += ‘Falha no processamento!‘
         cHTML += ‘

         cHTML += pcMessage
     EndIf
Return cHTML















*************************************************************************
ARQUIVO WF_LINK.HTML



Workflow por Link




Clique no link para responder.






**********************************************************************
ARQUIVO WF_FORM.HTML





Workflow por Link



Processo gerado às !TEXT_TIME!


Clique aqui para responder -->





Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal