Leonardo Gregianin

Se houvesse uma melhor organização neste fórum nem precisaria ter aberto este tópico. [*]

Hoje (27-11-2012 10:58:11 UTC-4) consegui cancelar NF-e por evento pelo SCAN. Segue em anexo o retorno do SCAN. Alterações no ACBr: ...\Fontes\ACBrNFe2\ACBrNFeUtil.pas: + linha 881: LayNFeCCe, LayNFeEvento: Result := NotaUtil.SeSenao(AAmbiente=1, 'https://www.scan.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx', 'https://hom.nfe.fazenda.gov.br/SCAN/RecepcaoEvento/RecepcaoEvento.asmx');

Já existe o webservice para recepção de eventos no SCAN: https://www.scan.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx Seria possível implementar? Obs.: Pelo emissor da Sefaz em modo SCAN a carta de correção não funciona, mas o cancelamento funciona bem.

Posta o código que você faz para cancelar uma nota. Eu passo assi> // Envio do evento de cancelamento NFe.EventoNFe.Evento.Clear; with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave da NF-e autorizada; infEvento.CNPJ := copy(Chave,7,14); infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Texto da justificativa; infEvento.detEvento.nProt := Número do protocolo da NF-e autorizada; infEvento.cOrgao := StrToInt(copy(Chave,1,2); end; NFe.EnviarEventoNFe(StrToInt(idLote)); // XML retorno MemoResp.Lines.Clear; MemoResp.Lines.Text := UTF8Encode(NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML);[/code]

Eu envio o cancelamento em homologação normalmente para MT, assim: // Envio do evento de cancelamento NFe.EventoNFe.Evento.Clear; with NFe.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave da NF-e autorizada; infEvento.CNPJ := copy(Chave,7,14); infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Texto da justificativa; infEvento.detEvento.nProt := Número do protocolo da NF-e autorizada; infEvento.cOrgao := StrToInt(copy(Chave,1,2); end; NFe.EnviarEventoNFe(StrToInt(idLote)); // XML retorno MemoResp.Lines.Clear; MemoResp.Lines.Text := UTF8Encode(NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML);[/code]

Boa tarde, Esta alteração deveria ter sido feita? Obrigado.

Mas a informação "infEvento.dhEvento" é obrigatória na validação, eu poderia passar assim "infEvento.dhEvento := Now" e o componente ajusta internamente? De onde o ACBr busca a hora? Do computador ou da internet?

Para ficar mais claro, poderia citar um exemplo de como utiliza a nova função do horário? with NFe.CartaCorrecao.CCe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.cOrgao := StrToInt(codOrgao); infEvento.CNPJ := CNPJ; infEvento.dhEvento := ??? infEvento.tpEvento := 110110; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.versaoEvento := '1.00'; infEvento.detEvento.descEvento := 'Carta de Correção'; infEvento.detEvento.xCorrecao := Correcao; infEvento.detEvento.xCondUso := ''; // O acbr faz o preenchimento end;

Dá uma olhada nestes outros tópicos: http://www.djsystem.com.br/acbr/forum/search.php?keywords=A+data+do+evento+nao+pode+ser+maior&terms=all&author=&sc=1&sf=all&sk=t&sd=d&sr=posts&st=0&ch=300&t=0&submit=Pesquisar São as mesmas indagações suas.

Ao executar a consulta de NF-e que já esteja cancelada como um evento, o protocolo e data de recebimento que me retornam é da NF-e autorizada e não do cancelamento. ACBrNFeWebServices.pas -> TNFeConsulta.Executar -> Linhas 2325 e 2326: FProtocolo := NotaUtil.SeSenao(NotaUtil.NaoEstaVazio(NFeRetorno.retCancNFe.nProt),NFeRetorno.retCancNFe.nProt,NFeRetorno.protNFe.nProt); FDhRecbto := NotaUtil.SeSenao(NFeRetorno.retCancNFe.dhRecbto <> 0,NFeRetorno.retCancNFe.dhRecbto,NFeRetorno.protNFe.dhRecbto); e não deveria ser: FProtocolo := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.dhRegEvento; FDhRecbto := NFeRetorno.procEventoNFe.Items[I].RetEventoNFe.retEvento.Items[j].RetInfEvento.nProt; O ACBr teria como tratar os dois código até lá? (Exemplo: CancelamentoPorEvento := (Now > StrToDateTime('01/12/2012 00:00:01'));

O código ACBrNFe1.WebServices.Consulta.dhRecbto irá lhe retornar o que quer.

Tenho duas dúvidas: 1- Meu código está assim, continua o mesmo? NFe.NotasFiscais.Clear; NFe.NotasFiscais.LoadFromFile(path); NFe.Cancelamento(Justificativa); RetornoCancelamento := NFe.WebServices.Cancelamento.cStat; 2- De acordo com o manual de integração agora existe o código de retorno 151: "Cancelamento fora do prazo". Pergunto: Alguém conseguiu transmitir o cancelamento fora do prazo? E se conseguiu, esta NFe foi realmente cancelada? No meu caso, a SEFAZ-MT me retorna: "Rejeicao: Prazo de Cancelamento Superior ao Previsto na Legislacao".

Como ficou o novo comando para envio e retorno do evento de cancelamento? Quando será atualizado o AcbrMonitor no svn?

Estou com o mesmo problema, não tem solução para este caso?

Funcionou. Eu estava limpando a cada carregamento do xml. Muito obrigado.

É isso mesmo que eu quero. Então eu devo estar carregando as notas de uma a uma no componente. Como você faz para carregar todas de uma vez e depois utilizar "ACBrNFe1.NotasFiscais.Imprimir" ?

Exatamente, a primeira nota eu quero que apareça o Setup do rave para selecionar se eu vou visualizar ou imprimir todas as notas, para que a configuração permaneça para todas as próximas notas selecionadas. O problema é que não existe, ou eu não sei como fazer, para saber se o usuário selecionou "preview" ou "printer" no Setup do Rave.

Minha dúvida é na seguinte situação: Tenho várias NFE para serem transmitidas, seleciono várias delas e transmito, ao final de todo o processo faço um loop com o comando "NFe.NotasFiscais.Imprimir" para imprimir todas as notas transmitidas. O problema é que aparece a tela de setup do rave em cada nota a ser impressa. Então fiz o seguinte: NFe.Danfe.MostrarPreview := True; for cont := 0 to SelectedPedidos.Count - 1 do begin if cont >=1 then NFe.Danfe.MostrarPreview := False; ImprimirDanfe(SelectedPedidos.Strings[cont]); end; Porém, se na tela do setup eu seleciono "Preview", aparecerá a visualização somente da primeira NFe e as outras NFe selecionadas irão diretamente para a impressora. Há algum comando para que eu saiba se foi selecionado "preview" ou "imprimir" na tela do setup do rave?

Eu utilizo o comando "NFe.NotasFiscais.Imprimir" que imprime a margem direita cortada. Quando gero o PDF com o comando "NFe.NotasFiscais.ImprimirPDF" ou quando gero o PDF manualmente pelo rave imprime correto, porém a impressão do PDF tem uma propriedade de redimensionamento para ajustar a página por isso não posso me basear na impressão do PDF e sim o Rave diretamente.

É verdade igor, mas o valor do exemplo foi somente um exemplo mesmo, nenhum valor que coloquei influenciou na impressão.

Estou tendo problemas na impressão da Danfe com Rave, a margem direita está sendo impressa cortada, utilizo papel A4 na impressora Laser e jato de tinta. O ajuste nos comandos abaixo não fazem diferença nenhuma na impressão: NFe.DANFE.MargemDireita := 0.6; NFe.DANFE.MargemEsquerda := 3.0; Fiz um teste utilizando o ACBrMonitor 0.7.1c_20120614 ajustando as margens e também não faz diferença nenhuma na impressão. Utilizo Delphi 2010 e Rave 7.7.0.

Ao enviar uma carta de correção com a sequência 20 com a tag: "20" o arquivo leiauteCCe_v1.00.xsd faz a seguinte validação: "" porém esta validação só compreende de 1 a 19, então troquei para "" e funcionou corretamente. Alguém conseguiu simular isto?

Obrigado pelas respostas, eu queria fazer isto: NFe.Configuracoes.Geral.Salvar := False; NFe.Configuracoes.Arquivos.Salvar := False; NFe.EnviarCartaCorrecao(StrToInt(idLote)); MemoResp.Lines.Clear; MemoResp.Lines.Text := UTF8Encode(NFe.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items[0].RetInfEvento.XML); MemoResp.Lines.SaveToFile('C:\NFE\XML\CCe\' + Chave + '-' + Sequencia + '-CCe.xml');

Caso no Mantis relacionado: http://www.djsystem.com.br/acbr/mantis/view.php?id=1142

O Emissor da Sefaz gera os arquivos das CCe por sequência como abaixo: 110110-51120503064765000183550010000138331000138334-1-procEventoNfe.xml 110110-51120503064765000183550010000138331000138334-2-procEventoNfe.xml E não gera, ou não aparentemente, os arquivos "1-cce.xml" e "1-ped-cce.xml".