Ir para conteúdo
  • Cadastre-se

mathlopes

Membros
  • Total de ítens

    39
  • Registro em

  • Última visita

Posts postados por mathlopes

  1. O .ini está atualizado, a função que estou usado é esta: 

    procedure TfrmDemo_ACBrNFSe.btnGerarEnviarNFSeClick(Sender: TObject);
    var
      vNumRPS, sNomeArq: String;
    begin
      if not(InputQuery('Gerar e Enviar NFSe', 'Numero do RPS', vNumRPS)) then
        exit;
    
      ACBrNFSe1.NotasFiscais.Clear;
      AlimentaComponente(vNumRPS, '1');
    
      ACBrNFSe1.Gerar(StrToInt(vNumRPS));
      sNomeArq := ACBrNFSe1.NotasFiscais.Items[0].NomeArq;
    
      ACBrNFSe1.NotasFiscais.Clear;
      ACBrNFSe1.NotasFiscais.LoadFromFile(sNomeArq);
      ACBrNFSe1.NotasFiscais.Imprimir;
    
      MemoDados.Lines.Add('Arquivo Carregado de: ' + ACBrNFSe1.NotasFiscais.Items
        [0].NomeArq);
      MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
      LoadXML(MemoResp, WBResposta);
      pgRespostas.ActivePageIndex := 1;
    end;

    Tentei atualizar agora e tentei fazer o envio, e ocorre o mesmo erro que descrevi no tópico. 

  2. Estou testando o componente ACBRNFSe para Uberlândia MG onde o provedor é DSF, estou usando o exemplo TRUNK2 FRM_DEMO_ACBrNFSe porem o mesmo está me retornando um erro:

     ErroNFSe.PNG.133ac64174c447572f22c01143bbbd55.PNG

    O erro é descrito como: não e encontrei final do elemento  : </RPS>,  erro retornado na linha 299 da função  SSL.Assinar  do arquivo ACBrNFSeNotasFiscais.pas.

    if Assina then
          FXMLAssinado := SSL.Assinar(String(XMLUTF8), DocElemento, InfElemento, '', '', '', IdAttr)
    else

    Esse é o xml que está sendo montado: OBS: Nome e dados do cliente foram substituídos por 0000 e XXXX.

    <?xml version="1.0" encoding="UTF-8"?>
    <RPS Id="rps:1">
    	<Assinatura>7bf4e84060fc027ac9f516a48b6df90d1c262aef</Assinatura>
    	<InscricaoMunicipalPrestador>15138500</InscricaoMunicipalPrestador>
    	<RazaoSocialPrestador>XXXX LTDA.</RazaoSocialPrestador>
    	<TipoRPS>RPS</TipoRPS>
    	<SerieRPS>NF</SerieRPS>
    	<NumeroRPS>1</NumeroRPS>
    	<DataEmissaoRPS>2019-09-18T10:27:04</DataEmissaoRPS>
    	<SituacaoRPS>N</SituacaoRPS>
    	<SeriePrestacao>99</SeriePrestacao>
    	<InscricaoMunicipalTomador>0000000</InscricaoMunicipalTomador>
    	<CPFCNPJTomador>xxxxxxxxxxxxx</CPFCNPJTomador>
    	<RazaoSocialTomador>XXXX LTDA</RazaoSocialTomador>
    	<DocTomadorEstrangeiro/>
    	<TipoLogradouroTomador/>
    	<LogradouroTomador>AV. LAZARA </LogradouroTomador>
    	<NumeroEnderecoTomador>0</NumeroEnderecoTomador>
    	<ComplementoEnderecoTomador>SALA 03</ComplementoEnderecoTomador>
    	<TipoBairroTomador/>
    	<BairroTomador>SANTA MONICA</BairroTomador>
    	<CidadeTomador>5403</CidadeTomador>
    	<CidadeTomadorDescricao>Uberlandia/MG</CidadeTomadorDescricao>
    	<CEPTomador>38408092</CEPTomador>
    	<EmailTomador>www.xxxxx.com.br</EmailTomador>
    	<CodigoAtividade>4618499</CodigoAtividade>
    	<AliquotaAtividade>2.0000</AliquotaAtividade>
    	<TipoRecolhimento>A</TipoRecolhimento>
    	<MunicipioPrestacao>5403</MunicipioPrestacao>
    	<MunicipioPrestacaoDescricao>Uberlandia/MG</MunicipioPrestacaoDescricao>
    	<Operacao>A</Operacao>
    	<Tributacao>C</Tributacao>
    	<ValorPIS>0.07</ValorPIS>
    	<ValorCOFINS>0.30</ValorCOFINS>
    	<ValorINSS>0.30</ValorINSS>
    	<ValorIR>0.48</ValorIR>
    	<ValorCSLL>0.00</ValorCSLL>
    	<AliquotaPIS>0.0000</AliquotaPIS>
    	<AliquotaCOFINS>0.0000</AliquotaCOFINS>
    	<AliquotaINSS>0.0000</AliquotaINSS>
    	<AliquotaIR>0.0000</AliquotaIR>
    	<AliquotaCSLL>0.0000</AliquotaCSLL>
    	<DescricaoRPS>Pagamento a Vista</DescricaoRPS>
    	<DDDPrestador/>
    	<TelefonePrestador/>
    	<DDDTomador>34</DDDTomador>
    	<TelefoneTomador>000000</TelefoneTomador>
    	<Itens>
    		<Item>
    			<DiscriminacaoServico>DESENVOLVIMENTO DE WEBSITE</DiscriminacaoServico>
    			<Quantidade>1.0000</Quantidade>
    			<ValorUnitario>10.00</ValorUnitario>
    			<ValorTotal>0.00</ValorTotal>
    			<Tributavel>S</Tributavel>
    		</Item>
    	</Itens>
    </RPS>

      Como podemos observar o xml está com a tag final </RPS>, alguém sabe o que está acontecendo ?

  3. Quando e feito um MDF-e o mesmo retorna um XML de protocolo como resposta, meu problema e que em um XML de protocolo não foi salvo. Como eu consigo recuperar o XML de protocolo de envio de MDF-e depois de ter sido enviado ?

  4. Foi feita a tentativa de encerrar um MDFe (que estava sem XML assinado e sem o protocolo XML assinado). o mesmo exigiu que colocassemos o XML. Infelizmente o SEFAZ do RS estava fora do ar e não conseguimos recuperar os XML ou mesmo encerrar por la mesmo. Resolvemos no código mesmo para ele nãoi necessitar pegar o XML mas ai tivemos a seguinte mensagem de erro:

     

    <retEventoMDFe xmlns="http://www.portalfiscal.inf.br/mdfe" versao="3.00"><infEvento><tpAmb>1</tpAmb><verAplic>RS20190308130734</verAplic><cOrgao>31</cOrgao><cStat>630</cStat><xMotivo>Rejeição: Falha no Schema XML específico para o evento</xMotivo></infEvento></retEventoMDFe>

     

    Esse erro esta acontecendo com mais alguém, e como posso resolver?

  5. Hoje pela amanhã alguém está conseguindo buscar as notas pelo método DistribuicaoDFePorUltNSU. Fiz estas configurações infelizmente comigo não funcionou, continuo recebendo a mensagem de time out e meu intervalo de tempo já esta em 50000 milisegundos.

    Em 23/05/2019 at 11:04, Filipe Doblinski disse:

    estava sofrendo muito com esse problema ai encontrei um site: Freitas Automação (http://www.freitasautomacao.com.br/noticias/erro-nfe-inativo-ou-inoperante-tente-novamente/) e depois que mudei a configuração da maquina consegue retorno de 100% das requisições sem problema, fiz em um cliente hoje, vou fazer em mais alguns e posto o resultado, mas aparentemente resolveu o problema

     

     

    NewItem1048.jpg

     

  6. Foi feita a manifestação do destinatário da nota porem ainda não consigo traze - la por completo usando o método  DistribuicaoDFePorNSU. Por sorte consegui usar o método DistribuicaoDFePorChaveNFe e consigo trazer o XML da nota por completo.

    XML do   DistribuicaoDFePorNSU

    <?xml version="1.0" encoding="UTF-8"?>
    <resNFe versao="1.01" xmlns="http://www.portalfiscal.inf.br/nfe" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    	<chNFe>311903XXXXXXXXXXXXXX550010000966691000114006</chNFe>
    	<CNPJ>XXXXXXXXXXXXXX</CNPJ>
    	<xNome>MAQNELSON AGRICOLA LTDA</xNome>
    	<IE>7029986900035</IE>
    	<dhEmi>2019-03-12T07:20:00-03:00</dhEmi>
    	<tpNF>1</tpNF>
    	<vNF>98.00</vNF>
    	<digVal>D9yxssCrM7BufzAYGbvAYhP51DM=</digVal>
    	<dhRecbto>2019-03-12T07:24:04-03:00</dhRecbto>
    	<nProt>131193226032177</nProt>
    	<cSitNFe>1</cSitNFe>
    </resNFe>07791111000102

    Preciso do XML completo 

  7. Tentei enviar uma NF-e , a mesma me resultou na Rejeição: Não informada vBCSTRet, pST, vICMSSubstituto e vICMSSTRet, apos fazer uma atualização no ACBR devido a um posts e configurar ForcarGerarTagRejeicao938  com fgtsempre ainda tenho problemas ao enviar a nota. Mas como SEFAZ de MG esta em contingencia 07/05/2019 15:40:24 até 10/05/2019 12:00:00 quando eu faço o envio da nota com ACBR atualizado recebo a Rejeição: Nao e permitida a presenca de caracteres de edicao no inicio/fim da mensagem ou entre as tags da mensagem. Quando eu envio a nota do outra maquina que está sem atualização do ACBR a nota e enviada. O que pode ter acontecido?

     

  8. Ao executar o evento onclick (do botao btn_ImportarNFe) o programa chama o mesmo evento onclick novamente a partir da chamada do método `Nfe.EnviarEvento(StrToInt(IDLote));` do segundo trecho de código (ver listagem completa abaixo). Ao executar o mesmo evento onclick em modo debug essa segunda chamada não acontece.

    Trecho de código da Procedure ImportarNFe:

    procedure Tfrm_LancamentosDespesas.btn_ImportarNFeClick(Sender: TObject);
    var
      dlgImportarNFe       : TFrm_BuscarChave;
      Chave, CNPJ, idLote  : string;
      i                    : Integer;
      XMLtsl               : TStringList;
      XMLStream            : TStringStream;
    begin
      dlgImportarNFe :=  TFrm_BuscarChave.Create(nil);
      XMLtsl    := TStringList.Create;
      XMLStream := TStringStream.Create;
    
      dlgImportarNFe.ShowModal;
    
      if dlgImportarNFe.ModalResult = mrCancel then
      begin
        Exit
      end
      else
      begin
        if dlgImportarNFe.chk_BuscarXML.Checked = False then
        begin
          Chave          := dlgImportarNFe.edt_Chave.Text;
          CNPJ           := dm.EmpresaControlada.CGC;
          idLote         := '1';
    
          dlgImportarNFe.free;
    
          dm_NFe.EventoConfirmacao(Chave, idLote, CNPJ);
          dm_NFe.DistribuicaoDFePorChaveNFe(31, CNPJ, Chave);
          op.FileName    := dm_NFe.nfe.Configuracoes.Arquivos.DownloadNFe.PathDownload + dm_NFe.nfe.WebServices.DistribuicaoDFe.ListaArqs[0];
        end;

    Trecho de código com método EnviarEvento :

    procedure Tdm_NFe.EventoConfirmacao(Chave, idLote, CNPJ: string);
    var
      lMsg      : string;
      RetornoWS : string;
    begin
      Chave  := Trim(OnlyNumber(Chave));
      idLote := Trim(OnlyNumber(idLote));
      CNPJ   := Trim(OnlyNumber(CNPJ));
    
      nfe.Configuracoes.WebServices.Ambiente      := dm_NFe.tipoAmbiente;
      nfe.Configuracoes.Certificados.NumeroSerie  := dm_logon.dat_EmpresaCTRLNUMSERIE_NFE.AsString;
      nfe.Configuracoes.WebServices.UF            := 'MG';
      DataModuleCreate(nil);
    
      Nfe.EventoNFe.Evento.Clear;
      with Nfe.EventoNFe.Evento.Add do
      begin
        InfEvento.cOrgao   := 91;
        infEvento.chNFe    := Chave;
        infEvento.CNPJ     := CNPJ;
        infEvento.dhEvento := now;
        infEvento.tpEvento := teManifDestConfirmacao;
      end;
    
      Nfe.EnviarEvento(StrToInt(IDLote));

    Alguem sabe o que pode estar acontecendo?

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.