Print Bematech MP 4200 TH - USB não fiscal

[microfly]

Bom dia a todos do Grupo, gostaria que alguém pudesse me ajudar nessa parada.

Eu tenho um sistema que emite cupom usando a Tdosprn, imprimi de boa em impressora antiga da Bematech configurada com print (Generic/Text), só que o cliente comprou a impressora BEMATECH 4200 TH (Térmica) - USB e agora nao consigo fazer funfar, da msg que não encontrou a porta de comunicação, ja fiz de tudo e nao funfa nem a porrada.

o que eu preciso é simples, inicializar a impressora emitir o cupom usar a guilhotina, pois tenho que imprimir 2X o mesmo cupom tipo as impressoras de Cartão de Crédito.

O suporte da Bematech é uma piada, bom nao é essa questão.

Obrigados a todos e Sucesso

(11) 2645-8412

São Paulo - Santana - Zona Norte

www.microfly.com.br

[microfly]

Bom dia a todos do Grupo, gostaria que alguém pudesse me ajudar nessa parada.

Eu tenho um sistema que emite cupom usando a Tdosprn, imprimi de boa em impressora antiga da Bematech configurada com print (Generic/Text), só que o cliente comprou a impressora BEMATECH 4200 TH (Térmica) - USB e agora nao consigo fazer funfar, da msg que não encontrou a porta de comunicação, ja fiz de tudo e nao funfa nem a porrada.

o que eu preciso é simples, inicializar a impressora emitir o cupom usar a guilhotina, pois tenho que imprimir 2X o mesmo cupom tipo as impressoras de Cartão de Crédito.

O suporte da Bematech é uma piada, bom nao é essa questão.

Obrigados a todos e Sucesso

(11) 2645-8412

São Paulo - Santana - Zona Norte

www.microfly.com.br

[kapiaba]

Caminho é por aqui:

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=19221

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

[jef2_tim]

http://www.4shared.com/file/MjYG_Rt2/BemaSetup_MP4K_v401.html

http://www.4shared.com/file/CnDpesVx/BemaSetup_MP4K_v401_2.html

Instala este programinha ae ....

Ele instala a impressora como se fosse do windows e pronta para usar

Um Xharbraço.

Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar

Impactus Automação Comercial

jef2_timber@hotmail.com

(91)-3238-7012

Belem-PA

[microfly]

Bom Dia, obrigado ao amigo Joao e ao jef2_timber.

Obs: Jef2_timber mandei um email em private para vc, veja se pode me ajudar. Obrigado

Luiz Carlos

(11) 2645-8412

São paulo - Santana Zona Norte

www.microfly.com.br

[elson]

oi

[elson]

boa noite parceiro

para 4200 faz assim compra uma placa que encaixa atraz da impressora ela fica serial,

instalando generic text finaliza trabalho de impressao

<1B>v<8C><1B>m

vai cortar folha abrir gaveta tanto na 4000 como na 4200

na 4000 ela sincroniza melhor a impressao

e voce esta certo sobreo suporte bematech, sao atencioso

mas nao resolve o problema ate mais

[Marca]

Eu tbem tive problemas com ela

e resolvi desta maneira

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=12296&p=70601&hilit=mp+4200#p70601

Espero q. ajude

Marcelo Ferro

Petrópolis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

[microfly]

eu utilizo dessa forma e não tenho problemas e já se vao quase 2 anos

Function Emitcuploja(oDlg,oLbxft,nTotpedGeral,nDescto,nOpcnem)

Local nLin:=0,m_emnota:=0,m_pg:=0,nArea,oPrn,nVltotal:=0

Local nNomecl,nFnum:=0,nFcom:="",nFende:="",nComis:=0,nAbre:=" "

Local nFcli:=" ",nFend:=" ",nFbai:=" ",nFcid:=" ",nConta:=0

Local nFcep:=" ",nCount:=0,nTotqtd:=0,nFvenci:=Ctod(" ")

Local nDataVc:=Ctod(" "),nDif:=0,nParc:=0,nVlr:=0,lImprime:=.F.,nPagto:=""

Local nPeganf:=Pedidosv->Ftnpedi,nListou:=.F.,nNummais:=0,nDesct:=0

Local nOrdem:=Pedidosv->(OrdName()),nRecop24:=Pedidosv->(Recno())

*-----------------------------------------------------------------------------*

If select("Peditem") == 0

If !Abrearq("Peditem","Peditem",.F.,0,"DE Peditem")

Dbcloseall()

Return

Endif

Ordlistadd("Peditem")

Endif

*-----------------------------------------------------------------------------*

If select("Pedidos") == 0

If !Abrearq("Pedidos","Pedidos",.F.,0,"DE Pedidos")

Dbcloseall()

Return

Endif

Ordlistadd("Pedidos")

Endif

*-----------------------------------------------------------------------------*

Select Pedidosv

Pedidosv->(Bloqreg(0))

Pedidosv->Vlrvenda:=Memvar->nTotpedGeral

Pedidosv->Vlr_desc:=Memvar->nDescto

Pedidosv->Totalped:=Memvar->nTotpedGeral-Memvar->nDescto

If Pedidosv->Tipopag=0

Pedidosv->Tipopag:=1

Pedidosv->Qtdparc:=1

Endif

Do Case

Case Pedidosv->Tipopag=1

Pedidosv->Nomecartao:="Dinheiro"

Case Pedidosv->Tipopag=2

Pedidosv->Nomecartao:="Cheque"

Case Pedidosv->Tipopag=3

Pedidosv->Nomecartao:="Boleto"

Case Pedidosv->Tipopag=4

Pedidosv->Nomecartao:="Cartao"

Case Pedidosv->Tipopag=5

Pedidosv->Nomecartao:="Cartao Debito"

Case Pedidosv->Tipopag=6

Pedidosv->Nomecartao:="Transferencia"

Endcase

nArea:=Select()

Copy to (PATHTEMP+"\Tmpnf1pc") For Pedidosv->Ftnpedi=nPeganf

ABREARQ(Pathtemp+"Tmpnf1pc","Tmpnf1pc",.T.,0,"Temporario")

Select Tmpnf1pc

Index on Ftnpedi Tag Itmpnf1

OrdSetFocus("Itmpnf1")

Dbgotop()

Select Pedidos

If Adireg(0,"Pedidos")

For nli:=1 To Fcount()

nlj := Tmpnf1pc->( FieldPos( Pedidosv->( FieldName(nli))))

If (nlj > 0)

FieldPut( nli, Tmpnf1pc->( FieldGet(nlj)))

Endif

Next

DbUnlock()

Endif

Pedidos->(Dbclosearea())

Select Peditemv

Copy to (PATHTEMP+"\Tmpnf2pc") For Peditemv->Ftnpedi=nPeganf

ABREARQ(Pathtemp+"Tmpnf2pc","Tmpnf2pc",.T.,0,"Temporario")

Select Tmpnf2pc

Index on Ftnpedi Tag Itmpnf2

OrdSetFocus("Itmpnf2")

Dbgotop()

Do While Tmpnf2pc->(!Eof())

nLin++

nCount++

nArea:=Select()

Select Peditem

If Adireg(0,"Peditem")

For nli:=1 To Fcount()

nlj := Tmpnf2pc->( FieldPos( Peditem->( FieldName(nli))))

If (nlj > 0)

FieldPut( nli, Tmpnf2pc->( FieldGet(nlj)))

Endif

Next

DbUnlock()

Endif

Select(nArea)

Tmpnf2pc->(Dbskip())

Enddo

Tmpnf2pc->(Ordscope(0,Nil))

Tmpnf2pc->(Ordscope(1,Nil))

Peditem->(Dbclosearea())

If nOpcnem=1

oPrn := TDosPrn():New("COM1") - IMPRESSORA CONECTADA EM USB

oPrn:Startpage()

oPrn:lZeraBuffer := .T. // Inibe o Pulo da Pagina

oPrn:SetCoors( 0,0 )

oPrn:Say( 0,0, Chr(27) + "C" + Chr(40))

oPrn:Say(0,0,Chr(27)+Chr(15))

Select Tmpnf1pc

Dbgotop()

nCopia:=1

Do While nCopia<3 .and. !Eof()

lImprime:=.T.

Duplicat->(OrdSetFocus("Iduplic"))

nFvenci :=Iif(Duplicat->(Dbseek(Tmpnf1pc->Ftclien)),Duplicat->Datavenc,Ctod(" "))

nFemi:=Dtoc(Tmpnf1pc->Ftdtven)

Clientes->(OrdSetFocus("Iclcod"))

nfTele :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Ccltele," ")

nAbre :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Abrev_tipo," ")

nFend :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Cclende," ")

nFNum :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Cclnum,0)

nfCom :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->Cclcomp," ")

nfBai :=Iif(Clientes->(Dbseek(Tmpnf1pc->Ftclien)),Clientes->CclBair," ")

Do Case

Case Tmpnf1pc->Tipopag=1

nPagto:="Dinheiro"

nFvenci:=Tmpnf1pc->Ftdtven

Case Tmpnf1pc->Tipopag=2

nPagto:="Cheque"

Case Tmpnf1pc->Tipopag=3

nPagto:="Boleto"

Case Tmpnf1pc->Tipopag=4

nPagto:="Cartao"

Case Tmpnf1pc->Tipopag=5

nPagto:="Cartao Debito"

Case Tmpnf1pc->Tipopag=6

nPagto:="Transferencia"

Endcase

nPagto +=" / "+Str(Tmpnf1pc->Qtdparc,2)+"X"

nDesct :=Tmpnf1pc->Vlr_desc

oPrn:Say(00,00+( 75 - LEN( RTRIM(cEnome ) ) ) / 2, RTRIM( cEnome ) )

nlin++

oPrn:Say( 01,00+( 68 - LEN( RTRIM(cEendereco+" - "+cEbairro+" - "+cEcep ) ) ) / 2, RTRIM(cEendereco+" - "+cEbairro+" - "+cEcep ) )

nlin++

oPrn:Say(02,00+( 68 - LEN( RTRIM("Fone/Fax: "+cEtelefone+" / "+cEfax ) ) ) / 2, RTRIM("Fone/Fax: "+cEtelefone+" / "+cEfax) )

oPrn:Say(03,01,"Cnpj : "+cEcnpj)

oPrn:Say(03,40,"I.Estadual : "+cEie)

oPrn:Say(04,01,"----------------------------------------------------------------")

oPrn:Say(05,01,"Pedido........ "+Strzero(Tmpnf1pc->Ftnpedi,6))

oPrn:Say(05,48,"Data : "+Dtoc(Tmpnf1pc->Ftdtven))

oPrn:Say(06,01,"Tipo Venda ... Balcao")

oPrn:Say(06,48,"Hora : "+Tmpnf1pc->Horap)

oPrn:Say(07,01,"Vendedor...... "+Alltrim(Tmpnf1pc->Nomeven))

oPrn:Say(07,48,"Venc : "+Dtoc(nFvenci))

oPrn:Say(08,01,"Nome..: "+Alltrim(Tmpnf1pc->Nomecli))

oPrn:Say(09,01,"Pag...: "+nPagto)

oPrn:Say(10,01,"================================================================")

oPrn:Say(11,01,"Descricao Qtde Unit. Total")

oPrn:Say(12,01,"================================================================")

nLin:=13

Tmpnf2pc->(Ordscope(0,Tmpnf1pc->Ftnpedi))

Tmpnf2pc->(Ordscope(1,Tmpnf1pc->Ftnpedi))

Tmpnf2pc->(Dbgotop())

nCount:=0

Do While Tmpnf2pc->(!Eof())

Estoque->(Ordsetfocus("Istoqcod"))

oPrn:Say( nLin,001,Iif(Estoque->(Dbseek(Tmpnf2pc->Ftprod)),Substr(Estoque->Nome,1,36)," "))

oPrn:Say( nLin,037,Transform(Tmpnf2pc->Ftqtde,"@E 9,999.999"))

oPrn:Say( nLin,046,Transform(Tmpnf2pc->Ftvunde,"@E 99,999.99"))

oPrn:Say( nLin,055,Transform(Tmpnf2pc->Totitem,"@E 999,999.99"))

nLin++

nCount++

nTotqtd+=Tmpnf2pc->Ftqtde

nVltotal+=Tmpnf2pc->Totitem

Tmpnf2pc->(Dbskip())

Enddo

Tmpnf2pc->(Ordscope(0,Nil))

Tmpnf2pc->(Ordscope(1,Nil))

oPrn:Say( nLin,01,"----------------------------------------------------------------")

nlin++

If nDesct=0

oPrn:Say( nLin,039,"Total Geral: ")

oPrn:Say( nLin,056,Transform(nVltotal,"@E 99,999.99"))

nlin++

Else

oPrn:Say( nLin,039,"Total Venda: ")

oPrn:Say( nLin,056,Transform(nVltotal,"@E 99,999.99"))

nlin++

oPrn:Say( nLin,039,"Desconto : ")

oPrn:Say( nLin,056,Transform(nDesct,"@E 99,999.99"))

nlin++

oPrn:Say( nLin,039,"Total Final: ")

oPrn:Say( nLin,056,Transform(nVltotal-nDesct,"@E 99,999.99"))

nlin++

Endif

oPrn:Say( nLin,01,"----------------------------------------------------------------")

nlin++

oPrn:Say( nLin,01,Dtoc(Date())+" as "+Time())

oPrn:Say( nLin,26,"- Terminal : "+vUsuarios)

nlin++

nlin++

oPrn:Say( nLin,00+( 65 - LEN( RTRIM("Obrigado. Volte Sempre!!!" ) ) ) / 2, RTRIM("Obrigado. Volte Sempre!!!") )

oPrn:Say( 0,0, Chr(27) + "C" + Chr(10))

If nCopia=1

oPrn:Say( 0,0, Chr(27) + "m" ) // Corte Parcial

Else

oPrn:Say( 0,0, Chr(27) + "w" ) // Corte Total

Endif

nCopia++

If nCopia=2

nTotqtd :=0

nVltotal:=0

Loop

Endif

If Tmpnf2pc->(Eof())

Exit

Endif

nTotqtd :=0

nVltotal:=0

nListou:=.T.

Enddo

oPrn:EndPage()

oPrn:End()

CursorArrow()

Endif

*----------------------------------------------------------*

Tmpnf1pc->(Dbclosearea())

Ferase(Pathtemp+"Tmpnf1pc.DBF")

Ferase(Pathtemp+"Tmpnf1pc.CDX")

Tmpnf2pc->(Dbclosearea())

Ferase(Pathtemp+"Tmpnf2pc.DBF")

Ferase(Pathtemp+"Tmpnf2pc.CDX")

*----------------------------------------------------------*

Select Pedidosv

Memvar->nPedido:=0

Memvar->nTotpedGeral:=0

Memvar->nDescto:=0

Gravaitemf(oDbfmerv,oDbfipev,lAdciona,oBtngrava,oDlg,nPedido,nTpsrp)

Memvar->nPedido :=Pedidosv->Ftnpedi

Pedidosv->Ftclien:=1

Pedidosv->Nomecli:="CONSUMIDOR"

Memvar->nIt_Prod := Space(6)

Memvar->nIt_Desc := Space(45)

Memvar->nIt_forn := 0

Memvar->nIt_Qtde := 0

Memvar->nIt_VlUnit := 0

Memvar->nIt_vlesto := 0

Memvar->nIt_TpDesc := 1

Memvar->nQtdestoq := 0

Memvar->nIt_VlDesc := 0

Memvar->nIt_VlVend := 0

Memvar->nIt_Total := 0

Memvar->nIt_Custo := 0

Memvar->nIt_Totcusto:= 0

Memvar->nIt_Totvol := 0

Memvar->nIt_Comiss := 0

Memvar->nMotivod :=Space(20)

Memvar->nIt_Descit:=0

Memvar->nIt_Totdit:=0

Memvar->nIt_Rspdes:=Space(10)

xFocus(oNomcli)

Memvar->nDtvenda:=Date()

Memvar->nTipotec:=1

Peditemv->(ORDSCOPE(0, Pedidosv->Ftnpedi))

Peditemv->(ORDSCOPE(1, Pedidosv->Ftnpedi))

Peditemv->(Dbgotop())

oDlg:UPDATE()

Memvar->oLbxft:Gobottom()

Memvar->oLbxft:Upstable()

Memvar->oLbxft:Gotop()

Memvar->oLbxft:Refresh()

Select(nArea)

Pedidosv->(OrdSetFocus(nOrdem))

Pedidosv->Tipodoc:=1

Pedidosv->Ftclien:=1

Pedidosv->Nomecli:="CONSUMIDOR"

xFocus(oNomcli)

Memvar->nDtvenda:=Date()

Memvar->nTipotec:=1

Formpgto->(Dbunlock())

oRadtec:Refresh()

oDlg:UPDATE()

oDlg:Refresh()

Return

*---------------------------------------------------------------------------------*

Luiz Carlos (Batata)

www.microfly.com.br

skype : suporte.microfly

Luiz Carlos

[Edvaldo1361303230]

A bematech tem um driver para esta impressora, é só instalar