-
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
-
Iure Caldas started following ACBrSedex Rastrear Objeto e 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
-
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
-
CNAB 400; Instrucao de cobranca; Protestar dias corridos, Protestar dias uteis, Negativar.
um tópico no fórum postou Iure Caldas ACBrBoleto
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!!