Moderador: Moderadores
massa escreveu:como faço pra usar ele ???
 Formato da Fonte  |  Definição TAG  |  Valor Padrão Epson  |
---|---|---|
 Normal  |  [NORMAL]  |  = CHR(18)  |
 Condensado  |  [COMPRIME]  |  = CHR(15)  |
 Expandido  |  [EXPANDE]  |  = CHR(14)  |
 Negrito (Liga)  |  [NEGRITOLIGA]  |  = CHR(27)+"E"  |
 Negrito (Deslig)  |  [NEGRITODESL]  |  = CHR(27)+"F"  |
ARQ_PRN="CP"+STRZERO(M->CUP_SAI,6)+".PRN"
M->TIPO_PRN = "A"
SET PRINTER TO &ARQ_PRN
set device to printer
SETPRC(0,0)
LINHA=PROW()
@ LINHA,000 SAY "[COMPRIME];[NEGRITOLIGA]"
LINHA=LINHA+1
@ LINHA,001 say "---------------------------------------------------------"
LINHA = LINHA + 1
@ LINHA,001 SAY " DOCUMENTO AUXILIAR DE VENDA - Venda a Vista"
LINHA = LINHA + 1
@ LINHA,001 SAY " DOCUMENTO NAO FISCAL - "
@ LINHA,030 SAY "N§ do Cupom.: "+strzero(numer,6)
LINHA = LINHA + 1
@ LINHA,001 say "---------------------------------------------------------"
LINHA = LINHA + 1
@ LINHA,001 say SUBST(EMPRESA,1,25)+"- Telefone: (34)3351-5638"
LINHA = LINHA + 1
@ LINHA,001 say SUBST(M->END_EMP,1,25)+"- WhatsApp: 99923-0818"
LINHA = LINHA + 1
@ LINHA,001 SAY "Data:"
@ LINHA,007 SAY M->DAT_HOJE
@ LINHA,020 SAY "Hora: "+TIME()
@ LINHA,040 SAY "Venda a vista"
LINHA = LINHA + 1
@ LINHA,001 say "---------------------------------------------------------"
LINHA = LINHA + 1
@ LINHA,001 say "Cliente..: "+M->CLIE
LINHA = LINHA + 1
@ LINHA,001 say "Vendedor.: "+STR(M->FUN_SAI,3)+" - "+PESQ(STR(M->FUN_SAI,3),"3",2,"NOM_FUN")
LINHA = LINHA + 1
@ LINHA,001 say "---------------------------------------------------------"
LINHA = LINHA + 1
@ LINHA,001 say "Descricao Qtd V.Unit. Vr. Total"
LINHA = LINHA + 1
@ LINHA,001 say "---------------------------------------------------------"
LINHA = LINHA + 1
b=1
DO WHILE b <= ele
M->CLI_SAI = 0
M->TIP_SAI = 1
M->PAG_SAI = M->DAT_HOJE
M->TIR_SAI = "P"
M->PRO_SAI = M1[b]
M->QTD_SAI = M3[b]
tot1 = m3[b]*m4[b]
@ linha,001 say PESQ(STR(M->PRO_SAI,6),"5",3,"SUBST(DES_EST,1,25)")
@ linha,029 say m3[b] pict "999"
@ linha,033 say m4[b] pict "9,999.99"
@ linha,043 say tot1 pict "99,999.99"
linha = linha + 1
b=b+1
ENDDO
@ LINHA,001 say "---------------------------------------------------------"
LINHA = LINHA + 1
@ linha,013 say 'Valor Total...: R$'
@ linha,042 say m->totger+m->desc pict '999,999.99'
LINHA=LINHA+1
if m->desc>0
@ linha,013 say 'Valor Desconto: R$'
@ linha,042 say m->desc pict '999,999.99'
LINHA=LINHA+1
endif
@ linha,013 say 'Total a Pagar.: R$'
@ linha,042 say m->totfin pict '999,999.99'
linha = linha + 1
@ LINHA,001 say "---------------------------------------------------------"
linha=linha+2
@ linha,003 say "Local Entrega: "+M->LOCAL
linha = linha + 4
@ LINHA,001 say "---------------------------------------------------------"
linha = linha + 8
@ linha,001 say " "
@ linha,001 say " "
SET PRINTER OFF
SET DEVICE TO SCREEN
RUNCMD:="USBPRINT "+"CP"+STRZERO(M->CUP_SAI,6)+".PRN"
__RUN(RUNCMD)
? chr(27)+chr(69) + "ligar negrito"
? chr(27)+chr(70) + "desligar negrito"
? chr(27)+chr(69) +chr(1) + "ligar negrito"
? chr(27)+chr(70) +chr(0) + "desligar negrito"
ou
? chr(27)+chr(69) +"1" + "ligar negrito"
Retornar para Ferramentas de Apoio
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes