PC Toledo

Código: Selecionar todos

Public MLIN :=62 
Public mpag := 1 
Public vlTotal := 0 
PUBLIC vlQTD   := 0
Use barra 
index on REFERENCIA to ref 
use barra index ref 
GOTO TOP 

SET DEVICE TO PRINTER 
setprc(0,0) 


          Do While .not. Eof() .and. Prow()<62     // 62 = No. de linhas que sera impresso na pagina

           @ PROW() + 01, 00 SAY Referencia 
           @ PROW() + 00, 21 SAY "|" 
           @ PROW() + 00, 23 SAY Desc 
           @ PROW() + 00, 70 SAY "|" 
           @ PROW() + 00, 77 SAY "PC" 
           @ PROW() + 00, 83 SAY "|" 
           @ PROW() + 00, 91 SAY QTD 
           @ PROW() + 00, 97 SAY "|" 
           @ PROW() + 00, 100 SAY PReco 
           @ PROW() + 00, 115 SAY "|" 
           @ PROW() + 00, 120 SAY Total 
           @ PROW() + 00, 132 SAY "|" 

           vlTotal += Total 
           vlQTD   += QTD
           DBSKIP()

     Enddo 

Enddo 
If mpag > 1   // se foi impresso pelo menos uma pagina 
[b]" AQUI EU GOSTARIA QUE O RESULTADO SAISSE DA MANEIRA ACIMA"[/b]
    @ Prow()+2,000 Say "Totais ===>" 
    @ prow()+0,087 SAY vlQTD
    @ Prow()+0,120 Say vlTotal 
    Eject

Endif 

SET DEVICE TO SCREEN 
RETURN