Ir para conteúdo
  • Cadastre-se

Iure Caldas

Membros
  • Total de ítens

    9
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

Iure Caldas's Achievements

Rookie

Rookie (2/14)

  • Reacting Well Rare
  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputação

  1. Iure Caldas

    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
  2. Iure Caldas

    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;
  3. Iure Caldas

    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.
  4. 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.
  5. 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
  6. 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.
  7. 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.
  8. 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!!
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.