Inscrição Estadual.

[Marcos]

Saudações a todos,
Estou com um problema que não sei c é possivel solução, se alguém já
passou por situação semelhante, me ajude relatando como resolveu por
gentileza.
Preciso de checar uma Inscrição Estadual Online no site do Sintegra do
meu estado, queria fazer isto de dentro do meu programa, e ter o
retorno das mensagens reportada pelo Sintegra, de acordo com a
condição, ou seja, a Inscrição digitada, o que está acontecendo é o
seguinte: No segmento de Venda de Produtos Veterinário o cliente que
possui Inscrição Estadual é isento do ICMS, mas acontece que muitos
Clientes como todo Brasileiro passa Inscrição errada só para ter o
beneficio da Isenção do ICMS, assim a Firma fica com a despesa do ICMS,
sendo que o cliente é que tem que pagar quando ele não é contribuinte
do ICMS, ou seja, quando não é Produtor Rural. Diante disto teria que
testar a inscrição estadual em vários pontos como: Inscrição Correta,
Inscrição Já Baixada, Inscrição Não Pertence a este Cpf etc.
Agradeço se alguém tiver uma solução pra mim!
Abraços,
Marcos.

[Marcos]

Graças a sugestão de um membro do fórum Minigui vejo uma luz, consegui baixar no site Sefaz do meu estado um arquivo TXT com todos os contribuintes e suas respectivas Inscrições Estaduais, acontece que nunca mexi com Layout, na pagina junto com o arquivo que baixei tém algumas instruções que seguem:

Layout do arquivo:
CNPJ: 14 posições
Inscrição Estadual: 11 posições
Situação: 01 posição( 0 ou 1 ) ==> 0 - NÃO HABILITADO; 1 - HABILITADO
Data desta situação:
08 posições ==> AAAAMMDD
UF: 02 posições ==> MT
Exemplo: 0123457800010000130000012020001107MT

O arquivo que baixei está em TXT é muito grande mas começa assim:

1535013500015400130039349019890414MT
1535297400010100130039993020031128MT
1535116600012000130040045020030702MT
1507865200046900130004685020030904MT
0348280900019500130004880019911211MT

Assim, gostaria da ajuda de vocês para saber como faço para chegar de dentro do meu sistema esses dados?
Abraços, e fico no aguardo, estou realmente precisando!
Abraços,
Marcos.

[And]

Abra o arquivo com fopen() leia o arquivo com fread() jogando o resultado em uma variavel e depois use substr() para fazer a leitura dos dados podendo inclusive grava-los em um arquivo .DBF depois feche o arquivo com fclose()

Exemplo:

0123457800010000130000012020001107MT

Substr(var,1,14) // Resulta 01234578000100 ou seja CNPJ: 01.234.578/0001-00

* Bom pelo menos é assim que faço

Ps: Você também pode importar o arquivo txt para o excel e separalo por tabulação e depois salvar com Dbase III (.DBF)


Abraço,

[DORNELES]

Você tambem pode criar um arquivo DBF com os campo
CNPJ := C(14)
INSCRICAO := C(11)
SITUACAO := C(01)
DATA := C(08)
UF := C(02)

Abre o arquivo que você criou pelo DBU e pressione F6-UTILITY / APPEND
na opcao SDF de um enter, vai aparece todos os arquivos txt, ai é só localizar o seu SINT.TXT e pressione enter.

OK
você poderia postar o link onde consegui o arquivo ou mandar uma copia dele.

[DORNELES]

se você quiser tenho uma rotina em clipper que faz a validação da I.E. por UF.
Na seção download tb tem.

OK

[Marcos]

Obrigado ao And e ao Dorneles pelas ajudas, eu acredito que terei que usar a primeira opção do And, porque o arquivo ele é atualizado diariamente, assim eu chego pela manhã e baixo o arquivo atualizado, e pronto resolvido, o resto a rotina de Leitura do arquivo faz, a propósito And, vc não teria um exemplo de como devo fazer para proceder a leitura e comparação dos dados e o retorno ao Operador?
Agradeço a ajuda.
O link que consegui o arquivo é o seguinte: http://www.sefaz.mt.gov.br
na seção Downloads e Cadastro Resumido de Contribuintes.
Abraços,
Marcos.

[And]

Vou baixar o arquivo e ver o que posso fazer, depois te retorno.






Abraço,

[Marcos]

Obrigado And.
No aguardo...

[And]

Mandei um exemplo utilizando __DBSDF(), tá na conta.



Ps: Depois vê se manda uma garrafa de FRISS aqui p/ São Paulo como forma de pagamento. )



Abraço,

[Marcos]

Bom dia Anderson,
Já recebi a rotina e testei, e me serviu como uma luva, eu tentei entender ela, achei ela meio complexa, agora tenho alguma dúvidas:
- Preciso validar também se uma determinada Inscrição realmente é do seu dono, ou seja, se a Inscrição X é do Cpf X;
- Eu não posso abrir o Arquivo Cadastro.txt no inicio do programa? Porque é muito pesado, e demora muito;
- Vou mudar para índices NSX, tém algum problema?

Abraços, e obrigado pela ajuda.
Marcos.

[And]

Quanto a validação é só incluir mais um GET p/ o CNPJ (não tem campo CPF no arquivo txt) e pedir para a função INS_VLD() verificar se o CNPJ confere com o cadastrado e caso bata retorne .T. do contrario retorne .F.

A demora p/ abrir é causada porque o exemplo faz a importação dos dados do TXT na entrada, mas uma vez importado é só alterar p/ que ele apenas faça a verificação.

Nunca usei indices NSX mas se sabe como fazer com certeza funcionará melhor que com indices NTX.


Ps: Caso precise de ajuda com a validação avise que mudo o exemplo e envio


Abraço,

[Marcos]

Olá a Todos,
Não retornei devido a correria, estou usando a Checagem como o Anderson me passou, está funcionando uma beleza, agora só falta validar o Cpf vinculado a Inscrição, istou vou trabalhar depois, está muito corrido aqui, devido a Campanha de Febre Aftosa.
Abraços, e obrigado a todos mas especificamente ao Anderson.
Marcos.

[And]

Se precisar de algo mais é dizer.


:xau



Abraço,