por paiva_dbdc » 06 Mai 2020 09:41
bom dia
tente
* MP-4200 Bematech Termica
PRIVATE mp_4200_INICIO :=chr(29) + chr(249) + chr(32) + chr(0) + chr(27) + chr(116) + chr(8)
PRIVATE mp_4200_EXPANDE :=chr(27) + chr(87) + chr(1)
PRIVATE mp_4200_cancelaEXPANDE:=chr(27) + chr(87) + chr(0)
PRIVATE mp_4200_CONDENSA:=chr(15)
PRIVATE mp_4200_NORMAL :=CHR(18)
PRIVATE mp_4200_NEGRITO :=chr(27) + chr(69)
PRIVATE mp_4200_cancelaNEGRITO:=chr(27) + chr(70)
PRIVATE mp_4200_DIREITA :=CHR(27) + CHR(97) + CHR(2) // ALINHA A DIREITA
PRIVATE mp_4200_CENTRO :=CHR(27) + CHR(97) + CHR(1) // ALINHA CENTRO
PRIVATE mp_4200_ESQUERDA:=CHR(27) + CHR(97) + CHR(0) // ALINHA A ESQUERDA
PRIVATE mp_4200_CORTA :=CHR(27) + CHR(119)
do case
case pcgc = [xx.xxx.xxx/0001-xx] .or. ; && tela & tela
tinte_15 = [S] .or. ; && Pedido em Bobina /N: Pedido impresso em Bobina de Papel "
tinte_15 = [B] && Pedido em Bobina /N: Pedido impresso em Bobina de Papel "
if tinte_15 = [B] && Pedido em Bobina /N: Pedido impresso em Bobina de Papel "
@ prow()+1, 00 say mp_4200_INICIO + [ ]+ mp_4200_CONDENSA && +[ ok 001]
else
@ prow()+1, 00 say chr(27)+chr(77)+[ ]+prt_15
endif
if tloja2_01_12 = [S] && Loja 29 "EPSON TM - T20 S/N: Impressora TERMICA EPSON TM - T20 c grilhotina "
vdet = CHR(27)+CHR(109)
@ prow()+1,00 say vdet && comando de grilhotina
endif