|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
WORKFLOW |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
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?
|
|
|
Mensagem do
NEWMAX
em 19/05/2020, 10:51 h
Local: SP Registro: 12/05/2020 Postagens: 6 |
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. |
|
|
Mensagem do
PINHEIRO67
em 19/05/2020, 10:54 h
Local: SP Registro: 18/05/2020 Postagens: 6 |
BOM DIA
Passo sim... sem problema...
|
|
|
Mensagem do
NEWMAX
em 19/05/2020, 11:06 h
Local: SP Registro: 12/05/2020 Postagens: 6 |
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. |
|
|
Mensagem do
PINHEIRO67
em 19/05/2020, 11:13 h
Local: SP Registro: 18/05/2020 Postagens: 6 |
adflpj@gmail.com |
|
|
Mensagem do
DEUSDETE87
em 19/05/2020, 14:48 h
Local: GO Registro: 27/02/2020 Postagens: 10 |
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 |
|
|
Mensagem do
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
|
|
|
Mensagem do
NEWMAX
em 19/05/2020, 16:18 h
Local: SP Registro: 12/05/2020 Postagens: 6 |
Boa tarde Deusdete, se puder enviar para mim também, eu agradeço.
Obrigado
informatica@newmaxindustrial.com.br |
|
|
Mensagem do
DEUSDETE87
em 19/05/2020, 16:32 h
Local: GO Registro: 27/02/2020 Postagens: 10 |
Sem problemas.
Acabei de enviar para vocês.
Consultor Protheus
Deusdete Lopes
deusdetelopes@bol.com.br
(62) 99273-9500 |
|
|
Mensagem do
MAZONI
em 20/05/2020, 09:09 h
Local: SP Registro: 21/08/2014 Postagens: 2 |
Deusdete, bom dia!
Seria possível enviar para danilomazoni@hotmail.com?
Desde já agradeço.
Muito obrigado! |
|
|
Mensagem do
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 |
|
|
Mensagem do
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
**********************************************************************
ARQUIVO WF_FORM.HTML
Workflow por Link
|
|
|
Mensagem do
WANDERSONW
em 10/06/2020, 16:45 h
Local: SP Registro: 01/07/2015 Postagens: 166 |
Boa Tarde,
Voce pode enviar para wanderson.souza@vespor.com.br
Desde ja agradesço.
|
|
|
Mensagem do
EDPAULISTA
em 10/06/2020, 19:03 h
Local: SP Registro: 16/08/2019 Postagens: 18 |
Consultor Protheus (Espec. Quality)
Boa Noite,
Poderia me enviar, por favor,
edivaldo.paulista@gmail.com
Desde já agradeço, |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|