Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'acbrvalidador'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • Duvidas Privadas
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
    • ACBrLib Android - Pro
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras
    • ACBrLib Android - Demo

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 8 registros

  1. Prezados, Não estou conseguindo usar: ACBrValidador1.FormatarMascaraDinamica(). Lazarus 2.0.12 - FPC 3.2.0 devolve o seguinte erro: Error: identifier idents no member "FormatarMascaraDinamica".
  2. Bom dia, Estou usando o ACBrValidador para CPF, CNPJ e Insc Estadual. Para CPF e CNPJ funcionou perfeitamente, mas para inscricao estadual nao. Rejeita uma inscricao valida: 635112938112. O codigo que estou usando para validar segue abaixo: // Valida inscricao estadual acbrvalidador1.TipoDocto:=docInscEst; ACBrValidador1.documento := dm.CDSCliINSCEST.AsString; if not ACBrValidador1.Validar then begin showmessage('Inscricao Estadual invalida'); exit; end; Obrigado
  3. Em testes com o ACBrValidador foi constatado que está passando o e-mail com esta formatação "marcelo @teste.br" não está testando se tem um espaço entre os caracteres da string. Baseado nisso fiz uma alteração na unit ACBrValidador.pas, segue a mesma para análise. linha alterada 831, adicionado espaço na lista de caracteres inválidos: ACBrValidador.pas
  4. Prezados, Ao testar a validação do IE para todos os Estados, fazendo uso de um Gerador de IE, para os estados CE, PI e TO apresentou erro informando que o dígito estava incorreto.Ao acessar o site do Sintegra e efetuar a validação manualmente, foi confirmado que os IE estavam corretos. Segue abaixo, os IE's utilizados e o cálculo realizado. Ceara (http://www.sintegra.gov.br/Cad_Estados/cad_CE.html) IE : 93102768-3 Peso: 98765432 (9*9) + (8*3) + (7*1) +(6*0)+ (5*2) + (4*7) + (3*6) + (2*8) = 184 resto: 184 / 11 = 8 11-8 = 3 Piaui ( http://www.sintegra.gov.br/Cad_Estados/cad_PI.html ) IE : 12031409-6 Peso: 98765432 (9*1) + (8*2) + (7*0) +(6*3)+ (5*1) + (4*4) + (3*0) + (2*9) = 82 Resto: 82/11 = 5 11 - 5 = 6 Tocantins ( http://www.sintegra.gov.br/Cad_Estados/cad_TO.html ) IE :2803936475-2 Peso: 98--765432 (9*2) + (8*8) + (7*9) +(6*3)+ (5*6) + (4*4) + (3*7) + (2*5) = 240 Resto: 240/11 = 9 9 > 2, logo 11 - 9 = 2 Em anexo, segue a correção que foi aplicada para que seja validada. ACBrValidador.zip
  5. Senhores, Estou tentando validar a Inscrição Estadual 9999999-40 (CNPJ 10.572.014/0001-33) do SEFAZ de PE, porém quando é feita a validação usando o método ValidarIE(no AcbrValidador.pas) ocorre um erro de validação do digito verificador.
  6. Olá; Estou tentando utilizar o ACBrValidador mas de qualquer forma que eu faça sempre a validação se dá como Válida, mesmo com valores errados. No exemplo tbem acontece a mesma coisa.
  7. Olá; Estou tentando utilizar o ACBrValidador mas de qualquer forma que eu faça sempre a validação se dá como Válida, mesmo com valores errados. No exemplo tbem acontece a mesma coisa.
  8. Conforme solicitação do Sr. Henrique Leonardo @hleorj, estou criando um novo post referente a melhoria e alterações no método "FormarCEP" sobre post 1 e post 2, onde solicitei para alterar o método para preencher com zeros a direito ao invés de zeros a esquerda. Em meus clientes ocorre o seguinte: como a maioria das pequenas cidades possui apenas 1 CEP e nos casos em que os 3 últimos dígitos é "000", eles estavam acostumados a digitar por exemplo "89140" e o método FormatarCEP formatava para "89140-000". Quando migrei os fontes para o trunk2, este método passou a formatar os zeros a esquerda, ficando "00089-140". Em Dezembro de 2015 solicitei a alteração e o @Daniel Simoes alterou para formatar os zeros a direita, conforme post 1. Porém, essa semana atualizei os fontes e novamente foi alterado para formatar zeros a esquerda, por causa da impressão do DANF-e da NF-e que trata o campo CEP como integer e ocorria problemas com CEPs iniciados com zero, conforme post 2. Sugestão 1) Para tentar contribuir sem comprometer outras funcionalidades, sugeri a principio uma alteração na unit "ACBrValidador.pas", onde existem 2 métodos "FormtarCEP": o primeiro recebe um parâmetro string e o segundo um parâmetro integer. No método que recebe o parâmetro string, sugeri para formatar zeros a direita e no outro método que recebe o parâmetro como integer, formatar zeros a esquerda. Dessa forma não acontece o erro do post 2, porém, ao implementar um teste ( TDD ) que atenda a minha necessidade, a execução falhou no teste "FormatarMenosDeOitoDigitos". Os métodos "FormtarCEP" da unit "ACBrValidador.pas" ficariam da seguinte forma: function FormatarCEP(const AValue: String): String; Var S : String ; begin S := PadRight( OnlyNumber(AValue), 8, '0') ; { Prenche zeros a direita } Result := copy(S,1,5) + '-' + copy(S,6,3) ; end; function FormatarCEP(const AValue: Integer): String; Var S : String ; begin S := PadLeft( OnlyNumber(IntToStr(AValue)), 8, '0') ; { Prenche zeros a esquerda } Result := copy(S,1,5) + '-' + copy(S,6,3) ; end; Sugestão 2) Uma outra sugestão, seria criar um parâmetro no método "FormatarCEP" da unit "ACBrValidador.pas" para forçar o preenchimento dos zeros a direita, mas que por padrão, caso o parâmetro não seja informado, o valor seja False. A alteração ficaria da seguinte forma: function FormatarCEP(const AValue: String; PreencheZerosADireita: boolean = False): String; Var S : String ; begin if PreencheZerosADireita then S := PadRight( OnlyNumber(AValue), 8, '0') { Prenche zeros a direita } else S := PadLeft( OnlyNumber(AValue), 8, '0') ; { Prenche zeros a esquerda } Result := copy(S,1,5) + '-' + copy(S,6,3) ; end; e o teste na unit "ACBrValidadorTest.pas" ficaria assim: procedure TTestCaseACBrValidadorCEP.FormatarString; var ACep: String; begin ACep := '89140'; CheckEquals('89140-000', ACBrValidador.FormatarCEP(ACep, True)); end; Dessa forma, atenderia todos os testes (incluindo o teste que implementei). Segue em anexo os arquivos referente a segunda sugestão de alteração. ACBrValidador.pas acbrvalidadortest.pas
×
×
  • 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.