ERP – Emissão de Boletos – Como emitir boletos via WebServices
Dúvida
Como emitir boletos via WebServices no módulo Gestão de Contas a Receber?
Solução
Para que seja possível emitir boletos via WebServices existem duas possibilidades:
1. Se a versão do sistema já está atualizada na versão 5.10.2.43 ou superior tem a possibilidade de utilizar o webservice g5.co.ger.relatorio porta BloquetoFinanceiro. Para maiores informações do WebServices clique aqui;
Ou
2. Se tiver numa versão inferior a possibilidade é via ação SID.Srv.ExeBlo. Abaixo um 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@
CurE039Por.Sql Select RecUnn from E039Por where CodPor=:VsCodPor; CurE039Por.AbrirCursor();
Se (CurE039Por.Achou) Inicio VRecUnn = CurE039Por.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://;
sAcaoSID.ModoExecucao =1;
sAcaoSID.Executar();
aVarAux =sAcaoSID.Resultado;
GeraLog(aVarAux);
Para maiores informações sobre a ação SID clique aqui.