Erro apresentado na emissão NFCe "failed to parce", qrcode

[Rene costa cabral]

Estou iniciando o desenvolvimento do NFCe e após a gerar o arquivo apresenta um erro "failed to parse" e não envia o NFCe, ja olhei em tópico anterior e a solução apresentada não resolveu meu problema, vou postar abaixo o XML e a imagem o erro apresentado, abaixo a sequencia que estou utilizando no desenvolvimento, o erro ocorre na etapa  ACBrNFCe1.Enviar.

  ACBrNFCe1.NotasFiscais.Clear;
  with ACBrNFCe1.NotasFiscais.Add.NFe do
  begin
    Ide.natOp     := 'VENDA';
    Ide.indPag    := ipVista;
    Ide.modelo    := 65;
    Ide.serie     := 1;
    Ide.nNF       := 1; // numero da nota
    Ide.cNF       := 1;
    Ide.dEmi      := date;
    Ide.dSaiEnt   := date;
    Ide.hSaiEnt   := now;
    Ide.tpNF      := tnSaida;
    Ide.tpEmis    := TpcnTipoEmissao(1); // verificar
    Ide.tpAmb     := taHomologacao;      // Lembre-se de trocar esta variável quando for para ambiente de produção
    Ide.cUF       := 35;                 // verificar é o codigo do estado
    Ide.cMunFG    := 3549805;
    Ide.finNFe    := fnNormal;
    Ide.tpImp     := tiNFCe;
    Ide.indFinal  := cfConsumidorFinal;
    Ide.indPres   := pcPresencial;
    Ide.verProc   := '4.0.0.0';
    //
    Emit.CNPJCPF           := '31973614000183';
    Emit.IE                := '647987785111';
    Emit.xNome             := 'COMAP COMERCIO DE AREIA E PEDRA SAO JOSE DO RIO PRETO EIRELI';
    Emit.xFant             := 'COMAP COMERCIO DE AREIA E PEDRA SAO JOSE DO RIO PRETO EIRELI';
    Emit.EnderEmit.fone    := '1732249154';
    Emit.EnderEmit.CEP     := 15092230;
    Emit.EnderEmit.xLgr    := 'ESTRADA ANTONIO JOSE MARTINS FILHO';
    Emit.EnderEmit.nro     := '300';
    Emit.EnderEmit.xCpl    := '';
    Emit.EnderEmit.xBairro := 'ESTANCIA MATINHA';
    Emit.EnderEmit.cMun    := 3549805;
    Emit.EnderEmit.xMun    := 'SAO JOSE DO RIO PRETO';
    Emit.EnderEmit.UF      := 'SP';
    Emit.enderEmit.cPais   := 1058;
    Emit.enderEmit.xPais   := 'BRASIL';
    Emit.IEST              := '';
    Emit.CRT               := crtSimplesNacional;// (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal)
    //
    Dest.CNPJCPF           := '05481336000137';
    Dest.ISUF              := '';
    Dest.xNome             := 'D.J. COM. E LOCAÇÃO DE SOFTWARES LTDA - ME';
    Dest.EnderDest.Fone    := '1533243333';
    Dest.EnderDest.CEP     := 18270170;
    Dest.EnderDest.xLgr    := 'Rua Coronel Aureliano de Camargo';
    Dest.EnderDest.nro     := '973';
    Dest.EnderDest.xCpl    := '';
    Dest.EnderDest.xBairro := 'Centro';
    Dest.EnderDest.cMun    := 3554003;
    Dest.EnderDest.xMun    := 'Tatuí';
    Dest.EnderDest.UF      := 'SP';
    Dest.EnderDest.cPais   := 1058;
    Dest.EnderDest.xPais   := 'BRASIL';
    //
    // Use os campos abaixo para informar o endereço de retirada quando for diferente do Remetente/Destinatário
    //
    Retirada.CNPJCPF := '';
    Retirada.xLgr    := '';
    Retirada.nro     := '';
    Retirada.xCpl    := '';
    Retirada.xBairro := '';
    Retirada.cMun    := 0;
    Retirada.xMun    := '';
    Retirada.UF      := '';
    //
    // Use os campos abaixo para informar o endereço de entrega quando for diferente do Remetente/Destinatário
    //
    Entrega.CNPJCPF := '';
    Entrega.xLgr    := '';
    Entrega.nro     := '';
    Entrega.xCpl    := '';
    Entrega.xBairro := '';
    Entrega.cMun    := 0;
    Entrega.xMun    := '';
    Entrega.UF      := '';
    //
    // Adicionando Produtos
    //
    with Det.New do
    begin
      Prod.nItem     := 1; // Número sequencial, para cada item deve ser incrementado
      Prod.cProd     := '123456';
      Prod.cEAN      := '7896523206646';
      Prod.xProd     := 'Descrição do Produto';
      Prod.NCM       := '94051010'; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm
      Prod.EXTIPI    := '';
      Prod.CFOP      := '5101';
      Prod.uCom      := 'PC';
      Prod.qCom      := 1;
      Prod.vUnCom    := 100;
      Prod.vProd     := 100;
      Prod.cEANTrib  := '7896523206646';
      Prod.uTrib     := 'PC';
      Prod.qTrib     := 1;
      Prod.vUnTrib   := 100;
      Prod.vOutro    := 0;
      Prod.vFrete    := 0;
      Prod.vSeg      := 0;
      Prod.vDesc     := 0;
      Prod.CEST      := '';
      //
      // Prod.infAdProd := 'Informação Adicional do Produto';
      //
      // lei da transparencia nos impostos
      //
      with Imposto do
      begin
        // lei da transparencia nos impostos
        vTotTrib := (100*5)/100;

        with ICMS do
        begin
          CSOSN        := csosn102;
          ICMS.orig    := oeNacional;
          ICMS.modBC   := dbiValorOperacao;
          ICMS.vBC     := 0;
          ICMS.pICMS   := 0;
          ICMS.vICMS   := 0;
          ICMS.modBCST := dbisMargemValorAgregado;
          ICMS.pMVAST  := 0;
          ICMS.pRedBCST:= 0;
          ICMS.vBCST   := 0;
          ICMS.pICMSST := 0;
          ICMS.vICMSST := 0;
          ICMS.pRedBC  := 0;

          // partilha do ICMS e fundo de probreza
          with ICMSUFDest do
          begin
            vBCUFDest      := 0.00;
            pFCPUFDest     := 0.00;
            pICMSUFDest    := 0.00;
            pICMSInter     := 0.00;
            pICMSInterPart := 0.00;
            vFCPUFDest     := 0.00;
            vICMSUFDest    := 0.00;
            vICMSUFRemet   := 0.00;
          end;
        end;

        with PIS do
        begin
          CST      := pis04;
          PIS.vBC  := 0;
          PIS.pPIS := 0;
          PIS.vPIS := 0;

          PIS.qBCProd   := 0;
          PIS.vAliqProd := 0;
          PIS.vPIS      := 0;
        end;

        with PISST do
        begin
          vBc       := 0;
          pPis      := 0;
          qBCProd   := 0;
          vAliqProd := 0;
          vPIS      := 0;
        end;

        with COFINS do
        begin
          CST            := cof04;
          COFINS.vBC     := 0;
          COFINS.pCOFINS := 0;
          COFINS.vCOFINS := 0;

          COFINS.qBCProd   := 0;
          COFINS.vAliqProd := 0;
        end;

        with COFINSST do
        begin
          vBC       := 0;
          pCOFINS   := 0;
          qBCProd   := 0;
          vAliqProd := 0;
          vCOFINS   := 0;
        end;
      end;
    end;
    //
    // FIM PRODUTO
    //
    Total.ICMSTot.vBC          := 0;
    Total.ICMSTot.vICMS        := 0;
    Total.ICMSTot.vBCST        := 0;
    Total.ICMSTot.vST          := 0;
    Total.ICMSTot.vProd        := 100;
    Total.ICMSTot.vFrete       := 0;
    Total.ICMSTot.vSeg         := 0;
    Total.ICMSTot.vDesc        := 0;
    Total.ICMSTot.vII          := 0;
    Total.ICMSTot.vIPI         := 0;
    Total.ICMSTot.vPIS         := 0;
    Total.ICMSTot.vCOFINS      := 0;
    Total.ICMSTot.vOutro       := 0;
    Total.ICMSTot.vNF          := 100;
    // partilha do icms e fundo de probreza
    Total.ICMSTot.vFCPUFDest   := 0.00;
    Total.ICMSTot.vICMSUFDest  := 0.00;
    Total.ICMSTot.vICMSUFRemet := 0.00;
    Total.ISSQNtot.vServ       := 0;
    Total.ISSQNTot.vBC         := 0;
    Total.ISSQNTot.vISS        := 0;
    Total.ISSQNTot.vPIS        := 0;
    Total.ISSQNTot.vCOFINS     := 0;

    Total.retTrib.vRetPIS      := 0;
    Total.retTrib.vRetCOFINS   := 0;
    Total.retTrib.vRetCSLL     := 0;
    Total.retTrib.vBCIRRF      := 0;
    Total.retTrib.vIRRF        := 0;
    Total.retTrib.vBCRetPrev   := 0;
    Total.retTrib.vRetPrev     := 0;

    Transp.modFrete := mfSemFrete; // NFC-e não pode ter FRETE

    with pag.New do
    begin
      tPag := fpDinheiro;
      vPag := 100;
    end;
    infRespTec.CNPJ     := '04802755000160';
    infRespTec.xContato := 'RENE COSTA CABRAL';
    infRespTec.email    := '[email protected]';
    infRespTec.fone     := '1732249154';
  end;
  ACBrNFCe1.NotasFiscais.GerarNFe;
  ACBrNFCe1.NotasFiscais.GravarXML(ExtractFilePath(Application.ExeName) + '\nfe\000001A.xml');
  ACBrNFCe1.NotasFiscais.Assinar;
  ACBrNFCe1.NotasFiscais.GravarXML(ExtractFilePath(Application.ExeName) + '\nfe\000001.xml');
  ACBrNFCe1.Enviar(1,true);

000001.xml

[BigWings]

28 minutos atrás, Rene costa cabral disse:

    Ide.tpEmis    := TpcnTipoEmissao(1); // verificar

 

[Rene costa cabral]

Problema resolvido amigo, valeu pela atenção

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.