Leandro Araújo

Desculpe italojjr, vou tomar mais cuidado ao observar os tópicos. Ok, muito obrigado, estarei verificando.

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.

Observei que o problema está acontecendo no 'TNotasFiscais.LoadFromFile'.

Também estou com o mesmo problema, aqui estou utilizando o 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 (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.

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.

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;

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.

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;

Usando desse modo eu consegui efetuar o cancelamento para o provedor Coplan, aqui no MT. Muito obrigado.

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.

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.

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.

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.

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.

Olá, bom dia. Estou com um problema ao cancelar uma NFS-e em ambiente de homologação pelo provedor Coplan. Observei que o XML do pedido de cancelamento não está preenchendo o Código de Cancelamento, o restante das informações parecem estar corretas. A forma de preencher estou fazendo da seguinte maneira: function TFrmCadPedido.CancelarNFSe: boolean; var vCodigo, vMotivo: String; begin try try Result := False; if OpenDialogNFSe.Execute then begin DMNFSe.ObjetoNFSe.NotasFiscais.Clear; DMNFSe.ObjetoNFSe.NotasFiscais.LoadFromFile(OpenDialogNFSe.Filename); // Codigo de Cancelamento // 1 - Erro de emissão // 2 - Serviço não concluido // 3 - RPS Cancelado na Emissão //if not(InputQuery('Cancelar NFSe', // 'Código de Cancelamento:' + #13 + // '1 - Erro de emissão' + #13 + // '2 - Serviço não concluído' + #13 + // '3 - RPS Cancelado na Emissão', vCodigo)) then // Exit; // Provedor Equiplano é obrigatório o motivo de cancelamento // if not(InputQuery('Cancelar NFSe', 'Motivo de Cancelamento', vMotivo)) then // Exit; //DMNFSe.ObjetoNFSe.NotasFiscais.Items[0].NFSe.MotivoCancelamento:= vMotivo; DMNFSe.ObjetoNFSe.WebServices.CancNfse.CodigoCancelamento := '2'; DMNFSe.ObjetoNFSe.WebServices.CancNfse.MotivoCancelamento := 'SERVIÇO NÃO CONCLUÍDO'; DMNFSe.ObjetoNFSe.WebServices.CancNfse.CNPJ := '06137422000190'; DMNFSe.ObjetoNFSe.WebServices.CancNfse.IM := '4147'; DMNFSe.ObjetoNFSe.WebServices.CancNfse.CodigoMunicipio := '5102678'; DMNFSe.ObjetoNFSe.WebServices.CancNfse.NumeroNFSe := '283'; Result := DMNFSe.ObjetoNFSe.WebServices.CancelaNFSe(vCodigo, False); // Result := DMNFSe.ObjetoNFSe.CancelarNFSe(vCodigo); end; except on E: Exception do begin Result := False; end; end; finally end; end; O XML do Pedido de Cancelamento gerado é esse: <?xml version="1.0"?> -<CancelarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> -<Pedido> -<InfPedidoCancelamento Id="pedidoCancelamento_061374220001904147283"> -<IdentificacaoNfse> <Numero>283</Numero> -<CpfCnpj> <Cnpj>06137422000190</Cnpj> </CpfCnpj> <InscricaoMunicipal>4147</InscricaoMunicipal> <CodigoMunicipio>5102678</CodigoMunicipio> </IdentificacaoNfse> <CodigoCancelamento/> </InfPedidoCancelamento> </Pedido> </CancelarNfseEnvio> O erro gerado é o seguinte: Código Erro: E9999 Mensagem: Erro Desconhecido Correção: For input string: "" Provedor: Coplan Código Erro: Mensagem: Correção: Provedor: Coplan O que pode estar ocorrendo? Obrigado.

Result := ACBrNFSe1.WebServices.CancelaNFSe('2', '215', '00000000000000', '0000', '5102678'); Agora estou fazendo dessa forma, porém me retorna o erro: E9999 Zero length BigInteger.

Também estou com problema para cancelar uma NFS-e em ambiente de homologação com o provedor Coplan, no MT. O erro que me é retornado é o seguinte: E9999 Mensagem: Erro desconhecido O erro ocorre ao tentar cancelar uma NFS-e com os códigos de cancelamento (1 - Erro de emissão) e (2 - Serviço não concluído). Não tenho idéia do que possa ser. Obrigado.

Sobre a questão da IE do destinatário: "9=Não Contribuinte, que pode ou não possuir Inscrição Estadual no Cadastro de Contribuintes do ICMS; Nota 1: No caso de NFC-e informar indIEDest=9 e não informar a tag IE do destinatário;" Ou seja: Dest.IE := '9'; Obrigado a todos pela ajuda.

Resolvido. Funcionando a versão 3.10. Obrigado.

Obrigado italojjr era isso mesmo. Funcionou aqui também.

Boa tarde lazarinr. Consegui gerar para a versão 3.10. Só tendo erro de duplicidade, vou ver o que estou fazendo de errado. Obrigado pela informação.

Sim italojjr mas se eu não passo nada para esse campo, o mesmo vai como 'ISENTO', e dai me retorna o erro. Poderia me dizer se é o próprio componente que faz isso? Identifica se está vazio e preenche com esse valor? Obrigado.

Poderiam me informar se no estado do Mato Grosso já estamos com os ambientes de homologação e produção na versão 3.10 para NF-e/NFC-e? Obrigado.

Bom dia italojjr, muito obrigado, estou realizando as alterações aqui. Sim, entendo que a versão do XML não tem a ver com a versão do aplicativo da SEFAZ. Uma pergunta, no manual agora diz que na nova versão o campo de IE do destinatário não pode mais ir com o conteúdo 'ISENTO', posso preencher esse campo com por exemplo '123456789' sem problemas? Obrigado novamente.