Ir para conteúdo
  • Cadastre-se

murilo cosme da silva

Membros
  • Total de ítens

    196
  • Registro em

  • Última visita

Tudo que murilo cosme da silva postou

  1. Bom dia a todos do fórum, obrigado Juliomar Marchetti, pela atenção data ai no tópico, olha também acredito que a nfe está exemplificado como fazer, mais ainda estou com dificuldade de entender como pega o nfe autorizado, porque quando eu envio a nfe que esta tudo ok vai e volta o retorno de autorizado e já traz xml autorizado, mais quando eu não tenho o retorno da nfe por algum motivo de erro, ai eu uso uma função de busca nfe pela chave e ai eu só recebo o protocolo mais não vem o xml autorizado. se pudesse poderia me mostrar como trazer o xml autorizado sem ser pela função enviar.
  2. Boa tarde, não consigo nenhum retorno com o manifesto destinatario. codigo implementado.: CNPJ := form1.StatusBar1.Panels[1].Text; (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Indicador de NF-e consultada: 0=Todas as NF-e; 1=Somente as NF-e que ainda não tiveram manifestação do destinatário (Desconhecimento da operação, Operação não Realizada ou Confirmação da Operação); 2=Idem anterior, incluindo as NF-e que também não tiveram a Ciência da Operação.*) indNFe := IntToStr(cbbIndicadorConsulta.ItemIndex); (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Indicador do Emissor da NF-e: 0=Todos os Emitentes / Remetentes; 1=Somente as NF-e emitidas por emissores / remetentes que não tenham a mesma raiz do CNPJ do destinatário (para excluir as notas fiscais de transferência entre filiais).*) IndEmi := '0';//IntToStr(cbbIndicadorEmissor.ItemIndex); (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Último NSU recebido pela Empresa. Caso seja informado com zero, ou com um NSU muito antigo, a consulta retornará unicamente as notas fiscais que tenham sido recepcionadas nos últimos 15 dias.*) ultNSU := RetornaUltNSU; Application.CreateForm(Tfrm_consultaLote, frm_consultaLote); frm_consultaLote.Panel1.Caption := 'Consulta NFE Destinatário'; ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu); frm_consultaLote.Memo1.Lines.Add('Status: ' + IntToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.cStat)); frm_consultaLote.Memo1.Lines.Add('Motivo: ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.xMotivo); frm_consultaLote.Memo1.Lines.Add('Data e Hora do evento: ' + DateTimeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.dhResp)); frm_consultaLote.Memo1.Lines.Add('UltNSU nº ' + AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ultNSU); frm_consultaLote.ShowModal; 12615881418.xml 12616381418.xml 12615881418.xml 12616381418.xml
  3. boa tarde a todos do fórum, gostaria de me expressar melhor no comentário feito acima, como busca o xml autorizado de uma nfe que na hora de enviar deu erro de timeout mais foi autorizada e como só pegar o xml autorizado para trocar o que esta na pasta já que preciso do próprio para imprimir a danfe com o protocolo de autorização.
  4. dentro da função imprimir : TACBrNFe( FACBrNFe ).DANFE.ImprimirDANFE(nil) depois frlDANFeRL := TfrlDANFeRLRetrato.Create(Self) procedure TACBrNFeDANFEClass.Notification(AComponent: TComponent; Operation: TOperation); begin inherited Notification(AComponent, Operation); if (Operation = opRemove) and (FACBrNFe <> nil) and (AComponent is TACBrNFe) then FACBrNFe := nil; end; do modo debug fazem varias referencias a outras units, não da para identificar onde esta o retorno da mensagem.
  5. Bom dia, ainda me encontro com este problema na impressão do danfe via fortes alguém tem uma dica.
  6. Boa noite, estou com uma dificuldade sobre download, vi vários tópicos sobre o assunto mais nenhum da forma que estou querendo entender , o caso é que na hora de enviar a o site estava com algum problema e demorou para retorna a mensagem apos um tempo deu erro de time out, tentei enviar novamente e deu duplicidade de nfe, então fui busca protocolo veio o status de autorizado atualizei os dados no meu sistema só que na hora de imprimir saiu na danfe que a nfe não enviada para a sefaz, então entrei no site baixei o xml e substituir a nfee tentei imprimir novamente , deu certo. Mais como fazer isto como busca uma nfe e fazer automática o download do xml com o protocolo guando este erro acontecer?
  7. Galera foi mal estava usando tag de outro componente.
  8. Boa tarde, estou com uma duvida se tem como gerar nfe com varias duplicadas, apesar do campo Cobr.Dup.Items[iCont].nDup ser string ele não aceita quando coloco "-" por exemplo: n duplicata data venc valor 123-1 15/02/2015 1,00 123-2 15/03/2015 1,00 123-3 15/04/2015 1,00 Como separar os numeros da duplicata?
  9. Fiz uma nota com cst "000" que é de origem tributado, com a aliquota zerada e base calculo, e passou na validação do acbr e o mais incrivel é que a sefaz autorizou, alguem sabe dizer o porque já que antes na versão 2.00 da nfe ela estava validando tudo isto e muito mais coisa. 26150220344939000180550010000002541000001626-nfe.xml
  10. fiz um for for iNRItem := 1 to iTotalItem do begin tbl_movimento.Close; tbl_movimento.SQL.Clear; tbl_movimento.SQL.Add('SELECT * FROM MOVIMENTO WHERE DOCUMENTO = :PDOC'); tbl_movimento.ParamByName('PDOC').AsString := tbl_compra.FieldByName('COD_COMPRA').AsString; tbl_movimento.Open; if not tbl_movimento.IsEmpty then begin if tbl_movimento.Locate('ITEM', FormatFloat('000', iNRItem),[]) then begin with ACBrNFe1.NotasFiscais.Items[0].NFe do begin sNCM := Det.Items[iNRItem].Prod.NCM; {sIPI := sSP_piscofins := } end; tbl_movimento.Edit; tbl_movimento.FieldByName('NCM').AsString := sNCM; tbl_movimento.Post; end; end; end;
  11. Não sei o porque não estou conseguindo pegar esta informação da nfe: with ACBrNFe1.NotasFiscais.Items[0].NFe do begin sNCM := Det.Items[iNRItem].Prod.NCM; {sIPI := sSP_piscofins := } end;
  12. Ok, vamos lá. Fiz o desenvolvimento de uma aplicação usando o componente ACBr com a ajuda de vocês do fórum tirando todas as dificuldades que tive, já estou com o executável pronto autorizando, inutilizando e cancelando até fazendo carta de correção, mais se eu colocar o executável em outro computador, sem ser este que eu desenvolvi um que só tenha o Windows instalado uma maquina nova, ele fica dando erro: list index out of bounds (0) ; Ele chama o certificado e assina, mais da este erro no final e o memo que recebe o retorno fica só com erro, Percebi que dentro da função de assinar tem o seguinte código. procedure Tdlg_EmissorNFe.ValidaXML; begin ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := False; ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%'; LerConfiguracao; try ACBrNFe1.NotasFiscais.Valida; if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas); ShowMessage('Nota Fiscal Eletrônica Valida'); except MemoDados.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao); MemoDados.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto); suiButton10.Tag := 1; PageControl1.ActivePage := TabSheet3; end; end; acho que ele entra neste erro, mais não traz nada a não ser "Erro:"; sobre configuração pequei a pasta Capicom dentro da pasta dll em ACBr e coloquei na maquina que queria instalar o exe e executei o instalar.bat. fora isto só fiz a instalação do certificado como padrão. acredito que falta mais alguma coisa só não consigo identificar. mais uma vez estou recorrendo a vocês, desculpem pelo falta de explicação mais detalhada e agradeço o esforço de todos pela ajuda.
  13. Ok, e que eu quis dizer configurar na verdade, em um sistema do zero o exe que eu desenvolvi junto com o componente acbr, sem ser na maquina que desenvolvo. so consigo funciona na maquina de desenvolvimento.
  14. Não é na hora do desenvolvimento já é a versão copilada pronta para colocar nos clientes, ai esta dando este erro.
  15. bom dia, estou tentando instalar em uma nova maquina apos a conclusão do desenvolvimento nfe com acbr e me deparei com erro de : list index out of bounds (0) mais na minha maquina funciona normalmente e o computador do cliente é windows 8.1, o que é preciso para instalar em outros computadores.
  16. bom dia no caso é nfe, coloco dentro da unit ACBrNFeDANFeRLClass. esta dando erro.
  17. Boa tarde, alguem sabe como tirar este erro na hora de imprimir nfe, estou usando fortesreports. minha versão é 3.72b. Mesmo assim esta imprimindo, Quais os problemas que posso ter com esta versão ? seque em anexo erro e danfe.
  18. mais como adiciono ele na aba acbr , já estou atualizando e depois clico em instalar normalmente. mais não aparece outro componente a disposição.
  19. Boa tarde, ele esta como retrato, agora depois que vc falou comercei a observar que o nome do componente na paleta acbr esta com: ACBrNFeDANFCeFortes, sera que não tem suporte para nfe para o fortes, que é o que estou usando para impressão?
  20. bom dia, segue em anexo xml solicidado. 26150120344939000180550010000001841000001740-nfe.xml
  21. boa noite, estou com uma dificuldade de imprimir a danfe da nfe, mesmo classificando o modelo para modnfe. como no exemplo abaixo. ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; ainda a nota fica saindo nfce. estou rodando com fortes.
  22. onde adquiriu a versão quick report 5, pois no site "https://www.quickreport.co.uk/", não estou tendo retorno do vendedor.
  23. Boa dia, Estou implementando meu sistema para manifesto destinatario, mais não estou sabendo como proceder já que sempre retorna esta mensagem. Alguém que já esteja adiantado pode me ajudar como posso proceder os testes. Nenhum documento localizado para o destinatario
  24. Boa tarde onde consigo esta senha porque não vejo nada onde obter comprar. Edições Professional requer uma senha.
×
×
  • 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.

The popup will be closed in 9 segundos...
The popup will be closed in 9 segundos...