AJUDA COM IMPRESSORA BEMATECH

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM IMPRESSORA BEMATECH

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#302549 - 03/03/2009 20:30:00

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Pessoa estou tentanto usar a Bematech-2100 TH FI, porem, estou tendo um problema chato.

Estou usando o FlashBuilder, que é especificamente para ser usado com .net, dai peguei um emulador e tambem um exemplo, que compartilho aqui:

Imports Bematech
Imports Bematech_Fiscal

Public Class Form1
    Public BematechFiscal As Fiscal.ECF.ImpressoraFiscal = Fiscal.ECF.ImpressoraFiscal.Construir()

    Private Sub cmdAbreCupomFiscal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAbreCupomFiscal.Click
        Try
            [ô] Método para a abertura do Cupom Fiscal sem passagem de parâmetro.
            BematechFiscal.Cupom.Abrir()

            [ô] Método para o retorno do número do cupom (COO), armazenando
            [ô] na variável cNumeroCupom
            Dim cNumeroCupom As String = BematechFiscal.Cupom.Numero.ToString()

        Catch MensagemErro As Fiscal.ECF.FiscalException
            MsgBox( Mensagem Erro:   + MensagemErro.Message)
        End Try
    End Sub



    Private Sub cmdVendaItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVendaItem.Click
        [ô] BematechFiscal.AbrirPorta(com1)
        Try
            [ô] Criado o objeto ItemVendido para representar o item a ser vendido.
            Dim ItemVendido As Fiscal.ECF.CupomFiscal.Item = New Fiscal.ECF.CupomFiscal.Item
            ItemVendido.Codigo =  1234567890123
            ItemVendido.Descricao =  Item de Teste
            ItemVendido.Aliquota =  FF
            ItemVendido.Quantidade = 1
            ItemVendido.ValorUnitario = 1.0

            [ô] Método para a venda do item passando como parâmetro o objeto ItemVendido.     BematechFiscal.Cupom.Vender(ItemVendido)
        Catch MensagemErro As Fiscal.ECF.FiscalException
            MsgBox( Mensagem Erro:   + MensagemErro.Message)
        End Try
    End Sub




    Private Sub cmdFechaCupom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFechaCupom.Click
        Try
            [ô] Método para o fechamento do cupom passando como parâmetro a forma de
            [ô] pagamento e a mensagem promocional.
            BematechFiscal.Cupom.Fechar( Dinheiro ,  Obrigado, volte sempre! )
        Catch MensagemErro As Fiscal.ECF.FiscalException
            MsgBox( Mensagem Erro:   + MensagemErro.Message)
        End Try
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t As String =  
        Try


            t = Bematech.ModeloImpressora.MP2100FI.ToString

            MsgBox(t)

            t = Bematech.Comunicacao.PortaSerial.Porta.COM1
            MsgBox(t)



            [ô] Método para verificar se o cupom está aberto.
            If (BematechFiscal.Cupom.Status.Aberto) Then
                [ô] Método que retorna a quantidade de itens vendidos.
                If (BematechFiscal.Cupom.ItensVendidos.Count <> 0) Then
                    [ô] A classe Item armazena todos os itens vendidos no cupom fiscal.
                    For Each ItensVendidos As Fiscal.ECF.CupomFiscal.Item In BematechFiscal.Cupom.ItensVendidos
                        txtProduto.Text += ItensVendidos.Codigo +     + _
                        ItensVendidos.Descricao +     + _
                        ItensVendidos.Quantidade.ToString( 0 ) +     + _
                        ItensVendidos.ValorUnitario.ToString( C ) + vbCrLf
                    Next
                Else
                    [ô] Método que retorna o modelo da impressora fiscal.
                    Dim cModeloImpressora As String = BematechFiscal.Modelo.ToString()
                    [ô] Métodos que retorna a versão do firmware da impressora fiscal.
                    Dim cVersaoFirmware As String = BematechFiscal.Informacao.VersaoFirmware
                    If (cModeloImpressora =  MP20FI  And cVersaoFirmware <>  032600 ) Then
                        [ô] Método para vender um item para o cancelamento do cupom fiscal.
                        BematechFiscal.Cupom.Vender( 1 ,  Item para cancelamento ,  II , 1, _
                          0.01D)
                        [ô] Método para cancelar o cupom fiscal.
                        BematechFiscal.Cupom.Cancelar()
                    Else
                        [ô] Método para cancelar o cupom fiscal.
                        BematechFiscal.Cupom.Cancelar()
                    End If
                End If
            End If
        Catch MensagemErro As Fiscal.ECF.FiscalException
            MessageBox.Show( Mensagem Erro:   + MensagemErro.Message)
        End Try
    End Sub

End Class


Mas, quando inicio o projeto me da uma mensagem dizendo  Inicializacao Impressora: ERRO COMUNICAÇÃO

E não achei onde setar em qual porta ir... alguem tem alguma luz?


Carinhena

A melhor forma de aprender e ensinando!


Resposta escolhida #302579 - 04/03/2009 08:18:12

SPRITU
COSMOPOLIS
Cadast. em:Abril/2005


No site da BEMATECH, existe os exemplos =)

só da uma olhada em downloads =)



Se tem jeito fazemos, se não tem jeito, inventamos um jeito!! (By Drak)


#302594 - 04/03/2009 10:10:08

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Então, eu dei uma olhada la e o exemplo é justamente deles.

Só que eu me referia ao emulador da impressora que não funcionava.
Só que agora eu li, que não adianta, se usar os componentes da bematech (especificos para .net) o emulador só vai funcionar se for com outro computador fazer o papel de impressora ou, uma máquina com um cabo especial e com duas entradas seriais.

Mas, valeu pela ajuda.


Carinhena

A melhor forma de aprender e ensinando!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45