Print to DotMatrix

Set Device To File c:\ksr_nt.txt
Set Printer Font 'Lucida Console', 6
cpn=Mline(Alltrim(cpara.JD_ATAS),1)
cpn0=Mline(Alltrim(cpara.JD_ATAS),2)
cpn1=Mline(Alltrim(cpara.JD_ATAS),3)
cpn2='RETUR JUAL'
@Prow()+0,01 Say Chr(15)

If jns_trans#'1'
    @Prow()+1,20-(Len(Alltrim(cpn2))/2) Say cpn2
Endif

@Prow()+1,20-(Len(Alltrim(cpn))/2) Say cpn
If !Empty(cpn0)
    @Prow()+1,20-(Len(Alltrim(cpn0))/2) Say cpn0
Endif

If !Empty(cpn1)
    @Prow()+1,20-(Len(Alltrim(cpn1))/2) Say cpn1
Endif

@Prow()+1,00 Say Repl('-',40)

If !Empty(Alltrim(C01.kd_lang))
    Select tb_langgan
    Set Order To kd_lang
    Set Exact On
    Locate For  Alltrim(kd_lang)=Alltrim(C01.kd_lang)
    Set Exact Off

    If Found()
        mlang=tb_langgan.nm_lang
        malamat=tb_langgan.alamat
    Else
        mlang=''
        malamat=''
    Endif
Else
    mlang=''
    malamat=''
Endif

Select C01
If mlang#'ECERAN' And !Empty(mlang)
    @Prow()+1,00 Say 'Kepada: '+Upper(mlang)
    @Prow()+1,00 Say 'Alamat: '+Proper(malamat)
Endi

@Prow()+1,00 Say 'Tgl. :'+Trans(TANGGAL,'99/99/99')
@Prow()+0,23 Say 'Kasir:'+Alltrim(kd_opr)+' '+Left(MUSER,8)
@Prow()+1,00 Say 'No#. :'+NO_BUKTI
@Prow()+0,23 Say 'Jam  :'+Alltrim(Time())
If !Empty(Alltrim(C011.KET_MEMO))
    @Prow()+1,00 Say 'MEMO :'+C011.KET_MEMO
Endif
@Prow()+1,00 Say Repl('-',40)
Jml_itm=0
Do Whil !Eof()
    Sele C01
    Jml_itm=Jml_itm+1
    @Prow()+1,00 Say Alltrim(C01.kd_brg)+' '+Iif(Seek(Alltrim(C01.kd_brg),"TB_BARANG","KD_BRG"),Substr(Upper(TB_BARANG.NM_BRG),1,25),'-')
*         @PROW()+1,00 SAY TRANSFORM(jml_itm ,'999')+'. '+IIF(seek(ALLTRIM(C01.KD_brg),"TB_BARANG","KD_BRG"),UPPER(TB_BARANG.NM_BRG),'-')
    @Prow()+1,01 Say Trans(C01.QTY,'99,999.99')+' '+Alltrim(Proper(C01.KD_SATUAN))+' x '
    @Prow(),13 Say Tran(C01.HRGSAT,'99,999,999')
    If DISCITEM#0
        @Prow()+0,23 Say '('+Tran(DISCITEM,'99')+'%) = '
    Else
        @Prow(),27 Say ' ='
    Endi
    @Prow(),28 Say debet Pict '999,999,999'
    Skip
Enddo

Set Devi To Screen
Type c:\ksr_nt.txt To Printer
Delete File c:\ksr_nt.t
*         @PROW()+1,00 SAY TRANSFORM(jml_itm ,'999')+'. '+IIF(seek(ALLTRIM(C01.KD_brg),"TB_BARANG","KD_BRG"),UPPER(TB_BARANG.NM_BRG),'-')
    @Prow()+1,01 Say Trans(C01.QTY,'99,999.99')+' '+Alltrim(Proper(C01.KD_SATUAN))+' x '
    @Prow(),13 Say Tran(C01.HRGSAT,'99,999,999')
    If DISCITEM#0
        @Prow()+0,23 Say '('+Tran(DISCITEM,'99')+'%) = '
    Else
        @Prow(),27 Say ' ='
    Endi
    @Prow(),28 Say debet Pict '999,999,999'
    Skip
Enddo

Set Devi To Screen
Type c:\ksr_nt.txt To Printer
Delete File c:\ksr_nt.txt