PC Toledo

Código: Selecionar todos

Public MLIN  :=70
Public mpag   :=1

Use mad
index on REFERENCIA  to ref
use mad index ref
GOTO TOP 
READ
SET DEVICE TO PRINTER 
DO WHILE .NOT. EOF()
   If MLIN > 30
@ 0,000 say CHR(15)
@ PROW() + 01, 02 SAY Referencia
@ PROW() + 00, 15 SAY "|"
@ PROW() + 00, 23 SAY substr(Desc,1,45)
@ PROW() + 00, 40 SAY "|"
@ PROW() + 00, 78 SAY "PC"
@ PROW() + 00, 80 SAY "|"
@ PROW() + 00, 89 SAY STR(QTD,10,0)
@ PROW() + 00, 105 SAY "|"
@ PROW() + 00, 106 SAY PR_custo
@ PROW() + 00, 115 SAY "|"
@ PROW() + 00, 120 SAY Total
@ PROW() + 00, 15 SAY "|"

setprc(0,0)
ENDIF
SELE MAD
SET ORDER TO 1
(DBSkip())
ENDDO 
SET DEVICE TO SCREEN
 
RETURN

Código: Selecionar todos

Public MLIN :=70
Public mpag :=1

Use mad
index on REFERENCIA to ref
use mad index ref
GOTO TOP

SET DEVICE TO PRINTER
setprc(0,0)

@ 0,000 say CHR(15)

DO WHILE .NOT. EOF()

       if prow() > 30 
           eject
       endif
  
     
       @ PROW() + 01, 02 SAY Referencia
       @ PROW() + 00, 15 SAY "|"
       @ PROW() + 00, 23 SAY substr(Desc,1,45)
       @ PROW() + 00, 40 SAY "|"
       @ PROW() + 00, 78 SAY "PC"
       @ PROW() + 00, 80 SAY "|"
       @ PROW() + 00, 89 SAY STR(QTD,10,0)
       @ PROW() + 00, 105 SAY "|"
       @ PROW() + 00, 106 SAY PR_custo
       @ PROW() + 00, 115 SAY "|"
       @  PROW() + 00, 120 SAY Total
       @ PROW() + 00, 15 SAY "|"
  
  
       DBSkip()
ENDDO

SET DEVICE TO SCREEN

RETURN