Faktur Penjualan

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: