Valdir Dill

Boa noite, Fontes atualizados e consulta do protocolo/lote agora está retornando com os dados corretos. Porém, agora não está mais enviando nota, rs. Na verdade, ao que parece, há um erro na nota, mas que eu ainda não consegui entender bem o motivo Estou fazendo assim: Var Vesponse : TNFSeEmiteResponse; begin AimentaCompon; VResponse := ACBrNFSeX1.Emitir(VLote.ToString, meAutomatico); if VResponse.Sucesso then ShowMessage(ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero); A VResponse.Sucesso acima está retornando true, mas o lote não foi recebido, pois, pelo que parece nos arquivos, está com erro de alíquota de ISS. Pelo que vi nos arquivos gerados (anexos..tem vários rs) há um problema na alíquota. Não sei o que pode ser, pois estou informando a alíquota normal. Nesse caso, ou seja, que a nota não foi recebida pelo WS, a VResponse.Sucesso não deveria retornar false e a VResponse.Erros[0].Descricao ter a descrição do erro para mostrar ao usuário? Obrigado! 656UNICA-rps.xml 685-env-lot.xml 685-env-lot-soap.xml 685-rec.xml 685-rec-soap.xml 637650039439684226-con-lot.xml 637650039439684226-con-lot-soap.xml 637650039439684226-con-sit.xml 637650039439684226-con-sit-soap.xml 637650039439684226-lista-nfse-con-lot.xml 637650039439684226-lista-nfse-con-lot-soap.xml 637650039439684226-sit.xml 637650039439684226-sit-soap.xml

Ok, arquivos em anexo. Obrigado! 000000000000680000000000000680000001-con-nfse.xml 000000000000680000000000000680000001-con-nfse-soap.xml 000000000000680000000000000680000001-lista-nfse-con.xml 000000000000680000000000000680000001-lista-nfse-con-soap.xml

Bom dia Fontes atualizados. Na consulta pelo lote, tudo certo. Já a consulta pelo número -> ACBrNFSeX1.ConsultarNFSeporNumero(VNumNF), está ocorrendo um access violation.. O erro ocorre na linha 1042 da ACBrNFSeXProviderABRASFv1.pas (print anexo). Se eu comentar a linha anterior (AuxNode := ANode.Childrens.FindAnyNs('Nfse')), o erro não ocorre. Me parece que a função ANode.Childrens.FindAnyNs('Nfse') destroi o AuxNode e aí quando vai usar novamente na linha seguinte, dá o A.V.

Boa noite, Certo @Italo Giurizzato Junior. Isso vai ser um pouco complicado ter que mudar do componente assim "na marra", rs... Mas, vamos lá. Testei com o novo acbrNFSeX. Deu alguns erros: Veja nos prints anexos que está dando erro de usuário/senha. Mas conferi e esses dados estão corretos. Uso os mesmos dados para fazer o login no site e lá acessa normal. O que etsou alimentando em relação ao login de usuário é: - ACBrNFSeX1.Configuracoes.Geral.Emitente.WSUser := VuserWeb - ACBrNFSeX1.Configuracoes.Geral.Emitente.WSSenha := VSenhaWeb É isso que precisa, certo? O erro na verdade que gera é "start tag expected, '<' not found" (print 2 anexo). Mas debugando dá para notar que o retorno está sendo a "usuário e senha inválidos" (print 1 anexo). Acho que o erro é uma exceção quando o acbr tenta tratar o "usuário e senha inválidos". Então o problema é o usuário e/ou senha, mas se no XML está correto, o que poderia ser? Veja o anexo 332-env-lot-soap.xml. Ali mostra que o usuário e senha estão sendo enviados. Alguma sugestão? 332-env-lot-soap.xml

Boa tarde, Estamos tendo problema no envio de NFSe (ainda componente antigo AcbrNFSe). O erro passou a acontecer de alguns dias para cá. Antes funcionava normal. Cliente enviava notas normalmente há bastante tempo. A nota é enviada, inclusive consta lá no WS. Mas na hora de consultar (logo após envio), ocorrem os seguintes erros: - 000202 - Código de autenticidade nao informado no arquivo de pesquisa - 000203 - Numero da NFSe nao informado no arquivo de pesquisa - 000205 - A tag cadastro nao foi informada no arquivo de pesquisa As rotinas que são executadas são: AlimentaDadosNFSe; VEnviou :=ACBrNFSe1.Gerar(VNumRPS, VLoteRPS, false); if VEnviou then begin VNotaConfirmada := ACBrNFSe1.ConsultarLoteRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.NumeroLote, ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo); end; O erro o acontece ao executar ACBrNFSe1.ConsultarLoteRps(. Uma coisa que notei é que nesse momento, ou seja, após a consulta, o valor de ACBrNFSe1.NotasFiscais.Items[0].NFSe.NumeroLote e ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo, ambos estão em branco. Provavelmente por isso ocorre o erro. Mas essas duas propriedades não deveriam conter os valores do lote e protocolo? Provedor IPM Obrigado!

Bom dia, Tranquilo Italo, vamos aguardar. Tamo junto, rs. Acho que os dados importantes em na consulta é o protocolo, código de verificação e status (autorizada ou cancelada). Obrigado!

Boa noite, Gostaria de uma ajuda com SPED Fiscal. Exemplo hipotético: NFe 55, cujo valor total é de R$ 100,00 Ela tem 1 item cujo valor é de R$ 110,00 E tem um desconto de 10,00 - Total da nota sendo informado no campo VL_MERC do registro C100 = 100,00 (valor dos itens - o desconto) - O valor sendo informado em VLR_OPER do registro C190 é = 110, (valor dos itens + frete + outras despesas), ou seja, sem o desconto, pois, segundo entendi no manual, o desconto não é para ser informado nesse campo ou é? O problema é que isso gera uma inconsistência no EFD -> "O valor total do documento fiscal deve ser igual a soma dos valores de operação VL_OPR do registro C190" Segundo o manual, VL_MERC de C100 deveria ser o mesmo de VLR_OPER de C190. Mas como fazer então? Descontar o valor do desconto no campo VLR_OPER do C190? Obrigado!

Bom dia, Certo. E como pego o resultado? No demo Acbr a opção que imagino ser a correta é a "Consultar NFSe por numero". Nessa opção, a procedure TfrmACBrNFSe.ChecarResposta(const Response: TNFSeWebserviceResponse) vai ter: if Response is TNFSeConsultaNFSeResponse then begin memoLog.Lines.Add('Modo de Envio : ' + MetodoToStr(TNFSeConsultaNFSeResponse(Response).Metodo)); memoLog.Lines.Add('Sucesso : ' + BoolToStr(Response.Sucesso, True)); end; Ou seja, consigo pegar se a consulta por número de NFSe é feita com sucesso, mas não achei como vejo a situação (autorizada ou cancelada) real da nota. Estou fazendo a consulta certa? Se sim, onde obter essa informação do status da nota no WS? Obrigado.

Boa tarde, Funcionando beleza! Obrigado! Agora surgiu uma outra dúvida, rs. Estou fazendo a consulta assim: - VResponseRPS := ACBrNFSeX1.ConsultarLoteRps(VProtoclo, VLote); - VSit := StrToSituacaoLoteRPS(VOK, TNFSeConsultaLoteRpsResponse(VResponseRPS).Situacao); Após a consulta, o valor de VSit está sLoteProcessadoSucesso. Isso indica que o lote foi recebido com sucesso, mas não necessariamente que a nota está autorizada, certo? Como verifico agora se a situação dessa nota é autorizada ou talvez cancelada? Obrigado!

Show. Obrigado.

Boa noite, Sim. Mas o nome do arquivo recebe apenas o sufixo "-NFse", conforme print anexo. Também estou anexando o XML que é salvo nessa pasta \Notas\. Obrigado -nfse.xml

Não sei se tem a ver, mas, na linha AItemIndex := FindObject(AItem, TComparer<TObject>.Construct(CompNFSePorNumero)), após essa linha ser executada, o AItemIndex fica com valor -1. Vide print anexo.

Boa noite, Segui as instruções e parece que houve progresso. O valor de AuxNode agora é diferente de nil e NumNFse tem valor 680, corretamente. Uma dúvida: como recupero o número da nota. Pelo que entendi, deveria pegar essa informação pela ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero, isso após fazer a consulta. Mas essa propriedade não está sendo alimentada. Ou seria outra forma? Obrigado.

Boa noite, Sim, mas ele não passa por essa linha NumNFSe := ProcessarConteudoXml(AuxNode, tcStr). Mesmo com F8, ele para na linha 529 (que não tem código). Mas na linha 526, ele não para. Quando para na linha 529, NumNFSe está com valor '' (sem nenhum valor). Obrigado.

Não, ele pula essa linha. Veja o print anexo. No break point dessa linha NumNFSe := ProcessarConteudoXml(AuxNode, tcStr), ele não para. Mas na linha 529 que nem código tem, ele para. O valor de NumNFSe, nesse momento, está sem nada.

Está bastante esquisito. Não estou conseguindo entender direito o debug. Olha só, ao passar por if AuxNode <> nil then, AuxNode tem valor nil. Mas mesmo assim ele entra nesse begin -> if AuxNode <> nil then begin... Além disso, tem vários pontos que o debug não para. Se eu colocar um ponto de parada na linha if AuxNode <> nil then, ele não para ali. Bem estranho.

Sim, são diferentes. Prints anexos.

Boa tarde, Ainda não está trazendo os dados da nota. Testado inclusive no Demo. Print anexo. Não sei se pode ter relação, mas debugando verifiquei que, ao passar pela função TratarRetornoConsultaLoteRps(, em uma das linhas dessa função, ele chama a seguinte: ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse'); Aí vai para a função FindAllAnyNs( da ACBrXmlDocument.pas. Nesta função, a linha 947 (if Node.LocalName <> Name then continue), o LocalName aparece com valor "access violation...", conforme print anexo.

Show. Obrigado.

Bom dia, Certo, mas qual seria a sugestão nesse caso? Aguardar o provedor corrigir a inconsistência ou há algo que se possa fazer para contornar isso? Obrigado

Boa noite, Não entendi @Rafael Dias. Pelo que você está dizendo, o problema está sendo causado por uma falha no XML retornado pelo provedor, é isso? Obrigado.

Bom dia, Segui essa sua orientação, mas não consegui descobrir qual exatamente é a causa. Os arquivos são salvos em disco. Estou anexando eles aqui. Mas o componente não é alimentado. O que me parece, o problema está no fato da linha 483 da ACBrNFSeXProviderABRASFv1 -> Response.Situacao := ProcessarConteudoXml(Document.Root.Childrens.FindAnyNs('SituacaoLoteRps'), tcStr); Nessa linha o componente busca uma variável "SituacaoLoteRps", mas essa variável não existe no XML retornado na consulta. Obrigado! 637615129589302423-con-lot.xml 637615129589302423-con-lot-soap.xml 637615129589302423-lista-nfse-con-lot.xml 637615129589302423-lista-nfse-con-lot-soap.xml

Bom dia Estou fazendo a consulta de uma nota (ISSCuritiba) enviada anteriormente, da seguinte forma: ... Var VResponseRPS : TNFSeConsultaLoteRpsResponse; VXMLRet : String; begin VResponseRPS := ACBrNFSeX1.ConsultarLoteRps('637615129589302423', '17'); VXMLRet := TNFSeConsultaLoteRpsResponse(VResponseRPS).XmlRetorno; Neste momento VXMLRet tem todos os dados da nota. A dúvida é: como pego o número da nota, código de verificação, data emissão, ...? Quais propriedades do componente devem ser lidas? Tentei várias formas, inclusive alimentar o ACBrNFSeX1.NotasFiscais, mas não está dando certo. Obrigado!

Bom dia Italo. Sim, está configurado as 4 margens. Tanto é que aqui em laboratório e em outros usuários não ocorre problemas. Apenas nesse cliente. Acredito que possa ter relação com alguma configuração que o Fortes pega da impressora no Windows. Obrigado!

Bom dia, Alguma ideia do que pode estar causando esse corte da impressão na margem direita? DANFE em anexo. Testado em nossa máquina e o problema não ocorre. No cliente acontece tanto na impressão de fato, quanto no preview em tela. Será que pode ser configuração da impressora padrão? O que poderia ser? Obrigado!