none
Ajuda URGENTE... RRS feed

  • Pergunta

  • Ola Pessoal, estou com uns problemas com a impressora MP20 FI II, ja tentei de tudo e continuo com problemas.

    1- Tentei usar o Emulador com o fonte da Bermatech ele so manda mensagem de erro de comunicacao com a impressora. Peguei uma DLL Atualizada no syte da bermatech 5.4.1.0

    retorno = Bematech_FI_LeituraX()
    Call VerificaRetornoImpressora("", "", "Leitura X")


    2 - Como Nao consegui usar o emulador, estou fazendo a nota imprimo na propria impressora e depois cancelo, posso fazer isto?

    3 - Como estou fazendo e cancelando, ele so imprime o cabecalho e nao imprime os itens, da erro de Comunicacao com a impressora? O que eu faco me ajudem amigos, tenho 3 dias que nao durmo por este motivo. Ja fiz de tudo

    Segue abaixo o que estou fazendo:

    intQuantidadeTotal = 0
                'ABRE CUPOM FISCAL
                retorno = Bematech_FI_AbreCupom("")
                If retorno <> 1 Then Call VerificaRetornoImpressora("", "", "Emissão de Cupom Fiscal")
           
                rs2.Open "SELECT CapaItem.CodigoProduto, Produto.Descricao, CapaItem.AliquotaICMS, CapaItem.Quantidade, CapaItem.ValorUnitario, CapaItem.ValorDescontoItem FROM CapaItem INNER JOIN Produto ON CapaItem.CodigoEmpresa = Produto.CodigoEmpresa and CapaItem.CodigoProduto = Produto.CodigoProduto WHERE CapaItem.CodigoEmpresa = " & intEmpresa & " and Sequencia = " & rs!Sequencia & " and CapaItem.Quantidade > 0 order by SequenciaProduto", db, , , adCmdText
                If Not rs2.EOF Then
                    Do While Not rs2.EOF
                        intQuantidadeTotal = intQuantidadeTotal + rs2!quantidade
                       
                        CodigoProduto = Format$(rs2!CodigoProduto, "0000000000000")
                        DescricaoProduto = Trim(Left$(rs2!Descricao, 30) & String$(30 - Len(Left$(rs2!Descricao, 30)), " "))
                        ValorUnitarioItem = Trim(Left$(Format$(rs2!ValorUnitario, "000000.00"), 6) & Right$(Format$(rs2!ValorUnitario, "000000.00"), 2))
                        If MsgBox("Valor com ponto?", 36, Me.Caption) = vbYes Then
                            ValorUnitarioItem = Trim(Str(Format$(rs2!ValorUnitario, "0.00")))
                        Else
                            ValorUnitarioItem = Trim(Str(Format$(rs2!ValorUnitario * 100, "0.00")))
                        End If
                        quantidade = Trim(Str(Val(rs2!quantidade)))
                        AliquotaICMS = Trim(Format(rs2!AliquotaICMS, "00"))
                        DescontoProduto = 0                     

                        retorno = Bematech_FI_VendeItem(Trim(CodigoProduto), DescricaoProduto, Trim(AliquotaICMS), TipoQuantidade, Trim(quantidade), 2, ValorUnitarioItem, "$", Trim(DescontoProduto))
                       
    If retorno <> 1 Then Call VerificaRetornoImpressora("", "", "Emissão de Cupom Fiscal")
                       
                        rs2.MoveNext
                    Loop
                End If
                rs2.Close



    terça-feira, 29 de maio de 2007 00:37

Respostas

  • Olá Samuel,
     
    Para que vc possa trabalhar com o emulador é necessário vc habilitar a chave EmulMFD localizado no arquivo de configuração da dll (BemaFI32.ini). Esta chave deve estar igual a 1.
     
    Pode estar havendo algum problema com sua porta serial, pois o comando é recebido pela impressora e executado, mas o retorno é um erro de comunicação. Na verdade, o erro de comunicação está na leitura do status da impressora, após a execução do comando.
     
    Experimente fazer o seguinte:
     
    - Entre nas propriedades da porta serial que vc está usando com a impressora e desative-a;
    - Peça para ativa-la novamente e não reinicie o computador;
    - Faça um teste.
     
    Outra verificação que poderia ser feito, isso em relação à dll, é habilitar o log dela e me enviar para que eu possa acompanhar as chamadas das funções. Este log é habilitado tbm no arquivo de configuração BemaFI32.ini, através da chave Log (Log=1).
     
    A dll irá gerar o arquivo BemaFI32.log no C:\ com todas as chamadas das funções.
     
    Fico no aguardo.
     
    Ats,
     
    André Munhoz
    terça-feira, 29 de maio de 2007 14:13

Todas as Respostas

  • Olá Samuel,
     
    Para que vc possa trabalhar com o emulador é necessário vc habilitar a chave EmulMFD localizado no arquivo de configuração da dll (BemaFI32.ini). Esta chave deve estar igual a 1.
     
    Pode estar havendo algum problema com sua porta serial, pois o comando é recebido pela impressora e executado, mas o retorno é um erro de comunicação. Na verdade, o erro de comunicação está na leitura do status da impressora, após a execução do comando.
     
    Experimente fazer o seguinte:
     
    - Entre nas propriedades da porta serial que vc está usando com a impressora e desative-a;
    - Peça para ativa-la novamente e não reinicie o computador;
    - Faça um teste.
     
    Outra verificação que poderia ser feito, isso em relação à dll, é habilitar o log dela e me enviar para que eu possa acompanhar as chamadas das funções. Este log é habilitado tbm no arquivo de configuração BemaFI32.ini, através da chave Log (Log=1).
     
    A dll irá gerar o arquivo BemaFI32.log no C:\ com todas as chamadas das funções.
     
    Fico no aguardo.
     
    Ats,
     
    André Munhoz
    terça-feira, 29 de maio de 2007 14:13
  • Oi Samuel,

     

    Temos um exemplo funcionalo completo em VB6 se desejar envie-nos um email que enviamos pra voce o exemplo completo.

     

    Claudenir C. Andrade  abaixo os dados de nossa Equipe de suporte exclusiva pra desenvovledores Smile

     

     

    • Telefones e E-mails:
    +55 41 3361 6005 | desenvolvedores.suporte@daruma.com.br
    +55 41 3361 6076 | suporte.desenvolvedores@daruma.com.br
    +55 41 3361 6787 | suporte.alexandre@daruma.com.br
    +55 41 3361 6945 | claudenir@daruma.com.br
    +55 41 3361 6096

    • Skype
    daruma_suporte_desenvolvedores
    suporte_daruma
    suporte_daruma_desenvolvedores
    daruma_suporte_alexandre
    claudenir_andrade

    domingo, 3 de junho de 2007 19:47