CODING CETAK FAKTUR PENJUALAN ATAU CETAK INVOICE
By Java Computer System Network———————————————————————————————
#include “minigui.ch”
#include “inkey.ch”
#include “miniprint.ch”
procedure fakprn
if !iswindowactive (artent)
set browsesync on
set navigation extended
Define window artent ;
at 45,60 ;
width 420 ;
height 370 ;
icon ‘d:\soalgui\bmp\demo.ico’;
title ” ;
on init openfileartent();
on release closefileartent();
child;
nomaximize;
NOMINIMIZE
DEFINE BKGBRUSH newBrush SOLID IN ARTENT COLOR BLUE
@ 20,30 frame bingkai1artent ;
caption ‘Form cetak faktur penjualan ‘ ;
width 350 ;
transparent ;
fontcolor {0,255,197};
height 280
@ 60,50 label snonota1_lbl value “No.Faktur “;
font ” arial” size 12;
transparent ;
fontcolor { 0,255,197 }
@ 110,50 label snonota2_lbl value “No.Faktur “;
font ” arial” size 12;
transparent ;
fontcolor { 0,255,197 };
@ 60,150 btntextbox snonota1_txt font “arial” size 12;
width 150 ;
maxlength 15;
action snonota1();
on enter {snonota1()}
@ 110,150 btntextbox snonota2_txt font “arial” size 12;
width 150 ;
maxlength 15;
action snonota2();
on enter snonota2()
DEFINE IMAGE KUNCI1
ROW 230
COL 320
WIDTH 20
HEIGHT 30
PICTURE ‘D:\YOKATA\ICO\PRINT.ICO’
WHITEBACKGROUND .F.
ON CLICK { PRINTFPRN() }
END IMAGE
@ 230,230 buttonex KUNCI;
caption ‘Ceta&k Data ‘;
height 30 ;
width 80 ;
BACKCOLOR {255,128,64};
on click { printfprn() }
end window
center window ARTENT
activate window artent
endif
Return
PROCEDURE openfileartent
local skode := “FT”
local stptran := “”
RddSetDefault(“DBFNTX”) //standar clipper-harbour
IF opentables(cDRV+”TBLWMAS”,.F.)
SET INDEX TO (cDRV+”TBLWMAS”)
ELSE
RETURN
ENDIF
IF opentables(cDRV+”GLTBL”,.F.)
ELSE
RETURN
ENDIF
IF opentables(cDRV+”TBLCMAS”,.F.)
SET INDEX TO (cDRV+”TBLCMAS”),(cDRV+”TBLCMAS1″)
ELSE
RETURN
ENDIF
IF opentables(cDRV+”INVTBL”,.F.)
SET INDEX TO (cDRV+”INVTBL”)
ELSE
RETURN
ENDIF
IF opentables(cDRV+”INTRAN2″,.F.)
SET INDEX TO (cDRV+”INTRAN2″),(cDRV+”INTRAN21″),(cDRV+”INTRAN23″),(cDRV+”INTRAN22″)
ELSE
RETURN
ENDIF
IF opentables(cDRV+”INTRAN1″,.F.)
SET INDEX TO (cDRV+”INTRAN1″),(cDRV+”INTRAN11″),(cDRV+”INTRAN12″),(cDRV+”INTRAN1R”),(cDRV+”INTRAN17″),(cDRV+”INTRAN13″),(cDRV+”INTRAN15″),(cDRV+”INTRAN1A”)
ELSE
RETURN
ENDIF
select intran1
intran1->(dbsetorder(1))
dbseek(skode)
RETURN
PROCEDURE closefileartent
close tblwmas
close tblcmas
close intran1
close intran2
close invtbl
close gltbl
RETURN
PROCEDURE metu_artent
release window artent
RETURN
procedure SNONOTA1
do while .t.
codefak(“artent”,”snonota1_txt”)
exit
enddo
return
procedure SNONOTA2
do while .t.
codefak(“artent”,”snonota2_txt”)
exit
enddo
return
Function Codefak(cForm, cTextBtn)
Local cfaktur := “”
cfaktur := GetCodefak(Getproperty(cForm,cTextBtn,”Value”))
If !empty(cfaktur)
Setproperty(cForm,cTextBtn,”Value”,cfaktur)
EndIf
Return
Function GetCodefak(nValue)
Local cfaktur:= “”,nReg := 1
intran1->(dbsetorder(1))
set filter to intran1->kode == “FT”
if !empty(nValue)
nValue := recno()
Seek Alltrim(str(nValue))
if !eof()
nReg := Recno()
endif
endif
DEFINE WINDOW Form_Faktur;
AT 0,0 ;
WIDTH 480 HEIGHT 460 ;
TITLE ‘DAFTAR FAKTUR PENJUALAN’ ;
MODAL NOSIZE
@300,5 frame pilih_artent ;
width 380 ;
height 100
@ 320,10 label cnonotafak_lbl value ‘ Masukan Nomer Faktur yg dicari’;
font “arial” size 16 ;
width 500;
transparent blink;
fontcolor{0,255,0}
@ 350,10 textbox cnonotafak_txt;
width 350 ;
on change {search_artent() };
on enter {search_artent() }
@ 5,5 BROWSE Browse_Faktur ;
WIDTH 380 ;
HEIGHT 290 ;
HEADERS { ‘kode’ , ‘Nomer Faktur’,'Tanggal’,'Mata’ } ;
WIDTHS { 50 ,140,100,50 } ;
WORKAREA intran1 ;
FIELDS { ‘intran1->kode’,'intran1->nonota’,'intran1->tanggal’,'intran1->mata’} ;
VALUE nReg ;
READONLY {.t.,.t.,.t.} ;
Justify {BROWSE_JTFY_LEFT , BROWSE_JTFY_CENTER} ;
ON DBLCLICK ( cfaktur:=intran1->NONOTA,ThisWindow.Release ) ;
TOOLTIP “Pilihlah Nomer Faktur yang anda inginkan “
ON KEY ESCAPE ACTION ThisWindow.Release
END WINDOW
CENTER WINDOW Form_faktur
ACTIVATE WINDOW Form_faktur
Return cfaktur
function search_artent
local cCarifak:= (“FT”+AllTrim(form_faktur.cnonotafak_txt.value))
local nPanjang := len(cCarifak)
select intran1
set order to 1
dbselectarea(“intran1″)
dbseek(cCarifak)
If found()
If intran1->(DbSeek(cCarifak))
form_faktur.browse_faktur.value := intran1->(recno())
Else
MsgExclamation(‘Nomer Faktur penjualan tidak ada’)
EndIf
else
msginfo(“nomer yg anda cari bukan Faktur penjualan”,”Konfirmasi bukan nomer Faktur”)
EndIf
Return
Function printFPRN()
Local SKODE := “FT”
Local CSETUJU := gltbl->tanggung
Local CJABATAN := gltbl->jabatan &&” D i r e k t u r “
Local snonota1 := artent.snonota1_txt.value
Local snonota2 := artent.snonota2_txt.value
Local HAL:=KEYPRESS:=TSLDEBET:=TSLKREDIT:=TMTDEBET:=TMTKREDIT:=TBLDEBET:=TBLKREDIT:=0
Local MTDEBET:=MTKREDIT:=SLDEBET:=SLKREDIT:=BLDEBET:=BLKREDIT:=0
Local tnrk:=tnrd:=trlk:=trld:=tsld:=tslk:=0
Local i, nCOPIES, lijn, periode, shal,mPageNo , sjumlah
Local cPrinter, bladnum
GTOT := 0
gtotbetaald := 0
gtotopen := 0
sjumlah := 0
baris := 75
shal := 0
nCOPIES :=1
mkolom := 60
cPrinter := GetPrinter()
If Empty (cPrinter)
Return
EndIf
SELECT PRINTER cPrinter ;
ORIENTATION PRINTER_ORIENT_PORTRAIT ;
PAPERSIZE PRINTER_PAPER_USER ;
PAPERLENGTH 275;
PAPERWIDTH 210;
COPIES nCOPIES ;
QUALITY PRINTER_RES_HIGH;
PREVIEW
START PRINTDOC NAME “FPRN”
START PRINTPAGE
SELECT INTRAN1
SET SOFTSEEK ON
SEEK SKODE+SNONOTA1
SET SOFTSEEK OFF
mPageNo:=0
kpageno := 0
do while .not. eof() .and. skode == kode .and. ;
nonota >= snonota1 .and. nonota <= snonota2
SELECT INTRAN1
SNONOTA := NONOTA
SORDER := ORDER
SMATA := MATA
SKURS := KURS
STGL_ORDER := TGL_ORDER
SSRJLN := SRJLN
SKD_WIL := KD_WIL
STGL_SRJLN := TGL_SRJLN
STANGGAL := TANGGAL
STHN := SUBSTR(DTOS(STANGGAL),1,4)
SBULAN := SUBSTR(DTOS(STANGGAL),5,2)
STGL := SUBSTR(DTOS(STANGGAL),7,2)
SKD_PT := KD_PT
SPOCUST := POCUST
SELECT TBLCMAS
DBSEEK(“L”+SKD_WIL+SKD_PT)
SKETERNG := TBLCMAS->NM_PT
SKETERNG1 := TBLCMAS->ALAMAT1
SKETERNG2 := TBLCMAS->ALAMAT2
SKETERNG3 := TBLCMAS->ALAMAT3
SKETERNG4 := TBLCMAS->ALAMAT4
SKETERNG5 := TBLCMAS->ALAMAT5
SSUB_MAP := TBLCMAS->SUB_MAP
SNPWP := TBLCMAS->NPWP
SELECT INTRAN1
STERM := TERM
SSALES := SALES
SJTEMPO := JTEMPO
SDISC := DISC
STIME := TIME()
SDATE := DATE()
SPPN := PPN
SELECT TBLWMAS
SEEK “W”+SKD_WIL
SNM_WIL := NM_WIL
SEEK “M”+SSALES
SNMSALES := NM_WIL
IF SPPN = 10
@ 03,10 PRINT “PT.YOKATTA INDONESIA ” FONT “COURIER NEW” SIZE 15 bold Underline
@ 09,10 PRINT “RUBBER PARTMANUFACTURING ” FONT “COURIER NEW” SIZE 8 bold
@ 12,10 PRINT “OFFICE : Jl. Industri Selatan XI Blok EE No. 10i Jababeka II” size 8
@ 15,10 print “Telp : (021) 898-41411″ size 8
@ 18,10 print “Fax : (021) 898-41412″ size 8
@ 19,70 print ” I N V O I C E ” FONT “COURIER NEW” SIZE 22 BOLD
@ 25,79 print SNONOTA FONT “COURIER NEW” SIZE 18 BOLD
@ 37,10 print RECTANGLE TO 65,90 penwidth 0.1 ROUNDED
@ 40,12 print “Company Name : “ FONT “COURIER NEW” SIZE 8
@ 40,37 print sketerng FONT “COURIER NEW” SIZE 8
@ 49,12 print “Attn : “ FONT “COURIER NEW” SIZE 8
@ 49,37 print sketerng3 FONT “COURIER NEW” SIZE 8
@ 58,12 print “N.P.W.P : “ FONT “COURIER NEW” SIZE 8
@ 58,37 print snpwp FONT “COURIER NEW” SIZE 8
&& Tampilan Order
@ 37,120 print RECTANGLE TO 65,200 penwidth 0.1 ROUNDED
@ 40,122 print “Order Nomer : “ FONT “COURIER NEW” SIZE 8
@ 40,155 print sorder FONT “COURIER NEW” SIZE 8
@ 45,122 print “Order Date : ” FONT “COURIER NEW” SIZE 8
@ 45,155 print stgl_order FONT “COURIER NEW” SIZE 8
@ 50,122 print “Deliver Order No :” FONT “COURIER NEW” SIZE 8
@ 50,155 print ssrjln FONT “COURIER NEW” SIZE 8
@ 55,122 print “Term of Payment :” FONT “COURIER NEW” SIZE 8
@ 55,153 print trans(sterm,”999″)+” Hari” FONT “COURIER NEW” SIZE 8
@ 60,122 print “Tanggal Invoice :” FONT “COURIER NEW” SIZE 8
@ 60,155 print stanggal FONT “COURIER NEW” SIZE 8
&& Judul Halaman
@ 68,10 print RECTANGLE TO 74,200 penwidth 0.1 ROUNDED
@ 77,10 print RECTANGLE TO 255,200 penwidth 0.1 ROUNDED
@ 68,12 print ” NO.” FONT “COURIER NEW” SIZE 8
@ 68,20 print ” D E S C R I P T I O N ” FONT “COURIER NEW” SIZE 8
@ 68,80 print ” PRODUCT NO ” FONT “COURIER NEW” SIZE 8
@ 68,110 print ” QUANTITY ” FONT “COURIER NEW” SIZE 8
@ 68,130 print ” UNIT PRICE “FONT “COURIER NEW” SIZE 8
@ 68,170 print ” T O T A L “FONT “COURIER NEW” SIZE 8
&& cetak garis vertical
@ 68, 18 PRINT LINE TO 170,18 PENWIDTH 0.1
@ 68, 78 PRINT LINE TO 170,78 PENWIDTH 0.1
@ 68,108 PRINT LINE TO 170,108 PENWIDTH 0.1
@ 68,128 PRINT LINE TO 200,128 PENWIDTH 0.1
@ 68,158 PRINT LINE TO 200,158 PENWIDTH 0.1
ELSE
@ 03,10 PRINT “PT. Y. K. I. ” FONT “COURIER NEW” SIZE 15 bold Underline
@ 19,70 print ” I N V O I C E ” FONT “COURIER NEW” SIZE 22 BOLD
@ 25,79 print SNONOTA FONT “COURIER NEW” SIZE 18 BOLD
@ 37,10 print RECTANGLE TO 65,90 penwidth 0.1 ROUNDED
@ 40,12 print “Company Name : “ FONT “COURIER NEW” SIZE 8
@ 40,37 print sketerng FONT “COURIER NEW” SIZE 8
@ 49,12 print “Attn : “ FONT “COURIER NEW” SIZE 8
@ 49,37 print sketerng3 FONT “COURIER NEW” SIZE 8
@ 58,12 print “N.P.W.P : “ FONT “COURIER NEW” SIZE 8
@ 58,37 print snpwp FONT “COURIER NEW” SIZE 8
&& Tampilan Order
@ 37,120 print RECTANGLE TO 65,200 penwidth 0.1 ROUNDED
@ 40,122 print “Order Nomer : “ FONT “COURIER NEW” SIZE 8
@ 40,155 print sorder FONT “COURIER NEW” SIZE 8
@ 45,122 print “Order Date : ” FONT “COURIER NEW” SIZE 8
@ 45,155 print stgl_order FONT “COURIER NEW” SIZE 8
@ 50,122 print “Deliver Order No :” FONT “COURIER NEW” SIZE 8
@ 50,155 print ssrjln FONT “COURIER NEW” SIZE 8
@ 55,122 print “Term of Payment :” FONT “COURIER NEW” SIZE 8
@ 55,153 print trans(sterm,”999″)+” Hari” FONT “COURIER NEW” SIZE 8
@ 60,122 print “Tanggal Invoice :” FONT “COURIER NEW” SIZE 8
@ 60,155 print stanggal FONT “COURIER NEW” SIZE 8
&& Judul Halaman
@ 68,10 print RECTANGLE TO 74,200 penwidth 0.1 ROUNDED
@ 77,10 print RECTANGLE TO 255,200 penwidth 0.1 ROUNDED
@ 68,12 print ” NO.” FONT “COURIER NEW” SIZE 8
@ 68,20 print ” D E S C R I P T I O N ” FONT “COURIER NEW” SIZE 8
@ 68,80 print ” PRODUCT NO ” FONT “COURIER NEW” SIZE 8
@ 68,110 print ” QUANTITY ” FONT “COURIER NEW” SIZE 8
@ 68,130 print ” UNIT PRICE “FONT “COURIER NEW” SIZE 8
@ 68,170 print ” T O T A L “FONT “COURIER NEW” SIZE 8
&& cetak garis vertical
@ 68, 18 PRINT LINE TO 170,18 PENWIDTH 0.1
@ 68, 78 PRINT LINE TO 170,78 PENWIDTH 0.1
@ 68,108 PRINT LINE TO 170,108 PENWIDTH 0.1
@ 68,128 PRINT LINE TO 200,128 PENWIDTH 0.1
@ 68,158 PRINT LINE TO 200,158 PENWIDTH 0.1
ENDIF
SELECT INTRAN2
SEEK “SJ”+SSRJLN
DO WHILE .NOT. EOF() .AND. “SJ”+SSRJLN == KODE+NONOTA
SKDBRG := KDBRG
SHARGA := STR(HARGA,14,4)
IF VAL(SHARGA) == 0
SBONUS := ” Bonus Penjualan”
ELSE
SBONUS := “ “
ENDIF
SQUANTK := QUANTK-QUANTKR
SQUANTP := QUANTP-QUANTPR
SKORT := KORT // IIF(KORT>100,HARGA/KORT,KORT)
XKORT := IIF(KORT>100,KORT,VAL(SHARGA)*(KORT/100))
SELECT INVTBL
SEEK SKDBRG
SNMBRG := NMBRG
SSATUAN := SATUAN
SKEMASAN := KEMASAN
SPACK2 := PACK2
SNOPROD := NOPROD
SELECT INTRAN2
SQTY := SQUANTK*SPACK2+SQUANTP
XHARGA := VAL(SHARGA)-KORT
STOTAL := XHARGA*SQTY
SJUMLAH := SJUMLAH + STOTAL
shal := shal + 1
BARIS := BARIS + 5
LTEM := .F.
IF BARIS >= 170 .AND. “SJ”+SSRJLN == KODE+NONOTA
LTEM := .T.
BARIS := 75
@ 03,10 PRINT “PT.YOKATTA INDONESIA ” FONT “COURIER NEW” SIZE 15 bold Underline
@ 09,10 PRINT “RUBBER PARTMANUFACTURING ” FONT “COURIER NEW” SIZE 8 bold
@ 12,10 PRINT “OFFICE : Jl. Industri Selatan ” size 8
@ 15,10 print “Telp : (021) ” size 8
@ 18,10 print “Fax : (021) ” size 8
@ 19,70 print ” I N V O I C E ” FONT “COURIER NEW” SIZE 22 BOLD
@ 25,79 print SNONOTA FONT “COURIER NEW” SIZE 18 BOLD
@ 37,10 print RECTANGLE TO 65,90 penwidth 0.1 ROUNDED
@ 40,12 print “Company Name : “ FONT “COURIER NEW” SIZE 8
@ 40,37 print sketerng FONT “COURIER NEW” SIZE 8
@ 49,12 print “Attn : “ FONT “COURIER NEW” SIZE 8
@ 49,37 print sketerng3 FONT “COURIER NEW” SIZE 8
@ 58,12 print “N.P.W.P : “ FONT “COURIER NEW” SIZE 8
@ 58,37 print snpwp FONT “COURIER NEW” SIZE 8
&& Tampilan Order
@ 37,120 print RECTANGLE TO 65,200 penwidth 0.1 ROUNDED
@ 40,122 print “Order Nomer : “ FONT “COURIER NEW” SIZE 8
@ 40,155 print sorder FONT “COURIER NEW” SIZE 8
@ 45,122 print “Order Date : ” FONT “COURIER NEW” SIZE 8
@ 45,155 print stgl_order FONT “COURIER NEW” SIZE 8
@ 50,122 print “Deliver Order No :” FONT “COURIER NEW” SIZE 8
@ 50,155 print ssrjln FONT “COURIER NEW” SIZE 8
@ 55,122 print “Term of Payment :” FONT “COURIER NEW” SIZE 8
@ 55,153 print trans(sterm,”999″)+” Hari” FONT “COURIER NEW” SIZE 8
@ 60,122 print “Tanggal Invoice :” FONT “COURIER NEW” SIZE 8
@ 60,155 print stanggal FONT “COURIER NEW” SIZE 8
&& Judul Halaman
@ 68,10 print RECTANGLE TO 74,200 penwidth 0.1 ROUNDED
@ 77,10 print RECTANGLE TO 205,200 penwidth 0.1 ROUNDED
@ 68,12 print ” NO.” FONT “COURIER NEW” SIZE 8
@ 68,20 print ” D E S C R I P T I O N ” FONT “COURIER NEW” SIZE 8
@ 68,80 print ” PRODUCT NO ” FONT “COURIER NEW” SIZE 8
@ 68,110 print ” QUANTITY ” FONT “COURIER NEW” SIZE 8
@ 68,130 print ” UNIT PRICE “FONT “COURIER NEW” SIZE 8
@ 68,160 print ” T O T A L “FONT “COURIER NEW” SIZE 8
ENDIF
@ BARIS,12 PRINT LTRIM(STR(SHAL)) FONT “COURIER NEW” SIZE 8
@ baris,20 print snmbrg FONT “COURIER NEW” SIZE 8
@ baris,82 print snoprod FONT “COURIER NEW” SIZE 8
@ baris,105 print Transform(sqty,”9,999,999″) FONT “COURIER NEW” SIZE 8
@ baris,130 print IIF(SMATA==”I”,Transform(xharga,”999,999,999.99″),Transform(xharga,”999,999,999.9999″)) FONT “COURIER NEW” SIZE 8
@ baris,165 print IIF(SMATA==”I”,Transform(stotal,”999,999,999.99″),Transform(stotal,”999,999,999.9999″)) FONT “COURIER NEW” SIZE 8
SELECT INTRAN2
DbSkip()
ENDDO
XST := SJUMLAH-SDISC
XPPN:= (SPPN/100)*XST
XTTL:= XST+XPPN
DO WHILE BARIS < 170
@ BARIS,1 PRINT “”
baris++
ENDDO
IF SMATA == “I”
@ baris,10 print line to baris,200 penwidth 0.1
BARIS := BARIS + 5
@ baris,13 print SAYJUMLAH(XTTL ,”Koma “,” Rupiah”,60,1) FONT “COURIER NEW” SIZE 8 bold
@ BARIS,130 PRINT “TOTAL “
@ BARIS,159 PRINT “Rp.” FONT “COURIER NEW” SIZE 8
@ BARIS,170 PRINT trans(sjumlah,”9,999,999,999.99″) FONT “COURIER NEW” SIZE 8
BARIS := BARIS + 5
@ baris,13 print SAYJUMLAH(XTTL ,”Koma “,” Rupiah”,60,2) FONT “COURIER NEW” SIZE 8 bold
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,130 PRINT “DISCOUNT “
@ BARIS,159 PRINT “Rp.” FONT “COURIER NEW” SIZE 8
@ BARIS,170 PRINT trans(sDISC ,”9,999,999,999.99″) FONT “COURIER NEW” SIZE 8
BARIS := BARIS + 5
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,130 PRINT “SUBTOTAL “
@ BARIS,159 PRINT “Rp.” FONT “COURIER NEW” SIZE 8
@ BARIS,170 PRINT trans(XST ,”9,999,999,999.99″) FONT “COURIER NEW” SIZE 8
BARIS := BARIS + 5
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,130 PRINT “PPN 10% “
@ BARIS,159 PRINT “Rp.” FONT “COURIER NEW” SIZE 8
@ BARIS,170 PRINT trans(XPPN ,”9,999,999,999.99″) FONT “COURIER NEW” SIZE 8
BARIS += 5
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,13 PRINT “PLEASE REMIT PAYMENT TO :” BOLD UNDERLINE ITALIC
@ BARIS,130 PRINT “GRAND TOTAL “
@ BARIS,159 PRINT “Rp.” FONT “COURIER NEW” SIZE 8
@ BARIS,170 PRINT trans(XTTL,”9,999,999,999.99″) FONT “COURIER NEW” SIZE 8
BARIS += 5
@ baris,128 print line to baris,200 penwidth 0.1
IF SPPN = 10
BARIS += 5
@ BARIS,13 PRINT ” “
BARIS += 5
@ BARIS,13 PRINT ” PT. YOKATTA INDONESIA”
BARIS += 5
@ BARIS,13 PRINT ” ACCOUNT NAME : PT. YOKATTA INDONESIA”
@ BARIS,130 PRINT “Cikarang, “+STGL+” “+cmonth(STanggal)+” “+STHN FONT “COURIER NEW” SIZE 8
BARIS += 5
@ BARIS,13 PRINT ” BANK : PANIN – BANK CAB. JABABEKA CIKARANG”
BARIS += 5
@ BARIS,13 PRINT ” ACC NUMBER : 027.5.0000.49 (IDR)” BOLD
BARIS += 5
@ BARIS,13 PRINT ” OR”
BARIS += 5
@ BARIS,13 PRINT ” ACCOUNT NAME : PT. YOKATTA INDONESIA”
BARIS += 5
@ BARIS,13 PRINT ” BANK : EKONOMI – BANK CAB.PENGADILAN BOGOR”
BARIS += 5
@ BARIS,13 PRINT ” ACC NUMBER : 270.186.3332 (IDR)” BOLD
@ BARIS,135 PRINT alltrim(CSETUJU) FONT “COURIER NEW” SIZE 8 UNDERLINE
BARIS +=3
@ BARIS,135 PRINT CJABATAN FONT “COURIER NEW” SIZE 8
ELSE
BARIS += 5
@ BARIS,13 PRINT ” “
BARIS += 5
@ BARIS,13 PRINT “ “
BARIS += 5
@ BARIS,13 PRINT ” ACCOUNT NAME : F.IGN.HARJANTO”
@ BARIS,130 PRINT “Cikarang, “+STGL+” “+cmonth(STanggal)+” “+STHN FONT “COURIER NEW” SIZE 8
BARIS += 5
@ BARIS,13 PRINT ” BANK : PANIN – BANK CAB. JABABEKA CIKARANG”
BARIS += 5
@ BARIS,13 PRINT ” ACC NUMBER : 027.2.00123.4 (IDR)” BOLD
BARIS += 5
@ BARIS,13 PRINT “ “
BARIS += 5
@ BARIS,13 PRINT “ “
BARIS += 5
@ BARIS,13 PRINT “ “
BARIS += 5
@ BARIS,13 PRINT “ ” BOLD
@ BARIS,135 PRINT alltrim(CSETUJU) FONT “COURIER NEW” SIZE 8 UNDERLINE
BARIS +=3
@ BARIS,135 PRINT CJABATAN FONT “COURIER NEW” SIZE 8
ENDIF
ELSE && MATA UANG DOLLAR
@ baris,10 print line to baris,200 penwidth 0.1
BARIS := BARIS + 5
@ baris,13 print SAYJUMLAHUSD(XTTL ,” Point “,” US Dollar”,60,1) FONT “COURIER NEW” SIZE 8 bold
@ BARIS,130 PRINT “TOTAL “
@ BARIS,159 PRINT “USD.” FONT “COURIER NEW” SIZE 8
@ BARIS,165 PRINT trans(sjumlah,”9,999,999,999.9999″) FONT “COURIER NEW” SIZE 8
BARIS := BARIS + 5
@ baris,13 print SAYJUMLAHUSD(XTTL ,” Point “,” US Dollar”,60,2) FONT “COURIER NEW” SIZE 8 bold
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,130 PRINT “DISCOUNT “
@ BARIS,159 PRINT “USD.” FONT “COURIER NEW” SIZE 8
@ BARIS,165 PRINT trans(sDISC ,”9,999,999,999.9999″) FONT “COURIER NEW” SIZE 8
BARIS := BARIS + 5
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,130 PRINT “SUBTOTAL “
@ BARIS,159 PRINT “USD.” FONT “COURIER NEW” SIZE 8
@ BARIS,165 PRINT trans(XST ,”9,999,999,999.9999″) FONT “COURIER NEW” SIZE 8
BARIS := BARIS + 5
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,130 PRINT “PPN 10% “
@ BARIS,159 PRINT “USD.” FONT “COURIER NEW” SIZE 8
@ BARIS,165 PRINT trans(XPPN ,”9,999,999,999.9999″) FONT “COURIER NEW” SIZE 8
BARIS += 5
@ baris,128 print line to baris,200 penwidth 0.1
@ BARIS,13 PRINT “PLEASE PAYMENT REMIT TO :” BOLD UNDERLINE ITALIC
@ BARIS,130 PRINT “GRAND TOTAL “
@ BARIS,159 PRINT “USD.” FONT “COURIER NEW” SIZE 8
@ BARIS,165 PRINT trans(XTTL,”9,999,999,999.9999″) FONT “COURIER NEW” SIZE 8
BARIS += 5
@ baris,128 print line to baris,200 penwidth 0.1
BARIS += 5
@ BARIS,13 PRINT ” “
BARIS += 5
@ BARIS,13 PRINT ” PT. YOKATTA INDONESIA”
BARIS += 5
@ BARIS,13 PRINT ” ACCOUNT NAME : PT. YOKATTA INDONESIA”
@ BARIS,130 PRINT “Cikarang, “+STGL+” “+cmonth(STanggal)+” “+STHN FONT “COURIER NEW” SIZE 8
BARIS += 5
@ BARIS,13 PRINT ” BANK : PANIN – BANK CAB. JABABEKA CIKARANG”
BARIS += 5
@ BARIS,13 PRINT ” ACC NUMBER : 027.6.0000.39 (USD)” BOLD
BARIS += 5
@ BARIS,13 PRINT ” “
BARIS += 5
@ BARIS,13 PRINT ” “
BARIS += 5
@ BARIS,13 PRINT ” “
BARIS += 5
@ BARIS,13 PRINT ” “
@ BARIS,135 PRINT CSETUJU FONT “COURIER NEW” SIZE 8 UNDERLINE
BARIS +=3
@ BARIS,135 PRINT CJABATAN FONT “COURIER NEW” SIZE 8
ENDIF
IF “SJ”+SSRJLN <> KODE+NONOTA
BARIS := 75
SHAL := 0
SJUMLAH := 0
END PRINTPAGE
START PRINTPAGE
ENDIF
SELECT INTRAN1
DbSkip()
ENDDO
END PRINTPAGE
END PRINTDOC
RETURN Nil
