[Provedor Coplan]

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

[ACBrSedex Rastrear Objeto]

Segue anexo.

ACBrSedex.pas

[ACBrSedex Rastrear Objeto]

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;

 

[Boleto hibrido]

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.

 

[CNAB 400; Instrucao de cobranca; Protestar dias corridos, Protestar dias uteis, Negativar.]

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.

[CNAB 400; Instrucao de cobranca; Protestar dias corridos, Protestar dias uteis, Negativar.]

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

[CNAB 400; Instrucao de cobranca; Protestar dias corridos, Protestar dias uteis, Negativar.]

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.

 

[CNAB 400; Instrucao de cobranca; Protestar dias corridos, Protestar dias uteis, Negativar.]

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.

[CNAB 400; Instrucao de cobranca; Protestar dias corridos, Protestar dias uteis, Negativar.]

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!!