Caminho E Nome Do Xml Da Cce

[marciomello]

No caso de uma NFe para pegar o nome do arquivo xml gerado basta:

ACBrNFe1.NotasFiscais.Items[0].NomeArq

 

e no caso de uma carta de correção? como é?

[Juliomar Marchetti]

é nos eventos ACBrNFe1.EventoNFe.ObterNomeArquivo()

[marciomello]

este é o xml de retorno:

 

 

<?xml version="1.0"?>

-<retEnvEvento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><idLote>1212201750</idLote><tpAmb>2</tpAmb><verAplic>13_0_51</verAplic><cOrgao>31</cOrgao><cStat>128</cStat><xMotivo>Lote de Evento Processado.</xMotivo>-<retEvento versao="1.00">-<infEvento Id="ID131120032700883"><tpAmb>2</tpAmb><verAplic>13_0_51</verAplic><cOrgao>31</cOrgao><cStat>135</cStat><xMotivo>Evento registrado e vinculado a NF-e.</xMotivo><chNFe>31121207195280000180550010000015921000015927</chNFe><tpEvento>110110</tpEvento><xEvento>CARTA DE CORRECAO</xEvento><nSeqEvento>6</nSeqEvento><CNPJDest>01206820000369</CNPJDest><dhRegEvento>2012-12-20T17:52:37-02:00</dhRegEvento><nProt>131120032700883</nProt></infEvento></retEvento></retEnvEvento>

 

eu queria recuperar o caminho e nome do xml final

 

 

<?xml version="1.0" encoding="UTF-8"?>

-<ProcEventoNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"> -<evento versao="1.00"> -<infEvento Id="ID1101103112120719528000018055001000001592100001592706"><cOrgao>31</cOrgao><tpAmb>2</tpAmb><CNPJ>07195280000180</CNPJ><chNFe>31121207195280000180550010000015921000015927</chNFe><dhEvento>2012-12-20T17:51:00-02:00</dhEvento><tpEvento>110110</tpEvento><nSeqEvento>6</nSeqEvento><verEvento>1.00</verEvento>-<detEvento versao="1.00"><descEvento>Carta de Correcao</descEvento><xCorrecao>asfwefwea fawef f weaf ewaf weafewf</xCorrecao><xCondUso>A Carta de Correcao e disciplinada pelo paragrafo 1o-A do art. 7o do Convenio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularizacao de erro ocorrido na emissao de documento fiscal, desde que o erro nao esteja relacionado com: I - as variaveis que determinam o valor do imposto tais como: base de calculo, aliquota, diferenca de preco, quantidade, valor da operacao ou da prestacao; II - a correcao de dados cadastrais que implique mudanca do remetente ou do destinatario; III - a data de emissao ou de saida.</xCondUso></detEvento> </infEvento> -<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> -<SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>-<Reference URI="#ID1101103112120719528000018055001000001592100001592706">-<Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/><DigestValue>piOc2B8UC2Aca2BJS3k9foESzYg=</DigestValue></Reference> </SignedInfo> <SignatureValue>jaO+P86zrovYZ6kunH8ROcPUy2FFrn769PWd32pAqrVG9v+iY+MnIvtcEv1m19UjqbMQf4r/ntMstdlDRr3/7J/K1C79ciYZ7seXYIfDC97rKG94Xszq5LIh6t0TLnNWzjghESbHzM9Go7ReaixcEHKgb8HKOujRQ5mtcKJkdBA= </SignatureValue> -<KeyInfo>-<X509Data><X509Certificate>MIIGcTCCBVmgAwIBAgIIKzAH3NkH/E4wDQYJKoZIhvcNAQEFBQAwdTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEZMBcGA1UEAxMQQUMgU0VSQVNBIFJGQiB2MTAeFw0xMDEwMDYyMzAwMDBaFw0xMzEwMDUyMzAwMDBaMIH1MQswCQYDVQQGEwJCUjELMAkGA1UECBMCTUcxFjAUBgNVBAcTDVNBTlRPUyBEVU1PTlQxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEWMBQGA1UECxMNUkZCIGUtQ05QSiBBMzESMBAGA1UECxMJQVIgU0VSQVNBMUgwRgYDVQQDEz9LTk9XIEhPVyBDT05TVUxUT1JJQSBFTSBURUNOT0xPR0lBIERBIElORk9STUFDQU86MDcxOTUyODAwMDAxODAwgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAJsnS8T+NfLfc3ojUrKx6Ak3I4IaPIVrX9veD0CEmPybupOuMhQorwS+ezCS2a7KGVQqaDnvvT3EbVPiaOSSOs8IdHBNTESgVUS+5Q9A1cd42YxEirum5vQQX//k4Kxot7zYqnpt8TxPwUaGFbs7wtB45oZ4kT+ApY258JU82if5AgMBAAGjggMGMIIDAjAJBgNVHRMEAjAAMA4GA1UdDwEB/wQEAwIF4DAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwHwYDVR0jBBgwFoAUmt0itvZ36UJvSMJRQKBW4vN0P7swgbkGA1UdEQSBsTCBroEWSEVOUllAS05PV0hPV1RJLkNPTS5CUqAmBgVgTAEDAqAdExtUQVJDSVNJTyBERSBQQVVMQSBGRVJOQU5ERVOgGQYFYEwBAwOgEBMOMDcxOTUyODAwMDAxODCgOAYFYEwBAwSgLxMtMTYxMjE5ODAwNDU1NDc1NDY2OTAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoBcGBWBMAQMHoA4TDDAwMDAwMDAwMDAwMDBXBgNVHSAEUDBOMEwGBmBMAQIDCjBCMEAGCCsGAQUFBwIBFjRodHRwOi8vd3d3LmNlcnRpZmljYWRvZGlnaXRhbC5jb20uYnIvcmVwb3NpdG9yaW8vZHBjMIHzBgNVHR8EgeswgegwSqBIoEaGRGh0dHA6Ly93d3cuY2VydGlmaWNhZG9kaWdpdGFsLmNvbS5ici9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjEuY3JsMESgQqBAhj5odHRwOi8vbGNyLmNlcnRpZmljYWRvcy5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL3NlcmFzYXJmYnYxLmNybDBUoFKgUIZOaHR0cDovL3JlcG9zaXRvcmlvLmljcGJyYXNpbC5nb3YuYnIvbGNyL1NlcmFzYS9yZXBvc2l0b3Jpby9sY3Ivc2VyYXNhcmZidjEuY3JsMIGZBggrBgEFBQcBAQSBjDCBiTBIBggrBgEFBQcwAoY8aHR0cDovL3d3dy5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL2NhZGVpYXMvc2VyYXNhcmZidjEucDdiMD0GCCsGAQUFBzABhjFodHRwOi8vb2NzcC5jZXJ0aWZpY2Fkb2RpZ2l0YWwuY29tLmJyL3NlcmFzYXJmYnYxMA0GCSqGSIb3DQEBBQUAA4IBAQARUoxYJDVv3VCsekIdqFOITpTwf1Y9Vh0zigbRsDWZtOkLap6T5N8X54hURPMZ9WtxE0QzyLvEJ6HRcY4wnz95FVgBCydkZIHSdIVHBGlcM7y4taYE7Q7Fai5EzO2nEZvTv2XS515W88pUYRbkYnz8uHqpvvtij3PH57sIF+sF/bKtI53HG1Q+mpa6PjoFFBlLLPHXlY80Ctm1F3+BrNNCSzGu1VRWPzCCxdx3//Wx7EchS10EDvLo9Dc4uh+QAuVZKca1zzBCWrMxbZjNIBxXUz4KbUFeSTQizJClsAQjLPdEk1RsLgRbRmjI0xe92oma+afaB9ch06DDZ5P79/BN</X509Certificate></X509Data> </KeyInfo> </Signature> </evento> -<retEvento versao="1.00"> -<infEvento Id="ID131120032700883"><tpAmb>2</tpAmb><verAplic>13_0_51</verAplic><cOrgao>31</cOrgao><cStat>135</cStat><xMotivo>Evento registrado e vinculado a NF-e.</xMotivo><chNFe>31121207195280000180550010000015921000015927</chNFe><tpEvento>110110</tpEvento><xEvento>CARTA DE CORRECAO</xEvento><nSeqEvento>6</nSeqEvento><CNPJDest>01206820000369</CNPJDest><dhRegEvento>2012-12-20T17:52:37-02:00</dhRegEvento><nProt>131120032700883</nProt> </infEvento> </retEvento> </ProcEventoNFe>

[rodrigo_sanmac]

Tambem tenho essa dúvida. Ajudaria a 2 pessoas essa resposta

[Mark Apollo]

Na contribuição que fiz () existe este implementação.

[rodrigo_sanmac]

Olá Markapollo. Obrigado por responder, mas analisei os seus fontes e não encontrei como pegar o caminho do xml criado no evento do CCe... Teria como descrever a rotina para isso? Muito grato!

[Mark Apollo]

ACBrNFeConsulta.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.NomeArq

[rodrigo_sanmac]

markapollo desculpe minha ignorancia, mas fiz da mesma forma e me retorna um erro sobre o NomeArq, no qual não existe para essa função. Estou fazendo assim:

 

frmcarta_correcao.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.NomeArq;

 

Poderia me apontar o meu erro?

 

Grato novamente.

[Mark Apollo]

Eu disponibilizei a implementação, mas, até o momento não foi disponibilizado no SVN, sendo assim, caso você queria implementar, terá que fazer o merge manualmente do meu código no seu repositório.

[rodrigo_sanmac]

Blz... onde eu posso pegar o seu código pra fazer o merge?

Grato!

[rodrigo_sanmac]

ah... é esse q tem ai encima né? vou testar aqui e depois retorno pra vc. Muito obrigado!

[rodrigo_sanmac]

Markapollo funcionou visse... tá do jeitinho que eu precisava. vou reforçar com o Italo Jr pra ele analisar e subir a sua atualização.

 

Muito grato!

[rodrigo_sanmac]

Markapollo eu fiz uma pequena modificação nos seus fontes pra ele salvar a cce nas pastas separadas por mes/ano, assim como acontece na NFe. Segue a modificação em anexo para sua analise.

 

Coloquei uma variável tipo string declarada em TNFeEnvEvento.Executar do ACBrNFeWebServices. e coloquei essas linhas em 3546 e 3547 respectivamente...

 

PathMensal:=FConfiguracoes.Arquivos.GetPathNFe(0);
FConfiguracoes.Geral.PathSalvar:=PathMensal;

ACBrNFeWebServices.pas

[rodrigo_sanmac]

Markapollo eu fiz outras mudanças no seus fontes, referente aos caminhos dos arquivos gerados. Encontrei uma falha na questão da impressão do cancelamento via evento e corrigi. Se quizer dar uma analizada antes de mandar pra o pessoal do acbr, te envio ele.

 

Abcs.

[Mark Apollo]

Posta o código aí que durante a semana, assim que puder eu corrijo reposto ele, se quiser também, pode postar lá no outro tópico, bom que fica no topo da lista e o pessoal vê mais...

 

Esta semana estarei mais envolvido com SPED Fiscal, tenho que trabalhar muito, janeiro temos que enviar, rs

[rodrigo_sanmac]

Rapaz, nem me fale q o Sped Pis/Cofins tá arrancando os meus cabelos

Qual seria o outro tópico? Manda o link q posto lá...

 

Abcs.

[Mark Apollo]

É o tópico do link que eu passei lá em cima, onde eu postei a impressão no fortes!

[joaoelson]

Como até o momento não houve as mudanças acima descrita no repositório do ACBr.

Estou usando dessa forma:

o xml até o momento fica na pasta Logs das NFe

 

var
  NomeXML : string
begin
  //dados do retorno 
  with ACBrNFe1.WebServices.EnvEvento do 
  begin

      NomeXML :=  EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe
                + TpEventoToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpEvento)
                + IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.nSeqEvento)
                +'- procEventoNFe.xml';
  end; 
end;

Editado 19 Fevereiro, 2013 por joaoelson