ornei

boa tarde, com relação ao nova maneira de pegar o path do cancelamento, mencionada no post #10, onde Sobrescrevei o metodo GetPathEvento para passar um segundo parametro, que e a data da NFe, pois se nao informar ele pega da data corrente, feito isto deu certo a impressao. Um outro probrle e que quando faço o cancelamento os arquivos XML e salvo na pasta C:\ARQUIVOS_NFE\EVENTOS\201303 e quando vou imprimir o evento onde tenho que informar o tipo do evento para GetPathEvento(teCancelamento), retornado o seguinte path C:\ARQUIVOS_NFE\EVENTOS\201303\Cancelamento, por isso ocorre o erro que o arquivo não existe, todos os cancelamentos que faço tenho que ir pasta ..\201303 e copiar para a subpasta ..\Cancelamento para poder imprimir o evento. estou fazendo desta maneira para imprimir procedure TfrmNfe.ImprimirCancelamentoNFeClick(Sender: TObject); var sPathNFe, sPathCanc, sNomeCanc: string; sXML, sXMLCanc:TStrings; begin try sXML := TStringList.Create; sXMLCanc := TStringList.Create; if cdsNFEPROTOCOLO_CANC.AsString <> EmptyStr then begin with dmNFE_TR do begin { Definir os Path dos XML } sNomeCanc := Trim(cdsNFECHAVE_NFE.AsString)+'1101111'+'-ProcEventoNFe.xml'; sPathNFe := NFEletronica.Configuracoes.Arquivos.GetPathNFe(cdsNFEDATAENT.AsDateTime) + PathDelim + Trim(cdsNFECHAVE_NFE.AsString) + '-nfe.XML'; sPathCanc := NFEletronica.Configuracoes.Arquivos.GetPathEvento(teCancelamento,cdsNFEDATAENT.AsDateTime); { Carrega o XML da NFe } NFEletronica.NotasFiscais.Clear; NFEletronica.NotasFiscais.LoadFromFile(sPathNFe); { Imprime o Evento todo completo } NFEletronica.EventoNFe.Evento.Clear; NFEletronica.EventoNFe.LerXML(sPathCanc + PathDelim + sNomeCanc); NFEletronica.ImprimirEvento; end; end else ExibirMsg('Operação não permitida. Nf-e não foi Cancelada.','Atenção'); finally FreeAndNil(sXML); FreeAndNil(sXMLCanc); end; end;

Pessoal atualizei o ACBr hoje, ao compilar o pacote da NFe ocorreu um erro e percebi que teve uma mudança no metodo GetPathEvento, ate antes de atualizar eu utilizava assim: sPathCanc := NFEletronica.Configuracoes.Arquivos.GetPathEvento e agora precisa informar qual o tipo de evento, e agora esta desta maneira sPathCanc := NFEletronica.Configuracoes.Arquivos.GetPathEvento(teCancelamento) não vejo problema, mas a questão e a seguinte, se precisar reimprimir o cancelamento novamente não consigo mas porque agora ele so cria o caminho do arquivo para ler so da data corrente e não da data da NFe por isso so vou conseguir imprimir no dia que foi feito o cancelamento caso contrario não imprime mais, coloquei mas um parametro para informar a data da NFe para poder ser impressa novamento. original

Ok e o mania de copiar e colar, so alterei o final e esqueci do começo por isso ficou VL_CRED_PIS. Atualizei e deu tudo OK Obrigado

EMBarbosa, me desculpa olhei errado, mas ainda falta uma alteracao no Bloco F registro 800, no aquivo que postei ja esta correto: No componente esta desta forma: Add( LFill('F800') + LFill( IND_NAT_EVEN ) + //Verificar criação da tabela no ACBrEPCBlocos LFill( DT_EVEN ) + LFill( CNPJ_SUCED ) + LFill( PA_CONT_CRED ) + LFill( strCOD_CRED ) + LFill( VL_CRED_PIS ,0,2 ) + LFill( VL_CRED_COFINS ,0,2 ) + LFill( VL_CRED_COFINS ,0,2 ) ) ; agora de acordo com o manual: Add( LFill('F800') + LFill( IND_NAT_EVEN ) + //Verificar criação da tabela no ACBrEPCBlocos LFill( DT_EVEN ) + LFill( CNPJ_SUCED ) + LFill( PA_CONT_CRED ) + LFill( strCOD_CRED ) + LFill( VL_CRED_PIS ,0,2 ) + LFill( VL_CRED_COFINS ,0,2 ) + LFill( VL_CRED_PIS ,0,2 ) ) ; obrigado

atualizei hoje o acbr revisao 4965 e permanece do mesmo jeito sem as alteracoes do Bloco 1 e Bloco F.

Resolvido o problema formatando o pc e instalando Windows 7. Tudo Ok agora

Não sei porque o sistema não roda no pc, ocorre erro de runtime 216 na hora de carregar o executavel, por isto preciso entrar na propriedade do icone do sistema, ir aba compatilidade, marcar a opção Executar este programa em modo de compatibilidade e selecionar um SO, win95 ou win98, para que o sistema carregue. Por esta mudança ocorre o erro no envio da NFe citado anterior

Estou usando o ACBr para fazer a emissao da nfe, o erro acontece no momento que envia a nfe, no metodo NotasFiscais.Assinar mais precisamente dentro do metodo aseguir (unit: ACBrMSXML2_TLB) class function CoDOMDocument50.Create: IXMLDOMDocument3; begin Result := CreateComObject(CLASS_DOMDocument50) as IXMLDOMDocument3; end; com relação ao demo acho que não tem como fazer, por motivo do cliente esta em produção.

Pessoal estou com problema ao enviar nfe em um pc com windos XP, acontece o seguite erro: Access violation at address 7165670C in module AcLayers.DLL. Read of anddress 0FD3CC4C esse erro acontecia quanto marcava algun tipo de compatibilidade, na aba compatibilidade na propriedade do icone, mas neste caso nao esta marcado, e o cliente não esta enviando nfe e não tem outo pc. Este erro passou acontecer esta semana até então nao havia problema algun.

Esta ativo, no incredimail consigo enviar e receber e-mail.

Isaque, não da para entender o que esta acontecendo, pois as dlls estão na pasta da aplicação, o cliente crio um dominio no Gmail ([email protected]), ja conversei com o tecnico que faz manutenção no servidor de e-mail e ele diz que esta tudo certo, antes estava funcionado normal, depois que atualizei o acbr a duas semana atraz e fiz atualização do sistema no cliente, o envio por e-mail não funciona mais

Kiko com esta configuração não deu tambem, ja fiz todas configurações com as porta 25,465 e 587. Ornei

Jeter, Já tentei desta maneira e não da certo tambem. Ornei

Bom dia, Estou com erro no envio da NFe por e-mail em um cliente, com opção exige conexão segura desmarcada ocorre o erro da imagem NFe1.jpg, e com ela marcada ocorre o erro da imagem NFe2.jpg. Estou com ACBr atualizado. Ja desabilitei o antivirus, o firewall do windows. Isto ocorre em todas as maquinas que possui NFe, algumas com Win-XP(SP3) e outras com Win-7. servidor SMTP: smtp.gmail.com porta: 587 ou 25 Instalei o IncrediMail e configurei da mesma maneira do ACBrDemo e funciona normal, na empresa que trabalho tambem configurei o ACBrDemo(imagem NFe2) com os dados do cliente e funcionou sem erro. Não sei mas o que devo fazer, já tentei de tudo e o cliente esta aborrecido por fazer uma semana sem enviar os xml por e-mail. Se alguem tiver uma dica para que eu possa fazer, pois estou com urgencia. Att Ornei

Pessoal nao teve como subir as alterações do bloco F e bloco 1.

Marcelo, Estou cancelando pelo XML da NFe, de acordo com o exemplo do ACBr, opcao cancelamento NFe com XML, o exemplo vc passou, onde infarma a chave e o CNPJ e o cancelamento pela chave da NFe, mesmo fazendo pela chave esta ocorrento o mesmo erro.

Pessoal fiz uma NFe a 13:14 de 18/12/12, ja faz 3 horas que estou tentando cancelar e sempre ocorre o seguinte erro: codigo 642 - Rejeicao: Falha na Consulta do Registro de Passagem, tente novamente apos 5 minutos tem alguma coisa errada no codigo: sera que tem como resolver este problema, se eu colocar o cancelamento por evento nos cliente vai me dar dor de cabeça. OBS: modo homologação

na pasta da CCe tenho dois xml um (Ex: 8101-eve.xml) contendo os dados de retorno e o outro (8101-ped-evento.xml) com os dados da CCe e assinatura, na impressa tenho que informar o 2º arquivo, porque se informar o 1ª ocorre um erro. o xml de retorno teria que conter o dois conteudos. segue os arquivos 8101-ped-evento.xml 8101-eve.xml

Realmente não da certo, baixei o ACBr do zero e instalei, e continua o mesmo não consigo imprimir a CCe com o status, protocolo e data de recebimento preenchidos. Este linha (EventoRetorno.retEvento.Items[0].RetInfEvento.XML) sempre retorna vazio.

Segue o codigo e o anexo do xml da CCe não sei o que esta errado, acbr esta atualizado, os schemas estou usando o da pasta de exemplo do ACBr. 7302-ped-evento.xml

Regys ....EventoRetorno.retEvento.Items[0].RetInfEvento.XML esta linha esta retornando vazio, como faco para salvar o xml do evento ser salvo com os dados do retorno como o quadro abaixo. quando eu envio a CCe o xml nao consta o dados de retorno por isto a impressao nao sai os dados.

Regys como eu consigo o XML da CC-e com autorização, sendo depois que envio busco o protocolo e a data da autorização para ser gravado no BD. estou fazendo desta maneita ***** NFEletronica.EventoNFe.Evento.Clear; with NFEletronica.EventoNFe.Evento.Add do begin infEvento.chNFe := FCartaCorrecao.ChaveNFe; infEvento.CNPJ := FCartaCorrecao.CPF_CNPJ; infEvento.dhEvento := IncMinute(now,5); infEvento.tpEvento := teCCe; infEvento.nSeqEvento := CD_CCe.FieldByName('CODIGO').AsInteger; infEvento.detEvento.xCorrecao := Trim(CD_CCe.FieldByName('CORRECAO').AsString); end; { Envia carta de correção } iLote := StrToInt(frmNfe.cdsNFE.FieldByName('NUMNF').AsString+FormatFloat('00',CD_CCe.FieldByName('CODIGO').AsFloat)); NFEletronica.EnviarEventoNFe(iLote); com esse processo ja não teria o XML da CCe autorizado.

Bom dia, Pessoal não consigo imprimir a CCe completa veja a imagem, falta alguns campos. ACBr esta na Versão: 0.4.0a, uso o ACBrNFeDANFERaveCB, seleciono o Xml da NFe e o Xml do retorno do evento e sai desta mameira, so consigo se pedir a consulta da NFe, para poder seleciontar o Xml de retorno da situacao da nfe e por fim Xml do retorno do evento. Tem outra forma de imprimir ou vou ter que fazer a consulta da NFe toda vez que for imprimir e enviar por e-mail, pois o aquivo em anexo PDF esta como a imagem. Obrigado

estou usando ACBrRaveCB, seleciono o xml da nfe e o xml do evento, mas o status, protocolo e data e a hora do registro nao esta imprimindo, gostaria de saber como pegar este dados, pois o xml da nfe e evento de retorno nao tem este campos.

Ninguem imprime CCe