ws_junior

Estou fazendo testes no Demo com ACBrNFe (mas tambem ocorre em um projeto próprio que utiliza o componente), de envio de NF-e (55) e NFC-e(65) e está retornando uma mensagem de erro vazia. Dados importantes: UF = GO Tipo de Emissão = libOpenSSL Versão = ve310 (Trunk2 - atualizado hoje) 1-env-lot.xml 1-pro-lot.xml 52160413959033000105650010000000101000000107-nfe.xml

Italo boa noite. Não existe erro com o componente, mas sim na forma que eu estava buscando a informação. Forma correta que retorna o valor esperado: ACBrNFe.EventoNFe.Evento.Items[0].RetInfEvento.NomeArquivo;

Boa noite Italo. Sim, inclusive fiz um update hoje. (revision 11096 - Trunk 2)

Fiz teste hoje e realmente o componente não está retornando a propriedade 'NomeArquivo'.

Valeu Daniel. Abraço.

Realmente Daniel, realizei os testes novamente e a falha foi minha. A correção que vc aplicou com " TCriticalSection " corrigiu o problema sem necessidade de alteração em qualquer outro componente. (Voltei a unit anterior e não me dei conta na hora de realizar os testes. Perdão pela falha!)

Concordo Daniel, pode ser que a falha seja minha, mas aqui quando coloco o componente como True ele comporta de forma diferente.

Favor desconsiderar Unit anterior (erro em declaração linhas 1499 e 1500) procedure TACBrBoleto.EnviarEmail(const sPara, sAssunto: String; sMensagem: TStrings; EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings; UsaThread : Boolean);

Talvez devesse ser seguido o mesmo conceito em ACBrNFe.EnviarEmail.

Daniel talvez algo interessante seja alterar: procedure TACBrBoleto.EnviarEmail(const sPara, sAssunto: String; sMensagem: TStrings; EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings; UsaThread : Boolean = True); Inserindo o parametro UsaThread. Isso até mesmo porque, no meu caso, utilizo o componente ACBrMail com o ACBrBoleto e especificamente aqui estava com problema no envio em massa. ACBrBoleto.pas

Bom dia Daniel. Realizei o teste com 100 envios e funciona perfeitamente. Teste realizado com Demo ACBrMail. procedure TForm1.bEnviarLoteClick(Sender: TObject); var A: Integer; begin cbUsarThread.Checked := True; AjustaParametrosDeEnvio; mLog.Lines.Add('***** Iniciando envio de 100 emails por Thread *****'); For A := 1 to 100 do begin mLog.Lines.Add('***** Enviando email: '+IntToStr(A)); edSubject.Text := 'Teste de email: '+IntToStr(A); bEnviar.Click; end; mLog.Lines.Add('***** 100 emails enviados ***** '); end; Nada mais foi alterado.

Talvez seja uma contribuição válida. Implementei no ACBrValidador função para validar Emails. Favor verificar viabilidade de commitar. (Não fiz comentários no código, porém segui a mesma regra dos demais tipos de docs) ACBrValidador.pas

Realmente. Acabei de fazer o teste com 25 sem Thread e o envio ocorre naturalmente. Teria alguma forma de limitar os itens, como um 'pacote' de e-mails, na thread? Notei que enviando com thread = true o envio ocorre normalmente para os 13 primeiros, o restante se perde. (Estou utilizando smtp.gmail.com) Desta forma, poderíamos criar uma propriedade de 'Quantidade por thread' para limitar isso, deixando o restante na 'fila'.

Acabei de tentar isso Daniel, não funcionou! Realmente a 'solução' que sugeri não é viável.

Realizei um teste no demo para simular um envio de 25 emails, somente alterando a variavel 'A', e notei que de 25 chegaram apenas 13 emails retornando inclusive um erro conforme anexo. Seria o caso de criar uma propriedade 'Intervalo de envio' para que dê tempo de processar o restante e não acumular causando o erro mencionado?

Reforçando o post no nosso amigo @rodrigoogioni, no meu entendimento inicial percebi esse trecho da frase grifado, porém busquei mais informações e esclarecimentos com um consultor Fiscal/Contábil que me disse ... "Júnior se na 'lei' diz que deve ser considerado 'consumidor final não contribuinte', então considere somente esse caso!". Complementou dizendo que esse convênio foi 'feito' tão 'sem noção de impacto' que ficaram várias brechas de entendimento, entre elas essa citada. Desta forma, não deveria me preocupar em fazer oque está expressamente descrito, já que SE houver qualquer tipo de notificação ou autuação as brechas são evidentes. (São palavras dele, mas concordei inteiramente.)

Poste todo XML para melhor análise. Se preferir, verifique se a operação realmente é para NÃO CONTRIBUINTE fora do UF de Origem.

Estou encontrando a seguinte mensagem de erro ao tentar imprimir em uma Epson FX 890 (Matricial) Alguem sabe resolver ou já passou por isso? Informações Importantes: Windows 10 ou 8.1 Delphi Seattle Fast Report 5.4.3

Valeu, mais uma vez, Régys. Estamos seguindo essa planilha aqui como fundamentação dos cálculos.

Obrigado Régys Silveira.

@leandroaoa Até agora não tenho certeza se o exemplo 03 do artigo citado está correto no que tange as empresas do Simples Nacional. Também não consegui confirmar com nenhum contador. Você conseguiu verificar a veracidade dessas informações ou alguém no fórum sabe dizer se é assim ou com alíquota 'cheia'?

Realizei modificações em ACBrNFeDANFEFRDM.pas e estou postando para, se cabível, realizar a implementação no Trunk2. Modificações: em: constructor TACBrNFeFRClass.Create(AOwner: TComponent); Linha 1304 // cdsIdentificacao if not Assigned(cdsIdentificacao) then begin cdsIdentificacao := TClientDataSet.Create(nil); FfrxIdentificacao := TfrxDBDataset.Create(nil); with FfrxIdentificacao do begin DataSet := cdsIdentificacao; OpenDataSource := False; Enabled := False; //Modificado AQUI UserName := 'Identificacao'; end; with cdsIdentificacao do begin FieldDefs.Add('Id', ftString, 44); FieldDefs.Add('Chave', ftString, 60); FieldDefs.Add('cUF', ftString, 2); Motivo: Utilizo uma rotina de geração de relatórios dinamicos no sistema, da forma que os objetos do ACBrDanfe estavam criados eles apareciam sempre que o Design do FastReport era aberto, causando confusão para o usuário do Sistema. A modificação foi realizada em todos os objetos TfrxDBDataSet do ACBrDanfe. A modificação foi realizada para sanar este problema somente, então não posso afirmar se causa problema em outras rotinas. Realizamos teste de emissão e impressão de NF-e e não encontramos problemas. De toda forma, fiquem a vontade para melhorar ou corrigir se for o caso. ACBrNFeDANFEFRDM.pas

Para conhecimento. Passamos vários dias aqui na empresa com a incógnita maldita do erro "12157". Hoje decidi ligar para a Certisign, emissora do nosso certificado A1 e fui atendido pela Sra Claudia do suporte nível 1 (Que me atendeu muito bem, diga-se de passagem!). Realizamos testes de validade do certificado e, no segundo teste, de EXPORTAÇÃO, verificamos que a Chave Privada tinha sido marcada com NÃO EXPORTÁVEL. Ela mensionou que algumas formas de leitura do certificado exigem que tenha a chave como EXPORTÁVEL. Então realizei a instalação do certificado novamente e funcionou. Desta forma, cito: Nosso problema foi plenamente resolvido em 5 terminais (Sendo 3 Windows 10 e 2 Windows 8.1) apenas INSTALANDO O CERTIFICADO COM A CHAVE PRIVADA MARCADA COMO EXPORTÁVEL.

Boa tarde Juliana. Fez alguma análise das modificações realizadas por "adrianoa"? Pergunto porque estou tendo problemas com clientes da CEF nos campos agencia/cedente. Vou realizar testes com os fontes do SVN e do colega para constatar.

Boa tarde. Estou com problemas na emissão de boletos caixa via FR. O código do cedente nao apresenta o dv. Debugando percebo que o calculo é realizado corretamente e no momento de montar traz efetivamente, porém nao apresenta no momento da impressão. // Dados do Cedente with DMFINANCEIRO.compBoleto.Cedente do begin Agencia := qdadosboleto.FieldByName('ced_agencia').AsString; //1238 AgenciaDigito := qdadosboleto.FieldByName('ced_digagencia').AsString; //6 Conta := qdadosboleto.FieldByName('ced_numconta').AsString; //1397 ContaDigito := qdadosboleto.FieldByName('ced_dignumconta').AsString; //0 CodigoCedente := qdadosboleto.FieldByName('ced_cedente').AsString; //569662 Convenio := qdadosboleto.FieldByName('ced_convenio').AsString; //0 Modalidade := qdadosboleto.FieldByName('ced_modalidade').AsString; //0 Nome := qdadosboleto.FieldByName('ced_razaosocial').AsString; //razao CNPJCPF := LimpaString(qdadosboleto.FieldByName('ced_documento').AsString); //doc 104 : TipoCobranca := cobCaixaEconomica;