Jump to content
Fivewin Brasil

Motivo: 493 - Envio não atende o Schema XML especifico

rochinha

By rochinha
in Programação

 Share

Recommended Posts

rochinha Apprentice

rochinha

Posted
Posted

Amiguinhos,

Recentemente em cancelamento de NF-e comecei a obter este erro de resultado.

Motivo: 493 - Envio não atende o Schema XML especifico

Estou usando o ACBrNFeMonitor 1.2.0.62 mas aconteceu com o 1.1.0.54. Alguém já passou por isto? Como resolveu?

Em busca no forum ACBr, Tecnospeed e OOBJ só encontrei respostas tipo este erro pode significar

@braços
 

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

Mira se ayuda onde tem a REJEIÇÃO 493, minha flor de lis. kkkkkkkkkkkkkkkkkkkk

  

FUNCTION TRANSMITE_CARTA_CORRECAO( oTransmite )
	   LOCAL nRet, cSiteFlexs, NX
	   oNFEUtil:=tVoNFeUtil2G():New(CADPARAM->UF,VAL(cTpAmb),cCertificado,wProxy,wUsuario,wSenha,cLicenca,.F.,lNfeScan)
	   IF wACE=1
      lAcentuado := .F. //.T.
   ELSE
      lAcentuado := .F.
   ENDIF
	   nCorrecao := wCCE
	   // qual o fuso horario - UTC do fuso horario
   IF nHORAMENOS = 1
	      wDATA := STRZERO(YEAR(DATE()),4) +"-"+ ;
               STRZERO(MONTH(DATE()),2)+"-"+ ;
               STRZERO(DAY(DATE()),2)+"T"+TIME()+[-01:00]
	   ELSEIF nHORAMENOS = 2
	      wDATA := STRZERO(YEAR(DATE()),4) +"-"+ ;
               STRZERO(MONTH(DATE()),2)+"-"+ ;
               STRZERO(DAY(DATE()),2)+"T"+TIME()+[-02:00]
	   ELSEIF nHORAMENOS = 3
	      wDATA := STRZERO(YEAR(DATE()),4) +"-"+ ;
               STRZERO(MONTH(DATE()),2)+"-"+ ;
               STRZERO(DAY(DATE()),2)+"T"+TIME()+[-03:00]
	   ELSEIF nHORAMENOS = 4
	      wDATA := STRZERO(YEAR(DATE()),4) +"-"+ ;
               STRZERO(MONTH(DATE()),2)+"-"+ ;
               STRZERO(DAY(DATE()),2)+"T"+TIME()+[-04:00]  // OUTROS ESTADOS DO NORTE
	   ELSE  // UTC NORMAL = 0 - Sincronizado com o Relogio do Windows.
	      wDATA := STRZERO(YEAR(DATE()),4) +"-"+ ;
               STRZERO(MONTH(DATE()),2)+"-"+ ;
               STRZERO(DAY(DATE()),2)+"T"+TIME()
	     // strzero(year(date()),4) + "-" + strzero(month(date()),2) + "-" + strzero(day(date()),2) + "T" + time()
	   ENDIF
	   wTEXTO := ALLTRIM( wTEXTO )
	   IF LEN( wTEXTO ) <= 14
      MsgStop( OemToAnsi( "Tamanho do Texto da Carta Menor Que 15" )+CRLF+ ;
               OemToAnsi( "Caracteres, no Minimo 15 Caracteres e " )+CRLF+ ;
               OemToAnsi( "no M ximo 1000 Caracteres.            " ),      ;
               OemToAnsi( "Reveja Tamanho do Texto, Aumente...   " ) )
	      RETURN NIL
   ENDIF
	   IF LEN( wTEXTO ) >= 1001
      MsgStop( OemToAnsi( "Tamanho do Texto da Carta Excede 1000 " )+CRLF+ ;
               OemToAnsi( "Caracteres, no Minimo 15 Caracteres e " )+CRLF+ ;
               OemToAnsi( "no M ximo 1000 Caracteres.            " ),      ;
               OemToAnsi( "Reveja Tamanho do Texto, Diminua...   " ) )
	      RETURN NIL
   ENDIF
	   IF oNFeUtil:EnviaCCe(cChave,wTEXTO,lAcentuado,nCorrecao,wDATA,@wRECIBO,@wPROTOCOLO)
	      SELECT CCE
	      CCE->(OrdSetFocus("CHA"))
      CCE->(DBGOBOTTOM())
      CCE->(DBAPPEND())
	      REPLACE CCE->CODI       WITH wCCE
      REPLACE CCE->CHAVE      WITH cChave
      REPLACE CCE->PROTOCOLO  WITH wProtocolo
      REPLACE CCE->RECEBIMENT WITH wRecibo
      REPLACE CCE->TEXTO      WITH wTEXTO
	      CCE->(DBCOMMIT())
      CCE->(DBUNLOCK())
      CCE->(DBGOTOP())
	      oNfeUtil:End()
	      lLigaBotao := .F.
	      oTransmite:Disable()
      oTransmite:Refresh()
	      MsgInfo( OemToAnsi( "CARTA DE CORRE€ÇO N§: " +STRZERO(wCCE)     )+CRLF+ ;
               OemToAnsi( "DA NF-e N§.: "          +STRZERO(wNUMERO)  )+CRLF+ ;
               OemToAnsi( "ENVIADA COM SUCESSO PARA A SEFAZ ESTADUAL" )+CRLF+ ;
               OemToAnsi( "O XML DA CC-e ESTµ NA PASTA(DIRETàRIO):  " )+CRLF+ ;
                                                                       +CRLF+ ;
                          + cDirPleno + "\REMESSA\PROTOCOLOS"          +CRLF+ ;
                                                                       +CRLF+ ;
               OemToAnsi( "ATEN€ÇO: SE ALTEROU A HORA DO COMPUTADOR " )+CRLF+ ;
               OemToAnsi( "OU DO SERVIDOR, NÇO ESQUE€A DE ACERTAR.  " )+CRLF+ ;
               OemToAnsi( "SE ALTEROU NOS DOIS, ACERTE NOS DOIS.    " )+CRLF+ ;
               OemToAnsi( "MANTENHA SEU COMPUTADOR SINCRONIZADO COM " )+CRLF+ ;
               OemToAnsi( "O HORµRIO DE BRASILIA / SEFAZ ESTADUAL.  " )+CRLF+ ;
               OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...          " ),      ;
               OemToAnsi( "CARTA DE CORRE€ÇO ENVIADA COM SUCESSO!!  " ) )
	   ELSE
	      // Rejeicao:
	      nRet := VAL( oNFeUtil:cStsNFe )
	      // ? nRet
	      // Texto errado
      IF  nRet = 493
	         MsgInfo( OemToAnsi( "ATEN€ÇO USUµRIO:                        " )+CRLF+ ;
                  OemToAnsi( "VERIFIQUE O TEXTO DA CARTA DE CORRE€ÇO  " )+CRLF+ ;
                  OemToAnsi( "O TEXTO NÇO SATISFAZ O SCHEMA DO *.XML. " )+CRLF+ ;
                  OemToAnsi( "DIGITE O TEXTO CORRETAMENTE.            " )+CRLF+ ;
                  OemToAnsi( "DEIXE QUE O PROGRAMA ORGANIZE O TEXTO   " )+CRLF+ ;
                  OemToAnsi( "NÇO COPIE TEXTOS SEM FORMATO OU ERRADO. " )+CRLF+ ;
                  OemToAnsi( "NÇO USE CARACTERES ESPECIAIS OU O <ENTER>")+CRLF+ ;
                  OemToAnsi( "QUE FAZEM COM QUE A CCE SEJA REJEITADA. " )+CRLF+ ;
                  OemToAnsi( "ANOTE O NéMERO DA REJEI€ÇO: "+STR(nRet)   )+CRLF+ ;
                  OemToAnsi( "TENTE CONSULTAR A REJEI€ÇO NA PµGINA    " )+CRLF+ ;
                  OemToAnsi( "DA FLEXDOCS, LINK VAI ABRIR EM SEGUIDA  " )+CRLF+ ;
                  OemToAnsi( "SE NÇO CONSEGUIR ENTENDER A MENSAGEM    " )+CRLF+ ;
                  OemToAnsi( "DE REJEI€ÇO DA FLEXDOCS,  INFORME AO    " )+CRLF+ ;
                  OemToAnsi( "SUPORTE DO XXXXX, POR EMAIL.  <SCREEN>  " )+CRLF+ ;
                  OemToAnsi( "xxxxxxx@pleno.com.br - joao@pleno.com.br" )+CRLF+;
                  OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...         " ),      ;
                  OemToAnsi( "Texto da Carta de Corre‡Æo com Erros... " ) )
	         MsgWait( "AGUARDE... ABRINDO A PAGINA DA FLEXDOCS...", ;
                  "AGUARDE UM MOMENTO POR FAVOR...           ", 1.5 )
	         cSiteFlexs := ( "http://www.flexdocs.com.br/guiaNFe/WS.evento.CCe.html" )
	         ShellExecute(GetActiveWindow(),"open",'"'+cSiteFlexs+'"', 0 )
	      ELSEIF nRet = 573  // REJEICAO 573 DUPLICIDADE DE EVENTO, JA EXISTE CCE
	          MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                       " )+CRLF+;
                   OemToAnsi( "ANOTE O NéMERO DA REJEI€ÇO: "+STR(nRet)  )+CRLF+;
                   OemToAnsi( "573 - REJEI€ÇO: DUPLICIDADE DE EVENTO. " )+CRLF+;
                   OemToAnsi( "O NéMERO DESTA CARTA DE CORRE€ÇO Jµ    " )+CRLF+;
                   OemToAnsi( "EXISTE NA BASE DE DADOS DA SEFAZ...    " )+CRLF+;
                   OemToAnsi( "VEJA ONDE ESTµ ESCRITO:                " )+CRLF+;
                   OemToAnsi( "NéMERO DA CC-e, TROQUE O NéMERO + 1    " )+CRLF+;
                   OemToAnsi( "AT QUE A SEFAZ AUTORIZE A CARTA.      " )+CRLF+;
                   OemToAnsi( "POR EXEMPLO: SE TIVER 1, TROQUE PARA 2." )+CRLF+;
                   OemToAnsi( "             SE TIVER 2, TROQUE PARA 3." )+CRLF+;
                   OemToAnsi( "E ASSIM SUCESSIVAMENTE.. NÇO ERRE!!    " )+CRLF+;
                   OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...        " ),     ;
                   OemToAnsi( "573 - REJEI€ÇO: DUPLICIDADE DE EVENTO. " ) )
	          RETURN NIL
	      ELSEIF nRet = 578 .OR. nRet = 579 // .T. data errada
	          MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                        " )+CRLF+;
                   OemToAnsi( "VERIFIQUE A DATA DO SEU COMPUTADOR...   " )+CRLF+;
                   OemToAnsi( "VERIFIQUE A HORA DO SEU COMPUTADOR...   " )+CRLF+;
                   OemToAnsi( "SINCRONIZE O RELàGIO DO WINDOWS...      " )+CRLF+;
                   OemToAnsi( "OLHE O BOTÇO: <Sincronizar Rel¢gio>     " )+CRLF+;
                   OemToAnsi( "ANOTE O NéMERO DA REJEI€ÇO: "+STR(nRet)   )+CRLF+;
                   OemToAnsi( "TENTE CONSULTAR A REJEI€ÇO NA PµGINA    " )+CRLF+;
                   OemToAnsi( "DA FLEXDOCS, LINK VAI ABRIR EM SEGUIDA  " )+CRLF+;
                   OemToAnsi( "SE NÇO CONSEGUIR ENTENDER A MENSAGEM    " )+CRLF+;
                   OemToAnsi( "DE REJEI€ÇO DA FLEXDOCS,  INFORME AO    " )+CRLF+;
                   OemToAnsi( "SUPORTE DO xxxxx, POR EMAIL.  <SCREEN>  " )+CRLF+;
                   OemToAnsi( "xxxxxxx@pleno.com.br - joao@pleno.com.br" )+CRLF+;
                   OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...         " ),     ;
                   OemToAnsi( "Sincronize o Rel¢gio do Windows...      " ) )
	      ELSEIF nRet = 0  //
	         //? nRet, [FALHA NA FLEXDOCS]
         MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                          " )+CRLF+;
                  OemToAnsi( "A FLEXDOCS ESTµ REPORTANDO FALHA...       " )+CRLF+;
                  OemToAnsi( "VERIFIQUE CERTIFICADO DIGITAL DA EMPRESA. " )+CRLF+;
                  OemToAnsi( "VERIFIQUE A INSTALA€AO DA NOTA FISCAL.    " )+CRLF+;
                  OemToAnsi( "ALGUMA COISA ESTµ ERRADA NESTE COMPUTADOR." )+CRLF+;
                  OemToAnsi( "NADA PODE SER FEITO, SEFAZ NÇO RESPONDE!  " )+CRLF+;
                  OemToAnsi( "VERIFIQUE SE VOCÒ DIGITOU A SENHA CORRETA " )+CRLF+;
                  OemToAnsi( "DO SEU CERTIFICADO DIGITAL, CASO ELE PE€A " )+CRLF+;
                  OemToAnsi( "SENHA. SE VOCÒ USA CERTIFICADO A-3 TOKEN, " )+CRLF+;
                  OemToAnsi( "DESLIGUE O COMPUTADOR DO FATURAMENTO,     " )+CRLF+;
                  OemToAnsi( "RETIRE O TOKEN E COLOQUE NOVAMENTE O TOKEN" )+CRLF+;
                  OemToAnsi( "EM UMA PORTA USB PARA QUE O WINDOWS O     " )+CRLF+;
                  OemToAnsi( "RECONHE€A NOVAMENTE.   FA€A A SINCRONIA DO" )+CRLF+;
                  OemToAnsi( "COMPUTADOR, COM O HORµRIO DE BRASILIA.    " )+CRLF+;
                  OemToAnsi( "NA TELA PRINCIPAL DA NF-e TEM UM RELOGINHO" )+CRLF+;
                  OemToAnsi( "<CLICK> NELE PARA FAZER A SINCRONIA DO    " )+CRLF+;
                  OemToAnsi( "HORµRIO DO SEU COMPUTADOR, COM O HORµRIO  " )+CRLF+;
                  OemToAnsi( "DE BRASILIA, QUE TEM QUE SER IGUAL AO DA  " )+CRLF+;
                  OemToAnsi( "SEFAZ DO SEU ESTADO. SE SUA INTERNET FOR  " )+CRLF+;
                  OemToAnsi( "VIA MODEM(SPEED), DESLIGUE O COMPUTADOR.  " )+CRLF+;
                  OemToAnsi( "DESLIGUE O MODEM DE INTERNET, RELIGUE O   " )+CRLF+;
                  OemToAnsi( "MODEM DE INTERNET E RELIGUE O COMPUTADOR  " )+CRLF+;
                  OemToAnsi( "DO FATURAMENTO, PARA QUE ELE PEGUE O IP   " )+CRLF+;
                  OemToAnsi( "CORRETO DO MODEM DE INTERNET. FALHA LOCAL." )+CRLF+;
                  OemToAnsi( "FEITO ISTO, TENTE ENVIAR NOVAMENTE A CCE. " ),     ;
                  OemToAnsi( "A FLEXDOCS ESTµ REPORTANDO FALHA NO LOCAL." ) )
	      ELSEIF nRet = 5305  // MUDEI EM: 04/01/2016 - Joao
	         MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                         " )+CRLF+;
                  OemToAnsi( "ERRO 5305 DA NOTA FISCAL ELETRâNICA:     " )+CRLF+;
                  OemToAnsi( "5305 - Erro: Falha no acesso ao XML      " )+CRLF+;
                  OemToAnsi( "(XML mal formado ou XML vázio...)        " )+CRLF+;
                  OemToAnsi( "TENTE O SEGUINTE PARA RESOLVER:          " )+CRLF+;
                  OemToAnsi( "CLICK NO BOTÇO: <Manuten‡Æo> E DEPOIS    " )+CRLF+;
                  OemToAnsi( "NO BOTÇO: <Manuten‡Æo das NFs>.     ANOTE" )+CRLF+;
                  OemToAnsi( "DIGITE O NéMERO DESSA NOTA AT ELA MESMA." )+CRLF+;
                  OemToAnsi( "LEIA AS INSTRU€åES DA FLEXDOCS A SEGUIR. " )+CRLF+;
                  OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...          " )+CRLF+;
                  OemToAnsi( "5305 - Erro: Falha no acesso ao XML-Vazio" ) )
	         cSiteFlexs := ( "http://www.flexdocs.com.br/guiaNFe/FAQ.assinatura.html" )
	         ShellExecute(GetActiveWindow(),"open",'"'+cSiteFlexs+'"', 0 )
	      ELSE // OUTRAS MENSAGENS, VOU TRATANDO AOS POUCOS.
	         NX := REJEICAO_NFE( nRet )  // MUDEI EM: 26/04/2016
	         ? NX
	         MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO:                        " )+CRLF+;
                  OemToAnsi( "A CARTA DE CORRE€ÇO FOI REJEITADA.      " )+CRLF+;
                  OemToAnsi( "ANOTE O NéMERO DA REJEI€ÇO NA SEFAZ.    " )+CRLF+;
                  OemToAnsi( "NéMERO DA REJEI€ÇO NA SEFAZ:  "+STR(nRet) )+CRLF+;
                  OemToAnsi( "TENTE CONSULTAR A REJEI€ÇO NA PµGINA    " )+CRLF+;
                  OemToAnsi( "DA FLEXDOCS, LINK VAI ABRIR EM SEGUIDA  " )+CRLF+;
                  OemToAnsi( "SE NÇO CONSEGUIR ENTENDER A MENSAGEM    " )+CRLF+;
                  OemToAnsi( "DE REJEI€ÇO DA FLEXDOCS,  INFORME AO    " )+CRLF+;
                  OemToAnsi( "SUPORTE DO xxxxx, POR EMAIL.  <SCREEN>  " )+CRLF+;
                  OemToAnsi( "xxxxxxx@pleno.com.br - joao@pleno.com.br" )+CRLF+;
                  OemToAnsi( "TECLE <ENTER> PARA CONTINUAR...        " ),      ;
                  OemToAnsi( "Rejei‡Æo: Anote o N£mero... "+STR(nRet)  ) )
	         MsgWait( "AGUARDE... ABRINDO A PAGINA DA FLEXDOCS...", ;
                  "AGUARDE UM MOMENTO POR FAVOR...           ", 1.5 )
	         cSiteFlexs := ( "http://www.flexdocs.com.br/guiaNFe/WS.evento.CCe.html" )
	         ShellExecute(GetActiveWindow(),"open",'"'+cSiteFlexs+'"', 0 )
	      ENDIF
	   ENDIF
	RETURN NIL


 

Link to comment
Share on other sites
rochinha Apprentice

rochinha

Posted
  • Author
Posted

Amiguinhos,

Este mensagem de rejeição aconteceu durante um cancelamento, como não fiz nenhuma carta de correção não obtive o mesmo tipo de erro 

só encontrei respostas tipo este erro pode significar " é isso mesmo Rochinha, por ser uma rejeição muito genérica campo(s) pode estar faltando ou estar em um formato não esperado. coloque o XML aqui ou fórum ACBR e ficará mais fácil de ajudar

A nota em questão sendo cancelada já estava na base do SEFAZ e protocolada. Tive de cancelar pois o operador havia colocado outro destinatário na mesma. 

Rochinhasssssss, valide aqui, que "entrega":

https://www.sefaz.rs.gov.br/NFE/NFE-VAL.aspx

As vezes eu uso, mas a nota já estava na SEFAZ. Para cancelar uma nota você só precisa informar a chave. O XML da nota não é enviado para a base. 

Rochinhassssssssss, dúvida: 

Por acaso, usas isso em teu sistema?

regsvr32 c:\windows\SysWOW64\capicom.dll
regsvr32 c:\windows\SysWOW64\msxml5.dll
regsvr32 c:\windows\SysWOW64\msxml6.dll

Sempre que possível eu acesso o Prompt do MS-DOS como administrador e dentro da pasta do monitor executo o instala.bat 

Mira se ayuda onde tem a REJEIÇÃO 493, minha flor de lis. kkkkkkkkkkkkkkkkkkkk

Aike Tudo. Que meigo da sua parte, kkkkkkkkkkkkkkkkkkk. Legal estas respostas para mensagens de erro. Verei como implementar.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...