Daniel Simoes

Veja tb o ACBrFrameWork

Anexe uma imagem, destacando o que você deseja chamar a atenção

Não pude compreender muito bem o seu raciocínio... mas não consegui reproduzir o problema.. Não tenho esse ECF, então não pude "ativar"... mas no Demo em Lazarus, após configurar em "ecfEscECf", configurar o "Device", e clicar em "Ativar", obtive o seguinte resultado: -------------------------------------------------------------------------------- ATIVAR - 28/01/16 23:10:22:461 - Modelo: EscECF - Porta: COM3 - TimeOut: 3 Device: BAUD=115200 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- 28/01 23:10:28:471 Sincronismo TX -> [22] Repare que está 115.200 Pode ser algum problema do Demo em Delphi (o qual não uso)... Se desejar sugerir correções nos fontes, favor anexe as units modificadas

Desculpe...não fui capaz de compreender o problema que você pretende relatar...

Não pode ficar vazio... informe "s/n" (por exemplo)

Não tenho o menor ideia do que fazer com essa informação... O acesso ao certificado A3 pode ser estudado em ACBrDFeCapicom.pas... todo acesso é ReadOnly Store.Open(FStoreLocation, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_READ_ONLY);

parece mais ser um Bug do Delphi... mas parece que para corrigir, basta comentar a linha "Printer.PrinterIndex := -1;" precisa verificar como é a implementação de "Printer.Refresh", nessa versão de Delphi... para verificar se realmente precisamos "resetar" o índice com -1 Repare que no Lazarus/FPC, não foi necessário atribuir -1

Porque não foi enviada para o SEFAZ... isso é proposital... (veja nos fontes) if procNFe.cStat = 0 then begin lChaveDeAcesso.Caption := ACBrStr('NFC-E NÃO ENVIADA PARA SEFAZ'); lChaveDeAcesso.Font.Color := clRed; end;

Esse modelo usa o protocolo "EscECF"

Está errado... NFe = NFCe (é o mesmo XML), Ou seja, use o mesmo objeto...

Isso não é o suficiente... não podemos chegar a nenhuma conclusão com esse XML... Você deve postar um passo a passo de como reproduzir o problema, usando o Demo do ACBrNFe

por favor anexe (zip) as Units modificadas

sim, vc precisará fazer um Merge da sua Unit com a atual... realizando as modificações necessárias... Basicamente, basta fazer uso de fpCupom e suas propriedades... Após esse Merge, por favor envie a Unit modificada, que analiso para subirmos no SVN

Você deve ter um ACBr.inc em seu LibPath, que não é o atual do projeto...

Um A.V. só ocorreria se o Objeto não existisse... vc atribuiu o NFe ao Virtual ?

Para que essa modificação é necessária ? (qual o problema) Isso já foi sugerido no GitHub (casa do Fortes CE) ?

Novamente Não compreendo o que você quer dizer... por favor crie um mini-projeto que descreva o problema que você deseja demonstrar...

1. Leia o post indicado com MUITA atenção 2. Abra os fontes que foram modificados e estude as modificações 3. Ajuste o seu código... (Vc pode acessar todos as propriedades do Cupom Virtual com o campo "fpCupom")

Leia o post... e compreenda o que mudou... o componente que vc usa é filho dele.. Veja como o "Pai" dele, usa esse método: procedure TACBrECFVirtualBufferClass.SubtotalizaCupomVirtual( MensagemRodape: AnsiString); var S: String; begin ZeraBuffer; fsBuffer.Add('</linha_simples>'); if fpCupom.DescAcresSubtotal <> 0 then begin if fpCupom.DescAcresSubtotal < 0 then ....... reparou em "fpCupom.DescAcresSubtotal" ??

Você está cometendo vários erros.. Estude em detalhes a sua rotina - Repetindo 2x a sessão "[Dados Adicionais]" - Falta se Aspas dupla para a String - Na segunda sessão (a que contem dados), não há quebra de linha, após a sessão "[DadosAdicionais]infCpl=TESTE DE SAT TEM Q IMPRIMIR"

Humm.. me enganei, o cNF é gerado pelo SAT... Acho que a sua estratégia é boa... crie um diretório de transações pendentes...e tudo que acabou de ser finalizado, grava lá... quando a aplicação subir, desfaz tudo que estiver lá...

Por favor leia:

Por favor leia:

Anexe o XML gerado (enviado) e o XML recebido do SAT

Humm... penso que já temos a solução... use o evento: "OnMailException"... observe que se você informar "TrowIt := False", a exceção não será lançada... procedure TForm1.ACBrMail1MailException(const AMail: TACBrMail; const E: Exception; var ThrowIt: Boolean); begin ShowMessage(E.Message); ThrowIt := False; mLog.Lines.Add('*** Erro ao Enviar o email: '+ AMail.Subject); end;