Ir para conteúdo
  • Cadastre-se

Antonio Gomes

Membros
  • Total de ítens

    670
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Antonio Gomes postou

  1. se vc olhar o codigo fonte hoje, vai ver que nele está com o DV, no manual pede com ou sem ? Detalhe: está atualizado seu componente ? cnab240 que olhei ...
  2. pediram para nao mandar na remessa ou na impressao ? Acredito que vc esteja passando somando isso ao componente não ?
  3. Não tenho.
  4. os numeros no campo livre tem os dados do contribuinte não ? Pelo que notei, existem guias que tem que colocar o cnpj/ cpf, nire...
  5. Qual versao do seu manual que usou? tem como mandar ele aqui ?
  6. vc digitou isso onde? Não vi erro, mas tive que imprimir no modo compactado para conseguir ler o codigo de barras, depois fiz a leitura pelo banco itau.
  7. Olhando o arquivo de impressão, a barra não deveria ocupar uma parte expressiva da pagina, que seria pouco mais da metade da página? O leitor conseguiu ler essa barra?
  8. vc preenche a propriedade fora dai, nao precisa mexer no codigo fonte. Assim: Cedente.Conta := ADataSetConfigServicoBanco.FieldByName('CONTA_CCR').AsString; Cedente.ContaDigito := ADataSetConfigServicoBanco.FieldByName('DV_CONTA_CCR').AsString; Cedente.Agencia := ADataSetConfigServicoBanco.FieldByName('AGENCIA_CCR').AsString; Cedente.AgenciaDigito := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CCR').AsString; Cedente.Modalidade := Trim(ADataSetConfigServicoBanco.FieldByName('MODALIDADE_SER').AsString); Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString; Sugestão: Cria o campo e deixa seu usuario preencher.
  9. http://wiki.biserp.com.br/index.php/Especificação_de_Guias_e_Boletos
  10. Qual problema está ocorrendo ?
  11. alem de ser cada um do seu jeito, ainda tem coisa no xml que ao meu ver poderia ser mais simplificado, caixa mesmo é um caso.
  12. depois de quase um ano, a impressora ainda não chegou, todos que foram, receberam ?
  13. do manual .
  14. O ITAU manda esse identificador errado mesmo, abre o txt, percorre ele e muda o campo para o numero que satisfaz ao cpf. salva arquivo como temporário e passa usar ele.
  15. Nota 2: O órgão responsável pela distribuição e controle desta numeração será a Febraban, devendo a solicitação ser efetuada através do e-mail: [email protected]. pagina 5. Tem uma lista, cada orgão tem o seu atribuido.
  16. Se for acbr boleto, só boleto mesmo. Esse codigo de barras é o leiaute de arrecadacao recebimento. Muito mais fácil para criar que codigo de barras, alem de não precisar de registro. Você mesmo pode cria-lo, basta ter a empresa ou seu codigo na febraban. Também pode ser arrecadado com o prefixo do cnpj. Veja campo livre no manual. https://cmsportal.febraban.org.br/Arquivos/documentos/PDF/Layout - Código de Barras - Versão 5 - 01_08_2016.pdf https://portal.febraban.org.br/pagina/3166/33/pt-br/layour-arrecadacao
  17. Esse é o modo padrão. Alguns poucos bancos já tem opção de webservice. veja aqui: https://suporte.boletosimples.com.br/article/8udp3swan1-conexao-online-com-o-banco-atraves-de-webservice Acbr não tem essa opção. Mas nada impede de gerar no webservice, pois a parte de nf, comunica do mesmo formato...
  18. Como se fosse uma marca d´agua ? Os bancos, (chatos) permitem isso ?
  19. sicoob vc trabalha com o numero do cedente, nao da conta. nessa property: Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); No meu caso, eu tenho os possiveis campos no cadastro da conta corrente, de acordo com o que o banco pede eu preencho. Para evitar de ter que ficar inventando de trocar dentro do codigo fonte. Assim: Cedente.Conta := ADataSetConfigServicoBanco.FieldByName('CONTA_CCR').AsString; << sicoob usa so para imprimir o boleto Cedente.ContaDigito := ADataSetConfigServicoBanco.FieldByName('DV_CONTA_CCR').AsString; Cedente.Agencia := ADataSetConfigServicoBanco.FieldByName('AGENCIA_CCR').AsString; Cedente.AgenciaDigito := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CCR').AsString; Cedente.Modalidade := Trim(ADataSetConfigServicoBanco.FieldByName('MODALIDADE_SER').AsString); <<<<<sicoob usa Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString; << sicoob, apareceu tem pouco tempo if ADataSetConfigServicoBanco.FieldByName('LEIAUTE_SER').AsInteger = 1 then LayoutRemessa := c240 else LayoutRemessa := c400; Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); <<<< sicoob usa Cedente.CodigoTransmissao := ADataSetConfigServicoBanco.FieldByName('CODIGO_TRANSMISSAO_SER').AsString; Cedente.Convenio := ADataSetConfigServicoBanco.FieldByName('NUM_CONTRATO_SER').AsString; na unit Acbrbancobancoob, tem essa funcao: function TACBrBancoob.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ? String; a resposta está nela.
  20. Não é o cliente, é vc... Exemplo: Arquivo := IBDSPai.FieldByName('NOME_ARQUIVO_BOR').AsString; Arquivo := StringReplace(Arquivo, '"', '', [rfReplaceAll]); if not FileExists(Arquivo) then begin Aviso('Arquivo: ' + Arquivo + ' não encontrado.'); Abort; end; // CONTEUDO DO ARQUIVO ARQUIVO_RETORNO_BOR LS.LoadFromFile(Arquivo); P := LS.Count - 1; if (IBDSPai.FieldByName('RETORNO_PAGFACIL_BOR').AsString = 'N') and (IBDSPai.FieldByName('RETORNO_PESSOA_FISICA_BOR').AsString = 'S') then MudarRetornoPosicao2_FisicaJuridica(LS); LS.SaveToStream(ArquivoDeRetorno); funcao: procedure TFCadBorderoBancario.MudarRetornoPosicao2_FisicaJuridica(var ARetornoLido: TStrings); var Linha: string; I : Integer; begin for I := 0 to ARetornoLido.Count - 1 do begin Linha := ARetornoLido; // Mexer nas linhas que correspondem a titulos apenas - iniciados com 1 if (Copy(Linha, 1, 1) = '1') and (Copy(Linha, 2, 2) = '02') then begin Delete(Linha, 2, 2); Insert('01', Linha, 2); ARetornoLido := Linha; end; end; end; Voce pode tratar um arquivo temporario também, caso não queira mexer no do cliente...
  21. Passo por esse problema no banco itau, o retorno de pessoa fisica, vem completado com zeros antes, e o itau insiste em mandar como pessoa juridica, o que eu faço, é abrir o arquivo antes de mandar para o componente, e mudar, engando assim o componente para o que eu quero. assim, eu sei que está certo, tem o cpf dentro do arquivo, e ainda assim vem o numero como se fosse cnpj (talvez o retorno seja feito apenas por cnpj no itau, nao sei...), então quando entra na funcao, o componente aciona aquela funcao de validar o cpf, nisso passa liso. Não que eu queira que faça algo errado, mas tem hora que tem que ser assim... Detalhe: Se isso acontecer com vc, se for arquivo de critica, e mudar o arquivo, sugiro não fazer ação alguma no banco de dados, apenas mostrar em tela para o usuário...
  22. complementando: pelo manual, é digito da conta, olha a capa da planilha que a cooperativa envia.
  23. será que apos o número 6, não pede um numero zero ? "0555576 JVA COBR" entre o 6 e o J, esse campo deu pano para manga outro dia, o componente foi alterado para aceitar esse campo. tenho uma remessa rodando, e veja como ela vai: 2100180MAR, antes da letra M, tem o zero... tem manual ?
  24. Não entendi nada, vc estava sentando o valor com mais de 2 decimais? Se sim, para que finalidade?
  25. você pode mudar isso no fr3 e mandar p/ incorporar... você pode mudar isso no fastreport em tempo de execucao também. ou pode fazer como eu, eu tenho meu próprio modelo, fiz meus fr3, mandei p/ cliente, e hoje, se preciso, edito no cliente, pois fica salvo no banco de dados dele...
×
×
  • 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.