[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Boa tarde.

Estou conseguindo agora tratar o retorno do ACBrNFe.DownloadNFe 

Está gerando pra mim o XML compactado, mas copiei a função do Italo e consigo tratar os pedaços dele individualmente.  Compartilho aqui a solução, para ajudar um pouco também, aqui onde sempre sou ajudado. Como é um fonte pequeno, colo aqui.

 

Colocar no USES:  ZLibExGZ, synacode

 

Function DescompactaStr(vsInput: String): String;

var

   vsAux: String;

   StrStream: TStringStream;

begin

     vsAux := DecodeBase64(vsInput);

 

     StrStream := TStringStream.Create('');

     StrStream.WriteString(vsAux);

     Result := GZDecompressStr(StrStream.DataString);

     FreeAndNil(StrStream);

 

end;

 

 

Na rotina onde baixo o xml:

...

           ACBRNfe.Download;

           vsXMLRetorno := ACBrNFe.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items[0].procNFe;

 

           vsXmlCliente     := DescompactaStr(GetPedacoXml(vsXMLRetorno, 'NFeZip'));

           vsXmlProtocolo := DescompactaStr(GetPedacoXml(vsXMLRetorno, 'protNFeZip'));

 

....

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Então, Italo, estou entrando em depressão já...

Chamei 

 

ACBrNFe.DistribuicaoDFe(43, CNPJ, '0', '');

 

Deveria retornar TODOS os NSUs deste cnpj, desde o inicio, certo?

 

Tanto AcbrNFe.WebServices.DistribuicaoDFE.retDistDFeInt.ultNSU   quanto AcbrNFe.WebServices.DistribuicaoDFE.RetDistDFeInt.MaxNsu  me retornam "000000000001"

 

Isto não quer dizer que tem apenas 1 NSU disponível para este cnpj? Se passo "1" no parametro UltNsu me retorna só ele mesmo, de novo (o resumo). Se passo 2 me retorna "0", e cstat = 137...  Então, só tenho 1 NSU gerado? Onde foi parar minha manifestação?  É neste ponto que estou empacado....

 

Por eu ter manifestado usando o método antigo (não sei se tem um novo acho que manifestar continua do mesmo jeito) ele pode não ter gerado um NSU para a manifestação?

 

 

Obrigado mais uma vez.

 

Confirmado... Recebi outra nota agora de outro cliente, e o NSU dela veio como 0000000000000002

Ou seja, a minha manifestação não gerou outro NSU.....

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Então, Italo, estou entrando em depressão já...

Chamei 

 

ACBrNFe.DistribuicaoDFe(43, CNPJ, '0', '');

 

Deveria retornar TODOS os NSUs deste cnpj, desde o inicio, certo?

 

Tanto AcbrNFe.WebServices.DistribuicaoDFE.retDistDFeInt.ultNSU   quanto AcbrNFe.WebServices.DistribuicaoDFE.RetDistDFeInt.MaxNsu  me retornam "000000000001"

 

Isto não quer dizer que tem apenas 1 NSU disponível para este cnpj? Se passo "1" no parametro UltNsu me retorna só ele mesmo, de novo (o resumo). Se passo 2 me retorna "0", e cstat = 137...  Então, só tenho 1 NSU gerado? Onde foi parar minha manifestação?  É neste ponto que estou empacado....

 

Por eu ter manifestado usando o método antigo (não sei se tem um novo acho que manifestar continua do mesmo jeito) ele pode não ter gerado um NSU para a manifestação?

 

 

Obrigado mais uma vez.

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Infelizmente só tem este item no retorno....

Tenho na minha base aqui apenas uma nota que recebi hoje e manifestei.... Dureza isto...

O Count me dizia 1 mesmo assim "teimei" em pegar o doczip[1] e deu p erro de indice de listagem fora de faixa.... Infelizmente me retornou apenas o item zero mesmo...

Consultando a chave na sefaz vejo que realmente manifestou a nota, tá lá nos eventos.... Meus cabelos que não estão branqueando estão caindo...

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Desculpe a ignorancia aqui, mas na propriedade:

 

AcbrNFe.WebServices.DistribuicaoDFE.retDistDFeInt.docZip[0].XML

 

tenho apenas:

 

<resNFe xmlns:xsd="http://www.w3.org/2

001/XMLSchema"xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">

 

     <chNFe>43150193492486000103550010000037481000037484</chNFe>

     <CNPJ>93492486000103</CNPJ>

     <xNome>SABOR DE CEU INDUSTRIA DE ALIMENTOS LTDA</xNome>

     <IE>0860169162</IE>

     <dhEmi>2015-01-28T00:00:00-02:00</dhEmi>

     <tpNF>1</tpNF>

     <vNF>2.48</vNF>

     <digVal>km+0VqpZ3DQzpk7YyNAtqwatYzk=</digVal>

     <dhRecbto>2015-01-28T08:36:51-02:00</dhRecbto>

     <nProt>143150015409726</nProt>

     <cSitNFe>1</cSitNFe><

/resNFe>

 

Ou seja, aí tenho apenas o resumido....

 

OBS: Esta nota fiscal JA FOI MANIFESTADA

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Batendo o recorde d perguntas de um membro em um dia só...

 

Chamei:

        ACBrNFe.DistribuicaoDFe(43,

                                dmnfe.tEmitentesCNPJ.Value,

                                '',

                                dmnfe.tmanifestoNSU.Value);

 

Passando então o NSU de uma nota JÁ MANIFESTADA como parâmetro.

 

ISTO deve me retornar o xml dela? Em qual propriedade?

 

Tentei 

   AcbrNFe.WebServices.DistribuicaoDFE.retDistDFeInt.docZip[0].XML

 

Mas me retorna apenas o resumido....... Onde está o completo?  (Estou usando os fontes alterados disponibilizados aqui no forum)

 

Grato!

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Inclusive, segue em anexo o XML que foi salvo na pasta configurada em 

 

AcbrNfe.Configuracoes.Geral.PathSalvar

 

 

43150193492486000103550010000037481000037484-nfe.xml

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Que beleza... Testando a baixa do XML recebi um aviso de consumo indevido de baixa de xml

O xml de uma nota só pode ser baixado 2 vezes pela chave

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Bom dia! 

Depois de muita briga e graças à ajuda dos colegas aqui, consegui baixar zlib, fontes alterados, ...

Consigo buscar as notas destinadas e manifestar já (a principio a manifestação em si não mudou correto?)

 

Minha única dúvida pendente é baixar o xml...

o NFeDownloadNF  passando a chave como parametro ainda está me retornando o XML zipado aparentemente...

Este webservice tambem será descontinuado? Devo usar o nfedistr... para baixar o xml passando o NSU como parametro ao inves de usar este?

Grato,

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

shdw acabou respondendo minha pergunta enquanto eu digitava ela

[Web Service De Distribuição De Documentos Fiscais Eletrônicos]

Boa tarde!

 

Com o ConsultaNFeDest, para eu saber se eu devia buscar mais NSUS, eu trabalhava dentro do seguinte laço:

 

     While (AcbrNFe.WebServices.ConsNFeDest.retConsNFeDest.indCont = icPossuiMaisDocumentos) do

     begin

          ...

     end;

 

Com o DistribuicaoDFe o laço que devo fazer é o seguinte?

 

     While (AcbrNFe.WebServices.DistribuicaoDFE.RetDistDFeInt.ultNSU <  AcbrNFe.WebServices.DistribuicaoDFE.RetDistDFeInt.MaxNsu) do

     begin

          ...

     end;

 

 

Grato!

[Nfc-E - Duvida Com O Cpf Do Cliente]

Boa tarde. Resolvido, realmente eu não estava alimentando o endereço, logo não estava mandando o código do país. Muito obrigado a todos.

[Nfc-E - Duvida Com O Cpf Do Cliente]

Esqueci de anexar o arquivo no anterior...

xmlconsumidor.xml

[Nfc-E - Duvida Com O Cpf Do Cliente]

Bom dia.

Confirmei estas informações, estão assim mesmo...

Em anexo o XML gerado... Pode ver que foi gerado sem o CPF...

 

Como alimentei as propriedades:

 

              CNPJCPF           := dmNFe.tNotasDESTINATARIO_CNPJ.Value;

              xNome             := dmNFe.tNotasDESTINATARIO_NOME.Value;

              ISUF              := dmNFe.tNotasDESTINATARIO_SUFRAMA.Value;

              indIEDest         := NFE_IndIEDest;

              IM                := dmnfe.tNotasDESTINATARIO_INSC_MUNIC.Value;

              email             := dmNFe.tNotasDESTINATARIO_EMAIL.Value;

 

              EnderDest.Fone    := dmNFe.tNotasDESTINATARIO_FONE.Value;

              EnderDest.CEP     := StrToInt(SoNros(dmNFe.tNotasDESTINATARIO_CEP.Value));

              EnderDest.xLgr    := dmNFe.tNotasDESTINATARIO_LOGRADOURO.Value;

              EnderDest.nro     := dmNFe.tNotasDESTINATARIO_NUMERO.Value;

              EnderDest.xCpl    := dmNFe.tNotasDESTINATARIO_COMPLEMENTO.Value;

              EnderDest.xBairro := dmNFe.tNotasDESTINATARIO_BAIRRO.Value;

              EnderDest.cMun    := dmNFe.tNotasDESTINATARIO_COD_CIDADE.Value;

              EnderDest.xMun    := dmNFe.tNotasDESTINATARIO_CIDADE.Value;

              EnderDest.UF      := dmNFe.tNotasDESTINATARIO_UF.Value;

              EnderDest.cPais   := dmNFe.tNotasDESTINATARIO_COD_PAIS.Value;

              EnderDest.xPais   := dmNFe.tNotasDESTINATARIO_PAIS.Value;

 

 

Obrigado,

[Nfc-E - Duvida Com O Cpf Do Cliente]

Bom dia!

Continuo não conseguindo gerar a tag CPF... Não consigo ver o que está sendo feito errado, alimento a propriedade CNPJCPF apenas com os numeros do cpf (sem os demais caracteres) e seto as propriedades cfe sugerido acima, mas simplesmente não gera a tag... Gera direto a xNome...

 

Alguma sugestão?

 

Grato

[Nfc-E - Duvida Com O Cpf Do Cliente]

Boa tarde, obrigado pelas respostas.

Coloquei  ACBrNFe.Nota.Ide.indFinal  := cfNao em um cliente que tinha CPF, mas daí não foi gerada a tag com o CPF....

Gerou direto a com o nome, que seria a proxima, e daí rejeitou... OBS: na minha pasta schemas tem os da versao 3 e o da 3.1... Devo apagar os da 3 será?

Pode ser isto?

Grato,

[Nfc-E - Duvida Com O Cpf Do Cliente]

Boa tarde! 

Estou encontrando dificuldade para informar o CPF do cliente em uma NFC-e...

 

Informo as propriedades da seguinte maneira:

 

.

.

.

   ACBrNFe.Configuracoes.Geral.ModeloDF := moNFCe;

   ACBrNFe.Configuracoes.Geral.VersaoDF := ve310;

.

.

.

   ACBrNFe.Nota.infNFe.Versao := 3;

   ACBrNFe.Nota.Ide.modelo    := 65;

   ACBrNFe.Nota.Ide.indFinal  := cfConsumidorFinal;

   ACBrNFe.Nota.Ide.indPres   := pcPresencial;

.

.

.

    With Nota.Dest do

     begin

          if dmnfe.tNotasConsumidor.Value <> 'S'

             then IE        := dmNFe.tNotasDESTINATARIO_INSCRICAO_ESTADUAL.Value;

 

              CNPJCPF           := dmNFe.tNotasDESTINATARIO_CNPJ.Value;

              xNome             := dmNFe.tNotasDESTINATARIO_NOME.Value;

              ISUF              := dmNFe.tNotasDESTINATARIO_SUFRAMA.Value;

              indIEDest         := NFE_IndIEDest;

              IM                := dmnfe.tNotasDESTINATARIO_INSC_MUNIC.Value;

              email             := dmNFe.tNotasDESTINATARIO_EMAIL.Value;

.

.

.

No campo CNPJCPF informo o campo do CPF do cliente. 

O problema é que quando gera o XML ele não gera a tag <CPF>, mas gera uma tag CNPJ Vazia: <CNPJ/>...

Daí rejeita dizendo que viola o pattern....

 

Se não informo nada no campo CNPJCPF daí passa.... Eu tenho que informar em alguma outra propriedade que é pessoa fisica?

 

Grato,

 

 

Mais abaixo:

 

 

[Ainda Erro Na Nota De Estancia Velha (Provedor Tecnos)]

Beleza, vou atualizar os meus fontes dos exemplos e tentar de novo.

Obrigado!

[Nfse Estancia Velha (Tecnos) - Erro Em Produção]

Bom dia. Primeiramente, desculpe a mancada de colar o XML inteiro.....

Usando o botão para gerar Síncrono, o xml gerado pelo programa exemplo fica quase igual ao do exemplo do site, só fica diferente o comecinho dele...

A partir do NumeroLote está tudo igual. Diferença na chamada do método e no LoteRps

 

XML exemplo do site:

<EnviarLoteRpsSincronoEnvio xmlns:xsi="http://www.w3.org/20...Schema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"xmlns="http://www.abrasf.org.br/nfse.xsd">

       <LoteRps Id="12013999999999999990000000000000112" versao="20.01">

       <NumeroLote>112</NumeroLote>

XML gerado pelo programa exemplo:

<EnviarLoteRpsSincronoEnvio xmlns="http://www.abrasf.org.br/nfse.xsd">

       <LoteRps Id="fRps</Rps>" versao="20.01">

       <NumeroLote>112</NumeroLote>

 

Grato

[Nfse Estancia Velha (Tecnos) - Erro Em Produção]

Boa tarde. Pedi pra eles prometeram até amanha enviar ...

 

No site deles encontrei um exemplo do XML a ser gerado....  Vi que tem umas diferenças bem no inicio dele, no nome do metodo...

 

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

<EnviarLoteRpsSincronoEnvio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.abrasf.org.br/nfse.xsd">

  <LoteRps Id="12013999999999999990000000000000112" versao="20.01">

    <NumeroLote>112</NumeroLote>

    <CpfCnpj>

      <Cnpj>99999999999999</Cnpj>

    </CpfCnpj>

    <InscricaoMunicipal>840</InscricaoMunicipal>

    <QuantidadeRps>1</QuantidadeRps>

    <ListaRps>

      <Rps>

        <tcDeclaracaoPrestacaoServico>

          <InfDeclaracaoPrestacaoServico>

            <Rps Id="12013999999999999990000000000000112">

              <IdentificacaoRps>

                <Numero>112</Numero>

                <Serie>UNICA</Serie>

                <Tipo>1</Tipo>

              </IdentificacaoRps>

              <DataEmissao>2013-08-22T14:54:00</DataEmissao>

              <Status>1</Status>

              <RpsSubstituido>

                <Numero />

                <Serie />

                <Tipo>1</Tipo>

              </RpsSubstituido>

            </Rps>

   <SiglaUF>RS</SiglaUF>

            <IdCidade>4322806</IdCidade>

            <Competencia>2013-08-22T14:54:00</Competencia>

            <Servico>

              <tcDadosServico>

                <Valores>

                  <BaseCalculoCRS>0</BaseCalculoCRS>

                  <ValorServicos>100.00</ValorServicos>

                  <ValorDeducoes>0.00</ValorDeducoes>

                  <ValorPis>0.00</ValorPis>

                  <ValorCofins>0.00</ValorCofins>

                  <ValorInss>0.00</ValorInss>

                  <ValorIr>0.00</ValorIr>

                  <ValorCsll>0.00</ValorCsll>

                  <OutrasRetencoes>0.00</OutrasRetencoes>

                  <ValorIss>7.5</ValorIss>

                  <Aliquota>0.05</Aliquota>

                  <DescontoIncondicionado>0</DescontoIncondicionado>

                  <DescontoCondicionado>0.00</DescontoCondicionado>

                  <IrrfIndenizacao>0.00</IrrfIndenizacao>

                </Valores>

                <IssRetido>2</IssRetido>

                <ResponsavelRetencao>1</ResponsavelRetencao>

                <ItemListaServico>10.09</ItemListaServico>

                <CodigoCnae>9511800</CodigoCnae>

                <CodigoTributacaoMunicipio>0</CodigoTributacaoMunicipio>

                <Discriminacao>TESTE</Discriminacao>

                <CodigoMunicipio>4306403</CodigoMunicipio>

                <CodigoPais>1058</CodigoPais>

                <ExigibilidadeISS>1</ExigibilidadeISS>

                <MunicipioIncidencia>4306403</MunicipioIncidencia>

                <NumeroProcesso />

              </tcDadosServico>

            </Servico>

            <Prestador>

              <CpfCnpj>

                <Cnpj>99999999999999</Cnpj>

              </CpfCnpj>

              <RazaoSocial>TECNOSWEB INFORMÁTICA LTDA</RazaoSocial>

              <InscricaoMunicipal>840</InscricaoMunicipal>

            </Prestador>

            <Tomador>

              <IdentificacaoTomador>

                <CpfCnpj>

                  <Cnpj>91593376000102</Cnpj>

                </CpfCnpj>

                <InscricaoMunicipal>0</InscricaoMunicipal>

              </IdentificacaoTomador>

              <RazaoSocial>TECNOSISTEMAS SISTEMAS DE COMPUTADORES L</RazaoSocial>

              <Endereco>

                <Endereco>AV. OSVALDO ARANHA</Endereco>

                <Numero>1075</Numero>

                <Complemento>SALA 602</Complemento>

                <Bairro>CIDADE ALTA</Bairro>

                <CodigoMunicipio>4302105</CodigoMunicipio>

                <Uf>21</Uf>

                <CodigoPais>1058</CodigoPais>

                <Cep>95700000</Cep>

              </Endereco>

              <Contato>

                <Telefone>5434550800</Telefone>

                <Email>[email protected]</Email>

              </Contato>

            </Tomador>

            <Intermediario>

              <IdentificacaoIntermediario>

                <CpfCnpj>

                  <Cpf />

                </CpfCnpj>

                <InscricaoMunicipal />

              </IdentificacaoIntermediario>

              <RazaoSocial />

            </Intermediario>

            <ConstrucaoCivil>

              <CodigoObra />

              <Art />

            </ConstrucaoCivil>

            <RegimeEspecialTributacao>0</RegimeEspecialTributacao>

            <NaturezaOperacao>1</NaturezaOperacao>

            <OptanteSimplesNacional>2</OptanteSimplesNacional>

            <IncentivoFiscal>2</IncentivoFiscal>

            <OutrasInformacoes />

            <TipoNota>0</TipoNota>

            <SiglaUF>RS</SiglaUF>

            <IdCidade>4322806</IdCidade>

            <EspecieDocumento>0</EspecieDocumento>

            <SerieTalonario>0</SerieTalonario>

          </InfDeclaracaoPrestacaoServico>

        </tcDeclaracaoPrestacaoServico>

      </Rps>

    </ListaRps>

  </LoteRps>

</EnviarLoteRpsSincronoEnvio>

[Nfse Estancia Velha (Tecnos) - Erro Em Produção]

Bom dia!

Fontes atualizados... O erro mudou. Arquivo GERADO:

 

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

<S:Envelope xmlns:S="http://www.w3.org/2001/XMLSchema-instance'>http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">

<soap:Body>

<soap:Fault>

<faultcode>soap:Server</faultcode>

<faultstring>O servidor nao pode processar a solicitacao. ---> Erro no documento XML (1, 2). ---> <EnviarLoteRpsEnvio xmlns='http://www.nfse-tecnos.com.br'> nao era esperado.</faultstring>

<detail />

</soap:Fault>

</soap:Body>

</soap:Envelope>

 

[Nfse Estancia Velha (Tecnos) - Erro Em Produção]

Boa tarde! Acho que está chegando lá! Agora está enviando, mas retorna com "erro desconhecido".

 

Peguei o LOG do retorno, olha só o que dá... (Destaquei em vermelho a parte principal da mensagem)

 

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

    <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">

    <soap:Body>  

           <soap:Fault>

                          <faultcode>soap:Server</faultcode>

                         <faultstring>O servidor nao pode processar a solicitacao. ---> Erro no documento XML (1, 2). ---> <EnviarLoteRpsEnvio xmlns='http://www.abrasf.org.br/nfse.xsd'> nao era esperado. </faultstring>

 

<detail /></soap:Fault></soap:Body></soap:Envelope>

[Nfse Estancia Velha (Tecnos) - Erro Em Produção]

Boa tarde.

Hoje resolvi tentar mandar uma nota em produção mesmo, em homologação tenho aquele erro relatado anteriormente, mas tive o seguinte retorno...

 

O nome ou o endereço do servidor não pôde ser resolvido - URL:http://estanciavelha.nfse-tecnos.com.br9091 - SOAPAction:http://tempuri.org/mEnvioLoteRPSSincrono

 

[Erro Ao Usar O Programa Exemplo Para Provedor Tecnos]

Boa tarde!

Estou tentando usar o programa exemplo para transmitir uma nota em homologação para o provedor TECNOS (cidade de estância Velha)

 

Dados do meu .ini do programa exemplo:

[Emitente]

CNPJ=01142464000103

IM=20119/5614

RazaoSocial=EXATUS ASSESSORIA EMPRESARIAL

Fantasia=EXATUS

Fone=35612466

CEP=93600-000

Logradouro=AV BRASIL

Numero=970

Complemento=

Bairro=CENTRO

CodCidade=4307609

Cidade=Estancia Velha

UF=RS

[Certificado]

Caminho=

Senha=

NumSerie=414A8386E844F0B2BD8E19ACDEC61044

[Geral]

Schemas=

LogoMarca=

PrestLogo=

Salvar=1

PathSalvar=

Prefeitura=

[WebService]

Ambiente=1

Visualizar=1

SenhaWeb=

UserWeb=

[Proxy]

Host=

Porta=

User=

Pass=

Host=

Port=

User=

Pass=

Assunto=

SSL=0

Remetente=

Mensagem=

 

Retorno que eu tenho quando envio no botão "Gerar e Enviar Lote"

---------------------------

Demo_acbrnfse

---------------------------

Código Erro : E0800

Mensagem... : Sequencia de entrada nao estava em um formato incorreto. -

Correção... : Erro no processamento do envio

Provedor... : Tecnos

 

---------------------------

OK   

---------------------------

 

 

 

 

 

[Ainda Erro Na Nota De Estancia Velha (Provedor Tecnos)]

Bom dia!

Testei neste botão do programa demo, e tive o seguinte retorno:

 

---------------------------

Demo_acbrnfse

---------------------------

Código Erro : E0800

Mensagem... : Sequencia de entrada nao estava em um formato incorreto. -

Correção... : Erro no processamento do envio

Provedor... : Tecnos

 

---------------------------

OK   

---------------------------