ADM com NFC-e

[Fernando Rodrigo]

Caros amigos, estou com uma dúvida quanto a chamar o ADM com o componente TEF utilizando NFC-e ja que não será feito a conexão com a impressora fiscal.

Quando é utilizado o ADM com a impressora fiscal conectado para fazer algum cancelamento de cartão e impresso normal o comprovante do cancelamento.

Com a nfc-e não temos mais a impressora fiscal

Alguem ja fez alguma alteração a respeito do ADM com a nfc-e, estou fazendo os testes utilizando o mesmo processo so que ele trava e não faz nada.

Segue os codigos para a NFC-e

          // seta o gerenciador padrão configurado na tabela CONF_ECF
            if (not F_Funcoes.ACBrTEFD_NFCe.TEF.Inicializado) then
              F_Funcoes.ACBrTEFD_NFCe.Inicializar(TACBrTEFDTipo(dm_Fiscal.CONF_ECFGP.AsInteger));

            // se o TEF está inicializado, então iniciar o procedimento
            if F_Funcoes.ACBrTEFD_NFCe.Inicializado then
            begin
              try
                // chamar o método ADM, todos os "checks" serão feitos por ele
                // retorno do método:
                // True = OK, False=problemas, qualquer outra coisa será levantada uma exceção

                if not F_Funcoes.ACBrTEFD_NFCe.ADM( TACBrTEFDTipo( dm_Fiscal.CONF_ECFGP.AsInteger )) then
                  ShowMessage('Não foi possível concluir a operação');
              except
                on E: Exception do
                begin
                  ShowMessage(E.Message);
                end;
              end;
            end
            else
              ShowMessage('Não foi possível inicializar o TEF.');
 

 

[Fernando Rodrigo]

resolvido

[Juliomar Marchetti]

Boa tarde poderia especificar como?

[Fernando Rodrigo]

no evento OnInfoECF, 

 

No evento normal é passado dessa forma

    ineEstadoECF:
        RetornoECF := sEstadoECF; //Variavel Global
 

Para NFC-e segue abaixo o codigo

 

procedure TF_Relatorio_Fiscal_ECF.ACBrTEFD_NFCeInfoECF(Operacao: TACBrTEFDInfoECF; var RetornoECF: string);
begin
  case Operacao of
      ineSubTotal:
        begin
          RetornoECF := '0';
        end;

      ineTotalAPagar:
        RetornoECF := '0';   //Como informo Pagamento a Pagamento para o TEF não existe valor a pagar no meu programa.

      ineEstadoECF: RetornoECF := 'L';

  end;
end;