Daniel Simoes

Por favor atualize os fontes, e teste novamente... Commit [r19662]

O problema não é esse... é na Busca com "bubble sort", de function TACBrObjectList.FindObject(Item: Pointer; AComparer: TListSortCompare; Nearest: Boolean): Integer; Já estou subindo um ajuste...

Humm.. não tenho ela para testes... Essa versão já suporta Unicode ?

@aloisiopires, Não creio que seja esse o problema... O Objeto está sendo criado corretamente, no inicio de "TACBrECFVirtualSATClass.VendeItemVirtual" procedure TACBrECFVirtualSATClass.VendeItemVirtual( ItemCupom: TACBrECFVirtualClassItemCupom); var Det: TDetCollectionItem; AliqECF: TACBrECFAliquota; begin with fsACBrSAT do begin Det := CFe.Det.New; // <---- AQUI Det.nItem := ItemCupom.Sequencia; Det.Prod.cProd := ItemCupom.Codigo; Det.Prod.xProd := ItemCupom.Descricao; Det.Prod.qCom := ItemCupom.Qtd; Det.Prod.vUnCom := ItemCupom.ValorUnit; Det.Prod.uCom := ItemCupom.Unidade;

Olá, qual a sua IDE ?

Por favor teste com esse ajuste procedure TACBrETQ.IniciarEtiqueta; var wCmd: AnsiString; begin GravarLog('- IniciarEtiqueta'); AtivarSeNecessario; wCmd := fsETQ.ComandosIniciarEtiqueta; if (not (fsEtqInicializada or fsEtqFinalizada)) then fsListaCmd.Insert(0, wCmd) //Se Etiqueta não foi iniciada, comandos incluídos no início else begin if fsEtqFinalizada then fsListaCmd.Add(fsETQ.ComandosFinalizarEtiqueta(fsCopias, fsAvancoEtq)); // <---- AQUI fsListaCmd.Add(wCmd); //Se Etiqueta foi iniciada, comandos são concatenados end; fsEtqInicializada := True; fsEtqFinalizada := False; fsCopias := 1; fsAvancoEtq := 0; end; a Unit modificada está em anexo... ACBrETQ.pas

Isso já é feito... // Verifica se ficou um bloco de etiquetas sem ser Finalizado if (not fsEtqFinalizada) then FinalizarEtiqueta(Copias, AvancoEtq) sua modificação pode quebrar a maneira que algumas aplicações operam... Estou analisando o tópico: Já devo propor um ajuste...

Não....

Como está configurado os parâmetros da DFeSSL ? Você está usando libWinCrypt?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Parece que realmente há um Bug... Por favor testes, substituindo com o trecho abaixo procedure TACBrNFe.EnviarEmailEvento(const sPara, sAssunto: String; sMensagem: TStrings; sCC: TStrings; Anexos: TStrings; sReplyTo: TStrings); var NomeArq: String; AnexosEmail: TStrings; StreamNFe : TMemoryStream; begin AnexosEmail := TStringList.Create; StreamNFe := TMemoryStream.Create; try AnexosEmail.Clear; if Anexos <> nil then AnexosEmail.Text := Anexos.Text; GravarStream(StreamNFe); ImprimirEventoPDF; AnexosEmail.Add(DANFE.ArquivoPDF); NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id); EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, StreamNFe, NomeArq + '-procEventoNFe.xml', sReplyTo); finally AnexosEmail.Free; StreamNFe.Free; end; end;

A.V. ocorre quando você tenta acessar um Objeto que ainda não foi criado ou já foi destruído... Faça testes com o Demo do ACBr, se conseguir reproduzir o problema, informe o passo a passo

Acabei de testar, e está tudo ok... verifique se seus fontes estão atualizados

Parece ser uma propriedade que foi removida... Atualize os fontes, abra todos os formulários, ignore os erros de propriedades inexistente... Salve o Form... Isso deve gravar um novo DFM, sem a propriedade... você poderá comprar isso, abrindo o DFM, no Bloco de Notas...

Seus fontes estão atualizados ? Lembro de ter um ajuste recente nesse sentido...

Clique no segundo item do CallStack, e ache a linha do ACBrECFVirtualSAT... Com um debug nessa rotina, acompanhe a criação do Det, até passar ele pra o evento...

Acho que nenhum TEF aceita Debito digitado... mas é melhor confirmar com eles...

O instalador usa uma Classe da Jedi, que vai no Registro do Windows, para buscar as versões... Talvez seja necessário reinstalar o Delphi

Olá, creio que você precise entrar em contato direto com eles... https://www.djpdv.com.br/ O Projeto ACBr não tem mais, relação direta com o DJPDV

Humm.. quem invoca esse Evento é o componente... Deixe um Bkpoint nele, e quando o "Det" estiver como "Nil", verifique no Call Stack, que linha de código chamou o evento...

Olá @Marcos Branco, que bom que consegui... ficamos contentes... Para efeito de referência futura, você conseguiria deixar registrado aqui nas respostas, o que precisou ajustar ? Se deseja que efetuemos modificações nos Demos que estão no SVN, por favor anexe os Arquivos modificados, aqui mesmo no tópico...

Não sei bem... se ficar em 0, usará o valor Default...

use a força, leia os fontes... ACBrSAT1.CFe.Det[0].infAdProd := 'bla bla'; Abra o seu XML, e veja, ele está lá...

Sim, ele existe... Essa informação apenas não sairá no Extrato do SAT, se você configurar a Impressão para uma linha