Ir para conteúdo
  • Cadastre-se

denerbuzato

Membros
  • Total de ítens

    152
  • Registro em

  • Última visita

  • Days Won

    4

Tudo que denerbuzato postou

  1. Acho que seria melhor então você se basear no manual do banco, para que possa ajustar seus fontes. Neste tópico tem o manual em anexo.
  2. Bom dia, Seus fontes estão atualizados?
  3. Bom dia Juliana, Atualizado, testado e tudo ok! Muito obrigado!
  4. Boa tarde, Dá uma olhada neste tópico que tem a resposta de como resolver este problema Basta informar uma impressora no componente.
  5. Prezados, Foram feitas as seguintes correções na unit "ACBrBancoBanestes" Function CalcularCampoASBACE Manual na pagina 27 item 8.2.1 mostra a composição da chave ASBACE Notem que a conta é composta de 11 números e não possui digito de conta Antes: cLivreAsbace := copy(ACBrTitulo.NossoNumero,1,8) + copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 1, 10) + ACBrTitulo.ACBrBoleto.Cedente.ContaDigito + IfThen(ACBrtitulo.ACBrBoleto.Cedente.Modalidade = '', '4', ACBrtitulo.ACBrBoleto.Cedente.Modalidade) + IntToStrZero(fpNumero,3); Depois: cLivreAsbace := copy(ACBrTitulo.NossoNumero,1,8) + copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 1, 11) + IfThen(ACBrtitulo.ACBrBoleto.Cedente.Modalidade = '', '4', ACBrtitulo.ACBrBoleto.Cedente.Modalidade) + IntToStrZero(fpNumero,3); Procedure GerarRegistroHeader400 Como mencionado a conta é composta de 11 números e não possui digito de conta, conforme manual na pagina 07 item 5.1.1 mostra a identificação da empresa (conta corrente) Antes: PadLeft(OnlyNumber(Copy(Trim(Conta),1,10)+contadigito), 11,'0')+ // Codigo da Empresa no Banco Depois: PadLeft(OnlyNumber(Copy(Trim(Conta),1,11)), 11,'0')+ // Codigo da Empresa no Banco Segue unit em anexo para avaliação. ACBrBancoBanestes.pas
  6. Bom dia Juliana, Atualizado, testado e tudo ok! Muito obrigado!
  7. Bom dia Juliana, Atualizado, testado e tudo ok! Muito obrigado!
  8. Prezados, Corrigido a procedure “LerRetorno400” da unit “ACBrBancoBancoob” onde a leitura dos dados do cedente estava sendo feita do registro “header” e o correto é do registro “detalhe”. Quem usar o LeCedenteRetorno = True e necessitar calcular o digito do nosso numero no retorno, ocorre o erro “'Ç' is not a valid integer value” na function “CalcularDigitoVerificador”, pois na posição 18 do “header” está “ÇA “ que faz parte da palavra COBRANÇA. Antes: if LeCedenteRetorno then begin Cedente.Nome := rCedente; Cedente.CNPJCPF := rCNPJCPF; Cedente.Agencia := trim(copy(ARetorno[0], 18, 4)); Cedente.AgenciaDigito := trim(copy(ARetorno[0], 22, 1)); Cedente.Conta := trim(copy(ARetorno[0], 23, 8)); Cedente.ContaDigito := trim(copy(ARetorno[0], 31, 1)); Depois: if LeCedenteRetorno then begin Cedente.Nome := rCedente; Cedente.CNPJCPF := rCNPJCPF; Cedente.Agencia := trim(copy(ARetorno[1], 18, 4)); Cedente.AgenciaDigito := trim(copy(ARetorno[1], 22, 1)); Cedente.Conta := trim(copy(ARetorno[1], 23, 8)); Cedente.ContaDigito := trim(copy(ARetorno[1], 31, 1)); ACBrBancoBancoob.pas
  9. Bom dia, Fiz uma alteração na unit "ACBrBancoHSBC.pas" para contemplar a multa no arquivo remessa de acordo com o código de instrução utilizado. Resumo do que foi implementado: Na procedure "GerarRegistroTransacao400" foi criado uma variável "AbatimentoMulta" do tipo string que terá por finalidade armazenar o conteúdo do campo de posição 206 a 218. Incluso comparações do tipo de ocorrência e instrução para identificar como será composto a variável "AbatimentoMulta", pois neste momento ela será alimentada já formatada para ser usada na geração. Exemplo: Visto que a posição 206 a 218 pode armazenar conteúdos de várias maneiras, essa variável já está sendo formatada da maneira que precisa de acordo com a instrução. Já no local aonde usava a " ValorAbatimento" que vinha apenas com o valor do abatimento foi alterado para " AbatimentoMulta" que já está vindo com o valor do abatimento ou a multa de acordo com a instrução. Antes: IntToStrZero( round(ValorAbatimento * 100), 13) + // Depois: AbatimentoMulta + // valor do abatimento / multa Exemplo de uso: Instrucao1 := 15; PercentualMulta := 2; Resultado: Obs.: Fiz testes com o suporte do banco HSBC o qual informou que o arquivo remessa está correto com as informações da multa. Segue unit em anexo para avaliação. ACBrBancoHSBC.pas
  10. Boa tarde, Aonde você viu essa informação que lhe levou a ter este entendimento? Além de não ter visto essa informação no manual do banco Banestes, quando homologuei o banco não questionou mascara na conta.
  11. Boa tarde, Dá uma olhada neste tópico, deve responder sua pergunta.
  12. Prezados, Estou implementando o valor de multa para cobrança do HSBC, porém, segundo o manual do banco na pagina 12 as posições 206 a 218 são destinadas para “Valor do Abatimento” e “Multa”, ou seja, vai depender da instrução usada. A partir da pagina 21 tem notas explicativas de como usar cada uma. O problema é que ao usar a variável “ValorAbatimento” a impressão no boleto sai a mensagem desse abatimento, sendo que neste caso não existe abatimento e sim a multa. Isso por que no “ACBrBoleto” na “AdicionarMensagensPadroes” verifica se tem valor e imprime. Sendo assim o boleto sai errado e a remessa sai correta, pois usando a instrução “24 - Multa de R$ _____após o vencimento”, passando o valor da multa para o a variável “ValorAbatimento” a remessa gera correta. Para não mexer o “ACBrBoleto” sugiro usarmos a variável “PercentualMulta” e no “ACBrBancoHSBC” fazer o tratamento dela, como por exemplo: Se as instruções forem para multa usar a variável “PercentualMulta” senão usar “ValorAbatimento”. O que vocês acham? Alguém tem alguma sugestão? Pensei nisso visto que a variável multa já e tratada na mensagem do “ACBrBoleto”, ou seja a impressão do boleto sairá correta, porém, essa variável não é usada no “ACBrBancoHSBC”. Obs.: Caso alguém esteja imprimindo os boletos com a multa e gerando a remessa com ela sem problemas no HSBC, favor me informar como estão usando.
  13. Bom dia! No site da prefeitura tem o manual e outras documentações http://nfse.vitoria.es.gov.br/doc/documentacao.cfm
  14. Bom dia! Conforme foi publicado, o CEST foi adiado.
  15. Bom dia, O ideal é seguir o que o manual diz, por exemplo, referente ao boleto, no manual do Bradesco na pag 32 explica sobre agência / código do beneficiário. Que deverá ser preenchido com a agência com 4(quatro caracteres) - digito da agência / Conta de Cobrança com 7(sete) caracteres - Digito da Conta. Ex. 9999-D/9999999-D Já referente ao arquivo remessa, no caso CNAB400 na pag 10 fala das posições 021 a 037 (Identificação da Empresa Beneficiária no Banco) - Zero, Carteira, Agência e Conta - Corrente. Fazendo também referencia a pag 17 que explica o tamanho de cada um destes campos. Conversa com ela com base no manual, com certeza ficará mais fácil tanto para você quanto para ela chegarem a um entendimento sobre o que deve fazer, se é que tem alguma coisa a fazer. Att.
  16. Eu fiz um teste aqui agora zerando os valores, e como os valores estavam zerados o componente não gerou as tags. Ocasionando o erro: Motivo: 694 - Rejeicao: Grupo de ICMS Interestadual para a UF de destino deve ser informado na operacao interestadual de venda a consumidor final [nItem:1]
  17. Esse modelo é homologado pelo banco? Não vi o código de barras
  18. Você tem razão Régys, em entrevista a um jornal local do estado, o subsecretário da Receita esclareceu algumas dúvidas e disse que o prazo para o projeto piloto vai até 31/05/2016. A entrevista completa pode ser vista no link http://g1.globo.com/espirito-santo/noticia/2016/02/governo-do-es-lanca-nota-fiscal-eletronica-para-reduzir-custos.html
  19. Bom dia! Sempre que ocorrer estes problemas de serviços, é bom da uma olhada nas disponibilidades dos serviços em: https://www.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY= Att
  20. O link que postou não abriu O XML que postou não localizei nada de COFINS ST O erro que post refere-se a tag do XML. Passe ele em um validador para ver se te ajuda a localizar onde está o erro.
  21. Realmente Elton tem alguns tópicos sobre migração, porém, como temos a previsão do fim do suporte do ACBr em agosto, acredito que muitos desenvolvedores estarão empenhados neste trabalho de migrar. Um tópico especifico neste momento seria de ajuda para concentrarmos essas informações nele, ao invés de um falar sobre migração de 7 para 2010, já outro fala do X2, tem do X3... e por ai vai. O empenho que o pessoal irá fazer até agosto irá demandar muita informação, sendo assim, o ideal seria concentrar essas muitas informações em um lugar especifico.
  22. Bom dia! Poderia nos informar exatamente qual a mensagem de erro? Talvez alguma NT tenha referencia sobre isso e ficará mais fácil saber como proceder.
  23. Excelente iniciativa Carlos, Esse novo tópico apesar de não ser tratado assunto do ACBr, mas sim de outros componentes que o pessoal usa no Delphi7, será de grande ajuda para aqueles que não estão de acordo com a migração por estarem presos a componentes do Delphi7 e talvez não encontrarem uma solução compatível com uma versão mais atual do Delphi. Talvez neste tópico seja sinalizado o componente do Delphi7, para que ele serve e um equivalente ao Delphi mais atual. Espero que criem esse tópico.
  24. Bom dia Mateus, Fiz um teste e não ocorreu o problema citado. Pesquisei esse assunto em outro tópico No passado houve esse problema, porém já foi solucionado. Aconselho você atualizar seu fortes
  25. Ocorre alguma mensagem de erro? Nos informe como vc está passando os parâmetros
×
×
  • 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...