igmaster2000

estou fazendo assim: NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := nfe.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin nfe.NotasFiscais.Clear; NFe.EventoNFe.idLote := NumeroLote; with NFe.EventoNFe.Evento.Add do begin infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; // infEvento.cOrgao := RetornarCodigoUF(Emitente.Empresa.UF); //coloca o codigo do estado q deseja tranmitir infEvento.cOrgao := 91; infEvento.detEvento.nProt := NFe.NotasFiscais.Items[0].NFe.procNFe.nProt; infEvento.detEvento.xJust := vAux; end; NFe.EnviarEventoNFe(NumeroLote); nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then exit; nfe.Cancelamento(vAux); MemoResp.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetWS); memoRespWS.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetornoWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(nfe.WebServices.Cancelamento.cStat)); ShowMessage(nfe.WebServices.Cancelamento.Protocolo); end;

estou fazendo assim: NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := nfe.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin nfe.NotasFiscais.Clear; NFe.EventoNFe.idLote := NumeroLote; with NFe.EventoNFe.Evento.Add do begin infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; // infEvento.cOrgao := RetornarCodigoUF(Emitente.Empresa.UF); //coloca o codigo do estado q deseja tranmitir infEvento.cOrgao := 91; infEvento.detEvento.nProt := NFe.NotasFiscais.Items[0].NFe.procNFe.nProt; infEvento.detEvento.xJust := vAux; end; NFe.EnviarEventoNFe(NumeroLote); nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then exit; nfe.Cancelamento(vAux); MemoResp.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetWS); memoRespWS.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetornoWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(nfe.WebServices.Cancelamento.cStat)); ShowMessage(nfe.WebServices.Cancelamento.Protocolo); end;

como utilizar a nova rotina de cancelamento, estou utilizando assim... { OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := nfe.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin nfe.NotasFiscais.Clear; nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then exit; nfe.Cancelamento(vAux); MemoResp.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetWS); memoRespWS.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetornoWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(nfe.WebServices.Cancelamento.cStat)); ShowMessage(nfe.WebServices.Cancelamento.Protocolo); end;}

oi,o que mudou do cancelamento anterior para esta, tem como me mostrar...eu usava assim... OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := nfe.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin nfe.NotasFiscais.Clear; nfe.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then exit; nfe.Cancelamento(vAux); MemoResp.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetWS); memoRespWS.Lines.Text := UTF8Encode(nfe.WebServices.Cancelamento.RetornoWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(nfe.WebServices.Cancelamento.cStat)); ShowMessage(nfe.WebServices.Cancelamento.Protocolo); end;

vc ja arranjou o programador em delphi?

pessoal aluem ja passou por este erro, so esta dando em um cliente... LCR = Lista de Certificados Revogados mas o certificado do cliente esta normal.

AMIGO JA FIZ ISSO, MESMO ASSIM NÃO ASSINA...

sim, esta dando erddo na recepção, certificado LCD

em assim ele assina, ja tentei assinar ele mostra a nota mas ele não grava a autorização no xml...

utilizo o componente acbr,mas em outro clientes esta normal, só nele que da este problema..

então e que se ajeita isso...

o componente acbr, e em outros clientes esta normal so nele q acontece isso...

Pessoal, porque tenho um cliente que ele emite a nota normalmente e qdo precisa passar o xml ara seus clientes ele aparece como se fosse nota não passada para a sefa, ele utiliza windows 7 e so com ele acontece isso...

pessoal, alguem ja viu este tipo de erro: rejeição: certificado assinatura erro no aceso a LCR

Pessoal, alguem sabe porque os xmls da NFe não vai para contas hotmail, do yahoo vai normal?

Pessoal, alguem pode me ajudar, so em uma cliente q esta dando este erro.... The operation timed out - URL:https://www.sefazvirtual.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfewsdll/NfeStatusServico2.. ai congela....

Agora gostaria de saber qual e o comando que assina, manda pra sefa e retorna e imprime...

consegui, gracas a sua dica, obrigado...

valeu amigo, vc manda agente ir procurar no lugar certo mesmo manual e exemplos, mais uma vez vc esta certo...

pessoal consegui gerar o xml, e agora...por favor estou começando ainda quem pode me ajude... qual o comando para mostrar o cte como nao enviado teste qual o comando para criar e enciar...

pessoal e obrigado colocar esta linha no final da alimentação do componente? infCTeAnuEnt.chCTe := DM_CNT.Conhec2AnuladoCTe.AsString; infCTeAnuEnt.dEmi := DM_CNT.Conhec2AnuladoData.AsDateTime;

// Documentos Anteriores de Papel with idDocAntPap.Add do begin // TpcteTipoDocumentoAnterior = (daCTRC, daCTAC, daACT, daNF7, daNF27, daCAN, daCTMC, daATRE, daDTA, daCAI, daCCPI, daCA, daTIF, daOutros); case DM_CNT.NotasModelo.AsInteger of 00: tpDoc := daCTRC; 01: tpDoc := daCTAC; 02: tpDoc := daACT; 03: tpDoc := daNF7; 04: tpDoc := daNF27; 05: tpDoc := daCAN; 06: tpDoc := daCTMC; 07: tpDoc := daATRE; 08: tpDoc := daDTA; 09: tpDoc := daCAI; 10: tpDoc := daCCPI; 11: tpDoc := daCA; 12: tpDoc := daTIF; 99: tpDoc := daOutros; end; serie := DM_CNT.NotasSerieNF.AsString; subser := DM_CNT.NotasSubSerie.AsString; nDoc := DM_CNT.NotasNumeroNF.AsInteger; dEmi := DM_CNT.NotasEmissaoNF.AsDateTime; end; end;

pessoal estou com duvida, o que se refere // Relação de Documentos Anteriores

ei não tem como vcs postarem este acbrmonitorcte para o pessoal que não esta conseguindo...

Estou precisando do serviço de um programador de Cte para me ajudar em um sistema de emissão de Cte, em Delphi 7 banco de dados em Firebird 2 [email protected]