Iure Caldas

Tivermos problema para emitir NFSe, retornando erro: 301 MOVED PERMANENTLY. Em contato com a Coplan, nos enviaram novas URL's http://www.gp.srv.br/tributario/camponovodoparecis/anfse_web_service?wsdl https://www.gp.srv.br/tributario/homologacao/anfse_web_service?wsdl Apos alterar no Coplan.ini deu certo a emissao. Coplan.ini Link's producao-homologacao.txt

Segue anexo. ACBrSedex.pas

Bom dia, fiz alguns ajustes no procedimento: procedure TACBrSedex.Rastrear(const CodRastreio: String); Notei que mudaram a estrutura html, e os campos pesquisados para capturar os valores nao existiam mais. Caso tenha me equivocado, me avisem por favor. Trecho modificado: SL := TStringList.Create; try SL.Text := Self.RespHTTP.Text; vCriar := False; for I := 0 to Pred(SL.Count) do begin if Pos('<li>Data', SL[I].Trim) > 0 then begin vData := Copy(SL[I].Trim, 13, 10) + ' ' + Copy(SL[I], 32, 5) + ':00'; end; if Pos('<li>Local', SL[I].Trim) > 0 then begin vLocal :=(CopyDeAte(SL[I].Trim, '<li>Local:', '</li>')) + ' -> ' + vObs; vCriar := true; end; if Pos('<li>Status', SL[I].Trim) > 0 then begin vObs := CopyDeAte(SL[I].Trim, '<b>', '</b>'); //vLocal := vObs; end; if Pos('<li>Origem', SL[I].Trim) > 0 then begin vLocal := (CopyDeAte(SL[I].Trim, '<li>', '</li>')) + ' - ' + (CopyDeAte(SL[I + 1].Trim, '<li>', '</li>'))+ ' -> ' + vObs; vCriar := true; end; if vCriar then begin with retRastreio.New do begin DataHora := StrToDateTime(vData); Local := vLocal; Situacao := vObs; Observacao := vObs; end; vData := EmptyStr; vLocal := EmptyStr; vObs := EmptyStr; vCriar := False; end; end; finally SL.Free; end;

Bom dia pessoal; Fiz uma pesquisa na internet, e tem muito pouco sobre esse assunto, o "BOLETO HIBRIDO", que vai ter integrado o PIX junto a ele, ou seja, alem do cliente ter opção de pagamento da forma tradicional, tera tambem a opção de pagar pelo PIX. Vejam o modelo da empresa Kabum que me enviaram anexo. Pergunto se já tem essa opção no ACBrBoleto? ou se futuramente.

Bom dia, A fonte que te mandei é do SVN. Foi lá que eu achei, http://svn.code.sf.net/p/acbr/code/trunk2/Fontes/ACBrBoleto/ACBrBancoItau.pas Conversei com o pessoal da programação novamente, e conseguiram corrigir lá, aqui para mim já esta certo. Pelo que me disseram, Instrucao1 não estava recebendo nenhum valor. // Modified 30/10/2020 17:30:28 if Trim(cdsPortador.FieldByName('COD_INSTRUCAO1').AsString) <> '' then Instrucao1 := cdsPortador.FieldByName('COD_INSTRUCAO1').AsString; Acredito que não era problema no ACBRBoleto. Obrigado.

Bom dia, Anexo fonte : ABCrBancoItau.pas Não foi possível anexar manual, arquivo maior que 2 mb, esse aqui é o link para baixa-lo ( https://download.itau.com.br/bankline/layout_cobranca_400bytes_cnab_itau.pdf ) - cobrancaItau400-2017.pdf Anexo arquivo corrigido na mão, validado pelo banco. 2630.TXT ABCrBancoItau.pas

Boa tarde, Consegui achar os fontes: Acho que é aqui que tem que ser feito tratativa. Nas remessa que gerei, as opções de protesto, ficam no código '34'. E faltou opção de Negativação, código '66' para dias corridos.

Bom dia, O item C da mensagem que postei, foi apontado pelo banco do cliente, após envio da remessa. Depois, após leitura da layout de cobrança do Itau, vi que tinha problema apontado no item B. Não sou programador.

Boa tarde Senhores, Estou configurando o sistema para de negativar os títulos após o vencimento de um cliente. Já aproveitei e fiz os testes nas outras opções existentes. Layout CNAB 400, Especificamente, Banco ITAU. Notei divergências no arquivo de remessa, e mensagens nos boletos. Estou considerando na posição 392-393 o valor 20. A- Protestar dias corridos.(Correto) Mensagem Boleto: Protestar em 20 dias corridos após vencimento. Posição 157-158: 34 Posição 392-393: 20 B- Protestar dias uteis.(Divergente) Mensagem Boleto: Protestar em 20 dias corridos após vencimento.(manteve mesma mensagem) Mensagem Boleto correta: Protestar em 20 dias uteis após vencimento. Posição 157-158: 34 (No arquivo de remessa manteve o mesmo código) Posição 157-158 código correto: 35 Posição 392-393: 20 C - Negativar.(Divergente) Mensagem Boleto: Negativar em 20 dias corridos após vencimento. Posição 157-158: 00 (No arquivo de remessa preencheu com 00) Posição 157-158 código correto: 66 Posição 392-393: 20 Fui informado pelo setor de programação que os componentes do ACBR estão atualizados. Caso não exista esse problema nos componentes, me oriente qual procedimento para corrigir. Obrigado!!