- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Conectar em outro ambiente com system diferente
×
Linguagem de Programação ADVPL
Perguntas Conectar em outro ambiente com system diferente
- jared13
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
10 anos 8 meses atrás - 10 anos 8 meses atrás #20740
por jared13
Conectar em outro ambiente com system diferente foi criado por jared13
Boa tarde!
Estou com um problema aqui, preciso conectar em outro ambiente para fazer uma rotina automática, incluir registros em outra empresa com base na empresa origem, porém notei que tanto o RpcSetEnv quanto o PREPARE ENVIRONMENT não iniciam o ambiente se o mesmo esta apontado para uma system diferente do ambiente inicial.
Exemplo: Ambiente A aponta para a system_a (Seria a Empresa origem)
Ambiente B aponta para a system_b (Seria a Empresa destino)
Compilo a rotina no ambiente A
User Function TESTE()
Local _aOpenTable := {'SA1','SA2'}
RPCSetType(3)
RpcSetEnv("01","01",,,,"B", _aOpenTable) //Tento iniciar o ambiente B
Obs: A partir daqui da erro pois diz que a SX2 não existe, isso acontece só quando tento inciar ambientes que apontam para system's diferentes
..........CÓDIGO.............
return
Alguém já passou por isto?
Estou com um problema aqui, preciso conectar em outro ambiente para fazer uma rotina automática, incluir registros em outra empresa com base na empresa origem, porém notei que tanto o RpcSetEnv quanto o PREPARE ENVIRONMENT não iniciam o ambiente se o mesmo esta apontado para uma system diferente do ambiente inicial.
Exemplo: Ambiente A aponta para a system_a (Seria a Empresa origem)
Ambiente B aponta para a system_b (Seria a Empresa destino)
Compilo a rotina no ambiente A
User Function TESTE()
Local _aOpenTable := {'SA1','SA2'}
RPCSetType(3)
RpcSetEnv("01","01",,,,"B", _aOpenTable) //Tento iniciar o ambiente B
Obs: A partir daqui da erro pois diz que a SX2 não existe, isso acontece só quando tento inciar ambientes que apontam para system's diferentes
..........CÓDIGO.............
return
Alguém já passou por isto?
Ultima edição: 10 anos 8 meses atrás por jared13.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
10 anos 8 meses atrás #20742
por kanaamlrr
Respondido por kanaamlrr no tópico Conectar em outro ambiente com system diferente
Cara, nunca tentei com systems diferentes, mas vale tentar.
Acho meio improvável que dê certo.
Em todos os casos você pode utilizar um Sqlexec com um comando insert...
Abraço!
dbcloseall()
cempant :="01"
cfilant :="01"
cNumEmp :="0101"
Opensm0(cempant+cfilant)
Openfile(cempant+cfilant)
lrefresh :=.T.Acho meio improvável que dê certo.
Em todos os casos você pode utilizar um Sqlexec com um comando insert...
Abraço!
Por favor Acessar ou Registrar para participar da conversa.
- jared13
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
- jared13
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 13
- Obrigados Recebidos: 0
10 anos 8 meses atrás #20897
por jared13
Respondido por jared13 no tópico Conectar em outro ambiente com system diferente
Boa tarde, esqueci de postar a solução rs.
Então, tanto o RpcSetEnv quanto o PREPARE ENVIRONMENT não conecta mesmo em ambientes diferentes com system's diferentes. Ai utilizei no ambiente origem a StartJob() passando como parâmetro o ambiente destino, ai funcionou belezinha.
Vlww
Então, tanto o RpcSetEnv quanto o PREPARE ENVIRONMENT não conecta mesmo em ambientes diferentes com system's diferentes. Ai utilizei no ambiente origem a StartJob() passando como parâmetro o ambiente destino, ai funcionou belezinha.
Vlww
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Conectar em outro ambiente com system diferente
Tempo para a criação da página:0.109 segundos