Clipper On Line • Ver Tópico - Tabela relacionada de ncms extintos em 31/03/2017

Tabela relacionada de ncms extintos em 31/03/2017

Discussão sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (ECF, TEF, SINTEGRA, NF-e, ECD, EFD, etc.)

Moderador: Moderadores

 

Tabela relacionada de ncms extintos em 31/03/2017

Mensagempor rubens » 09 Abr 2017 09:58

Bom dia...

Alguém tem uma tabela relacionando os ncms extintos agora em 31/03 com ncms válidos?
Tipo
NCM antigo -> NCM (novo/válido)

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Tabela relacionada de ncms extintos em 31/03/2017

Mensagempor fladimir » 09 Abr 2017 11:50

usa a função do ACBr pra baixar os válidos atuais e compara com a tua...

NCM.BaixarLista
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Tabela relacionada de ncms extintos em 31/03/2017

Mensagempor rubens » 09 Abr 2017 17:28

Não é bem esse o problema Fladimir...

O negócio é que deu mais de 06 páginas de ncms extintos.. Dai isso no cliente tá sendo um atropelo... Eu tenho a tabela de ncms válidos... o negócio é que os caras querem tudo de mão beijada... e na realidade se tivesse um jeito de facilitar isso eu faria... seria um diferencial... enquanto outros sistemas tem que fazer na unha ou esperar uma nova comprar par corrigir o meu sistema "trocaria" todos os ncms extintos... mas acho que não vou encontra isso pronto não... o jeito é ou zerar os produtos com ncms extintos e imprimir uma listagem para o cliente corrigir, ou deixar ele corrigir conforme vai aparecendo os erros na hora de enviar nfe ou nfce...

Obrigado
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Tabela relacionada de ncms extintos em 31/03/2017

Mensagempor JoséQuintas » 09 Abr 2017 18:04

usa a função do ACBr pra baixar os válidos atuais e compara com a tua...


ncm.png


/*
--------------------------------------------------
PEDI0300 - Importa NCM 2017 Fazenda
2017.04.07 - José Quintas
--------------------------------------------------

201.04.07.2200 - Criação
--------------------------------------------------
*/

#include "jpa.ch"

PROCEDURE PEDI0300

   LOCAL acFiles, cFileExcel, cSheetName, nQtd, nQtdTotal, cNcm, dValIni, dValAte, cnExcel, cSql := "", lBegin := .F.
   LOCAL cnMySql := ADOClass():New( AppcnMySqlSite() )

   acFiles := Directory( "IMPORTA\*.xls" )

   IF Len( acFiles ) == 0
      MsgStop( "Planilha Tabela NCM não encontrada na pasta IMPORTA\" )
      RETURN
   ENDIF

   cFileExcel := hb_cwd() + "IMPORTA\" + acFiles[ 1, 1 ]
   SayScroll( cFileExcel )

   IF ! Mensagem( "Confirma processo?", "S,N" ) == "S"
      RETURN
   ENDIF

   SayScroll( "Importando dados" )

   cnMySql:Open()
   cnMySql:ExecuteCmd( JPPRONCMCreateMySql() )
   cnMySql:ExecuteCmd( "TRUNCATE TABLE JPPRONCM" )

   cnExcel := ADOClass():New( ExcelConnection( cFileExcel ) )
   cnExcel:Open()

   cSheetName := "[NCM_2012-2017 x uTrib$]"

   cnExcel:cSql := "SELECT COUNT(*) AS QTD FROM " + cSheetName
   nQtdTotal := cnExcel:ReturnValueAndClose( "QTD" )

   cnExcel:cSql := "SELECT * FROM " + cSheetName
   cnExcel:Execute()

   nQtd := 0
   cnExcel:MoveFirst()
   cnExcel:MoveNext() // pula titulo
   GrafTempo( "Importando NCM" )
   cnMySql:Execute( "INSERT INTO JPPRONCM ( PNCODIGO, PNVALDE, PNVALATE ) VALUES ( '00000000', '2000-01-01', NULL )" )
   DO WHILE ! cnExcel:Eof()
      GrafTempo( nQtd, nQtdTotal )
      nQtd    += 1
      cNcm    := cnExcel:StringSql( 0 )
      dValIni := Ctod( cnExcel:StringSql( 1 ) )
      dValAte := Ctod( cnExcel:StringSql( 2 ) )
      IF Val( cNcm ) > 0
         cNcm := StrZero( Val( cNcm ), 8 )
         IF Len( cSql ) == 0
            cSql := "INSERT IGNORE INTO JPPRONCM ( PNCODIGO, PNVALDE, PNVALATE ) VALUES "
            lBegin := .T.
         ENDIF
         IF ! lBegin
            cSql += ", "
         ENDIF
         lBegin := .F.
         cSql += "( " + ;
            StringSql( cNcm ) + ", " + ;
            DateSql( dValIni ) + ", " + ;
            DateSql( dValAte ) + " )"
         IF Len( cSql ) > MYSQL_MAX_CMDINSERT
            cnMySql:ExecuteCmd( cSql )
            cSql := ""
            lBegin := .T.
         ENDIF
      ENDIF
      cnExcel:MoveNext()
   ENDDO
   cnExcel:CloseConnection()
   IF Len( cSql ) > 0
      cnMySql:ExecuteCmd( cSql )
   ENDIF
   cnMySql:CloseConnection()
   MsgExclamation( "Fim da importação! Verificados " + LTrim( Str( nQtd ) ) + " NCMs" )

   RETURN


Nota:
Nenhum cliente reclamou até agora, então não tinha feito nada antes sobre isso..... rs
Nesse caso é direto do Excel para o MySql do meu site.
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: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Tabela relacionada de ncms extintos em 31/03/2017

Mensagempor fladimir » 10 Abr 2017 01:17

Não sei se entendi direito...

Até o momento não tive problemas de caos digamos assim.

O q tenho usado é a rotina q baixa a tabela nova e tenho uma rotina q o cliente escolhe trocar NCM de para ai informa o NCM ou produto q ele quer q troque o NCM (pode ser um NCM inválido q deixou de existir) e escolhe na tabela atualizada para qual irá trocar, com isto troca todos, ou seja, no dia a dia encontrou NCM inválido ele pode informar e já trocar todos q tem no cadastro de produtos automaticamente por outro valido, ai facilita a correção.

Tb tenho faço o seguinte, faz uma checagem no cadastro de produtos, filtrando todos os NCMs q não são mais válidos ai o cliente vai e informa para qual vai trocar (conforme acima) e pronto ele consegue arrumar facilmente sem muito trabalho.

Pq por mais q tenham por exemplo 1000 NCMs extintos suponhamos, como é por segmento, as vezes um determinado ramo tem uns 150 q por sua vez na base do cliente tem 100 q filtrando (comparando com os validos saberemos quais são inválidos) depois fazendo o cliente escolher DE -> Para tipo NCM 1993.23.42 (nem sei se tem) para 5034.42.33... trocar todos? Sim pronto akele já foi geral, e assim por diante.

Assim não resolveria?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Tabela relacionada de ncms extintos em 31/03/2017

Mensagempor rubens » 10 Abr 2017 08:31

Bom dia...

Vou fazer isso mesmo... tinha pensado nisso mas como bom brasileiro... esperava a solução mais fácil.. kkkkk

Quintas esta tabela já tenho em excel...
Já importei para o sistema.

Eu recebo um e-mail quando ocorre um erro com o envio de nfce. MAs tem usuário que judia muito... cheguei a receber 15 emails de erro com a tentativa de envio de nfce e fui ver o cliente tentando enviar a mesma nfce, sem corrigir o ncm... liguei para ele e disse que não sabia... tá bem claro na mensagem de erro que é exibida na tela...

Obrigado...

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes




Retornar para Legislação Fiscal e Tributária

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 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