rlind

ola. a propriedade Boleto.ImprimirMensagemPadrao := ckbImprimirMensagemPadrao.Checked; no exemplo ABCR esta true tambem

Boa Tarde. fiz pelo exemplo do Acbr e gera o boleto online sem problemas no webservice, depois de tirar o comentario que estava no comando : dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem) e esta gerando sem problemas pela seguinte razão : ao executar TBoletoW_BancoBrasil_API.RequisicaoJson e passar pelo codigo abaixo: Json.Add('campoUtilizacaoBeneficiario').Value.AsString := Copy(Trim(StringReplace(UpperCase(TiraPontos(ATitulo.Mensagem.Text)),'\r\n',' ',[rfReplaceAll])),0,30); temos ATitulo.Mensagem.Text sem dados preenchidos , com isso no dados enviados o campo campoUtilizacaoBeneficiario fica com "" como pode ver abaixo 02/06/23 15:24:51:003 - Comando Enviar: {"numeroConvenio":3128557,"numeroCarteira":17,"numeroVariacaoCarteira":35,"codigoModalidade":1,"dataEmissao":"02.06.2023","dataVencimento":"02.07.2023","valorOriginal":105.91,"valorAbatimento":0,"codigoAceite":"N","codigoTipoTitulo":2,"descricaoTipoTitulo":"DM","numeroTituloBeneficiario":"12","campoUtilizacaoBeneficiario":"","numeroTituloCliente":"00031285570000000011","mensagemBloquetoOcorrencia":"","jurosMora":{"tipo":3},"pagador":{"tipoInscricao":1,"numeroInscricao":73010014953,"nome":"CLIENTE DE TESTES","endereco":"Rua dos clientes 100","cep":18270000,"cidade":"Tatui","bairro":"Centro","uf":"SP"},"indicadorPix":"S"} Agora pelo meu sistema o ATitulo.Mensagem.Text esta preenchido e ainda com acentos (gerando a recusa) , com isso se alguem souber o que controla o preenchimento ou não do ATitulo.Mensagem, me ajudaria. o detalhe que nas duas situações as functions GerarMensagemPadraoDataLimitePagamento e GerarMensagemPadraoDataLimitePagamento são executadas. Obrigado pelo retorno.

Ok. vou testar no exemplo do acbr

Esta certo. bem chato isso, deveria ter um tratamento no app do BB para isso. estou anexando para análise. function GerarMensagemPadraoDataLimitePagamento string => 'Nao Receber apos' retirado o acento function GerarMensagemPadraoJuros string => 'R #,##0.00 por dia' retirado $ string => 'apos o vencimento' retirado o acento ACBrBoleto.pas Obrigado amigo

Favor subir no SVN , alteração de tratamento dos acentos na mensagem para evitar rejeição Boleto Online BB. ACBrBoleto.pas : function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento( ATitulo: TACBrTitulo): String; begin if ATitulo.DataLimitePagto > ATitulo.Vencimento then Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias') else Result := ACBrStr('Não Receber após o Vencimento'); end;

Ola. Bom dia. Retirando os acentos não gera mais a rejeição e gera o boleto Online tranquilo. Dai não precisa nem preencher o campo Titulo.DataLimitePagto, executando a function GerarMensagemPadraoDataLimitePagamento e registrando o boleto Online sem problemas. Obrigado pelo retorno.

Bom dia. Alguma orientação para evitar esse retorno do webservice do B.B Obrigado.

Bom dia. Para informar um problema que esta dando aqui comigo. Estou efetuando => Envia de boleto Online pela api do Banco do brasil, fazendo Function abaixo em ACBrBoleto.pas : function TACBrBoleto.GerarMensagemPadraoDataLimitePagamento( ATitulo: TACBrTitulo): String; begin if ATitulo.DataLimitePagto > ATitulo.Vencimento then Result:= ACBrStr('Não Receber após ' + IntToStr(DaysBetween(ATitulo.Vencimento, ATitulo.DataLimitePagto))+ ' dias') else Result := ACBrStr('Não Receber após o Vencimento'); end; gerando o seguinte retorno com erro codigo 400 no arquivo anexado abaixo. aguardo retorno. Obrigado. ArqBoletoWS.log

Pode finalizar o chamado. Obrigado.

Boa tarde. Obrigado pela informação.

Obrigado pelo retorno. Estou verificando.

Bom dia. Estou com problemas ao enviar mais de uma RPS no lote. Pois quando é uma RPS por lote e validada e gerada sem problemas. Com isso gostaria da informação se eh possivel validar mais de uma NFS-e em um unico lote ou não. Obrigado.

Boa Tarde. Cidade : São Jose - SC. erro eh uma saida por excessão que estou vendo aqui e já reporto. Obrigado.

Obrigado Diego. Para IPM alguma pessoa conseguiu validar um lote de RPS, mas não esta indo aqui. Obrigado.

Bom Dia. Alguém poderia informar o limite de Nfse dentro de um lote? Aguardo retorno. Obrigado Para o provedor IPM

Boa Tarde Italo. Esta Certo. Pode finalizar o tópico. Obrigado.

Olá. deu certo Atribuir o valor zero ao campo Competência. A NFS-e foi validada. Soh ficamos na duvida. Eh tranquilo deixar a data de Competência com 0 ? Obrigado.

Bom dia Italo. Vou fazer e retorno. Obrigado.

codigo de retorno eh : 00226 Obrigado.

Esta certo. Estou anexando. Obrigado. 4066-ger-nfse.xml

Boa Tarde. Alguém teve o seguinte retorno na validação da NFS-e provedor IPM (prefeitura da Palhoça - SC): => informada uma data retroativa no arquivo, Porém o cadastro econômico não possui enquadramento para utilizar. No Xml gerado não tem data para trás. Se souber a causa, Muito Obrigado. Rogerio Lindemayer

Bom dia, consegui usando outro componente : Response := TStringStream.Create(''); HTTP_Emitir := TIdHTTP.Create(nil); if not DirectoryExists(PAnsiChar(pPastaRetorno)) then if not CreateDir(PAnsiChar(pPastaRetorno)) then ForceDirectories(PAnsiChar(pPastaRetorno)); ArquivoRetorno := PAnsiChar(pPastaRetorno) + ExtractFileName(ArquivoRetorno); HTTP_Emitir.Request.CustomHeaders.FoldLines := False; HTTP_Emitir.Request.CustomHeaders.Add('Authorization: Bearer ' + PAnsiChar(pToken)); HTTP_Emitir.Request.CharSet := ''; HTTP_Emitir.Request.ContentType := 'application/xml'; HTTP_Emitir.Request.ContentEncoding := 'raw'; try HTTP_Emitir.Post(sLinkEmitir, PAnsiChar(pArquivoXML), Response); except on E: EIdHTTPProtocolException do begin iPos := Pos('<message>', E.ErrorMessage); if iPos > 0 then sMsgErro := Copy(E.ErrorMessage, iPos + 9, 200); sMsgErro := StringReplace(sMsgErro, '</message>', '', [rfReplaceAll]); sMsgErro := StringReplace(sMsgErro, '</xmlNfpse>', '', [rfReplaceAll]); MessageDlg('Retorno da Emissão' + #13 + #13 + 'Código Reposta: ' + IntToStr(HTTP_Emitir.Response.ResponseCode) + #13 + 'Erro: ' + sMsgErro, mtError, [mbOK], 0); end; end; iResult := HTTP_Emitir.Response.ResponseCode; if IntToStr(HTTP_Emitir.Response.ResponseCode) = '200' then begin ArquivoXML := TXMLDocument.Create(nil); ArquivoXML.LoadFromXML(Response.DataString); ArquivoXML.SaveToFile(ArquivoRetorno); end;

boa tarde. pode finalizar o topico. obrigado.

Com este codigo abaixo, retorno anexado Response := TStringStream.Create(''); MyText := tStringList.Create; MyText.LoadFromFile(PAnsiChar(parquivoXML)); IdHTTP1 := TIdHTTP.Create(nil); IdHTTP1.Request.CustomHeaders.FoldLines := False; IdHTTP1.Request.CustomHeaders.Add('Authorization:Bearer ' + PAnsiChar(ptoken)); IdHTTP1.Request.CharSet := ''; IdHTTP1.Request.ContentType := 'application/xml'; IdHTTP1.Request.ContentEncoding := 'raw'; try idHttp1.Post(sLinkEmitir, MyText, Response); except on E:EIdHTTPProtocolException do ShowMessage(e.ErrorMessage); end; MyText.Free;

Alguem será ?