Histórico da Página
...
| Linha de Produto: | TOTVS Varejo Lojas |
|---|---|
| Segmento: | Varejo |
| Módulo: | SigaLoja (Controle de Loja) |
| Função: | RmiXfunC |
| Ticket: | Não há. |
| Story: | DVARLOJ1-8688 |
02. SITUAÇÃO/REQUISITO
Realizar a gravação de um de/para após a confirmação de integração
...
do Produto com o TVFR (TOTVS VAREJO FRANQUIAS E REDES).
Criar função onde seja possível verificar se o
...
status de integração de determinado Produto.
03. SOLUÇÃO
Na tentativa de identificar o status da integração, caso Caso seja confirmado a integração do Produto será gravado um de/para com Sistema de Origem = CONFIRMA.
Criado função VALIDINT - Validar a integração de cadastro, onde houve confirmação de gravação no sistema destino, com os parâmetros:
cOrigem = deve-se passar CONFIRMA
...
o campo MHM_SISORI = CONFIRMA.
Também foi criado a função RmiValInt, para que seja possível retornar o status de integração do Produto. Nesta função será retornado um Array com duas posições:
1º Posição = Logica (.T. para produto integrado ou .F. caso o mesmo não esteja integrado).
2º Posição = Caracter (Mensagem com o status da integração do Produto).
04. DEMAIS INFORMAÇÕES
Para a chamada da função RmiValInt deve-se informar dois parâmetros sendo eles:
cAlias = Tabela do cadastro (ex: SB1)
...
cValor = registro do cadastro (ex:
...
código do produto)
lOrigem = deve-se passar .T., sistema de origem protheus
04. DEMAIS INFORMAÇÕES
...
Abaixo exemplo da chamada da rotina RmiValInt:
| Bloco de código | ||
|---|---|---|
| ||
User Function TesteVld()
Local aMsg := {}
RpcSetType(3)
RpcSetEnv("99", "01", , , , "TesteVld")
Conout("----------------------- INICIO TesteVld" + Time() )
aMsg := RmiValInt("SB1","21505")
Conout(aMsg[1])
Conout(aMsg[2])
Return |
05. ASSUNTOS RELACIONADOS
...