View Complete Thread | FoxWeb Forum Home
Search:
Date:    Msg ID:   
From:    Thread:   
Subject:   
Hi all !...
I want to make a manual report; I'm inserting this code into a program but it doesn't work properly.
If somebody help me will appreciate..
Regards.
Dude....
 
Select 10
Use Rphagent shared
Pri=Alltrim(Rphagent.impresora)
Set console off
Set printer on
Set device to printer
Set printer to name "&Pri"
Sele("Fact_print")
Go top
Scan for !eof()
    @ Fact_print.row1,Fact_print.col1 say Fact_print.campo font 'Courier' 16 STYLE 'BI'
    If Fact_print.campo="Rphdetl"
        Sele("Rphdetl")
        Seek Rphmstr.factura
        Sele("Fact_print")
        Scan For Rphdetl.factura=Rphmstr.factura
               @ Fact_print.row1,Fact_print.col1 say Fact_print.campo font 'Courier', 16 STYLE 'BI'
               Sele("Fact_print")
               Skip
               Sele("Rphdetl")
        Endscan
    Endif
Endscan     
Eject
Set console on
Set device to screen
Set printer off