Jump to content
Fivewin Brasil

carta de Correção da NFE - Hora

kapiaba

By kapiaba
in Programação

 Share

Recommended Posts

kapiaba Enthusiast

kapiaba

Posted
Posted

Galera, tem algum modo deu eu saber qual é a hora da Mer... da SEFAZ de SP, para que a SEFAZ não barre o envio da CARTA, porque tem divergencia na hora??

De 10, 5 não vai... Qu chatice...

Abs, Obg.

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
  • Author
Posted

Galera, tem algum modo deu eu saber qual é a hora da Mer... da SEFAZ de SP, para que a SEFAZ não barre o envio da CARTA, porque tem divergencia na hora??

De 10, 5 não vai... Qu chatice...

Abs, Obg.

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
  • Author
Posted

citação:

10 minutos depois que fez a nota.. e sempre 10 minutos antes da hora atual..

isto é.. vc deve enviar a carta sempre 10 minutos antes do horario atual..

coloque essa regra no codigo

vitor

id=quote>id=quote>

Valeu Vitor, vou implementar isto.

Muito obrigado.

Essa SEFAZ é chata pra kcte!!!

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
  • Author
Posted

E outra coisa, levando em conta que sua resposta esteja correta, para evitar que o usuário fique atrasando o relogio do windows, como voce faz internamente no seu sistema, para que a carta vá como se estivesse com 10 minutos antes do horário atual do windows??

Entendeu??

Abs,

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites
fladimir Newbie

fladimir

Posted
Posted

Kapiaba, apesar de não saber com relação a esta questão da carta, com relação a basear em um horário correto tem um código fonte no fórum do Toledo q pega de um servidor Web o horário de brasília.

Segue link.. espero q te ajude...

http://www.pctoledo.com.br/forum/filebase.php?d=1&id=173&c_old=0&what=c&page=1

[]´s

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
  • Author
Posted

citação:

Kapiaba, apesar de não saber com relação a esta questão da carta, com relação a basear em um horário correto tem um código fonte no fórum do Toledo q pega de um servidor Web o horário de brasília.

Segue link.. espero q te ajude...

http://www.pctoledo.com.br/forum/filebase.php?d=1&id=173&c_old=0&what=c&page=1

[]´s

id=quote>id=quote>

Valeu garoto, vou ver. Obrigado.

Ótimo exemplo, pena que é em MINIGUI.

Não entendo nada e não dá para incorporar ao sistema o executável que vem junto, pois tem disparo para página de internet que não parece ser muito seguro.

Mesmo assim, muito obrigado. Entendi o que voce quis passar.

Link correto para baixar o exemplo:

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=12675&start=0

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 29/04/2012 10:25:30

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
  • Author
Posted

Galera ajuda ahi,

SUPONDO que eu tenha 20 cartas de correções, preciso enviá-las por email, como faço para colocar as 20 cartas para anexar no email?

Um ARRAY seria o mais ideal, se sim, como fazer?

Obg, abs.

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832

http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196

FWH 2.7 - xHARBOUR WorkShop.Exe

Link to comment
Share on other sites
Luisão Newbie

Luisão

Posted
Posted

Bom, a função Time() retorna a hora atual da máquina em uma string no formato HH:MM:SS, a partir disso basta criar uma função para subtrair 10 minutos, não tem segredo.

Sobre a array, sim, dá para usar, qual sua dúvida ? Você já trabalhou com arrays, certo ?



AADD(aAnexos,"C:\Carta01.pdf")


AADD(aAnexos,"C:\Carta02.pdf")


...


AADD(aAnexos,"C:\Carta20.pdf")
id=code>id=code>e depois passe a array como parâmetro para a função de envio de e-mail por SMTP. Acho que até a TMail tem suporte a anexos, não me lembro. Aqui acho que uso a hb_sendmail, funciona que é uma beleza.
--


Luis Fernando Jr.


FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Luisao, nao manjo muito de ARRAY, o que esta errado nesta logica?






      aAnexos:= {}


      nNumCCe := 1


      FOR i := 1 to 20


         // Anexo do XML da CARTA DE CORRECAO - Mudei em: 02/05/2012


         cAnexoNfeCCe := cPathNFe := CURDRIVE() + ":\" + GETCURDIR()   + ;


                                          "\REMESSA\PROTOCOLOS\" + ;


                                          ALLTRIM( cChave )      +       ;


                                          "-CCe"+ALLTRIM(STR(nNumCCe))+".xml"


         AADD(aAnexos, cAnexoNfeCCe)


         NewAnexo := { aAnexos } //-> Arquivo para anexar - Email direto


         nNumCCe := nNumCCe + 1


      NEXT


id=code>id=code>
Obg, abs.




João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832


http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196


FWH 2.7 - xHARBOUR WorkShop.Exe


Editado por - kapiaba on 02/05/2012  12:08:10



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Marca
	

				
				
					
						
Rookie
					
				
			

		

		

			

				


Marca
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Luisao, nao manjo muito de ARRAY, o que esta errado nesta logica?






      aAnexos:= {}


      nNumCCe := 1


      FOR i := 1 to 20


         // Anexo do XML da CARTA DE CORRECAO - Mudei em: 02/05/2012


         cAnexoNfeCCe := cPathNFe := CURDRIVE() + ":\" + GETCURDIR()   + ;


                                          "\REMESSA\PROTOCOLOS\" + ;


                                          ALLTRIM( cChave )      +       ;


                                          "-CCe"+ALLTRIM(STR(nNumCCe))+".xml"


         AADD(aAnexos, cAnexoNfeCCe)


         NewAnexo := { aAnexos } //-> Arquivo para anexar - Email direto


         nNumCCe := nNumCCe + 1


      NEXT


id=code>id=code>
Obg, abs.




João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832


http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196


FWH 2.7 - xHARBOUR WorkShop.Exe


Editado por - kapiaba on 02/05/2012  12:08:10




id=quote>id=quote>
Observe q. matamos a variavel  (nNumCCe) e usamos a (i) do for next com isso diminuimos o codigo


aAnexos:= {}


FOR i := 1 to 20


   // Anexo do XML da CARTA DE CORRECAO - Mudei em: 02/05/2012


   cAnexoNfeCCe := cPathNFe := CURDRIVE() + ":\" + GETCURDIR()   + ;


                                          "\REMESSA\PROTOCOLOS\" + ;


                                          ALLTRIM( cChave )      +       ;


                                          "-CCe"+ALLTRIM(STR( i ))+".xml"


    AADD(aAnexos, cAnexoNfeCCe)


    *Se vc precisar de um vetor mult-dimensional


    *AADD(aAnexos, {cAnexoNfeCCe })


NEXT


? Len ( aAnexos )


for i = 1 to Len ( aAnexos )


   ? aAnexos


next


ou se for o vetor mult-dimensional


for i = 1 to Len ( aAnexos )


   ? aAnexos[i,1]


next


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

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Então você está fazendo algo errado em outra parte.


Coloque depois do NEXT um ? len(aAnexos) para ver o tamanho da array, é para estar 20.


--


Luis Fernando Jr.


FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY




id=quote>id=quote>
VALEU LUISÃO!! ACHEI O ERRO!! QUE BURRRO!!id=size5>


Obrigado, abraços...


Perdoa-me, estou meio loira hoje.... kkkkkkkkkkk


João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832


http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196


FWH 2.7 - xHARBOUR WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Marcelo Ferro Obrigado, Sugestao Aceita e Funcionado Perfeita.






      nNewAnexoCCe := {}


      FOR i := 1 to 20


         cAnexoNfeCCe := cPathNFe := CURDRIVE() + ":\" + GETCURDIR()   + ;


                                          "\REMESSA\PROTOCOLOS\" +       ;


                                          ALLTRIM( cChave )      +       ;


                                          "-CCe"+ALLTRIM(STR(i))+".xml"


         IF FILE( cAnexoNfeCCe )


            AADD( nNewAnexoCCe, cAnexoNfeCCe )


         ENDIF


      NEXT


      ?   Len( nNewAnexoCCe )


id=code>id=code>
Muito obrigado aos dois... Kisses in the heart!




João Santos - São Paulo.


joao@pleno.com.br


Fone: (11) 3106-2832


http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196


FWH 2.7 - xHARBOUR WorkShop.Exe



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





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