renato.pavan
-
Total de ítens
84 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por renato.pavan
-
-
Veja o link que já expliquei:
Bom dia, não tenho acesso a este fórum, da acesso negado.
Obrigado
-
Boa tarde!
Depois da atualização do ACBrInstall no dia 06/05/2014, o mesmo passou a não reconhecer o caminho correto da BPL e DCP no delphi 7.
No XE5 instalei corretamente mas no delphi 7 em 2 máquina diferente aparece:
Dir. BPL: \Bpl
Dir. DCP: \Dcp
Ao invés de aparecer:
C:\Program Files (x86)\Borland\Delphi7\Projects\Bpl
Obrigado
-
Boa tarde,
Respondendo ao Erick, aqui na empresa fazemos da seguinte forma:
for I := 0 to ACBrNFe1.WebServices.Consulta.procEventoNFe.Count - 1 do begin if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.InfEvento.tpEvento = teCancelamento then begin if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Count > 0 then begin Protocolo := ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.nProt; Status := 101; if ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.cStat = 135 then Motivo := 'Cancelamento de NF-e homologado' else Motivo := ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[0].RetInfEvento.xMotivo; end; end; end;
- 1
-
Boa noite
Favor atualizar e testar pelos colegas caso tenha algum problema reportem neste tópico
At revision: 5745 SVN
Bom dia,
No delphi 7 não compilou o pacote boleto do quick, tenho o quick padrão que vem com o delphi 7, falta essa unit QRWebFilt.
Obrigado.
-
Boa tarde!
A unit ACBrNFeDANFEFR não compila no delphi 7, da erro na função ReplaceStr na linha 272.
Obrigado.
-
Bom dia Herik,
Eu faço da seguinte forma, após o envio do cancelamento por evento se retornar com status 135, evento confirmado eu faço uma consulta na nota pra capturar os dados do cancelamento, protocolo, status e descrição.
[]'s
-
Pessoal como faço para ler a propriedade xJust ( Justificativa de Cancelamento da NFe) ao consultar uma nota pela chave que ja foi cancelada ? eu achei isso aqui no fórum mas não achei o que lesse a xJust do xml.
cStat := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat;
tpAmb := ACBrNFe1.AcbrNFe1.WebServices.EnvEvento.EventoRetorno.tpAmb;
lStr := String(ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo);
protCanc := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
dhRectoCanc := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento;
Chave := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe;
lXMLCanc := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML;
Faço da seguinte forma:
Dados.Justificativa := ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.InfEvento.DetEvento.xJust;
-
quando eu informo o NSU ele me devolve nos próximas consultas o meu NSU que eu enviei.
Comigo não, sempre volta um nsu diferente.
E esse nsu eu informo na próxima consulta.
Att.
-
Repare que o Ind. Continuação e igual a 1, isso significa que ha documento para o CNPJ consultado, você deve realizar nova consulta passando o NSU do retorno da consulta anterior.
No meu caso tive que realizar 500 consulta para obter uma lista de 12 notas emitidas para o meu cnpj.
Att.
-
Boa tarde,
O ACBr implementou a impressão de eventos direto pelo componente, você pode testar fazendo da seguinte forma:
ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromStream(XMLNFe); ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXMLFromString(XMLCCe.DataString); ACBrNFe1.ImprimirEvento;
Se você passar os 2 XMLs ele emite a carta com os dados do emitente e destinatário se você passar apenas o XML da CCe ele também emite, mas somente com os dados do evento.
[]'s
-
Bom dia André
Atualizei os fontes pela manhã e também está imprimindo corretamente a CCe, gostaria de propor uma alteração, aliás eu ja alterei aqui no meu fonte e esta funcionando 100%.
Eu utilizo os arquivos xml em memória e o método ACBrNFe1.EventoNFe.LerXML pede um caminho de arquivo.
Na unit pcnEnvEventoNFe, na linha 223 onde era:
ArqEvento.LoadFromFile(CaminhoArquivo);
Alterei para:if (FileExists(CaminhoArquivo)) then ArqEvento.LoadFromFile(CaminhoArquivo) else ArqEvento.Text := CaminhoArquivo;
Dessa forma posso passar para o método LerXML da seguinte forma:ACBrNFe1.EventoNFe.LerXML(XMLCCe.DataString);
XMLCCe é do tipo TStringStream.
[]'s
-
Bom dia,
Alguém ja esta conseguindo realizador download de nfe enviadas em produção?
Nos meus teste só retorna conforme xml anexo.
[]'s
-
Fabiane, mas fizemos essa mudança pra teste da manifestação, acredito que o componente não possa ser modificado, pois o manual da sefaz pede que as notas em homologação seja enviada com o cnpj 99.999.999/0001-01 e sem a razão social.
Att.
-
Boa noite,
Nos alteramos essa unit tb pra enviar com os dados válidos.
Att.
-
Bom dia Fabiane,
Com relação a segunda pergunta, emitimos NF-e em homologação com cnpj válidos para poder testarmos a manifestação do destinatário e nf-e destinadas.
[]'s
-
Ola, hoje consegui o retorno de Documento localizado com a Consulta de NFe destinadas, começarei meus testes mais a fundo agora(trabalhando o retorno) e postarei os resultados
Você testou em homologação ou produção?
[]'s
-
Hoje estou tentando realizar download de 1 NFe pelo acbr no ambiente de produção, estou recebendo a seguinte rejeição conforme xml anexo.
A nota ja foi confirmada o recebimento:
-
Bom dia markapollo, tudo bom e você como está?
Eu não estava conseguindo confirmar a operação pelo ACBr em ambiente de produção, enviava em produção só que o retorno vinha como se eu estivesse enviando pro ambiente de homologação, isso também já esta ok, consigo confirmar a operação e fazer download pelo acbr.
[]'s
-
Bom dia Italo,
Ainda esta retornando nenhum documento localizado para o destinatário.
Testes em Produção.
Ambiente : 1 Versão Aplicativo : 1.0.0 Status Código : 137 Status Descrição : Nenhum documento localizado para o destinatario Recebimento : 23/08/2012 10:47:33 Ind. Continuação : 1 Último NSU : 5308470561
[]'s
-
ola, eu fiz a seguinte alteração no meu código, não deu mais erro e funcionou perfeitamente
// Movido para fora do try por Italo em 16/08/2012 if Assigned(FretConsNFeDest) then FreeAndNil(FretConsNFeDest); FretConsNFeDest := TRetConsNFeDest.Create;
Você consegue ver a lista de NF-e Destinadas?
Porque aqui continua dando erro de violação, mesmo com a alteração sugerida por você.
[]'s
-
Bom dia Amigo,
No constructor da classe inclua a seguinte linha:
SystemPreview.FormState := wsMaximized;
[]'s
-
Bom dia Italo,
Olhe o teste que fiz:
// Movido para fora do try por Italo em 16/08/2012 if Assigned(FretConsNFeDest) then FretConsNFeDest.Free; //O cursor cai aqui, executa o free porém parece que ele esta sendo criado novamente if not Assigned(FretConsNFeDest) // Pois inclui esse if antes do create e o cursor não esta caindo no create then FretConsNFeDest.Create; //Sem o if, ele tenta criar novamente gerando a excessão
Abraços,
-
Olá Marcos,
Consulta NFe Destinadas estava com problema na SEFAZ também, ontem fizemos vários testes mas sem sucesso no retorno.
[]'s
-
Sim, em conversa com o João Henrrique, ele me disse a mesma coisa.
Desde segunda estou testando. essas novas funcionalidades.
Acbrinstall Delphi Xe6
em ACBrNFe
Postado
Obrigado pela resposta Juliomar, eu ja voltei pra revisão que não tem problema no delphi 7, só quis reportar o erro, pois não sabia que ja estavam cientes!
Obrigado.