Realizando a primeira transação TEF

Agora que já conhecemos um pouco sobre a classe TEF e seus respectivos métodos/propriedades e já implementamos uma rotina simples de verificação do Gerenciador Padrão, vamos implementar nesta edição, um cupom fiscal completo e executar transações TEF com um ou múltiplos cartões.

por Andre Schikovski

using Bematech;
using Bematech.Fiscal;
using Bematech.Fiscal.ECF;
using Bematech.Fiscal.ECF.CupomFiscal;
using Bematech.Fiscal.TEF;

private void btnabrecupom_Click(object sender, EventArgs e)
{
try
{
// ABERTURA DO CUPOM FISCAL COM A IDENTIFICAÇÃO DO CLIENTE (CPF,NOME,ENDEREÇO),
// DENTRO DE UMA ESTRUTURA TRY/CATCH ONDE OS ERROS SERÃO TRATADOS PELA
// EXCEPTION FISCAL.
BematechFiscal.Cupom.Abrir("00000000000", "Suporte Desenvolvedor", "");
}
catch (FiscalException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
}

" ABERTURA DO CUPOM FISCAL COM A IDENTIFICAÇÃO DO CLIENTE (CPF,NOME,ENDEREÇO),
" DENTRO DE UMA ESTRUTURA TRY/CATCH ONDE OS ERROS SERÃO TRATADOS PELA
" EXCEPTION FISCAL.
Try
BematechFiscal.Cupom.Abrir("00000000000", "Suporte Desenvolvedor Bematech", "")
Catch MensagemErro As FiscalException
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End Sub

private void btnvendeitem_Click(object sender, EventArgs e)
{
try
{
// CRIAÇÃO DO OBJETO ITEMEXTENDIDO, POPULANDO O MESMO COM AS INFORMAÇÕES REFERENTES
// AO ITEM A SER IMPRESSO.
ItemExtendido itemvendidoex = new ItemExtendido();
itemvendidoex.Codigo = "000000000000000";
itemvendidoex.Descricao = "Produto de teste";
itemvendidoex.Aliquota = "II";
itemvendidoex.Quantidade = 1;
itemvendidoex.ValorUnitario = 1.00M;

BematechFiscal.Cupom.Vender(itemvendidoex);
}
catch (FiscalException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
}

Private Sub btnvendeitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvendeitem.Click
Try
" CRIAÇÃO DO OBJETO ITEMEXTENDIDO, POPULANDO O MESMO COM AS INFORMAÇÕES REFERENTES
" AO ITEM A SER IMPRESSO.
Dim itemvendidoex As Item = New ItemExtendido
itemvendidoex.Codigo = "00000000000000000000"
itemvendidoex.Descricao = "Produto de teste Bematech"
itemvendidoex.Aliquota = "II"
itemvendidoex.Quantidade = 1
itemvendidoex.ValorUnitario = 1.0

BematechFiscal.Cupom.Vender(itemvendidoex)
Catch MensagemErro As Exception
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End Sub

private void btniniciafechamento_Click(object sender, EventArgs e)
{
try
{
// INÍCIO DO FECHAMENTO DO CUPOM FISCAL (SEM VALORES DE ACRÉSCIMO OU DESCONTO).
BematechFiscal.Cupom.IniciarFechamento(TipoAcrescimoDesconto.Valor, 0.00M, 0.00M);
}
catch (FiscalException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
}

Private Sub btninciafechamento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninciafechamento.Click
Try
" INÍCIO DO FECHAMENTO DO CUPOM FISCAL (SEM PARÂMETROS DE ACRÉSCIMO OU DESCONTO)
BematechFiscal.Cupom.IniciarFechamento(TipoAcrescimoDesconto.Valor, 0, 0)
Catch MensagemErro As Exception
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End Sub

private void btnefetuapagamento_Click(object sender, EventArgs e)
{
try
{
// MÉTODO PARA EXECUÇÃO DA FORMA DE PAGAMENTO QUANDO NÃO UTILIZARMOS
// A OPERAÇÃO DE "Cartao".
if (txtdescforma.Text != "Cartao")
{
BematechFiscal.Cupom.EfetuarPagamento(txtdescforma.Text, Convert.ToDecimal(txtvalorforma.Text));
}
else
{
// MÉTODO PARA CRIAÇÃO DA CHAMADA AO MÓDULO DA BANDEIRA,
// PARA EXECUÇÃO DA TRANSAÇÃO TEF.
SolicitacaoCartao minhasolicitacaocartao;
minhasolicitacaocartao = BematechFiscal.TEF.CriarSolicitacaoCartao(txtdescforma.Text, Convert.ToDecimal(txtvalorforma.Text));
// MÉTODO PARA ENVIO DA SOLICITAÇÃO (CRIAÇÃO DO OBJETO ENVIAR SOLICITAÇÃO)
// E ENVIO AO GP.
Transacao minhatransacao = BematechFiscal.TEF.EnviarSolicitacao(minhasolicitacaocartao);
if (minhatransacao.Status != "0")
{
MessageBox.Show(minhatransacao.TextoOperador);
return;
}
else
{
MessageBox.Show(minhatransacao.TextoOperador);
}
// EXECUÇÃO DA FORMA DE PAGAMENTO NA IMPRESSORA FISCAL.
BematechFiscal.Cupom.EfetuarPagamento(txtdescforma.Text, Convert.ToDecimal(txtvalorforma.Text));
while (true)
{
try
{
// CRIAÇÃO DO OBJETO MINHASOLICITACAOCONFIRMACAO PARA INICIAR A
// CONFIRMAÇÃO DAS TRANSAÇÕES TEF EFETUADAS.
SolicitacaoConfirmacao minhasolicitacaoconfirmacao = BematechFiscal.TEF.CriarSolicitacaoConfirmacao();
BematechFiscal.TEF.ConfirmarTransacao(minhasolicitacaoconfirmacao);
break;
}
catch (TEFException ErroTEF)
{
MessageBox.Show(ErroTEF.Message);
}
}
}
}
catch (FiscalException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
catch (GerenciadorInativoException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
}

Private Sub btnefetuapagamento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnefetuapagamento.Click
Try
" MÉTODO PARA EXECUÇÃO DA FORMA DE PAGAMENTO QUANDO NÃO UTILIZARMOS
" A OPÇÃO DE "Cartao".
If (txtdescforma.Text <> "Cartao") Then
BematechFiscal.Cupom.EfetuarPagamento(txtdescforma.Text, Convert.ToDecimal(txtvalorforma.Text))
Else
" MÉTODO PARA CRIAÇÃO DA CHAMADA AO MÓDULO DA BANDEIRA,
" PARA EXECUÇÃO DA TRANSAÇÃO TEF
Dim minhasolicitacaocartao As SolicitacaoCartao = BematechFiscal.TEF.CriarSolicitacaoCartao(txtdescforma.Text, Convert.ToDecimal(txtvalorforma.Text))
" MÉTODO PARA ENVIO DA SOLICITAÇÃO (CRIAÇÃO DO OBJETO ENVIAR SOLICITAÇÃO)
" E ENVIO AO GP
Dim minhatransacao As Transacao = BematechFiscal.TEF.EnviarSolicitacao(minhasolicitacaocartao)
If (minhatransacao.Status <> "0") Then
MessageBox.Show(minhatransacao.TextoOperador)
Return
Else
MessageBox.Show(minhatransacao.TextoOperador)
End If
" EXECUÇÃO DA FORMA DE PAGAMENTO NA IMPRESSORA FISCAL
BematechFiscal.Cupom.EfetuarPagamento(txtdescforma.Text, Convert.ToDecimal(txtvalorforma.Text))
While (True)
Try
" CRIAÇÃO DO OBJETO MINHASOLICITACAOCONFIRMACAO PARA INICIAR A CONFIRMACÃO
" DAS TRANSAÇÕES TEF EFETUADAS
Dim minhasolicitacaoconfirmacao As SolicitacaoConfirmacao = BematechFiscal.TEF.CriarSolicitacaoConfirmacao()
BematechFiscal.TEF.ConfirmarTransacao(minhasolicitacaoconfirmacao)
Exit While
Catch MensagemErro As TEFException
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End While
End If
Catch MensagemErro As FiscalException
MsgBox("MensagemErro: " + MensagemErro.Message)
Catch MensagemErro As GerenciadorInativoException
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End Sub

private void btnfecharcupom_Click(object sender, EventArgs e)
// TERMINAR FECHAMENTO DO CUPOM FISCAL.
{
try
{
BematechFiscal.Cupom.TerminarFechamento("Obrigado Volte Sempre!");
}
catch (FiscalException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
}

Private Sub btnfecharcupom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfecharcupom.Click
"TERMINAR FECHAMENTO DO CUPOM FISCAL.
Try
BematechFiscal.Cupom.TerminarFechamento("Obrigado Volte Sempre!")
Catch MensagemErro As Exception
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End Sub

private void btnimprimetef_Click(object sender, EventArgs e)
{
try
{
// VARIÁVEL PARA ARMAZENAR AS TRANSAÇÕES EXECUTADAS
// (SERÃO USADA NO CANCELAMENTO DE TRANSAÇÕES TEF)
minhacolecao = BematechFiscal.TEF.Transacoes;

// ACIONAR TRAVAMENTO DO TECLADO E MOUSE.
BematechFiscal.TEF.TravarTeclado(true);

// CONTADOR PARA A IMPRESSÃO DA COLEÇÃO DE TRANSAÇÕES CRIADAS
// (MÚLTIPLOS CARTÕES, POR EXEMPLO).
for (int conta = 0; conta < BematechFiscal.TEF.Transacoes.Count; conta++)
{
try
{
BematechFiscal.TEF.Imprimir(BematechFiscal.TEF.Transacoes[conta], false);
}
catch
{
BematechFiscal.TEF.TravarTeclado(false);
if (MessageBox.Show("Impressora nãoo responde. Tentar imprimir Novamente?", "Atenção", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) == DialogResult.Yes)
{
BematechFiscal.TEF.Imprimir(BematechFiscal.TEF.Transacoes[conta], true);
BematechFiscal.TEF.TravarTeclado(false);
}
else
{
// QUANDO A REIMPRESSÃO NÃO É ACEITA PELO OPERADOR (NÃO CONFIRMAÇÃO).
SolicitacaoNaoConfirmacao naoconfirmacao = BematechFiscal.TEF.CriarSolicitacaoNaoConfirmacao();
BematechFiscal.TEF.NaoConfirmarTransacao(naoconfirmacao);
break;
}
}
}
BematechFiscal.TEF.ClearTransacoes();
BematechFiscal.TEF.TravarTeclado(false);
}
catch (TEFException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
catch (FiscalException MensagemErro)
{
MessageBox.Show("MensagemErro: " + MensagemErro.Message);
}
}

Private Sub btnimprimetef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnimprimetef.Click
Dim conta As Integer
Try

" VARIÁVEL PARA ARMAZENAR AS TRANSAÇÕES EXECUTADAS
"(SERÁ USADA NO CANCELAMENTO DE TRANSAÇÕES TEF)
minhacolecao = BematechFiscal.TEF.Transacoes

" ACIONAR O TRAVAMENTO DO TECLADO E DO MOUSE
BematechFiscal.TEF.TravarTeclado(True)
" CONTADOR PARA IMPRESSÃO DA COLEÇÃO DE TRANSAÇÕES CRIADAS (EX: VENDAS COM
" MULTIPLOS CARTÕES)
For conta = 1 To BematechFiscal.TEF.Transacoes.Count()
Try
BematechFiscal.TEF.Imprimir(BematechFiscal.TEF.Transacoes(conta - 1), False)
Catch
BematechFiscal.TEF.TravarTeclado(False)
If (MessageBox.Show("Impressora não responde! Imprimir Novamente?", "Atenção", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes) Then
BematechFiscal.TEF.Imprimir(BematechFiscal.TEF.Transacoes(conta), True)
BematechFiscal.TEF.TravarTeclado(True)
Else
" QUANDO A REIMPRESSÃO NÃO É ACEITA PELO OPERADOR (NÃO CONFIRMAÇÃO).
Dim naoconfirmacao As SolicitacaoNaoConfirmacao = BematechFiscal.TEF.CriarSolicitacaoNaoConfirmacao()
BematechFiscal.TEF.NaoConfirmarTransacao(naoconfirmacao)
Exit For
End If
BematechFiscal.TEF.TravarTeclado(False)
End Try
Next
BematechFiscal.TEF.ClearTransacoes()
BematechFiscal.TEF.TravarTeclado(False)
Catch MensagemErro As FiscalException
MsgBox("MensagemErro: " + MensagemErro.Message)
Catch MensagemErro As GerenciadorInativoException
MsgBox("MensagemErro: " + MensagemErro.Message)
End Try
End Sub