ERP – Emissão de Boleto – Como executar um boleto via regra passando valores através das funções SetaAlfaTelaEntrada ou SetaNumeroTelaEntrada
Dúvida
Como executar um boleto via regra passando valores através das funções SetaAlfaTelaEntrada ou SetaNumeroTelaEntrada via regra no módulo de Ferramentas de Customizações?
Solução
Não é possível utilizar as funções SetaAlfaTelaEntrada ou SetaNumeroTelaEntrada para passar valores aos campos de entrada dos boletos.
Essas funções foram desenvolvidas para executar apenas com relatórios com extensão .GER.
Observação
Uma sugestão é utilizar a ação SID.Srv.ExeBlo com chamada via WebServices. Dessa forma não precisa ter obrigatoriamente o SapiensSrv e é possível utilizar a ação SID para executar o boleto via regra.
Clique aqui para acessar a documentação completa sobre a ação.
Abaixo exemplo de regra:
Definir cursor Cur_E039Por;
Definir Alfa VSCodPor;
Definir Alfa valfrecunn;
VSCodPor = 001; @Busca o último nosso número cadastrado no portador e incrementa + 1@
Cur_E039Por.Sql Select RecUnn from E039Por where CodPor=:VsCodPor;
Cur_E039Por.AbrirCursor();
Se (Cur_E039Por.Achou)
Inicio
VRecUnn = Cur_E039Por.RecUnn+1;
Fim;
Cur_E039Por.FecharCursor();
IntParaAlfa(VRecUnn,valfrecunn);
Definir interno.com.senior.g5.co.ger.sid.executar sAcaoSID;
Definir alfa aVarAux;
sAcaoSID.SID.CriarLinha(); @ EXEMPLO PARA CRIAR UM BOLETO EM FORMATO JPEG@
sAcaoSID.SID.Param =ACAO=SID.SRV.EXEBLO;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =NOME=FRCR006.BLO;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =FORMATO=JPEG;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =CODTPT=01;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =NUMTIT=0842;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =CODPOR=001;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =CODCRT=99;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param = NOSNUM=+valfrecunn;
sAcaoSID.SID.CriarLinha();
sAcaoSID.SID.Param =CaminhoArq=C://;
aVarAux =sAcaoSID.Resultado;
GeraLog(aVarAux);