Jump to content
Fivewin Brasil

Calcelamento NFE

eevaldo

By eevaldo
in Programação

 Share

Recommended Posts

eevaldo Newbie

eevaldo

Posted
Posted

Ola pessoal,

a partir de hoje meu cliente comecou a emitir NFE porem na pressa(como sempre) de por em produção nao fiz a rotina de cancelamento da nfe.

Alguem pode me dar ums dicas de como faço o calcelemnto?

Obrigado.

Evaldo Wagner

FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console)

evaldowl@hotmail.com

Link to comment
Share on other sites
eevaldo Newbie

eevaldo

Posted
  • Author
Posted

Ola pessoal,

a partir de hoje meu cliente comecou a emitir NFE porem na pressa(como sempre) de por em produção nao fiz a rotina de cancelamento da nfe.

Alguem pode me dar ums dicas de como faço o calcelemnto?

Obrigado.

Evaldo Wagner

FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console)

evaldowl@hotmail.com

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

LIB?? Não é a CLASSE do Gilmer??



   REDEFINE BUTTON oBmp5 ID 67 OF oDlgRece                               ;


            ACTION( ( MsgRun( OemToAnsi( "Cancelando Nota Fiscal Eletr“nica: "+STR(FATURCOD2) ), ;


                                         "Conectando e tentando Cancelar a NF-e. Espere! ",      ;


                    { || CANCELAR_NFE() } ) ), XFOCUS( oBmp7 ) )                                 ;


            WHEN( lCancela )


   oBmp5:cToolTip := OemToAnsi( "Cancelar a Nota Fiscal Eletr“nica " )


//


//


//-----------------------------------------------------------------


STATIC FUNCTION CANCELAR_NFE()


   // Função pra usar a NF-e


   //-----------------------------------------------------------------


   LOCAL nX


   PUBLIC lNovaDll


   //-> Erro


   TONE(3000,1)


   TONE(2000,1)


   TONE(1000,1)


   //-> Alerta


   TONE(2500,9)


   TONE(2500,9)


   IF MsgNoYes( OemToAnsi( "ATENۂO:                          " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "APàS CONFIRMAR O CANCELAMENTO DA  " ) +CRLF+ ;


                OemToAnsi( "NOTA FISCAL NA SECRETARIA DA      " ) +CRLF+ ;


                OemToAnsi( "FAZENDA(SEFAZ):                   " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "O CANCELAMENTO, NÇO PODERµ SER    " ) +CRLF+ ;


                OemToAnsi( "REVERTIDO, EM HIPOTESE NENHUMA.   " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "im Para Cancelar a Nota.       " ) +CRLF+ ;


                OemToAnsi( "Æo Para NÆo Cancelar a Nota    " ),       ;


                OemToAnsi( "Perda Irrecuper vel!! Cuidado!!! " ) ) = .F.


      TONE(2500,9)


      MsgStop( OemToAnsi( "Nota Fiscal NÆo Cancelada!   " ) +CRLF+ ;


               OemToAnsi( "Tecle  Para Continuar " ),       ;


               OemToAnsi( "Nota Fiscal NÆo Cancelada!   " ) )


      RETURN( .F. )


   ENDIF


   TONE(2500,9)


   IF MsgNoYes( OemToAnsi( "MOTIVO DE SEGURAN€A:           " ) +CRLF+ ;


                                                               +CRLF+ ;


                OemToAnsi( "CONFIRMA CANCELAMENTO DA NOTA? " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "im Para Cancelar a Nota.    " ) +CRLF+ ;


                OemToAnsi( "Æo Para NÆo Cancelar a Nota " ),       ;


                OemToAnsi( "éltima Chance Para Desistir!!! " ) ) = .F.


      RETURN( .F. )


   ENDIF


   lSaida := .F.


   CURSORWAIT()


   // e tem que ativar a dll e pegar o certificado


   oNFEUtil:=tVoNFeUtil():New(CADPARAM->UF,val(cTpAmb),cCertificado,wProxy,wUsuario,wSenha,cLicenca,.t.)


   SELECT CADNFE


   SEEK FATURCOD2


   cChaveAcesso:=alltrim(CADNFE->CHAVEACES)


   cProtocolo:=alltrim(CADNFE->PROTOCOLO)


   cMensa:="";cRetorno:="";xRecibo:="";cDetalhes:=""


   oMensa:Refresh()


   oRetorno:Refresh()


   oRecibo:Refresh()


   oDetalhes:Refresh()


   nX:=oNFEUtil:CancelaNF(cChaveAcesso,cProtocolo,"Nota Cancelada pelo Emitente")


   IF oNfeUtil:lAutorizada        // guarde estas informações em banco de dados


      IF lNovaDll  //-> Paulo em: 05/11/2009


         oNfe := TVoNFe():New()


         cXmlAssinado:= "remessa\enviadas\"+Alltrim(CADNFE->CHAVEACES)+"nfe.xml"


         cFileXmlAssinado:= "remessa\enviadas\"+Alltrim(CADNFE->CHAVEACES)+"nfe.xml"


         cChaveAcesso:=alltrim(CADNFE->CHAVEACES)


         carq:="REMESSA\nfe"+cChaveAcesso+"-nfe.xml"


         nRet:=oNfeUtil:ConsultaNf(cChaveAcesso,cXmlAssinado)


         cXmlRemessaSemestarassinado:=oNfeUtil:ReadXml(cArq)


         cXmlAssinado:=Space(Len(cXmlRemessaSemestarassinado))


         oNfeUtil:Assinar(cXmlRemessaSemestarassinado ,"infNFe", @cXmlAssinado)


         oNfe:PegaChaveAcesso(cXmlAssinado)


         oNFe:SaveXml(,oNfeUtil:cXmlProtocolo, 3 )  //-> Protocolos


      ENDIF


      ? oNfeUtil:cStsNFe+"-"+oNFeUtil:cStsNFeMsg


      RLOCK()


      REPL STATUS WITH "CAN"


      COMMIT


      UNLOCK


      lCancela := .F.


      TONE(2500,9)


      MsgStop( OemToAnsi( "Nota Fiscal Cancelada: "+STR(FATURCOD2) ) +CRLF+ ;


               OemToAnsi( "Tecle  Para Continuar " ),             ;


               OemToAnsi( "Nota Fiscal Cancelada!       " ) )


   ELSE


      ? oNfeUtil:cStsNFe+"-"+oNFeUtil:cStsNFeMsg


   ENDIF


   IF CADNFE->STATUS="CAN"


      cMensa := OemToAnsi( "ATENۂO: Nota Fiscal Cancelada na SEFAZ.   "+CRLF+;


                           "Vocˆ Somente Pode Imprimir ou Enviar Email."+CRLF+;


                           "Vocˆ Tamb‚m Pode Consultar o Status.       "+CRLF+;


                           "Por Favor, NÆo Esque‡a de Fazer BACKUP Di rio. " )


      oMensa:Refresh()


   ENDIF


RETURN NIL


id=code>id=code>
Saudações corinthianas


João Santos - São Paulo.


kmt_karinha@pop.com.br


joao@pleno.com.br


Fone: (11) 3106-2832 / 8243-5632


FWH 2.7 - xHARBOUR WorkShop.Exe


dentinho.jpg?rnd=0.830315402649066



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Marca
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


Marca
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:




   //-> Erro


   TONE(3000,1)


   TONE(2000,1)


   TONE(1000,1)


   //-> Alerta


   TONE(2500,9)


   TONE(2500,9)


   IF MsgNoYes( OemToAnsi( "ATENۂO:                          " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "APàS CONFIRMAR O CANCELAMENTO DA  " ) +CRLF+ ;


                OemToAnsi( "NOTA FISCAL NA SECRETARIA DA      " ) +CRLF+ ;


                OemToAnsi( "FAZENDA(SEFAZ):                   " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "O CANCELAMENTO, NÇO PODERµ SER    " ) +CRLF+ ;


                OemToAnsi( "REVERTIDO, EM HIPOTESE NENHUMA.   " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "im Para Cancelar a Nota.       " ) +CRLF+ ;


                OemToAnsi( "Æo Para NÆo Cancelar a Nota    " ),       ;


                OemToAnsi( "Perda Irrecuper vel!! Cuidado!!! " ) ) = .F.


      TONE(2500,9)


      MsgStop( OemToAnsi( "Nota Fiscal NÆo Cancelada!   " ) +CRLF+ ;


               OemToAnsi( "Tecle  Para Continuar " ),       ;


               OemToAnsi( "Nota Fiscal NÆo Cancelada!   " ) )


      RETURN( .F. )


   ENDIF


   TONE(2500,9)


   IF MsgNoYes( OemToAnsi( "MOTIVO DE SEGURAN€A:           " ) +CRLF+ ;


                                                               +CRLF+ ;


                OemToAnsi( "CONFIRMA CANCELAMENTO DA NOTA? " ) +CRLF+ ;


                                                                  +CRLF+ ;


                OemToAnsi( "im Para Cancelar a Nota.    " ) +CRLF+ ;


                OemToAnsi( "Æo Para NÆo Cancelar a Nota " ),       ;


                OemToAnsi( "éltima Chance Para Desistir!!! " ) ) = .F.


      RETURN( .F. )


   ENDIF


id=code>id=code>


id=quote>id=quote>
   IF MsgNoYes("TEM CERTEZA ? ")


   IF MsgNoYes("POSSO PERGUNTAR ? ")


   IF MsgNoYes("OLHA LA HEIM VOU APAGAR ? ")


KAKAKA


Kapi Perdão mas nao resisti


bom feriado a todos


Marcelo Ferro


Petrópolis - Rj


Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles


marca.jpg



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		SAOliveira
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


SAOliveira
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

IF MsgNoYes("TEM CERTEZA ? ")


IF MsgNoYes("POSSO PERGUNTAR ? ")


IF MsgNoYes("OLHA LA HEIM VOU APAGAR ? ")


IF MsgNoYes("PENSE BEM ")


IF MsgNoYes("PENSOU MESMO ?")


IF MsgNoYes("NÃO É MELHOR CONFIRMAR COM O CHEFE ?")


Melhor seria assim.


RodapeEmail.JPG


Se não quer ou não pode responder simples, AGORA NÃO POSSO !!!, é mais elegante que o desprezo.



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		eevaldo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


eevaldo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

nX:=oNFEUtil:CancelaNF(cChaveAcesso,cProtocolo,"Nota Cancelada pelo Emitente")


O meu amigo kapiaba ta dando erro de nao achar essa funcao nao teria q ser CancelaNFSefaz que esta no exemplo nfeflexdoc.prg ???


Obrigado.


Evaldo Wagner


FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) 


evaldowl@hotmail.com



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
nX:=oNFEUtil:CancelaNF(cChaveAcesso,cProtocolo,"Nota Cancelada pelo Emitente")


O meu amigo kapiaba ta dando erro de nao achar essa funcao nao teria q ser CancelaNFSefaz que esta no exemplo nfeflexdoc.prg ???


Obrigado.


Evaldo Wagner


FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) 


evaldowl@hotmail.com




id=quote>id=quote>
Veja com o Gilmer.


João Santos - São Paulo.


kmt_karinha@pop.com.br


joao@pleno.com.br


Fone: (11) 3106-2832 / 8243-5632


FWH 2.7 - xHARBOUR WorkShop.Exe


dentinho.jpg?rnd=0.830315402649066



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		eevaldo
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


eevaldo
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

sim ja vi com ele o basicao ja esta ok, queria saber se possivel o que esse IF ai faz qual a utilidade?


nao entendi o q ele faz com os arquivos remessa.


IF lNovaDll  //-> Paulo em: 05/11/2009 


oNfe := TVoNFe():New()                   cXmlAssinado:= "remessa\enviadas\"+Alltrim(CADNFE->CHAVEACES)+"nfe.xml"         cFileXmlAssinado:= "remessa\enviadas\"+Alltrim(CADNFE->CHAVEACES)+"nfe.xml"         cChaveAcesso:=alltrim(CADNFE->CHAVEACES)         carq:="REMESSA\nfe"+cChaveAcesso+"-nfe.xml"         nRet:=oNfeUtil:ConsultaNf(cChaveAcesso,cXmlAssinado)         cXmlRemessaSemestarassinado:=oNfeUtil:ReadXml(cArq)         cXmlAssinado:=Space(Len(cXmlRemessaSemestarassinado))         oNfeUtil:Assinar(cXmlRemessaSemestarassinado ,"infNFe", @cXmlAssinado)         oNfe:PegaChaveAcesso(cXmlAssinado)         oNFe:SaveXml(,oNfeUtil:cXmlProtocolo, 3 )  //-> Protocolos  


ENDIF


Obrigado.


Evaldo Wagner


FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) 


evaldowl@hotmail.com



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
sim ja vi com ele o basicao ja esta ok, queria saber se possivel o que esse IF ai faz qual a utilidade?


nao entendi o q ele faz com os arquivos remessa.


IF lNovaDll  //-> Paulo em: 05/11/2009 


oNfe := TVoNFe():New()                   cXmlAssinado:= "remessa\enviadas\"+Alltrim(CADNFE->CHAVEACES)+"nfe.xml"         cFileXmlAssinado:= "remessa\enviadas\"+Alltrim(CADNFE->CHAVEACES)+"nfe.xml"         cChaveAcesso:=alltrim(CADNFE->CHAVEACES)         carq:="REMESSA\nfe"+cChaveAcesso+"-nfe.xml"         nRet:=oNfeUtil:ConsultaNf(cChaveAcesso,cXmlAssinado)         cXmlRemessaSemestarassinado:=oNfeUtil:ReadXml(cArq)         cXmlAssinado:=Space(Len(cXmlRemessaSemestarassinado))         oNfeUtil:Assinar(cXmlRemessaSemestarassinado ,"infNFe", @cXmlAssinado)         oNfe:PegaChaveAcesso(cXmlAssinado)         oNFe:SaveXml(,oNfeUtil:cXmlProtocolo, 3 )  //-> Protocolos  


ENDIF


Obrigado.


Evaldo Wagner


FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) 


evaldowl@hotmail.com




id=quote>id=quote>
É para pegar a NF com PROTOCOLO, se não me falha a memoria.


Pode ignorar, pois é uma particularidade da empresa aqui.


Abraços.


João Santos - São Paulo.


kmt_karinha@pop.com.br


joao@pleno.com.br


Fone: (11) 3106-2832 / 8243-5632


FWH 2.7 - xHARBOUR WorkShop.Exe


dentinho.jpg?rnd=0.830315402649066



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
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...
    •