BRAGUIROLLI

Bom dia, Esse provedor é complicado, para fazer os testes em homologação ou produção tem que ser feito o pedido junto a eles. Eles não permitem terem ambos funcionando ao mesmo tempo. Outro Detalhe importante eles são Assincrono.

Outro detalhe, isso se encaixa na empresa optante pelo Simples Nascinal.

Eu me expressei mal. essa msg apareceu para mim, e coloquei esse valor aqui: Servico.Valores.ValorIss... aqui eu coloquei o valor e a msg do Retido sumiu.

Calcule o valor e manda para o provedor(ISS.Net)... Servico.Valores.ValorIssRetido mesmo estando StNormal // Retido Não = 2

Boa tarde, Com o provedor Ginfis essa tag poderia ficar zerada, agora com o ISS.Net, mesmo que não precise mostrar o esse valor ele deve ser calculado mesmo assim. Se atente que para homologação existe valores fixos e para produção os valores são diferentes de acordo do CNAE.

Boa tarde, O provedor ISS.Net tem vários momentos de instabilidade, chegando a ficar fora do ar. Notei que ao enviando um RPS ele pode demorar de 30 minutos à 24 horas para ser processado, as vezes ele retorna dentro do prazo do TimeOut da Consulta. Neste momento estou montando uma estrutura para consultar o Lote, para só depois disso poder dar como feito o RPS. Aumente o TimeOut do componente, e o TimeOut de Consulta. Já emito em produção, porém é muito complicado esse provedor. Ele só permite envio de RPS Assincronia, então pode gerar uma fila onde nos mata de Raiva. Como explicar para o cliente que antes era Rápido e agora pode demorar 1 dia... Boa Sorte. Espero ter contribuido.

Solução paliativa. Como meu padrão é uma Nota por Lote. Não uso mais o ACBrNFSe.NotasFiscais.Clear; Tbem criei em RunTime o componente ACBRNFe, porem criando com Nil. É criado e destruído a cada envio. Segue Código usado: /////////////////////////////////// // PROCESSA AS NOTAS SELECIONADAS /////////////////////////////////// cdsNotas.First; While (Not cdsNotas.Eof) Do Begin If (cdsNotas.FieldByName('MARDES').AsString = 'M') Then Begin objACBrNFSe := TACBrNFSe.Create(Nil); Try pSetaConfigAcbrNFSe(objACBrNFSe); pnlInfo.Caption := objACBrNFSe.Configuracoes.Geral.xProvedor; blnNFSValid := fGerarXmlNew(objACBrNFSe); Finally If AssigNed(objACBrNFSe) Then objACBrNFSe.FreeOnRelease; End; If (blnNFSValid) Then Begin Inc(intNFSGerad); End Else Begin Break; End; End; Application.ProcessMessages; cdsNotas.Next; End; cdsNotas.First; Agradeço Juliomar Marchetti pela disposição em me ajudar.

Feito, Loop está correto pega apenas as selecionadas... Imagem em anexo, debug, na segunda passagem do loop. apenas mandei gerar o arquivo GerarNFSe;

Bom dia, Já refiz varia vezes, e sempre dá o erro no mesmo lugar. Se eu não limpar(Clear) ele continua adicionando e na impressão vai ter 1/N para impressão... onde eu uso o padrão 1 lote para 1 nota. Tá anexado o código, se puder dar uma olhada, eu agradeço. UntNFSe.txt

Boa tarde, Tenho esse formulário, onde o cliente seleciona mais de uma NFS-e para emissão. Tenho esse pequeno processo: // PROCESSA AS NOTAS SELECIONADAS With cdsNotas Do Begin First; While (Not Eof) Do Begin Application.ProcessMessages; cdsNotas.FieldByName('NUMDOC').AsString; If (cdsNotas.FieldByName('MARDES').AsString = 'M') Then Begin ACBrNFSe.NotasFiscais.Clear; blnNFSValid := fGerarXmlNew(cdsNotas); If blnNFSValid Then Inc(intNFSGerad) Else Break; End; Next; End; First; End; Na primeira passada como não tem nada configurado ele passa normal e transmite e imprimi a NFS-e. Mais ao sair da dela ou fazer uma segunda passagem limpando os dados ele apresenta o erro. Na seguinte linha é dado o erro: ACBrNFSe.NotasFiscais.Clear; Codigo.txt

Sim usei, Mais atualizei os fontes e reinstalei e agora funcionou, obrigado.

Muito estranho mesmo, os fontes eu atualizei dia 07/08/20 e comecei o projeto do zero. Vou Desinstalar e instalar novamente e atualizar se tiver alguma coisa nova... Coloquei até o componente coisa que não costumo fazer, eu por costume crio em RumTime... O estranho tbem é que após imprimir(sem erros) e ir fechar a tela, da erro(Não verifiquei esse erro ainda, algo deve estar preso em memoria sei lá, talvez por conta do componente).... Tomara que reinstalando de certo

Realmente, o posto pode ser encerrado

Bom dia, Não entendo o erro apresentando faço uma NFSe imprimo tudo certinho. Em seguida quero fazer outra sem fechar a tela, tenho que limpar os dados que estão lá. É apresentado um erro. Não importa onde eu coloque o comando no inicio ou no fim do processo é dado erro.

Vou testar