3469 - Exemplo de WebServices do SapiensSID para Regras LSP
Problema: Problema:
Exemplo de utilização do Sapiens SID executando localmente através de servicos MC sem necessitar do ambiente Sapiens Server instalado.
Quando ocorre / onde se aplica:
Ao utilizar uma ação SID via WebService, dentro de uma regra LSP
Solução: Solução:
definir alfa ValStr;
@ Define o serviço e porta @
definir interno.com.senior.g5.co.ger.sid.executar vAcaoSID;
@ Adiciona os parâmetros SID -- cada parâmetro em linha distinta @
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = ACAO=SID.TCR.BAIXAR;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = NUMTIT=TX003/A;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = CODTPT=DM;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = VLRMOV=7700;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = VCTORI=20/10/2005;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = NUMCCO=BCX C/C;
@ Executar ação @
vAcaoSID.ModoExecucao = 1; @ 1 = Local@
vAcaoSID.Executar();
@ Processar resultado @
ValStr = vAcaoSID.Resultado;
Exemplo de utilização do Sapiens SID executando localmente através de servicos MC sem necessitar do ambiente Sapiens Server instalado.
Quando ocorre / onde se aplica:
Ao utilizar uma ação SID via WebService, dentro de uma regra LSP
Solução: Solução:
definir alfa ValStr;
@ Define o serviço e porta @
definir interno.com.senior.g5.co.ger.sid.executar vAcaoSID;
@ Adiciona os parâmetros SID -- cada parâmetro em linha distinta @
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = ACAO=SID.TCR.BAIXAR;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = NUMTIT=TX003/A;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = CODTPT=DM;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = VLRMOV=7700;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = VCTORI=20/10/2005;
vAcaoSID.SID.CriarLinha();
vAcaoSID.SID.Param = NUMCCO=BCX C/C;
@ Executar ação @
vAcaoSID.ModoExecucao = 1; @ 1 = Local@
vAcaoSID.Executar();
@ Processar resultado @
ValStr = vAcaoSID.Resultado;