Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Curso Dominando a NFCe - Fim do SAT em São Paulo? Esteja preparado Curso Responsável Técnico na NFe - Atenda à nova legislação Curso Dominando o ACBrBoleto - Via API ou CNAB Seja um membro do ACBr Pro e agilize seu software Participe do Discord do ACBr Regras e orientações da nossa comunidade

mathlopes

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    39

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por mathlopes

    ACBRNFSe Uberlândia/MG - DSF

    em ACBrNFSe

    Postado

    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. 

    ACBRNFSe Uberlândia/MG - DSF

    em ACBrNFSe

    Postado

    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 ?

    Recuperar XML de Protocolo

    em ACBrMDFe

    Postado

    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 ?

    Falha no Schema XML específico para o evento 630

    em ACBrMDFe

    Postado

    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?

    Problema com Distribuição - Erro 12002 - TimeOut

    em ACBrNFe

    Postado

    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

     

    XML Completo pelo método DistribuicaoDFePorNSU

    em ACBrNFe

    Postado

    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 

    Envio de NF-e e Atualização do ACBR

    em ACBrNFe

    Postado

    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?

     

    Chamada duplicada do evento onclick no Delphi

    em ACBrNFe

    Postado · Editado por mathlopes

    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.