Jump to content

Joselito Nascimento

Membros
  • Content Count

    19
  • Joined

  • Last visited

Community Reputation

2 Neutral

About Joselito Nascimento

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Caro Italo, Também estou com o mesmo problema, baixei a última atualização de Salvador.ini datada de 22/05/2018, mesmo assim, continua com o mesmo erro.
  2. Prezados, Estou a dias com problema na inutilização de numeração de Nota Fiscal. a SEFAZ-PE retorna sempre a mensagem de Limite de tempo atingido. Já tentei aumentar o timeout e mesmo assim continua apresentando o erro. Entretanto este erro ocorre apenas em ambiente de produção, pois se executar a mesma rotina em ambiente de homologação, a numeração é inutilizada sem problema. Abaixo mostro a mensagem do erro. Agradeço antecipadamente que puder ajudar.
  3. Italo, Na verdade eu não havia observado isso, foi o cliente que me alertou para o fato, por isso, não posso afirmar com certeza, mas acredito que desde o início, só mostrava as NFe emitidas pela filial. Grato
  4. Italo, Tem mais um detalhe, só estão aparecendo as NFe emitidas pela filial, as NFe emitidas pelos fornecedores não aparecem.
  5. Italo, Analisei o .XML em questão e verifiquei que não foi informado nada para o grupo <autXML> (vide .XML anexo), entretanto, observei que o CNPJ da matriz está no grupo da transportadora, será que é por isso que está sendo mostrado na manifestação. Se for por isso, outra dúvida. A transportadora pode fazer a manifestação ? Grato Joselito Nascimento 002-8045.xml
  6. Caros colegas, Estou com o seguinte problema, um cliente possui uma matriz e uma filial, ao tentar efetuar a manifestação do destinatário da Matriz, retorna notas fiscais emitidas pela Filial para os seus clientes. Fazendo a consulta na filial, retorna as notas fiscais dos seus fornecedores emitidas contra ela normalmente. Abaixo segue rotina e imagem da consulta incluindo consulta da NF-e no portal nacional. Agradeço a ajuda. Rotina cUFAutor := '26'; CNPJ := Dm1.sCNPJ; ANSU := ''; try if DM1.NFe.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,ultNSU,ANSU) then begin ................. Imagem do retorno
  7. Entendo... qual seria o melhor caminho a seguir para evitar a referida mensagem de erro ?
  8. Vou editar alguma coisa pra não ficar muito grande OK ? os UPDATES foram editados. msgEnvio := msgInicio + ' Preenchendo dados pós envio...'; with Dm1.QyAuxiliar do begin Close; if copy(CBoxTpMov.Text,1,1) = '1' then // Saida begin Sql.Text := 'UPDATE TbSaidaFiscal ... end else begin Sql.Text := 'UPDATE TbEntradaFiscal ... end; Parameters.ParamByName('NUMERONFISCAL').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('SERIENFISCAL').Value := IntToStr(Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.serie); Parameters.ParamByName('FLGNFE').Value := 'E'; Parameters.ParamByName('PLACAVEICULO').Value := EdPlaca.Text; Parameters.ParamByName('UFPLACA').Value := EdUf.Text; Parameters.ParamByName('IDTRANSPORTADORA').Value := TbTransportadoraIDTransp.AsString; Parameters.ParamByName('DATASAIDA').Value := DatSai.Date; Parameters.ParamByName('CHAVENFE').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Parameters.ParamByName('PROTOCOLONFE').Value := m1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Parameters.ParamByName('NUMRECEBIMENTONFE').Value:= Dm1.NFe.WebServices.Retorno.NFeRetorno.nRec; Parameters.ParamByName('TIPOEMISSAONFE').Value := Dm1.sTipoEmissaoNFE; Parameters.ParamByName('DATAEMISSAO').Value := DatEmi.Date; ExecSQL; end; // seta canhoto da nfe Dm1.danfeRL.ExibirResumoCanhoto_Texto := 'EMISSÃO: ' + FormatDateTime('DD/MM/YYYY', Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.dEmi) + ' - ' + 'DEST. / REM.: ' + Dm1.NFe.NotasFiscais.Items[0].NFe.Dest.xNome + ' - ' + 'PEDIDO: ' + Dm1.QyGeral.FieldByName('IDPEDIDO').AsString + ' - ' + 'VALOR TOTAL: R$ ' + FormatFloat('###,###,###,##0.00', Dm1.NFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF); Dm1.NFe.NotasFiscais.Imprimir; end; except on e: exception do begin // em caso de nota fiscal denegada, registra a ocorrencia if (Dm1.NFe.WebServices.Retorno.cStat = 110) or (Dm1.NFe.WebServices.Retorno.cStat = 301) or (Dm1.NFe.WebServices.Retorno.cStat = 302) then begin if (Dm1.NFe.WebServices.Retorno.cStat = 110) then ObsDeneg := '110-NFE DENEGADA' else if (Dm1.NFe.WebServices.Retorno.cStat = 301) then ObsDeneg := '301-NFE DENEGADA-IRREGULARIDADE FISCAL DO EMITENTE' else if (Dm1.NFe.WebServices.Retorno.cStat = 302) then ObsDeneg := '302-NFE DENEGADA-IRREGULARIDADE FISCAL DO DESTINATARIO'; with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TbSaidaFiscal .... Parameters.ParamByName('FlgNFE').Value := 'E'; Parameters.ParamByName('ChaveNFe').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Parameters.ParamByName('PROTOCOLONFE').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Parameters.ParamByName('Observacao1').Value := ObsDeneg; Parameters.ParamByName('SituacaoNFiscal').Value := 'D'; Parameters.ParamByName('NumeroNFiscal').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('SERIENFISCAL').Value := EdSerieNF.Text; Parameters.ParamByName('DataEmissao').Value := DatEmi.Date; ExecSQL; end; // atualiza o pedido com o numero da NF with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TbPedido SET NFEmitida = ''N'', ' + 'NFNumero = Null, NFSerie = NULL ' + 'WHERE NFNumero = :NFNumero AND NFSerie = :NFSerie ' ; Parameters.ParamByName('NFNumero').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('NFSerie').Value := EdSerieNF.Text; ExecSQL; end; end else begin with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TbSaidaFiscal SET DataEmissao = :DataEmissao,' + 'ChaveNFe = :ChaveNFe ' + 'WHERE NumeroNFiscal = :NumeroNFiscal ' + 'AND SERIENFISCAL = :SERIENFISCAL ' ; Parameters.ParamByName('NumeroNFiscal').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('SERIENFISCAL').Value := EdSerieNF.Text; Parameters.ParamByName('DataEmissao').Value := DatEmi.Date; Parameters.ParamByName('ChaveNFe').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; ExecSQL; end; // Em caso de erro, não vem o numero do protocolo, aqui tentamos pegar novamente Dm1.NFe.WebServices.Consulta.NFeChave := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; // try Application.ProcessMessages; Dm1.NFe.WebServices.Consulta.Executar; with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TBSAIDAFISCAL SET PROTOCOLONFE = ' + QuotedStr(Dm1.NFe.WebServices.Consulta.Protocolo) + ' ' + 'WHERE CHAVENFE = ' + QuotedStr(Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe) + ' ' ; ExecSQL; end; finally Cursor := crDefault; end; end; if trim(Dm1.NFe.WebServices.Retorno.Msg) = '' then begin MessageDlg(e.Message,mtError,[mbOK],0); end else begin if (Dm1.NFe.WebServices.Retorno.cStat = 110) or (Dm1.NFe.WebServices.Retorno.cStat = 301) or (Dm1.NFe.WebServices.Retorno.cStat = 302) then begin MessageDlg(Dm1.NFe.WebServices.Retorno.Msg + 'CHAVE: ' + Dm1.NFe.WebServices.Retorno.ChaveNFe + chr(13) + 'O Pedido Está Liberado Para Gerar Nova Nota Fiscal',mtError,[mbOK],0); end else begin MessageDlg(Dm1.NFe.WebServices.Retorno.Msg + chr(13) + 'CHAVE: ' + Dm1.NFe.WebServices.Retorno.ChaveNFe + chr(13) + 'Ocorreu Um Erro no Retorno do XML. Verifique Necessidade de Cancelar a NF-e',mtError,[mbOK],0); end; end; exit; end; end; // 0-fim
  9. Caro André, Aí é que a porca torce o rabo, não consegui simular o erro na máquina de desenvolvimento, pelo contrário aqui a NF-e é enviada tanto em ambiente de produção como em ambiente de homologação. Mas acredito que seja algo com relação ao sistema operacional, pois em outra máquina do mesmo cliente, conseguimos enviar ontem, já em uma outra máquina dele, conseguia enviar em ambiente de homologação mas dava o erro no ambiente de produção. Para desencargo de consciência, registramos novamente a capicom.dll, a versão que trabalhamos é a 2.1.0.2. o windows do nosso cliente é o XP, com a atualização automática desativada e nada. Com relação ao nosso programa, fazemos apenas o café com leite, como segue abaixo: 01) Selecionamos os dados da NFe; 02) Alimentamos os atributos do TACBrNFe com os dados da seleção; 03) Executamos como segue abaixo: msgEnvio := msgInicio + ' Gerando NFe...'; Dm1.NFe.NotasFiscais.GerarNFe; msgEnvio := msgInicio + ' Assinando NFe...'; Dm1.NFe.NotasFiscais.Assinar; msgEnvio := msgInicio + ' Validando NFe...'; Dm1.NFe.NotasFiscais.Valida; msgEnvio := msgInicio + ' Enviando NFe...'; //Dm1.NFe.WebServices.Envia(0); Dm1.NFe.Enviar(0,false,false); 04) Tratamos o retorno. PS) O erro ocorre quando se tenta enviar para fazenda, haja visto que ocorre após a mensagem "Enviando NFe..." ser mostrada. Trocamos o Dm1.NFe.WebServices.Envia(0) por Dm1.NFe.Enviar(0,false,false), mesmo assim continuou com erro. Isso é o que eu tenho por enquanto. Grato Joselito Nascimento
  10. Caros amigos, Desde a ultima sexta-feira, dia 28 de junho, estamos com um problema sério na envio da NFe para a SEFAZ-PE, no ambiente de homologação ocorre tudo sem problema, no entanto no ambiente de produção gera o erro: list index out of bound (0). PS: Importante, trouxe a base do cliente para minha máquina e emiti NFe sem problema tanto em produção como homologação. alguém sabe o que está gerando esse erro e como consertar ? Grato Joselito Nascimento
  11. É o seguinte... Um de nossos clientes precisa destacar a coluna de Imposto Substituto na NF-e, então o que eu fiz, fui no formulário do DANFe, elaborado no Fortes Report e alterei as colunas, como não necessitava da coluna desconto, aproveitei a mesma para colocar o valor do imposto substituto. como fiz isso ?. no delphi abri o pacote cbr\pacotes\delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk, dentro desse pacote existia o arquivo ACBrNFeDANFeRLRetrato, abri o mesmo, fiz as alterações necessárias, recompilei o beleza. Nessa nova versão, não encontro mais esse arquivo para poder alterar. Pergunto: como faço agora para poder alterá-lo ?
  12. Prezados Colaboradores, Antes para alterar o layout do DANFE no Fortes Report eu acessava acbr\pacotes\delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk, abria o pacote e abria o arquivo ACBrNFeDANFeRLRetrato, beleza, abria o form. com a nova versão que atualizei ontem, não consigo fazer o mesmo. Como proceder agora, para alterar o layout do DANFE no Fortes Report? Grato Joselito Nascimento
  13. Caros Amigos, Reinstalei a ACBR para poder atender as novas exigências com relação a Lei da Transparência dos Impostos. Recompilei o programa e tudo OK. Entretanto ao tentar enviar um NF-e no ambiente de homologação (SEFAZ-PE) está ocorrendo erro descrito abaixo: 'Element '{http://www.portalfiscal.inf.br/nfe}vTotTrib' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}imposto.' 'Expecting: {http://www.portalfiscal.inf.br/nfe}ICMS, {http://www.portalfiscal.inf.br/nfe}ISSQN.' O que é necessário fazer para resolver esse erro ? Grato pela ajuda.
×
×
  • Create New...