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

[Araújo]

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.

[JoséQuintas]

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.

[Araújo]

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:


Mensagem de rejeição:

[JoséQuintas]

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.

[Araújo]

Quintas, obrigado pelo retorno!

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.

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.

[Kapiaba]

olá, veja se ajuda:

Código: Selecionar todos

   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]

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

Código: Selecionar todos

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.

[Araújo]

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()

Código: Selecionar todos

//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 :

Código: Selecionar todos

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.

[JoséQuintas]

Vamos por partes....

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.

[Kapiaba]

Faça um ? print de:

Código: Selecionar todos

   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.

[Araújo]

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/di ... euqr8PQBY= 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]

Kapiaba,

Faça um ? print de:

Código: Selecionar todos

   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/1tA4ASb ... sp=sharing
Detalhe do campo que define a tag TpEmis: no emissor é o campo Forma de emissão: https://drive.google.com/file/d/14Mcn8f ... sp=sharing
Detalhe do xml gerado pelo emissor: https://drive.google.com/file/d/12dmobr ... sp=sharing

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

[JoséQuintas]

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

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