Ir para conteúdo
  • Cadastre-se

Antonio Gomes

Membros
  • Total de ítens

    898
  • 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. depois de quase um ano, a impressora ainda não chegou, todos que foram, receberam ?
  12. do manual .
  13. 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.
  14. 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.
  15. 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
  16. 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...
  17. Como se fosse uma marca d´agua ? Os bancos, (chatos) permitem isso ?
  18. 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.
  19. 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...
  20. 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...
  21. complementando: pelo manual, é digito da conta, olha a capa da planilha que a cooperativa envia.
  22. 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 ?
  23. Não entendi nada, vc estava sentando o valor com mais de 2 decimais? Se sim, para que finalidade?
  24. 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...
  25. Seu campo é ponto flutuante com N dizimas? Em modo debug ele nao fica assim: 1978,546666666667 ?
×
×
  • 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.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...