Clipper On Line • Ver Tópico - Validar Inscrição Estadual BA

Validar Inscrição Estadual BA

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Validar Inscrição Estadual BA

Mensagempor JoséQuintas » 11 Dez 2017 23:17

A doideira é mais doida ainda.... rs
O cálculo velho é diferente do cálculo novo mas..... bateu

E pra ficar mais doido isso.... parece que não foi coincidência....


#include "inkey.ch"

PROCEDURE Main

   LOCAL nCont

   SetMode(25,80)
   CLS
   FOR nCont = 100 TO 100000000
      IF ValidIe( StrZero( nCont, 8 ) ) != ValidIE( StrZero( nCont, 9 ) )
         ? nCont
      ENDIF
      IF Inkey() == K_ESC
         EXIT
      ENDIF
      IF Mod( nCont, 100000 ) == 0
         ? "alcancou " + Str( nCont, 10, 0 )
      ENDIF
   NEXT

   RETURN


É calcular o dígito usando a rotina velha e a rotina nova, pra ver se dá diferença....

Na rotina velha, a multiplicação é por 1,2,3,4,5,6,7
Na rotina nova, a multiplicação é por 8,7,6,5,4,3,2, de trás pra frente iniciando no 2

por enquanto o resultado é o mesmo, e já chegou em 30.000.000

Deixar aqui rodando e vou jantar....
Mas ao que parece, vai ficar resolvido usando somente o cálculo novo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Validar Inscrição Estadual BA

Mensagempor JoséQuintas » 11 Dez 2017 23:21

O detalhe é que não estava verificando nada, porque não indiquei UF..... rs

#include "inkey.ch"

PROCEDURE Main

   LOCAL nCont

   FOR nCont = 10 TO 100000000
      IF ValidIe( StrZero( nCont, 8 ), "BA" ) != ValidIE( StrZero( nCont, 9 ), "BA" )
         ? nCont
      ENDIF
      IF Inkey() == K_ESC
         EXIT
      ENDIF
      IF Mod( nCont, 1000000 ) == 0
         ? "alcancou " + Str( nCont, 10, 0 )
      ENDIF
   NEXT

   RETURN


Agora sim, cálculo da BA, vai demorar bem mais..... rs
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Validar Inscrição Estadual BA

Mensagempor janio » 11 Dez 2017 23:34

Ha alguns dias atras quando fui ajustar minha rotina para o novo calculo da Bahia, o cliente me passou a IE 127.128.225. Ajustei, passou.

Hj outro cliente reclamou que nao estava validando a IE 74147046. Achei que estivesse errado, mas consultando o sintegra vi que foi acrescentado um 0 (zero) antes, mas mesmo assim a função não estava validando.

Então que percebi q a função ajustada pelo Toledo estava pegando o primeiro dígito para verificar a ocorrencia de 6, 7 ou 9, quando na realidade deve ser verificado o segundo dígito. Batata!
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Validar Inscrição Estadual BA

Mensagempor JoséQuintas » 12 Dez 2017 13:18

A dúvida agora é se a Sefaz vai aceitar 9 dígitos mesmo pras de 8.... rs

Putz... e como testei de uma em uma... não chegou a pegar com dígito diferente, que entra no segundo cálculo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Validar Inscrição Estadual BA

Mensagempor janio » 12 Dez 2017 14:04

A dúvida agora é se a Sefaz vai aceitar 9 dígitos mesmo pras de 8.... rs


Sim, as antigas foi acrescentado um ZERO no inicio
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Anterior



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] e 12 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro