felipeiw

Pessoal encontrei no forum varios topicos, explicando como imprimir em uma argox conectada na porta usb, instalando o driver e compartilhando a mesma e passando o nome do compartilhamento na propriedade porta do ACBrETQ, fiz isso em uma maquina com windows xp, nessa maquina quando estou instalando o driver da impressora esta disponivel usb001 e ubs002, se eu escolho a usb001. nao imprime, mas se eu escolher a usb002, imprime normal passando o nome do compartilhamento. Porem preciso instalar em um maquina com windows 7, e esse somente possui a porta usb001, e nao funciona, nao imprime. Primeiro porque no windows xp imprime na usb002 e nao na usb001. E porque no windows7 nao imprime na usb001 e ou como instalo a usb002 ? Desculpe pela pergunta ser recorrente, mas realmente faz um tempo q estou testando e nao consigo encontrar respostas e principalmente preciso mt que funcione no windows 7. Grato pela paciencia e compreensao dos amigos. Abs

Por favor, estou usando o seguinte codigo para cancelar a nota fiscal, e apos isso é que o danfe fica com a frase descrita no titulo do POST. Sera q estou fazendo algo errado ? ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromFile(xnotafiscal); ACBrNFe.EventoNFe.Evento.Clear; with ACBrNFe.EventoNFe.Evento.Add do begin infEvento.chNFe := xnotafiscal; infEvento.CNPJ := xcgc infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := xjust infEvento.detEvento.nProt := xprot end; try ACBrNFe.EnviarEventoNFe(1); if (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 155) then Mensagem('ERRO','Rejeição - Código do Retorno: '+IntToStr(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+' - Cancelamento fora do Prazo Permitido !'); if (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 573) then Mensagem('ERRO','Rejeição - Código do Retorno: '+IntToStr(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+' - Cancelamento já Registrado no SEFAZ !'); if (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135) and (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 573) then Mensagem('ERRO','Rejeição - Código do Retorno: '+IntToStr(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)); except on e: Exception do begin Mensagem('ERRO','Código do Retorno: '+IntToStr(ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+' '+e.Message); end; end; ACBrNFe.Consultar; if (ACBrNFe.WebServices.Consulta.cStat = 101) then ... processo o cancelamento em meu sistema.. Porem, depois disso quando o usuario imprime novamente a danfe, realmente nao aparece mais a mensagem de nota cancelada, mas agora como mencionei acima é escrito na danfe: Nota Nao Autorizada Pelo Sefaz Entao isso acontece apos o cancelamento. Se alguem puder me ajudar, agradeço mt Abs a todos

Faço dessa maneira: ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromFile(nomdir+Trim(CdNotasCHAVE.Value)+'-nfe.xml'); ACBrNFe.Consultar; Abs

Ricardo muito obrigado Mas o default dessa propriedade é true, entao como eu nao estava mencionando, deveria ter atualizado o meu xml, (so lembrando que essa nota foi cancelada). Abs

Amigo, nao, pra falar a verdade nem sabia que existia essa propriedade, acertar e depois uso o CONSULTAR ? Essa propriedade foi criada depois que entrou o cancelamento por evento ? So mais uma pergunta, e antes peço desculpas se for mt idiota, mas onde acompanho essas alteracoes no componente ? Normalmente, apenas atualizo os fontes. Muitisso obrigado

Para corrigir essa informacao, eu utilizo o metodo CONSULTAR, porem essa nota ja esta cancelada e quando enviamos a impressao aparecer essa mensagem, ja tentei acertar usando o CONSULTAR,mas nao resolveu, alguem conhece outra maneira de consertar isso ? Abs

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