felipeiw

O que diz o retorno 501 ?

Estou testando o retorno do cancelamento da nfe da seguinte maneira: if (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135) then begin codigos para cancelar em tabelas do meu sistema ... end; Porem aconteceu uma nota cancelada, e nao entrou no if, consultei no sefaz-sp e o evento esta registrado, a nfe esta cancelada, mas tudo indica q algum outro codigo de retorno foi retornado, para testar cancelamento alem do 135, tenho que testar outros codigos de retorno ? Abs e obrigado

Rave

Estou usando a impressao da carta de correcao: ACBrNFe.EventoNFe.Evento.Clear; ACBrNFe.EventoNFe.LerXML(xarquivo); ACBrNFe.ImprimirEvento; e tb gero em pdf para enviar por email: ACBrNFe.EventoNFe.Evento.Clear; ACBrNFe.EventoNFe.LerXML(xcarcor); ACBrNFe.ImprimirEventoPDF; Porem tem como a partir do preview de impressao da carta, habilitar o botao salvar em pdf. Abs

Mas uma duvida, quando por exemplo enviarmos os xmls para o contador, como ele ira saber qual xml foi cancelado ?

Obrigado Igor, o codigo é exatamente o que esta acima do topico. Abs

Firewall do AVG

Estou instalando meu sistema em um maquina com windows 7 ultimate 64bits, e quando vou enviar a nfe retorna o seguinte erro: Inativo ou inoperante tente novamente. Uma conexao com o servidor nao pôde ser estabelecida. Em outra maquina com windows xp, funciona normalmente, com o mesmo certificado e na mesma empresa. Seria alguma configuracao no win 7 ? Abs e obrigado

Galera estou retornando esse topico, porque nao consegui faze-lo funcionar, realmente no enviar() levanta uma except, alguem poderia me ajudar a montar essa parte do codigo ? Abs e obrigado

Pessoal estava funcionando normalmente mas agora aparece a seguinte mensagem, quando vou ver o status do servico ou mesmo quando vou enviar a nfe Inativo ou Inoperante tente novamente The operation timed out O que pode ser ?

Existe a necessidade ou a possibilidade de gerar algum documento ou xml para numeros inutilizados de notas fiscais ? Abs e obrigado

muito obrigado

Estou tentando gerar o arquivo sintegra, no caso o registro 71 de fretes, o problema é que o numero da nota do meu cliente atingiu 7 caracteres, e quando vou gerar retorna erro, tem alguma solucao para isso ? Obrigado a todos

Se acontecer por exemplo de nao enviar uma determinada nota e as proximas enviar normalmente, e depois de um certo tempo perceber q uma nota ficou sem enviar, o que devo fazer com essa nota ? Posso enviar ? alterar a data de emissao, porem a sequencia de numeracao vai ficar fora. Inutilizar ? Obrigado

Angelo é isso mesmo, coloquei um ApplicationEvents1 e deu pra ter certeza disso, entao como posso estar fazendo para passar pelo if, sera q usando um try except ? Obrigado

mas o estranho que colocando um breakpoint no primeiro if (if (ACBrNFe.WebServices.Retorno.cStat in [100,110]) then), percebo que o sistema nao passa por ele quando retorna o erro de denegada. Abs e obrigado

Pessoal estou testando o codigo abaixo, no caso de autorizada funciona, entra no IF e grava tudo certinho, mas nao funciona quando a nota foi denegada, o que estou fazendo de errado ? ACBrNFe.Enviar(0,True); nfecha := ACBrNFe.WebServices.Retorno.ChaveNFe; nfepro := ACBrNFe.WebServices.Retorno.Protocolo; nfemot := ACBrNFe.WebServices.Retorno.xMotivo; nferec := ACBrNFe.WebServices.Retorno.Recibo; // Autorizada ou Denegada if (ACBrNFe.WebServices.Retorno.cStat in [100,110]) then begin // Autorizada if (ACBrNFe.WebServices.Retorno.cStat in [100]) then begin NotasC.Edit; NotasCNFECHA.Value := nfecha; NotasCNFEREC.Value := nferec; NotasCNFEPRO.Value := nfepro; NotasC.Post; NotasC.ApplyUpdates(0); end; // Denegada if (ACBrNFe.WebServices.Retorno.cStat in [110]) then begin NotasC.Edit; NotasCNFECHA.Value := nfecha; NotasCNFEREC.Value := nferec; NotasCNFEPRO.Value := nfepro; NotasCNOTCAN.Value := 'D'; NotasC.Post; Receber.First; while not(Receber.Eof) do Receber.Delete; try Transacao := SQLConnection.BeginTransaction(TDBXIsolations.ReadCommitted); NotasC.ApplyUpdates(0); Receber.ApplyUpdates(0); SQLConnection.CommitFreeAndNil(Transacao); except on e:exception do begin Mensagem('ERRO','Ocorreram Erros Durante a Gravação. Os Dados Serão Descartados !'+#13+e.Message); SQLConnection.RollbackFreeAndNil(Transacao); Close; Exit; end; end; end Abs e obrigado

Muitissimo obrigado italo.

Mas existe algo no manual ou alguma norma tecnica que impede usar caracteres especiais ? obrigado

Uma sujestao dos amigos do forum, seria indicado usar acentos, ç e afins na emissao de nfe ? voces vem algum problema ? Estou perguntando pq um escritorio de contabilidade entrou em contato comigo que nao estao conseguindo importar o xml no sistema de contabilidade deles, quer dizer alguns xmls e sao justamente arquivos que contem acentos. O manual da nfe diz alguma coisa com relacao a esses caracteres especiais ? O que vcs indicam ?

Testei no windows xp e no windows 7 64 bits. Nos 2 o problema aparece. Voce chegou a fazer o teste que mencionei no seu xe2 ? Abs e obrigado

Galera, sei que aqui nao é o lugar correto para comentar sobre esse problema que venho encontrando com mh versao do delphi xe2, mas se for possivel algum amigo do forum, me ajudar agradeço mt, fazendo esse pequeno teste. é um teste simples: Uso muito o componente tpagecontrol, como o exemplo (teste) que estou enviando. Acontece o seguinte erro, quando abro o form e clico em qualquer campo, ou componente da primeira pagina é mostrado a pagina 2, nao sei se é algum bug do delphi, testei com o update 3 e tb com o update 4 do xe2. Ou alguma propriedade que nao consegui encontrar. Percebi tb que se alterar o runtime themes de NONE para enable runtimes themes, esse problema nao acontece. Porem tenho que usar essa opcao em NONE. outro teste simples que no caso da errado. inicio um projeto novo, em PROJETCT - OPTIONS - APPLICATION -RUNTIME THEMES - deixo em NONE, coloca um tpagecontrol com digamos 3 paginas, clico na primeiro e coloco um botao, clico na segunda e quando tento colocar um outro botao, pula pra terceira pagina, sozinho. Obrigado pela atenção TESTE.rar

Ronnei, legal seu roteiro, mas se nao for pedir muito, compartilha com a gente seu codigo, acho que ira ajudar mts amigos do forum Abs

Muito obrigado regys: a solucao, indicada por vc mesmo em um topico. http://isaquesp.blogspot.com.br/2011/09 ... s-sem.html Abs

regys, obrigado pela dica, mas ainda continua com o mesmo erro, agora estou postando a primeira mensagem de erro q aparece quando abro o xe2.