Base de conhecimento
Encontre respostas para suas dúvidas em quatro fontes de conhecimento diferentes ao mesmo tempo, simplificando o processo de pesquisa.
Base de Conhecimento

MP - Subir Dados ou Executar Rotina no TotvsPDV para Retaguarda

MP - Subir Dados ou Executar Rotina no TotvsPDV para Retaguarda

Ocorrência
Como faço para customizar uma rotina que será chamada no PDV para ser executada na Retaguarda?

Ambiente
Microsiga Protheus - SIGAFRT (Totvs PDV) - Aplicável a partir da versão 11.80  

Solução
Por motivos de segurança e para evitar interferência de customizações no processo de subida de dados do padrão, foi evitado o uso de Ponto de Entrada, no JOB de subida de dados STWUPSALE.
Caso utilize algum procedimento no FrontLoja para subir dados do PDV para a Retaguarda, como por exemplo: FRTGrvSZ, deverá ser substituído por rotina customizada.
 
Pré-requisito: Configurações de HOST para comunicação entre PDV e Retaguarda .
Mais informações, acesso o link : SIGAFRT_0215_Configuração de comunicação TOTVS PDV
 
Abaixo um exemplo simples onde foi criado uma Function no PDV para ser executada em outro ambiente (RETAGUARDA). Para melhor entendimento do uso, foi realizado no formato de JOB.
 
1. Possuir as rotinas compiladas no PDV e na Retaguarda:
Link para download do fonte de exemplo: FonteExemplo.prw
#INCLUDE 'PROTHEUS.CH'
//--------------------------------------------------------
/*/{Protheus.doc} MeuFunc()
Realiza conout no console dos paramtros recebidos
@param cParam1 Conteudo do tipo String para apresentacao em conout()
@param cParam2 Conteudo do tipo String para apresentacao em conout()
@param cParam3 Conteudo do tipo numerido para apresentacao em conout()
@author Paulo Henrique
@version P11.8
@since 06/03/2017
@return lRetorno .T.
/*/
//--------------------------------------------------------
User Function MeuFunc( cParam1, cParam2, nParam3 )
Default cParam1 := 'cParam1 vazio...'
Default cParam1 := 'cParam2 vazio...'
Default nParam3 := 0
Conout('Iniciou MeuFunc')
Conout('Recebeu Param1:',cParam1)
Conout('Recebeu Param2:',cParam1)
Conout('Recebeu Param3:',nParam3)
Conout('Finalizou MeuFunc')
Return .T.

//--------------------------------------------------------
/*/{Protheus.doc} MeuJob()
Realiza conout no console dos paramtros recebidos
@param cEmp Conteudo do tipo String com a Empresa para abertura de ambiente
@param cFil Conteudo do tipo String com a Filial para abertura de ambiente
@author Paulo Henrique
@version P11.8
@since 06/03/2017
@return lRetorno .T.
/*/
//--------------------------------------------------------
User Function MeuJob(cEmp , cFil)
Local lRet := .F.
Local lExecutou := .F.
cEmp := 'T1'
cFil := 'PARM2=D MG 01'
Conout('Iniciando MeuJob')
//Prepara Ambiente
RPCSetType(3)
RpcSetEnv(cEmp,cFil,Nil,Nil,'FRT')
lExecutou := STBRemoteExecute( 'U_MeuFunc', { 'ConteudoParam1','ConteudoParam2',10 } , NIL, .T. , @lRet )
Conout('Retorno MeuJob',lExecutou)
If !lExecutou
Conout('Não conseguiu executar a rotina _MinhaFunc. Verifique se a funcionalidade está cadastrada e habilitada na Retaguarda')
EndIf
Conout('Finalizou MeuJob')
Return .T.
2. Dentro do ambiente da Retaguarda, acessar a configuração de Funcionalidades(CFGA051) para incluir a function que será executada na retaguarda:




3. Dentro do ambiente da Retaguarda, acessar a configuração de Perfil(CFGA052) para habilitar a funcionalidade no perfil Principal/Retaguarda:





4. Após esse processo, a rotina estará preparada para ser executada no PDV, podendo ser via Job conforme exemplo abaixo:
Configuração do JOB Appserver.ini (PDV):
[MEUJOB]
MAIN=U_MeuJob
ENVIRONMENT=PDV1180
NPARMS=2
PARM1=T1
PARM2=D MG 01
[ONSTART]
JOBS=MEUJOB
REFRESHRATE=30

5. Verifique que o JOB foi executado e a rotina MeuFunc foi executada na Retaguarda:



Acesse nossa Central de Atendimento na opção Perguntas Frequentes e verifique nossos Artigos.

 
 
TDN:http://tdn.totvs.com/display/public/PROT/SIGALOJA_SIGAFRT_0434_Subir_Dados_ou_Executar_Rotina_no_TotvsPDV_para_Retaguarda
 
Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _