Dempsey

procedure TfrmTransporteManifesto.sbtCancelarMDFeClick(Sender: TObject); var lRetorno: string; lNumeroLote: Integer; begin if ACBrMDFe.Configuracoes.Certificados.NumeroSerie = '' then SerieCertificado := ACBrMDFe.Configuracoes.Certificados.SelecionarCertificado; //numero do lote de envio (somente um exemplo, pode-se utilizar seu proprio controle) lNumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); //Carregar o xml do manifesto ACBrMDFe.Manifestos.Clear; ACBrMDFe.EventoMDFe.Evento.Clear; //Carreto um XML qualquer - Depois envio a Chave e o protocolo do MDFe que desejo CANCELAR if not ACBrMDFe.Manifestos.LoadFromFile(lPastaXml + 'MDFeXML\' + qryMestreDSC_MDFE_CHAVE_ACESSO.AsString + '-MDFe.xml') then raise Exception.Create('Não foi possível carregar o XML do manifesto correspondente!'); qryEmpresa.Locate('COD_EMPRESA', qryMestreFKY_EMPRESA.AsInteger, []); if Assigned(ACBrMDFe.Manifestos.Items[0]) then begin with ACBrMDFe.EventoMDFe.Evento.Add do begin infEvento.chMDFe := '31150315395232000163580010000000061000000012'; //Informo aqui a Chave de Acesso da MDFe a ser CANCELADA infEvento.CNPJ := qryEmpresaDSC_CPF_CNPJ.AsString; //Informo aqui o CNPJ da empresa Emitente infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.nSeqEvento := 1; infEvento.detEvento.xJust := 'Teste de cancelamento de mdfe'; //Informo aqui a Justificativa do CANCELAMENTO infEvento.detEvento.nProt := '931150000006128'; //Informo aqui o protocolo da MDFe e ser CANCELADA end; ACBrMDFe.EnviarEventoMDFe(lNumeroLote); lRetorno := '[[[ Cancelamento da MDFe ]]]' + chr(13); lRetorno := lRetorno + UTF8Encode(ACBrMDFe.WebServices.EnvEvento.RetWS); ShowMessage(lRetorno); //Cancelada end; end;

Eu utilizo o Delphi 2010 e não tenho problemas nas atualizações do Acbr, que faço quase toda semana....

Olá Ítalo, Como eh feito no emissor gratuito que a Sefaz disponibiliza, gostaria de ter uma opção para Cancelar ou Encerrar uma MDF-e através apenas do Protocolo e da Chave de Acesso... Teria como pelo ACBrMDFe???

Olá Pedro... O seu código pra devolução está igual ao meu, e não estou tendo problema.... Verifique a tag da versão da NFe está no 3.1: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; E veja se o caminho do Schemas está com com caminho dos schemas da NFe 3.1 e se estes schemas está atualizados ACBrNFe1.Configuracoes.Geral.PathSchemas := gPastaXml + 'NFeSchemas\V310';​

Opa... blz.... Teste com este Danfe que anexei NotaFiscalEletronica.rar

Se for NFCe bastaria mudar ModeloDF=moNFE para ModeloDF=moNFCE ? Sim Essa chave pode ser substituida pelo numero da nota ? Não... Vc tem que enviar a chave de acesso da nota de entrada devolvida Qual grupo você informou o Tipo=NFe ? with ACBrNFe.NotasFiscais.Add.NFe do begin ... Ide.tpNF := tnSaida; .. end;

Opa... Eu utilizo o AcbrNFe pra puxar a IE. var lCnpj: String; begin ACBrNFe1.Configuracoes.WebServices.UF := 'MG'; ACBrNFe1.WebServices.ConsultaCadastro.UF := 'MG'; ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := '14.757.209/0001-09'; ACBrNFe1.WebServices.ConsultaCadastro.Executar; lCnpj := ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE; ... end;

Sim.. Funcionou 100%

Bom dia Italo Jurisato Junior, Anexei no post anterior um txt anexo, com a alteração que fiz e gostaria de saber se precisa e se vão atualizar os fontes.... Grato pela atenção... Obrigado pela dica Carlos Tre , estava obvio mesmo, e espero que te ajude ai juniorguillen...

Adicionei todos os eventos ao pcnEventoNFe.getDescEvento e funcionou... Estava ocorrendo erro no evento teRegistroCTe que não estava encontrando... Anexo.txt

Estou com o mesmo problema... conseguiu a solução Junior???

Olá... Vocês irão atualizar os fontes com esta sugestão do tipo 'Outros' do ViniciusPacchioni ???

Alterado a posição e o problema foi corrigido... bom q fico experto da próxima agora... Tive um problema q corrigi seguindo as dicas do arquivo "Property_Does Not Exist.txt"... Imprimiu corretamente agora... inclusive com o Quick não aconteceu os erros da acentuação e a relação de documentos apareceram também.. Fico muito agradecido e aproveito para deixar aqui os meus mais profundos agradecimentos ao trabalho de vocês, e que em breve terei condições de ajudar financeiramente o excelente trabalho que fazem... Obrigado Ítalo e Juliomar

Utilizo o Delphi 2010 e instalei a versão 5.04.2 do QuickReport...

Bom dia Italo, testei aq com o Quick Report soh pra testar e dá o seguinte erro: [DCC Fatal Error] ACBrMDFeDAEventoQR.pas(49): F1026 File not found: 'QuickRpt.dcu'

Veja o PDF... Relação dos documentos fiscais eletrônicos também não estão indo... saberia me informar o q pode ser??? abraços Manifesto Eletrônico de Documentos Fiscais - MDF-e.pdf

Xml anexado 31141013598682000128580010000000051000000019-MDFe.xml

O xml está correto... se eu imprimir ele no programa DanfeView ele sai correto... não aparece a mensagem de homologação... Eu utilizo o Fortes Report, e a propriedade VersaoDF é ve100a

Oi Ítalo, obrigado pelo tempo... Botão Enviar: ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(lPastaXml + 'MDFeXML\' + qryMestreDSC_MDFE_CHAVE_ACESSO.AsString + '-MDFe.xml'); ACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao; ACBrMDFe.Enviar(1, False); ---------------------------------------------------------------------------------------------------------- Botão Imprimir: procedure TfrmTransporteManifesto.sbtImprimirDAMDFeClick(Sender: TObject); begin ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(lPastaXml + 'MDFeXML\' + qryMestreDSC_MDFE_CHAVE_ACESSO.AsString + '-MDFe.xml', True); ACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao ACBrMDFe.Manifestos.Imprimir; end;

ACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao; está faltando mais alguma propriedade do AcbrMDFe ou do ACBrMDFeDAMDFeRL q tenho q cetar???

Debugando a rotina de imprimir e os valores vem certo... jah não sei mais o q fazer ACBrMDFe.Configuracoes.WebServices.Ambiente está com o valor igual a 'taProducao;'

Como faço para anexar o xml aqui pra te enviar???

Juliomar... obrigado pelo interesse... O xml está correto <tpAmb>1</tpAmb> o ambiente do componente está como homologação, portanto eu controlo ele no código fonte com os códigos abaixos //Ao entrar na tela de NFe if qryMestreFLG_MDFE_AMBIENTE.AsString = 'P' then //Ambiente de Produção ACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao else //Ambiente de Homologação ACBrMDFe.Configuracoes.WebServices.Ambiente := taHomologacao; //Ao gerar o XML if qryMestreFLG_MDFE_AMBIENTE.AsString = 'P' then Ide.tpAmb := taProducao else Ide.tpAmb := taHomologacao;

Obrigado pela explicação Juliomar. Estou com o seguinte problema.... depois de enviado MDFe em PRODUÇÃO, eu imprimo o DAMDFe e ele vem com a mensagem 'AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL'... como faço para consertar isso?? Este é o meu código do botão Imprimir: if ACBrMDFe.Configuracoes.Certificados.NumeroSerie = '' then SerieCertificado := ACBrMDFe.Configuracoes.Certificados.SelecionarCertificado; ACBrMDFe.Manifestos.Clear; ACBrMDFe.Manifestos.LoadFromFile(lPastaXml + 'MDFeXML\' + qryMestreDSC_MDFE_CHAVE_ACESSO.AsString + '-MDFe.xml', True); ACBrMDFe.Manifestos.Imprimir;

No AcbrNFe eu vinculo o arquivo do Danfe através deste código ACBrNFeDANFERave.RavFile := lCaminhoExe + 'NotaFiscalEletronica.rav'; e no AcbrMDFe?? Já implementei o manifesto no meu programa, e está tudo funcionando, inclussive a impressão do DAMDFe, soh q estou com esta dúvida... não descobri quando ele carrega o arquivo. Utilizo o Fortes Report