pertemuan 15

MENCARARI RUMUS MENGGUNAKAN REPORT CONTOL AB :

RUMUS MENCARI JUMLAH :

MENCARI NAMA MENU :

RUMUS BAYAR :

cara kedua :

cara ketiga :

rumus simpan :
WITH thisform
*Rekam Data Ketabel : HeaderPesan
SELECT 2
APPEND BLANK
replace NoNota with.text1.value
replace Tanggal with.text2.value
replace Potongan with.text4.value

*Simpan data pada grid ketabel DetailPesan
SELECT temp
GO top
DO while! EOF()
SELECT 3
APPEND BLANK
replace NoNota with.text1.value
replace KodeMenu WITH temp.KodeMenu
replace Harga WITH temp.Harga
replace Jumlah WITH temp.Jumlah

SELECT temp
SKIP && Maju 1 Record
ENDDO
cetak=ALLTRIM(thisform.text1.value)
thisform.text1.value=""
thisform.text2.value={}
thisform.text3.value=0
thisform.text4.value=0
thisform.text5.value=0
thisform.text1.setfocus
thisform.init
MESSAGEBOX("Data Telah Disimpan",64,"Informasi")

SELECT 2
SET FILTER TO nonota=cetak
REPORT FORM rptpesan.frx PREVIEW IN screen
endwith