Werner_Marques

Sim, o ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName) esta sendo utilizado.

Amigo Italo, fiz esse procedimento passando o parâmetro NIL e mesmo assim persiste o erro.

Boa tarde, Estou com o mesmo problema que vocês, só que não estou conseguindo baixar o openssl para fazer o procedimento que vocês estão sugerindo. Alguém tem um link para o download?

Segue o código como está sendo feito, logo após a configuração quando vai executar o EnviarEmail apresenta o erro. ACBrMail1.Host := qrEmpresa.fieldbyname('nm_smtpemail').asstring; ACBrMail1.Port := qrEmpresa.fieldbyname('nr_portaemail').asstring; ACBrMail1.Username := qrEmpresa.fieldbyname('nm_usuarioemail').asstring; ACBrMail1.Password := qrEmpresa.fieldbyname('nr_senhaemail').asstring; ACBrMail1.From := qrEmpresa.fieldbyname('nm_usuarioemail').asstring; ACBrMail1.SetSSL := (qrempresa.fieldbyname('tp_conexaoseguraemail').asinteger=1); // SSL - Conexão Segura ACBrMail1.SetTLS := (qrempresa.fieldbyname('tp_conexaossltsl').asinteger=1); // Auto TLS ACBrMail1.ReadingConfirmation := False; //Pede confirmacao de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := Para; ACBrCTe1.Conhecimentos.Items[0].EnviarEmail( Para, 'Conhecimento de Transporte Eletrônico - '+ACBrCTe1.Conhecimentos.Items[0].CTe.inFCTe.ID, memo1.lines , True // Enviar PDF junto , CC // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings showmessage('E-mail Enviado com Sucesso.');

Estou fazendo alguns testes pelo Demo na parte de DistribuicaoDFe, gostaria de saber qual o significado do NSU, o que posso preencher nessa informação?

Boa tarde Ao tentar enviar o email apresenta o seguinte erro: "List index out of bouds(0)" Estou utilizando o ACBrCte1.Conhecimentos.Items[0].EnviarEmail para o envio. E o ACBrMail para configuração do Email. No Demo esta apresentando o mesmo erro. Alguém poderia me ajudar?

Ok Regys, Agora deu certo. Muito obrigado pela atenção.

Regys, quando digito o dsaientcom ele me devolve o erro de undeclared identifier. Preciso adicionar algo na uses? No demo acontece a mesma coisa, não aparece o horário no DANFE. As propriedades que aparecem pra mim são: dSaiEnt, dCont, dEmi, hSaiEnt Qual é a nota técnica na qual esta mudança foi publicada? Já pesquisei na SEFAZ e dentre as mais recentes que vi não encontrei essa mudança. Estou usando o trunk2 com o componente do FortesReport para gerar o DANFE.

XML em anexo. 24151001243220000109550010000097681000097681-nfe.xml

Atualizei hoje meus fontes para o trunk2, fiz uma nota de teste e continuou sem a informação da hora de saída. Qual a solução para esse problema?

Obrigado pela ajuda Ítalo Jurisato, adicionei na unit e rodei o sistema, não apresentou mais o erro.

Bom dia Estou atualizando os fontes do ACBr para o trunk2 e ao compilar os fontes do meu sistema apresenta um erro na procedure de GerarCTe "Ide.forPag := fpPago nao existe", ao tentar verificar no Demo as mudanças vi que toda a procedure de GerarCte estava comentada, como posso resolver esse problema já que o Demo esta comentado?

OK amigo, obrigado pela ajuda. Vou verificar com o meu cliente se há algum problema no ECF.

Ok amigo, obrigado pela ajuda! Vou fazer as devidas verificações quanto ao que foi orientado.

Qual leitura voce esta se referindo ? E quanto ao ACBrLCB1.ApagarFila não estou utilizando e nunca tive esse problema, foi um dos primeiros casos e o cliente continua emitindo cupom normalmente.

Não consigo fazer essa simulação no demo, e como falei anteriormente no nosso sistema acontece em alguns casos não são todos.

Obrigado pela ajuda, vou verificar se esta sendo feito no final da venda. Mais qual a finalidade desse trecho ? porque até agora nao tinha tido nenhum problema quanto a isso.

Segue arquivos em anexo de log da impressora. acbrlog.txt ecf.rar

Bematech - MP 2100 TH FI

Utilizamos a fila, segue o código : TimerVenda.Enabled := False; try if not ( FVendendo or impfiscal.acbr1.AguardandoResposta) then begin CodBarras := ACBrLCB1.LerFila; qt := alltrim(copy(CodBarras,14,13)); CodBarras := alltrim(copy(CodBarras,1,13)); VendeItem( CodBarras , qt,'',''); end; finally TimerVenda.Enabled := (ACBrLCB1.Fila.Count > 0); end; E no trecho onde VendeItem ele é iniciado e finalizado.

Obrigado pela ajuda Juliomar, mais o que seria essa fila?

Boa tarde, estou com a seguinte situação, meu cliente emitiu um cupom com dois produtos, ele bipou os dois itens no leitor e foram lidos normalmente sem nenhum problema no código de barras, e segundo a pessoa que estava realizando a venda esses produtos foram mostrados na tela do nosso sistema que sendo assim são automaticamente impressos na impressora fiscal. O que realmente aconteceu foi que no cupom apenas foi impresso um item com seu respectivo valor, e quando a vendedora foi observar o outro item saiu no cupom seguinte na venda de outros produtos, diante dessa situação isso poderia realmente ocorrer o produto ficar gravado na memoria depois de encerrado a venda ser impresso somente no próximo cupom? Alguém já passou por essa situação e poderia me ajudar?

Bom dia amigos, estou com um problema quando estou buscando a hora do cupom no ecf ela me retorna vazio, mais isso não está ocorrendo com todos os cupons, dentro de uma faixa de 100 cupons emitidos no dia 20 me retornam assim. A forma que estou passando é essa: result:= impfiscal.acbr1.DataHora;

Obrigado Regys pela resposta, Como o componente insere essas informações no XML, pois o dig value e o assign value eu não passo pro componente, ele é quem gera.

Obrigado pela resposta Regys. Conferi no meu código e sempre limpo o componente antes de iniciar uma nova nota(ACBrNfe.notasfiscais.clear;). Essas informações que a SEFAZ disse que está diferente de uma nota para outra é o componente que grava no arquivo ou é a SEFAZ no momento em que autoriza?