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

Leandro Araújo

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    155

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Leandro Araújo postou

  1. Leandro Araújo
    Resolvido. Tenho uma classe aqui, chamada TEmitirNFCeClass, nela o processo de envio e resposta fica isolado : TEmitirNFCeClass = class(TInterfacedObject, IInterfaceClassProcess) Onde 'IInterfaceClassProcess' é uma interface que uso para processos no sistema, de modo que outra interface, a 'IInterfaceUpdateGUI' possa observar um objeto que implemente 'IInterfaceClassProcess', desse modo eu atualizo componentes na tela (Progressbar.. etc), conforme o andamento do processo, claro, usando TMultiReadExclusiveWriteSynchronizer para que cada thread leia ou escreva de forma segura no status do processo (objeto) compartilhado entre elas. Esclarecendo, o problema do access violation NÃO tem nada a ver com as mensagens do webservice que são lançadas pelo ACBr NF-e/NFC-e, mas sim por que no envento .OnClose do meu formulário eu tentava dar .free em um objeto que descende de TInterfacedObject, o mesmo já é gerenciado pelo próprio ambiente de execução, e o ambiente se encarregar de liberá-lo. Obrigado a todos.
  2. Leandro Araújo
    Fiz mais testes aqui, realmente parece não ter nada a ver com essa questão dos diálogos. Se eu encontrar alguma solução posto a dica aqui, mas por enquanto, nada a ver com mensagens, nem do ACBr, nem de outro lugar da aplicação. Obrigado.
  3. Leandro Araújo
    Não parece ser...
  4. Leandro Araújo
    Estou é achando que é algo no .FormCreate do outro formulário...
  5. Leandro Araújo
    Então Juiomar, setei para false, a exibição de mensagens dos WS, parece que melhorou. Não sei se estou errado, mas observei que toda vez que mostro algum diálogo que não seja pela thread principal, dá erro de access violation no formulário no qual estava trabalhando. Obrigado.
  6. Leandro Araújo
    Olá, bom dia. Estou com uma dúvida. Passamos o processamento da NF-e/NFC-e para uma thread no nosso sistema, de modo a evitar que tome conta da thread principal. Tenho duas threads, uma que executa o envio e outra que atualiza uma barra de progresso (Synchronized) no form e completa a atualização dos componentes na tela assim que a outra notifica a finalização do processo de envio. Minha única dúvida é com relação aos diálogos do webservice que o ACBr lança na tela, existe alguma maneira, não sei, de jogar esses diálogos na thread principal, da VCL, ou os mesmos já executam na thread principal? Sendo que a VCL ocupa a fila principal do programa... Acontece que estou tendo um problema ao voltar para o formulário, está dando um erro no .ShowModal nesse formulário, e acontece após mostrar alguma mensagem do WebService. Também vou verificar com quem desenvolveu a parte de chamar o form, mas por enquanto, alguém tem alguma idéia? Obrigado.
  7. Leandro Araújo
    Poderia me dizer que alteração que é essa? Obrigado.
  8. Leandro Araújo
    Desculpe postar em um tópico antigo, mas atualmente estou passando pelo mesmo problema, em Terminal Server, ao emitir NF-e/NFC-e. Será que tem algo a ver com isso: http://support.microsoft.com/kb/2401588
  9. Leandro Araújo
    Atualizei os fontes. Criei uma procedure 'ProcessarAposSucessoConsulta', lá eu: - Processo ações se houve sucesso de comunicação e verificação via webservices. - Se a nota foi confirmada gravo as informações referentes a nota, salvo o arquivo .xml e o DANFE e/ou altero informações de um pedido pendente. Na parte da impressão fiz assim: DMNFSe.ObjetoDANFENFSe.ImprimirDANFSe( DMNFSe.ObjetoNFSe.WebServices.ConsLote.NotasFiscais.Items[0].NFSe); // Ou ACBrNFSe1.ImprimirDANFSe(ACBrNFSe1.WebServices.ConsLote.NotasFiscais.Items[0].NFSe); E funcionou! Se eu fizer assim, não funciona direito: ACBrNFSe1.WebServices.ConsLote.NotasFiscais.Items[0].Imprimir; Vou realizar mais testes. Qualquer coisa nova posto aqui novamente. Percebi sim algumas diferenças entre os .xml's. Desculpem mas não queria colocar aqui os .xml's pelo motivo de haver dados de clientes. Ainda é necessário? Muito obrigado.
  10. Leandro Araújo
    Atualizei os fontes, e continua não trazendo as informações. Desculpe ter repetido nos tópicos, agora eu continuo nesse mesmo ou nesse outro: Seria o mais adequado, ou não? Já que o problema é com relação ao carregar as informações do XML a partir do arquivo. Tentei carregar um XML gerado pelo site, e funcionou. Há algumas diferenças no arquivo. Muito obrigado.
  11. Leandro Araújo
    Desculpe italojjr, vou tomar mais cuidado ao observar os tópicos. Ok, muito obrigado, estarei verificando.
  12. Leandro Araújo
    Também estou com esse problema, no provedor Coplan. Se eu consultar logo após o envio e o RPS for processado, ele me imprime o Danfe completo, mas se tento consultar depois, o Danfe vem incompleto, faltando informações e os campos da NFS-e. Fiz o teste tentando carregar de um TStringStream mas mesmo assim vem incompleto. DMNFSe.ObjetoNFSe.NotasFiscais.Clear; OpenDialogNFSe.Execute; WArquivoXML := TXMLDocument.Create(Self); WArquivoXML.LoadFromFile(OpenDialogNFSe.FileName); WStreamArquivoXML := TStringStream.Create(''); WArquivoXML.SaveToStream(WStreamArquivoXML); DMNFSe.ObjetoNFSe.NotasFiscais.LoadFromStream(WStreamArquivoXML); DMNFSe.ObjetoNFSe.NotasFiscais.Imprimir; WArquivoXML.Free; WStreamArquivoXML.Free; Obrigado pessoal.
  13. Leandro Araújo
    Observei que o problema está acontecendo no 'TNotasFiscais.LoadFromFile'.
  14. Leandro Araújo
    Também estou com o mesmo problema, aqui estou utilizando o Coplan.
  15. Leandro Araújo
    Se eu consultar logo após o envio e o RPS for processado, ele me imprime o Danfe completo, mas se tento consultar depois, o Danfe vem incompleto (Digo no que diz respeito apenas a impressão, o XML vem certo), ou seja, algo haver com o DanfeRL ou algo assim, não sei, estou olhando os fontes do ACBr onde mandar imprimir. Se alguém passou por algo parecido, toda ajuda é bem vinda, só falta isso para terminar a implementação de NFS-e em nosso sistema. Muito obrigado.
  16. Leandro Araújo
    Olá. Estou com um erro ao realizar a impressão do DANFE da NFS-e, após consultar a mesma, o DANFE vem incompleto. Tentei fazer isso mas aqui não funcionou, ele vem faltando informações, só vem o número da nota, o código de verificação e alguns outros dados. Alguém aqui passou por isso? Estou utilizando D7 com Fortes Report. Obrigado.
  17. Leandro Araújo
    Entendido. Só se der algum erro que ele carrega nessa lista as mensagens, caso contrário apenas informações de lote, protocolo, provedor etc. ACBrNFSeWebServices, Linhas: 2998-3023. // Lista de Mensagem de Retorno FMsg := ''; if NFSeRetorno.InfRec.MsgRetorno.Count>0 then begin aMsg:=''; for i:=0 to NFSeRetorno.InfRec.MsgRetorno.Count - 1 do begin FMsg := FMsg + NFSeRetorno.infRec.MsgRetorno.Items[i].Mensagem + IfThen(FMsg = '', '', ' / '); aMsg := aMsg + 'Código Erro : ' + NFSeRetorno.InfRec.MsgRetorno.Items[i].Codigo + LineBreak + 'Mensagem... : ' + NFSeRetorno.infRec.MsgRetorno.Items[i].Mensagem + LineBreak+ 'Correção... : ' + NFSeRetorno.InfRec.MsgRetorno.Items[i].Correcao + LineBreak+ 'Provedor... : ' + FxProvedor + LineBreak; end; end else begin for i:=0 to FNotasFiscais.Count -1 do begin FNotasFiscais.Items[i].NFSe.Protocolo := FProtocolo; FNotasFiscais.Items[i].NFSe.dhRecebimento := FDataRecebimento; end; aMsg := 'Numero do Lote : ' + NFSeRetorno.InfRec.NumeroLote + LineBreak + 'Recebimento... : ' + DFeUtil.SeSenao(FDataRecebimento = 0, '', DateTimeToStr(FDataRecebimento)) + LineBreak + 'Protocolo..... : ' + FProtocolo + LineBreak + 'Provedor...... : ' + FxProvedor + LineBreak; end;
  18. Leandro Araújo
    Olá. Como posso pegar o código da mensagem de erro, por exemplo, queria pegar o código E178, que quer dizer que o lote foi enviado mas ainda não processado pela prefeitura. Estou tentando fazer assim após o envio: WCodRetorno := DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Items[0].Codigo; Mas dá o erro: List Index out of bounds(0) Para confirmar, fiz: ShowMessage(IntToStr(DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Count)); E retorna 0 mesmo. Como faço para pegar aquele código que aparece naquela caixa de diálogo que o próprio componente exibe? Obrigado.
  19. Leandro Araújo
    Obrigado pela dica, mas quando tento assim tenho AccessViolation. Executo logo após enviar. Resolvido, para o evento Enviar: DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Items[0].Codigo;
  20. Leandro Araújo
    Usando desse modo eu consegui efetuar o cancelamento para o provedor Coplan, aqui no MT. Muito obrigado.
  21. Leandro Araújo
    Consegui realizar o cancelamento dessa maneira: DMNFSe.ObjetoNFSe.NotasFiscais.Clear; with DMNFSe.ObjetoNFSe.NotasFiscais.Add do begin NFSe.Numero := FNumNFSe; NFSe.IdentificacaoRps.Numero := FNumRPS; NFSe.IdentificacaoRps.Serie := 'UNICA'; NFSe.IdentificacaoRps.Tipo := trRPS; NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj := FCnpj; NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal := FInscMunicipal; NFSe.PrestadorServico.Endereco.CodigoMunicipio := FCodMunicipio; end; Result := DMNFSe.ObjetoNFSe.CancelarNFSe(IntToStr(FCodigoCancelamento)); Eu estava fazendo errado, desse modo ai funcionou perfeito. Obs.: Não pode faltar o número do RPS se não retorna um erro com a mensagem: Código Erro: E9999 Mensagem: Erro Desconhecido. Correção: Zero length BigInteger Provedor: Coplan Muito obrigado italojjr e aos demais pela ajuda.
  22. Leandro Araújo
    italojjr, realmente, era um erro meu, estava esquecendo de preencher vCodigo, agora preenchi. Fiz um novo teste e observei que está cancelando de fato, pois fui tentar cancelar a mesma NFS-e e me retornou E79 (NFS-e já cancelada), porém, todavia vem aquela resposta do Zero length BigInteger , acho que é só tratar ele depois.. Acabei deixando desse modo: Result := DMNFSe.ObjetoNFSe.WebServices.CancelaNFSe('2', '302', '06137422000190', '4147', '5102678'); Ao tentar cancelar novamente vem E79, ou seja, o cancelamento funcionou, mesmo com a function 'TWebServices.CancelaNFSe' retornando False. Creio que está tudo resolvido.. qualquer coisa posto aqui novamente. Será que posso usar assim? Muito obrigado.
  23. Leandro Araújo
    Olá italojjr, bom dia. Sim, verifiquei e corrigi aqui, obrigado. Testei do outro modo agora.. e vem o erro, Zero length BigInteger. Obs.: Era a falta do número do RPS que causava o erro.
  24. Leandro Araújo
    Tentando realizar o cancelamento dessa maneira: Result := DMNFSe.ObjetoNFSe.WebServices.CancelaNFSe('2', '302', '06137422000190', '4147', '5102678'); Recebo o retorno: Número da NFS-e: 302 Data Hora.: 02/06/14 10:10:57 Logo em seguida o erro: Código Erro: E9999 Mensagem: Erro Desconhecido. Correção: Zero length BigInteger Provedor: Coplan Alguém pode ajudar? Obrigado.
  25. Leandro Araújo
    Observação: Estava olhando o código na unit 'ACBrNFSeWebServices' no método 'TWebServices.CancelaNFSe' existe um parâmetro chamado 'CarregaProps' do tipo Boolean, porém no corpo do método dá pra ver que se eu passar 'CarregaProps' como True ele vai fazer o "contrário" do que propôe. ACBrNFSeWebServices, linhas 2728: function TWebServices.CancelaNFSe(ACodigoCancelamento: String; const CarregaProps: boolean): Boolean; begin if CarregaProps then begin Self.CancNfse.NumeroNFSe := ''; Self.CancNfse.CNPJ := ''; Self.CancNfse.IM := ''; Self.CancNfse.CodigoMunicipio := ''; end; // Aqui está comentado.. não alterado, já veio assim: (* if CarregaProps then begin Self.CancNfse.NumeroNFSe := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.Numero; Self.CancNfse.CNPJ := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj; Self.CancNfse.IM := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.IdentificacaoPrestador.InscricaoMunicipal; Self.CancNfse.CodigoMunicipio := TACBrNFSe( FACBrNFSe ).NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio; end; *) Self.CancNfse.CodigoCancelamento := ACodigoCancelamento; Result := Self.CancNfse.Executar; // Restante da function.... end; A parte que era para carregar as propriedades está comentada, dai no caso, para não alterar o código do ACBr eu estou passando 'CarregaProps' como False: Result := DMNFSe.ObjetoNFSe.WebServices.CancelaNFSe(vCodigo, False); No XML do pedido de cancelamento as informações são preenchidas, mas não o código de cancelamento. Obrigado pessoal.
×
×
  • 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 10 segundos...