Clipper On Line • Ver Tópico - Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

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

 

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Araújo » 06 Mar 2018 16:26

Prezados,
Sou um "clippeiro" das antigas, mas ainda possuo um velho sistema em Clipper, compilado em Harbour. Sofri bastante para fazê-lo gerar o xml da NF-e 3.10 (quando passou a ser obrigatório), mas consegui graças as orientações que obtive aqui neste fórum e utilizando o emissor gratuito do sefaz-sp. Agora estou novamente envolvido com NF-e. Desta vez para fazer as mudanças em atendimento a NF-e 4.0. Estudei as alterações necessárias, promovi os ajustes na geração do arquivo xml e baixei a versão de teste no site do sebrae-sp. Importo o arquivo no emissor, realizo os passos seguintes: validar, assinar e transmitir, mas o retorno do sefaz sempre dar a mesma rejeição: “584- tpEmis informado é incompatível com a SVC-RS”. O estranho é que não estou gerando o arquivo em contingência para ele apresentar SVC-RS na mensagem de rejeição. Já submeti o xml ao site de validação do sefaz-RS e a única crítica que aparece é com relação a assinatura, porém esta assinatura é a do próprio validador. Alguém poderia me ajudar a entender melhor essa crítica?

Agradeço antecipadamente qualquer orientação.
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor JoséQuintas » 06 Mar 2018 17:43

SVC_RS seria o serviço de contingência do RS.
Então é verificar se a indicação está normal ou contingência, esse tpEmis
Se estiver tudo ok, então provavelmente é bug no emissor.
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: 18012
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Araújo » 06 Mar 2018 18:52

JoséQuintas escreveu:SVC_RS seria o serviço de contingência do RS.
Então é verificar se a indicação está normal ou contingência, esse tpEmis
Se estiver tudo ok, então provavelmente é bug no emissor.


Olá José Quintas,.. sim, a emissão é normal, não foi solicitado no modo de contingência!...

Detalhe do tipo de nota no grid:
Imagem

Mensagem de rejeição:
Imagem
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor JoséQuintas » 07 Mar 2018 11:48

Então só resta entrar em contato com o SEBRAE.

E pra prosseguir os testes, fazer como contingência mesmo, assim não vai ficar parado.
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: 18012
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Araújo » 07 Mar 2018 19:47

Quintas, obrigado pelo retorno!

JoséQuintas escreveu:Então só resta entrar em contato com o SEBRAE.

Reportei o problema para o suporte deles... enviei um print com os passos realizados... solicitaram o arquivo xml para análise!... Estou aguardando resposta.

JoséQuintas escreveu:E pra prosseguir os testes, fazer como contingência mesmo, assim não vai ficar parado.

Mesmo gerando em contingência apresenta a mesma mensagem de rejeição!...

Grato pela atenção.
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Kapiaba » 14 Mar 2018 11:49

olá, veja se ajuda:

   IF lGeraFormSeguranca

      cFormaEmis="5"   // 2=FS  5=FS-DA

   ELSE

      IF lNfeScan // MODO SCAN/SVC-AN

         cBackupDiario := OemToAnsi( "         NOTA FISCAL EM MODO DE CONTINGÒNCIA: SVC-AN SEFAZ VIRTUAL AMBIENTE NACIONAL          " )

         oSayBackup:VARPUT( cBackupDiario )
         oSayBackup:Refresh()

         MsgWait( "GERANDO A NOTA EM MODO SVC-AN SEFAZ VIRTUAL AMBIENTE NACIONAL", ;
                  "GERANDO A NOTA EM MODO SVC-AN SEFAZ VIRTUAL AMBIENTE NACIONAL", 3.5 )

         IF CADPARAM->UF="CE" // ESTADO SEFAZ/RS

            cFormaEmis="7"   // 1=normal  2=off line  3=Scan 6 SVC-AN  7=SVC-RS

         ELSE

            cFormaEmis="6"   // 1=normal  2=off line  3=Scan 6 SVC-AN  7=SVC-RS

         ENDIF

      ELSE

         cFormaEmis="1"   // 1=normal  2=off line  3=Scan

      ENDIF

   ENDIF
   
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Kapiaba » 14 Mar 2018 11:55

Ou, informe ao XML o tipo da emissão:

function Validatpemis( xtipo )

   if valtype( xTipo )=="C"

      if Upper( xTipo )=="1"
         return "1"
      elseif Upper( xTipo )=="2"
         return "2"
      elseif Upper( xTipo )=="3"
         return "3"
      elseif Upper( xTipo )=="4"
         return "4"
      elseif Upper( xTipo )=="6"
         return "6"
      elseif Upper( xTipo )=="7"
         return "7"
      else
         return "5"
      endif

   endif

   if xTipo>4
      return "5"
   elseif xTipo==1
      return "1"
   elseif xTipo==2
      return "2"
   elseif xTipo==3
      return "3"
   endif

return "4"


Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Araújo » 14 Mar 2018 20:44

Olá, Kapiaba!
Obrigado pela sugestão, mas a princípio não houve mudança no preenchimento desta tag!.. No meu caso, o código é bem simples:

Chamada da função Fxml_Ide()
//cTpEmis só um dos seguintes valores: 1 ou 7 

Fxml_Ide(@cXml,;
            '26',;                                // cUF       
         StrZero(Val(NFSAI->SEQ_PEDVDA),8),;   // cNF       
         CFOP->DESCRICAO,;                     // natOp     
         cIndPag,;                             // indPag   
         '55',;                                // mod       
         Alltrim(NFSAI->SERIE),;               // serie     
         Trim(Str(Val(NFSAI->NUMERO),6)),;     // nNF       
         NFSAI->EMISSAO,;                      // dhEmi     
         NFSAI->XML_HRGER,;                    // cTimeE   
         NFSAI->XML_DTGER,;                    // dhSaiEnt,;
         NFSAI->XML_HRGER,;                    // cTimeS,;
         '1',;                                 // tpNF     
         IF(FILI->UF = CLI->UF,'1','2') ,;     // idDest   
         cMunFG,;                              // cMunFG   
         '1',;                                 // tpImp     
         cTpEmis,;                             // tpEmis   
         Right(cChaveNFe,1),;                  // cDv       
         CTL->TPAMB_NFE,;                      // cAmbiente
         IF(NFSAI->NATOPER$'1,3,5','1','4'),;  // finNFe   
         cIndFinal,;                           // indFinal 
         '9',;                                 // indPres   
         '3',;                                 // procEmi: 
         '4.00_b002')                          // verProc: 



Corpo da função :
Static Function Fxml_Ide(pXml,cUF,cNF,natOp,indPag,mod,serie,nNF,dhEmi,cTimeE,dhSaiEnt,cTimeS,tpNF,idDest,cMunFG,tpImp,tpEmis,cDV,cAmbiente,finNFe,indFinal,indPres,procEmi,verProc)  
Local cDtCont:=CTL->DTCONT_NFE,;
      cHrCont:=CTL->HRCONT_NFE,;
     cJust:=CTL->MTCONT_NFE

pXml+='<ide>'  // Início da TAG (ide)
   pXml+=FxmlTag('cUF',      cUF)
   pXml+=FxmlTag('cNF',      cNF)
   pXml+=FxmlTag('natOp',    natOp)
    // pXml+=FxmlTag('indPag',   indPag)  // Na ver 4.0 este campo foi retirado.
   pXml+=FxmlTag('mod',      mod)
   pXml+=FxmlTag('serie',    serie)
   pXml+=FxmlTag('nNF',      nNF)
   pXml+=FxmlTag('dhEmi',    Transform( Dtos( dhEmi )  , "@R 9999-99-99" ) + "T" + cTimeE + "-03:00")
   pXml+=FxmlTag('dhSaiEnt', Transform( Dtos( dhSaiEnt), "@R 9999-99-99" ) + "T" + cTimeS + "-03:00")
   pXml+=FxmlTag('tpNF',     tpNF)
   pXml+=FxmlTag('idDest',   idDest)
   pXml+=FxmlTag('cMunFG',   cMunFG)
   pXml+=FxmlTag('tpImp',    tpImp)
   pXml+=FxmlTag('tpEmis',   tpEmis)
   pXml+=FxmlTag('cDV',      cDV)
   pXml+=FxmlTag('tpAmb',    cAmbiente)
   pXml+=FxmlTag('finNFe',   finNFe)
   pXml+=FxmlTag('indFinal', indFinal)
   pXml+=FxmlTag('indPres',  indPres)
   pXml+=FxmlTag('procEmi',  procEmi)
   pXml+=FxmlTag('verProc',  verProc)
   If tpEmis="7"
      pXml+=FxmlTag('dhCont',  Transform( Dtos( cDtCont )  , "@R 9999-99-99" ) + "T" + cHrCont + "-03:00")
      pXml+=FxmlTag('xJust',   FsanearDados(@cJust))
   Endif
   
    // BA. Documento Fiscal Referenciado
    If NFSAI->NATOPER='8'
      pXml+='<NFref>'
           pXml+=FxmlTag('refNFe', NFSAI->XML_NFREF)
       pXml+='</NFref>'
   Endif
   
pXml+='</ide>'
Return Nil


O arquivo é importado normalmente pelo emissor e depois executo os passos de: validar, assinar e transmitir!...
Além disso, submeti o arquivo xml ao validador do sefaz-RS, sendo a assinatura digital o único ponto de inconsistência identificado. O que é estranho, visto que foi assinado pelo emissor.
Já acionei o suporte do sebrae-sp, mas ainda não obtive retorno.

O que você sugere?!..

Obrigado pela ajuda.
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor JoséQuintas » 14 Mar 2018 21:40

Vamos por partes....

pernambuco.png


Primeira coisa: confirmar se está como normal ou contingência.
Antes e depois da importação.

No fonte que postou usa a variável cTpEmis, mas não se sabe seu conteúdo.

Se está ok, é o emissor que está mandando pra contingência, mesmo sendo normal.
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: 18012
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Kapiaba » 15 Mar 2018 14:55

Faça um ? print de:

   cTpEmis,;                             // tpEmis   


E mostre a imagem, please.

// 1=normal 2=off line 3=Scan 6=SVC-AN 7=SVC-RS

Verifique no XML, o que vc. gravou?

Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Araújo » 22 Mar 2018 21:55

Pesados, perdoem-me pela demora no retorno!...
Quintas
Primeira coisa: confirmar se está como normal ou contingência.
Antes e depois da importação.

Verifiquei neste link http://www.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY= e estava normal no momento da transmissão!...

Se está ok, é o emissor que está mandando pra contingência, mesmo sendo normal.

O arquivo foi gerado como normal (cTpEmiss='1')!... Mesmo depois da rejeição, considerando que o arquivo estivesse errado, editei a nota no próprio emissor e confirmo o campo "Forma de emissão" como normal... Salvo!... repito todo o processo: validar dados, assinar e transmitir... e o resultado continua sendo o mesmo!...

Já passei vários e-mails para o sebrae-sp, mas ainda não responderam!...
Detalhe: percebi que eles ainda não disponibilizaram a versão de produção, apenas de teste.
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor Araújo » 22 Mar 2018 22:25

Kapiaba,

Faça um ? print de:
   cTpEmis,;                             // tpEmis   


E mostre a imagem, please.

// 1=normal 2=off line 3=Scan 6=SVC-AN 7=SVC-RS

Verifique no XML, o que vc. gravou?

Abs.

Veja os comentários que fiz acima!..
Veja também:
Detalhe da mensagem de rejeição no gerenciamento de notas do emissor: https://drive.google.com/file/d/1tA4ASbtWuHst9HvCqLO0aqg9TiYz8jEv/view?usp=sharing
Detalhe do campo que define a tag TpEmis: no emissor é o campo Forma de emissão: https://drive.google.com/file/d/14Mcn8flJLj_usWlIMmiins7Rtub_cuQc/view?usp=sharing
Detalhe do xml gerado pelo emissor: https://drive.google.com/file/d/12dmobrZEbCqM17n1gzMtEw-yfIn6oMdc/view?usp=sharing

Nota: não estou sabendo como inserir a imagem aqui post!... só através desses links compartilhados!..
Araújo
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 48
Data de registro: 02 Abr 2013 22:22
Cidade/Estado: Recife-PE
Curtiu: 2 vezes
Mens.Curtidas: 0 vez

Emissor Gratuito Sebrae-SP vs NF-e 4.0 em ambiente de teste

Mensagempor JoséQuintas » 23 Mar 2018 11:53

Realmente, defeito no emissor, a não ser que ainda não exista ambiente 4.00 normal na UF.

Araújo escreveu:Nota: não estou sabendo como inserir a imagem aqui post!... só através desses links compartilhados!..


imagemcol.png
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: 18012
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Legislação Fiscal e Tributária

Quem está online

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