Code Program

	ADMIN - REFRESH
GASY Script

PUBLIC oGasyAkhirB

oGasyAkhirB=CREATEOBJECT("oAkhirBulan")
oGasyAkhirB.Height=340
oGasyAkhirB.Width=492
oGasyAkhirB.Autocenter=Tengah
oGasyAkhirB.Caption="Proses Akhir Bulan"
oGasyAkhirB.Show(0)


DEFINE CLASS oAkhirBulan AS form

	Top = 0
    Left = 0
	Height = 340
	Width = 492
	DoCreate = .T.
	Caption = "Gasy"
	Closable = .T.
	ControlBox = .T.
	TitleBar = 1
	MaxButton= .F.	
	Icon = "bmps\arw03up.ico"
	WindowType = 1
	WindowState = 0
	BackColor = RGB(144,176,168)
	Name = "_form"

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Tanggal Proses", ;
		Height = 15, ;
		Left = 20, ;
		Top = 50, ;
		Width = 76, ;
		ColorSource = 0, ;
		ZOrderSet = 4, ;
		Name = "Label1"	
		
	ADD OBJECT tgl AS textbox WITH ;
		Alignment = 3, ;
		Value = {}, ;
		Height = 23, ;
		Left = 106, ;
		Top = 46, ;
		Width = 100, ;
		Name = "Tgl"

	ADD OBJECT prsdp AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 100, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 1", ;
		ZOrderSet = 1, ;
		Name = "prsDp"
		
	ADD OBJECT prstb AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 140, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 2", ;
		ZOrderSet = 1, ;
		Name = "prsTb"


	ADD OBJECT prskr AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 180, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 3", ;
		ZOrderSet = 1, ;
		Name = "prsKr"
		
		
	ADD OBJECT prsTp AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 220, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 4", ;
		ZOrderSet = 1, ;
		Name = "prsTp"
		

	ADD OBJECT pdp AS checkbox WITH ;
		Top = 105, ;
		Left = 105, ;
		Height = 15, ;
		Width = 272, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<1. Hitung Anggaran Bunga Deposito Bulan Berikutnya", ;
		ZOrderSet = 0, ;
		Name = "pDp"

	ADD OBJECT ptb AS checkbox WITH ;
		Top = 145, ;
		Left = 105, ;
		Height = 15, ;
		Width = 356, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<2. Pemindahan Saldo Akhir Tabungan Umum Ke Awal Bulan Berikutnya", ;
		Name = "pTb"

	ADD OBJECT pkr AS checkbox WITH ;
		Top = 185, ;
		Left = 105, ;
		Height = 15, ;
		Width = 178, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<3. Perhitungan Kolektibilitas Kredit", ;
		ZOrderSet = 0, ;
		Name = "pKr"	
		
	ADD OBJECT pTp AS checkbox WITH ;
		Top = 225, ;
		Left = 105, ;
		Height = 15, ;
		Width = 178, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<4. Tabungan Program",;
		ZOrderSet = 0, ;
		Name = "pTp"
								
	ADD OBJECT proses AS commandbutton WITH ;
		Top = 270, ;
		Left = 105, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Proses", ;
		Name = "Proses"

	ADD OBJECT cmdkembali AS commandbutton WITH ;
		Top = 270, ;
		Left = 377, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Exit", ;
		Name = "cmdKembali"


	PROCEDURE cmdKembali.Click
		RELEASE oGasyAkhirB
	ENDPROC
	
	
	PROCEDURE prsdp.Click

		CLOSE TABLES All
		Gasy_Tgl=This.Parent.Tgl.Value
		
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		ALAMATDP=ALAMATNYA("ADP")
		IF EMPTY(ALAMATDP)
			Inipesan('Cek File'+CHR(13)+'Alamat data deposito tidak ditemukan')
			RETURN
		ENDIF
		
		IF !BUKA(.T.,ALAMATDP+'DP_MST','DP_MST',ALAMATDP+'DP_MST1',ALAMATDP+'DP_MST2',ALAMATDP+'DP_MST3')
			RETURN
		ENDIF

		IF !BUKA(.T.,ALAMATDP+'DP_BNG','DP_BNG',ALAMATDP+'DP_BNG')
			TUTUP("DP_MST")
			RETURN
		ENDIF
		SELECT DP_MST
		mJml=RECCOUNT("DP_MST")
		mNoM=0
		SET ORDER TO 1
		GO TOP
		DO WHILE NOT EOF()
			mNom=mNom+1
			Tunggu("Kode : "+Kode+CHR(13)+"Nama: "+Nama,mNom/mJml*100)
			IF EMPTY(TGL_TRK)				
				mLAMA=LAMA_BLN(Gasy_Tgl,TGL_TRS)
				IF mLAMA>0
					mKODE=KODE
					mSD=SD
					mINDUK=INDUK
					mTGL=TGL_TRS
					mBUNGA=RP_BUNGA
					mPAJAK=RP_PAJAK
					FOR NOM=1 TO MIN(mLAMA,JNG_WAKTU))
						mTGLB=GOMONTH(TGL_TRS,NOM)
						SELECT DP_BNG
						SET ORDER TO 1
						SEEK mKODE+mSD+DTOS(mTGLB)
						IF !FOUND()
							APPEND BLANK
							REPLACE KODE WITH mKODE,;
							SD WITH mSD, INDUK WITH mINDUK,;
							TGL_TRS WITH mTGL, TGL_BNG WITH mTGLB,;
							RP_BUNGA WITH mBUNGA, RP_PAJAK WITH mPAJAK
						ENDIF
					NEXT
				ENDIF
			ENDIF
			SELECT DP_MST
			SET ORDER TO 1
			SKIP
		ENDDO
		TUTUP("DP_MST","DP_BNG")
		Tunggu('Proses sudah selesai',100,0)
	ENDPROC


	PROCEDURE prstb.Click
	
		CLOSE TABLES all
		Gasy_Tgl=This.Parent.Tgl.Value
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		
		IF Buka(.f.,'Alamat','ALamat')
			SELECT LEFT(KODE,1) AS TBU,Alamat AS ALAMATDATA FROM Alamat WHERE KLP=='ATB' INTO CURSOR TBU_JNS
			SELECT TBU_JNS
			GO TOP
			IF EOF()
				Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
				CLOSE TABLES ALL
				RETURN
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
			CLOSE TABLES ALL
			RETURN
		ENDIF	

		Select TBU_JNS
		Go TOP
		If Eof()
			Inipesan('Cek File'+CHR(13)+'File seri tabungan kosong')
			CLOSE TABLES ALL
			Return 
		ENDIF
		xmMulai=0
		SELECT TBU_JNS
		GO TOP		
		MFILESLD=ALLTRIM(ALAMATDATA)+'NTB'+GS_NTOC(GASY_TGL)+LEFT(DTOS(GASY_TGL),4)
		DO WHILE !EOF()
			xmMulai=xmMulai+1
			MSERI=ALLTRIM(TBU)
			mLokasi=ALLTRIM(ALAMATDATA)
			MFILESLD1=ALLTRIM(ALAMATDATA)+'TS'+Alltrim(mSERI)+GS_NTOC(GASY_TGL)+LEFT(DTOS(GASY_TGL),4)
			MFILESLD2=ALLTRIM(ALAMATDATA)+'TS'+Alltrim(mSERI)+GS_NTOC(Eom(GASY_TGL)+1)+LEFT(DTOS(Eom(GASY_TGL)+1),4)
	
			REINDEKS('TB_SLD',mSeri,mLokasi,GASY_TGL)
			REINDEKS('TB_SLD',mSeri,mLokasi,Eom(GASY_TGL)+1)

			Tutup('TB_MST')
			Bukadbf(.f.,'TB_MST',mLokasi,mSeri,Gasy_Tgl)
			
			IF BUKA(.T.,MFILESLD1,'TB_SLD1',MFILESLD1)
				IF BUKA(.T.,MFILESLD2,'TB_SLD2',MFILESLD2)
					SELECT TB_SLD2
					Tunggu("Proses Pengecekan Data",1)					
					GO top
					DO WHILE !EOF()
						DELETE
						SKIP
					ENDDO
					PACK
					Tunggu("Proses Pengecekan Data",100)
					Tunggu("Proses Copy Data",1)
					SELECT TB_SLD2
					APPEND FROM (MFILESLD1) FOR TBS_LALU+TBS_KINI-TBT_KINI+BUNGA-PAJAK>0
					GO TOP
					mJml=RECCOUNT("TB_SLD2")
					mNom=0
					DO WHILE !EOF()
						mNom=mNom+1
						Tunggu("Proses Update Data, Kode: "+Kode+CHR(13)+"SERI : "+MSERI,mNom/mJml*100)
						REPLACE TBS_LALU WITH TBS_LALU+TBS_KINI-TBT_KINI+BUNGA-PAJAK,;
						TBS_KINI WITH 0, TBT_KINI WITH 0, BUNGA WITH 0, PAJAK WITH 0, DSB_KINI WITH 0
						SKIP
					ENDDO
				ENDIF
				IF xmMulai=1
					Select TB_SLD1.GRP,TBS_LALU,TBS_KINI,TBT_KINI,DSB_KINI,BUNGA,PAJAK, TB_MST.* from TB_SLD1 ;
						Left Join TB_MST On TB_SLD1.KODE=TB_MST.KODE Order By TB_SLD1.KODE INTO TABLE (mFileSld)
					USE
					ELSE
					IF BUKA(.T.,MFILESLD,'TB_SLD')
						Select TB_SLD1.GRP,TBS_LALU,TBS_KINI,TBT_KINI,DSB_KINI,BUNGA,PAJAK, TB_MST.* from TB_SLD1 ;
							Left Join TB_MST On TB_SLD1.KODE=TB_MST.KODE Order By TB_SLD1.KODE INTO CURSOR NTBSALDO
						SELECT TB_SLD
						APPEND FROM NTBSALDO
						TUTUP('NTBSALDO','TB_SLD')
					ENDIF					
				ENDIF				
			ENDIF
			SELECT TBU_JNS
			SKIP
		ENDDO
		TUNGGU("Proses selesai",100,0)
		CLOSE TABLES ALL
		
	ENDPROC
	
	
	PROCEDURE prstp.Click
	
		CLOSE TABLES all
		Gasy_Tgl=Eom(This.Parent.Tgl.Value)
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		
		IF Buka(.f.,'Alamat','Alamat')
			SELECT LEFT(KODE,1) AS TBP,ALAMAT AS ALAMATDATA FROM ALAMAT WHERE KLP=='ATP' INTO CURSOR TBP_JNS
			SELECT TBP_JNS
			GO TOP
			IF EOF()
				Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
				CLOSE TABLES ALL
				RETURN
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
			CLOSE TABLES ALL
			RETURN
		ENDIF	

		Select TBP_JNS
		Go TOP
		If Eof()
			Inipesan('Cek File'+CHR(13)+'File seri tabungan program kosong')
			CLOSE TABLES ALL
			Return 
		ENDIF
		
		SELECT TBP_JNS
		GO TOP		
		MFILESLD=ALLTRIM(ALAMATDATA)+'NTP'+GS_NTOC(GASY_TGL)+LEFT(DTOS(GASY_TGL),4)
		
		CREATE TABLE (mFILEsld) (TGL_TRS D(8),GRP C(1),KODE C(9),INDUK C(8),;
			NAMA C(30),	ALAMAT C(30),KOTA C(30), KTP C(30),;
			PEKERJAAN C(15),TGL_LAHIR D(8),;
			JML_SETOR N(9),JNS_SETOR C(1),;
			JNG_WAKTU N(3),PRS_BUNGA N(6,2),;
			SKT C(4),KWT C(4),KPT C(4),GOL C(3),;
			KLA C(4),CATATAN C(30),NAMA_AW C(30),ALAMAT_AW C(30),;
			STD_JURNAL C(2), Pokok_Bll N(12), Pokok_Bli N(12), ;
			Bunga_Bll N(12,2), Pajak_Bll N(12), Dsb_Kini N(16,2), ;
			Bunga_Bli N(12,2), Pajak_Bli N(12), Tarik_Bli N(16,2))
		USE
		
		BUKA(.T.,MFILESLD,'TP_SLD')

		SELECT TBP_JNS
		GO TOP		
		DO WHILE !EOF()
			MSERI=ALLTRIM(TBP)
			mLokasi=ALLTRIM(ALAMATDATA)					
			Tutup('TP_MST','TP_KRT')
			Bukadbf(.t.,'TP_MST',mLokasi,ALLTRIM(mSeri),Gasy_Tgl)
			Bukadbf(.t.,'TP_KRT',mLokasi,ALLTRIM(mSeri),Gasy_Tgl)
						
			IF USED('TP_MST') AND USED('TP_KRT')
				SELECT TP_MST
				nRekord=RECCOUNT('TP_MST')
				Mulai=0
				GO top
				DO WHILE !EOF()
					STORE 0 TO mPokokBll, mPokokBli, mBungaBll, mBungaBli, mPajakBll, mPajakBli, mDsbKini, mSaldo, mTarik
					vKode=Kode
					Mulai=Mulai+1
					Tunggu("Kode:"+Kode+CHR(13)+"Nama:"+Nama,Mulai/nRekord*100)
					SELECT TP_KRT
					SET ORDER TO 1
					SEEK vKOde
					IF FOUND()
						DO WHILE KODE==Vkode
							IF TGL_TRS<Bom(Gasy_Tgl)
								mPokokBll=mPokokBll+IIF(D_K='K',Nilai_Rp,0)
								mBungaBll=mBungaBll+JML_Bunga
								mPajakBll=mPajakBll+Jml_Pajak
								Msaldo=mSaldo+IIF(D_K$"K+",NILAI_RP,0)-IIF(D_K$"D-",NILAI_RP,0)+JML_BUNGA-JML_PAJAK
							ENDIF
							IF BETWEEN(TGL_TRS,Bom(Gasy_Tgl),Eom(Gasy_Tgl))
								mPokokBli=mPokokBli+IIF(D_K='K',Nilai_Rp,0)
								mBungaBli=mBungaBli+JML_Bunga
								mPajakBli=mPajakBli+Jml_Pajak
								mTarik=IIF(D_K='D',NILAI_Rp,0)
							ENDIF
							SKIP
						ENDDO
					ENDIF
					IF mSaldo>0
						SELECT TP_SLD
						APPEND BLANK
						REPLACE TGL_TRS WITH TP_MST.TGL_TRS, GRP WITH TP_MST.GRP,;
							KODE WITH vKode, INDUK WITH TP_MST.Induk,;
							NAMA WITH TP_MST.Nama, ALAMAT WITH Tp_MSt.Alamat,;
							KOTA WITH TP_MST.KOTA, ;
							KTP WITH Tp_Mst.KTP,;
							PEKERJAAN WITH Tp_Mst.Pekerjaan,;					
							TGL_LAHIR WITH Tp_Mst.Tgl_Lahir,;
							JML_SETOR WITH Tp_Mst.Jml_setor,;
							JNS_SETOR WITH Tp_Mst.Jns_setor,;
							JNG_WAKTU WITH Tp_Mst.Jng_waktu,;
							PRS_BUNGA WITH Tp_Mst.Prs_bunga,;
							SKT WITH Tp_Mst.Skt,;
							KWT WITH Tp_Mst.Kwt,;
							KPT WITH Tp_Mst.Kpt,;
							GOL WITH Tp_Mst.Gol,;
							KLA WITH Tp_Mst.Kla,;
							CATATAN WITH Tp_Mst.Catatan,;
							NAMA_AW WITH Tp_Mst.Nama_Aw,;
							ALAMAT_AW WITH Tp_Mst.Alamat_Aw,;
							STD_JURNAL WITH Tp_Mst.Std_Jurnal,;
							Pokok_Bll WITH mPokokBll,;
							Pokok_Bli WITH mPokokBli,;
							Bunga_Bll WITH mBungaBll,;
							Pajak_Bll WITH mPajakBll,;
							Dsb_Kini WITH mDsbKini,;
							Bunga_Bli WITH mBungaBli,;
							Pajak_Bli WITH mPajakBli,;
							Tarik_Bli WITH mTarik
					ENDIF					
					SELECT tp_mst
					SKIP				
				ENDDO				
			ENDIF
			SELECT TBP_JNS
			SKIP
		ENDDO
		TUNGGU("Proses selesai",100,0)
		CLOSE TABLES ALL		
	ENDPROC
	

	PROCEDURE prskr.Click
		CLOSE TABLES all
		Gasy_Tgl=This.Parent.Tgl.Value
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		
		IF Buka(.f.,'Alamat','Alamat')
			SELECT LEFT(KODE,1) AS KRU,KETERANGAN,Alamat AS ALAMATDATA FROM Alamat WHERE KLP=='AKR' INTO CURSOR KRU_JNS
			SELECT KRU_JNS
			GO TOP
			IF EOF()
				Inipesan('Cek File'+CHR(13)+'Alamat data kredit tidak ditemukan')
				CLOSE TABLES ALL
				RETURN
			ENDIF
			TUTUP("GASYKLAS")
			ELSE
			Inipesan('Cek File'+CHR(13)+'Alamat data kredit tidak ditemukan')
			CLOSE TABLES ALL
			RETURN
		ENDIF
		mxMulai=0
		Select KRU_JNS
		Go TOP
		MFILESLD=ALLTRIM(ALAMATDATA)+'NKR'+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4)
		DO WHILE NOT EOF()
			mxMulai=mxMulai+1
			mnseri=keterangan
			MFILEMST=ALLTRIM(ALAMATDATA)+'KM'+ALLTRIM(KRU)+'MST'
			MFILETRS=Alltrim(ALAMATDATA)+'KK'+Alltrim(KRU)+'TRS'
			MFILERCS=Alltrim(ALAMATDATA)+'KK'+Alltrim(KRU)+'RCS'
			MFILEMSTB=ALLTRIM(ALAMATDATA)+'KB'+ALLTRIM(KRU)+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4)

			IF BUKA(.T.,(MFILEMST),'KR_MST',(MFILEMST+'1'),(MFILEMST+'2'),(MFILEMST+'3'))
				IF BUKA(.T.,(MFILETRS),'KR_TRS',(MFILETRS)) AND BUKA(.T.,(MFILERCS),'KR_RCS',(MFILERCS))
					SELECT KR_MST
					nRekord=RECCOUNT("KR_MST")
					Mulai=0
					SELECT kr_mst
					GO top
					DO WHILE NOT EOF()
						IF TGL_CAIR<=EOM(GASY_TGL)
						Mulai=Mulai+1
						Tunggu("Kode:"+Kode+CHR(13)+"Nama:"+Nama,Mulai/nRekord*100)
						mKode=Kode
						mJNSB=JNS_BUNGA
						mTgl=Tgl_Cair
						mTglb=Tgl_Cair
						STORE 0 TO MP1, MP2, MB1, MB2
						REPLACE TGL_BAYAR WITH TGL_CAIR
						IF MJNSB=='C'
							SELE KR_RCS
							SET ORDER TO 1
							SEEK ALLTRIM(MKODE)
							IF FOUND()
								DO WHILE KODE==MKODE
									IF TANGGAL<BOM(GASY_TGL)
										MTGLB=TANGGAL
										MP1=MP1+IIF(SD='1',NILAI_RP,0)
										MB1=MB1+IIF(SD$'234',NILAI_RP,0)
									ENDIF
									IF TANGGAL>=BOM(GASY_TGL) AND TANGGAL<=GASY_TGL
										MP2=MP2+IIF(SD='1',NILAI_RP,0)
										MB2=MB2+IIF(SD$'234',NILAI_RP,0)
										MTGLB=TANGGAL
									ENDIF
									SKIP
								ENDDO
							ENDIF
							SELECT KR_MST
							REPLACE ANG_POKOK WITH mP1, DBPK_B WITH MP2, ANG_BUNGA WITH MB1, DBBG_B WITH MB2
							REPLACE TGL_BAYAR WITH MTGLB, KOL WITH "1", KOL_MAN WITH "L",;
								TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
								TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
								TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
								TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
								SLD_BLI WITH MB2+MB1-MP1-MP2, SLD_BLL WITH MB1-MP1						
							ELSE
							STORE 0 TO MP1, MP2, MB1, MB2
							SELECT KR_TRS
							SET ORDER TO 1
							SEEK ALLTRIM(MKODE)
							IF FOUND()
								DO WHILE KODE==MKODE
									IF TANGGAL<BOM(GASY_TGL)
										MTGLB=TANGGAL
										MP1=MP1+ANG_POKOK
										MB1=MB1+ANG_BUNGA
									ENDIF
									IF TANGGAL>=BOM(GASY_TGL) AND TANGGAL<=GASY_TGL
										MP2=MP2+ANG_POKOK
										MB2=MB2+ANG_BUNGA
										MTGLB=TANGGAL
									ENDIF
									SKIP
								ENDDO
							ENDIF
							SELECT KR_MST
							REPLACE ANG_POKOK WITH mP1, DBPK_B WITH MP2, ANG_BUNGA WITH MB1, DBBG_B WITH MB2
							REPLACE TGL_BAYAR WITH MTGLB, KOL WITH "1", KOL_MAN WITH "L",;
								TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
								TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
								TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
								TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
								SLD_BLL WITH JML_PINJAM-ANG_POKOK,;
								SLD_BLI WITH JML_PINJAM-ANG_POKOK-DBPK_B
													
							IF JML_PINJAM-ANG_POKOK-DBPK_B<>0
								DO CASE
									CASE mJnsB="B" 
										DO BPRTGK WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="M"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="R"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="H"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="A"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="T"
										DO BPRTGK WITH mKODE,GASY_TGL, .F.
								ENDCASE
								SELECT HASIL
								GO TOP
								IF !EOF()
									SELECT HASIL
									LOCATE FOR VAL(TANGGAL)==VAL(LEFT(DTOS(GASY_TGL),6))-1
									IF !FOUND()
										SELECT HASIL
										GO BOTTOM
									ENDIF
									IF VAL(TANGGAL)<=VAL(LEFT(DTOS(GASY_TGL),6))-1
										SELECT KR_MST
										REPLACE BUNGA_YHD WITH HASIL.AGR_B2, ;
										TGK_PRPBLL WITH MAX(HASIL.TGK_POKOK,0) TGK_BRPBLL WITH MAX(HASIL.TGK_BUNGA,0);
										TGK_PXXBLL WITH MAX(HASIL.NKALIP,0), TGK_BXXBLL WITH MAX(HASIL.NKALIB,0)
										ELSE
										SELECT KR_MST
										REPLACE BUNGA_YHD WITH 0, SLD_BLL WITH 0,;
											TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
										TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0
									ENDIF
									SELECT HASIL
									LOCATE FOR TANGGAL==LEFT(DTOS(GASY_TGL),6)
									IF FOUND()
										SELECT KR_MST
										REPLACE BUNGA_BLI WITH HASIL.AGR_B1, ;
										TGK_PRPBLI WITH MAX(HASIL.TGK_POKOK,0), TGK_BRPBLI WITH MAX(HASIL.TGK_BUNGA,0),;
										TGK_PXXBLI WITH MAX(HASIL.NKALIP,0), TGK_BXXBLI WITH MAX(HASIL.NKALIB,0)
										ELSE
										SELECT KR_MST
										REPLACE BUNGA_BLI WITH 0, SLD_BLI WITH 0,;
										TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
										TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0
									ENDIF
								ENDIF
								SELECT KR_MST
								IF JML_PINJAM-ANG_POKOK=0 AND TGL_CAIR<=GASY_TGL
									REPLACE KOL WITH "1", KOL_MAN WITH "1",;
									TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
									TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
									TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
									TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
									SLD_BLL WITH 0
								ENDIF
								IF JML_PINJAM-ANG_POKOK>0 AND TGL_CAIR<=GASY_TGL
									IF JML_PINJAM-ANG_POKOK-DBPK_B=0
										REPLACE KOL WITH "1", KOL_MAN WITH "L",;
										TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
										TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
										TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
										TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
										SLD_BLI WITH 0
										ELSE
										*KOLEKBI(GASY_TGL)
										IF GOMONTH(TGL_CAIR,JNG_WAKTU)>GASY_TGL
											DO CASE
												CASE TGK_PXXBLI<=6
													REPLACE KOL WITH '1'
												CASE TGK_PXXBLI>6
													REPLACE KOL WITH '2'
											ENDCASE
										    ELSE
											IF GOMONTH(TGL_CAIR,JNG_WAKTU+6)<GASY_TGL
												REPLACE KOL WITH '3'
												ELSE
												REPLACE KOL WITH '4'
											ENDIF
										ENDIF
									ENDIF
								ENDIF
							ENDIF
						ENDIF
						ENDIF
						SELE KR_MST
						SKIP
					ENDDO
					SELECT KR_MST
					SELECT * FROM KR_MST WHERE SLD_BLI+SLD_BLL<>0 AND TGL_CAIR<=GASY_TGL INTO TABLE (MFILEMSTB)
					USE					
					IF mxMulai=1
						SELECT * FROM KR_MST WHERE SLD_BLI+SLD_BLL<>0 AND TGL_CAIR<=GASY_TGL INTO TABLE (MFILESLD)
						USE						
						ELSE
						IF BUKA(.T.,(MFILESLD),'KR_SLD')
							SELECT * FROM KR_MST WHERE SLD_BLL+SLD_BLI<>0 AND TGL_CAIR<=GASY_TGL INTO CURSOR NKRSALDO
							SELECT NKRSALDO
							GO TOP
							IF !EOF()
								SELECT * FROM NKRSALDO INTO ARRAY KRNSALDO
								SELECT KR_SLD
								APPEND FROM ARRAY KRNSALDO
							ENDIF
							TUTUP("KR_SLD","NKRSALDO")
						ENDIF					
					ENDIF
					TUTUP("KR_MST","KR_TRS")
				ENDIF				
			ENDIF
			SELECT KRU_JNS
			SKIP
		ENDDO
		Tunggu('Proses sudah selesai',100,0)
	ENDPROC	
	
	
	PROCEDURE tgl.Init
		This.Value=Gasy_Tgl
	ENDPROC
	
	PROCEDURE tgl.keypress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	
	PROCEDURE tgl.gotfocus	
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	
	PROCEDURE tgl.click	
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	

	PROCEDURE proses.Click
		IF This.Parent.pDp.Value=1
			This.Parent.prsDp.Click
		ENDIF
		IF This.Parent.pTb.Value=1
			This.Parent.prsTb.Click
		ENDIF
		IF This.Parent.pKr.Value=1
			This.Parent.prsKr.Click
		ENDIF
		IF This.Parent.pTp.Value=1
			This.Parent.prsTp.Click
		ENDIF
	ENDPROC

	
	PROCEDURE tgl.RightClick
		IF TYPE('This.Parent.GasyTgl')<>'O'
			This.Parent.NewObject('GasyTgl','_viewtgl','Progasy.Vcx')
			This.Parent.GasyTgl.Top=This.Top
			This.Parent.GasyTgl.Left=This.Left+This.Width	
			This.Parent.GasyTgl.Kembalinya=This.Name
			This.Parent.GasyTgl.Visible=.T.
			This.Parent.GasyTgl.Proses.Click(IIF(EMPTY(This.Value),DATE(),This.Value))
		ENDIF
	ENDPROC
	
	
ENDDEFINE
*
*-- EndDefine: form1
**************************************************

PUBLIC oGasyAkhirB

oGasyAkhirB=CREATEOBJECT("oAkhirBulan")
oGasyAkhirB.Height=340
oGasyAkhirB.Width=492
oGasyAkhirB.Autocenter=Tengah
oGasyAkhirB.Caption="Proses Akhir Bulan"
oGasyAkhirB.Show(0)


DEFINE CLASS oAkhirBulan AS form

	Top = 0
    Left = 0
	Height = 340
	Width = 492
	DoCreate = .T.
	Caption = "Gasy"
	Closable = .T.
	ControlBox = .T.
	TitleBar = 1
	MaxButton= .F.	
	Icon = "bmps\arw03up.ico"
	WindowType = 1
	WindowState = 0
	BackColor = RGB(144,176,168)
	Name = "_form"

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Tanggal Proses", ;
		Height = 15, ;
		Left = 20, ;
		Top = 50, ;
		Width = 76, ;
		ColorSource = 0, ;
		ZOrderSet = 4, ;
		Name = "Label1"	
		
	ADD OBJECT tgl AS textbox WITH ;
		Alignment = 3, ;
		Value = {}, ;
		Height = 23, ;
		Left = 106, ;
		Top = 46, ;
		Width = 100, ;
		Name = "Tgl"

	ADD OBJECT prsdp AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 100, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 1", ;
		ZOrderSet = 1, ;
		Name = "prsDp"
		
	ADD OBJECT prstb AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 140, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 2", ;
		ZOrderSet = 1, ;
		Name = "prsTb"


	ADD OBJECT prskr AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 180, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 3", ;
		ZOrderSet = 1, ;
		Name = "prsKr"
		
		
	ADD OBJECT prsTp AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 220, ;
		Left = 20, ;
		Height = 23, ;
		Width = 72, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "Proses 4", ;
		ZOrderSet = 1, ;
		Name = "prsTp"
		

	ADD OBJECT pdp AS checkbox WITH ;
		Top = 105, ;
		Left = 105, ;
		Height = 15, ;
		Width = 272, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<1. Hitung Anggaran Bunga Deposito Bulan Berikutnya", ;
		ZOrderSet = 0, ;
		Name = "pDp"

	ADD OBJECT ptb AS checkbox WITH ;
		Top = 145, ;
		Left = 105, ;
		Height = 15, ;
		Width = 356, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<2. Pemindahan Saldo Akhir Tabungan Umum Ke Awal Bulan Berikutnya", ;
		Name = "pTb"

	ADD OBJECT pkr AS checkbox WITH ;
		Top = 185, ;
		Left = 105, ;
		Height = 15, ;
		Width = 178, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<3. Perhitungan Kolektibilitas Kredit", ;
		ZOrderSet = 0, ;
		Name = "pKr"	
		
	ADD OBJECT pTp AS checkbox WITH ;
		Top = 225, ;
		Left = 105, ;
		Height = 15, ;
		Width = 178, ;
		FontName = "MS Sans Serif", ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "\<4. Tabungan Program",;
		ZOrderSet = 0, ;
		Name = "pTp"
								
	ADD OBJECT proses AS commandbutton WITH ;
		Top = 270, ;
		Left = 105, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Proses", ;
		Name = "Proses"

	ADD OBJECT cmdkembali AS commandbutton WITH ;
		Top = 270, ;
		Left = 377, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Exit", ;
		Name = "cmdKembali"


	PROCEDURE cmdKembali.Click
		RELEASE oGasyAkhirB
	ENDPROC
	
	
	PROCEDURE prsdp.Click

		CLOSE TABLES All
		Gasy_Tgl=This.Parent.Tgl.Value
		
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		ALAMATDP=ALAMATNYA("ADP")
		IF EMPTY(ALAMATDP)
			Inipesan('Cek File'+CHR(13)+'Alamat data deposito tidak ditemukan')
			RETURN
		ENDIF
		
		IF !BUKA(.T.,ALAMATDP+'DP_MST','DP_MST',ALAMATDP+'DP_MST1',ALAMATDP+'DP_MST2',ALAMATDP+'DP_MST3')
			RETURN
		ENDIF

		IF !BUKA(.T.,ALAMATDP+'DP_BNG','DP_BNG',ALAMATDP+'DP_BNG')
			TUTUP("DP_MST")
			RETURN
		ENDIF
		SELECT DP_MST
		mJml=RECCOUNT("DP_MST")
		mNoM=0
		SET ORDER TO 1
		GO TOP
		DO WHILE NOT EOF()
			mNom=mNom+1
			Tunggu("Kode : "+Kode+CHR(13)+"Nama: "+Nama,mNom/mJml*100)
			IF EMPTY(TGL_TRK)				
				mLAMA=LAMA_BLN(Gasy_Tgl,TGL_TRS)
				IF mLAMA>0
					mKODE=KODE
					mSD=SD
					mINDUK=INDUK
					mTGL=TGL_TRS
					mBUNGA=RP_BUNGA
					mPAJAK=RP_PAJAK
					FOR NOM=1 TO MIN(mLAMA,JNG_WAKTU))
						mTGLB=GOMONTH(TGL_TRS,NOM)
						SELECT DP_BNG
						SET ORDER TO 1
						SEEK mKODE+mSD+DTOS(mTGLB)
						IF !FOUND()
							APPEND BLANK
							REPLACE KODE WITH mKODE,;
							SD WITH mSD, INDUK WITH mINDUK,;
							TGL_TRS WITH mTGL, TGL_BNG WITH mTGLB,;
							RP_BUNGA WITH mBUNGA, RP_PAJAK WITH mPAJAK
						ENDIF
					NEXT
				ENDIF
			ENDIF
			SELECT DP_MST
			SET ORDER TO 1
			SKIP
		ENDDO
		TUTUP("DP_MST","DP_BNG")
		Tunggu('Proses sudah selesai',100,0)
	ENDPROC


	PROCEDURE prstb.Click
	
		CLOSE TABLES all
		Gasy_Tgl=This.Parent.Tgl.Value
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		
		IF Buka(.f.,'Alamat','ALamat')
			SELECT LEFT(KODE,1) AS TBU,Alamat AS ALAMATDATA FROM Alamat WHERE KLP=='ATB' INTO CURSOR TBU_JNS
			SELECT TBU_JNS
			GO TOP
			IF EOF()
				Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
				CLOSE TABLES ALL
				RETURN
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
			CLOSE TABLES ALL
			RETURN
		ENDIF	

		Select TBU_JNS
		Go TOP
		If Eof()
			Inipesan('Cek File'+CHR(13)+'File seri tabungan kosong')
			CLOSE TABLES ALL
			Return 
		ENDIF
		xmMulai=0
		SELECT TBU_JNS
		GO TOP		
		MFILESLD=ALLTRIM(ALAMATDATA)+'NTB'+GS_NTOC(GASY_TGL)+LEFT(DTOS(GASY_TGL),4)
		DO WHILE !EOF()
			xmMulai=xmMulai+1
			MSERI=ALLTRIM(TBU)
			mLokasi=ALLTRIM(ALAMATDATA)
			MFILESLD1=ALLTRIM(ALAMATDATA)+'TS'+Alltrim(mSERI)+GS_NTOC(GASY_TGL)+LEFT(DTOS(GASY_TGL),4)
			MFILESLD2=ALLTRIM(ALAMATDATA)+'TS'+Alltrim(mSERI)+GS_NTOC(Eom(GASY_TGL)+1)+LEFT(DTOS(Eom(GASY_TGL)+1),4)
	
			REINDEKS('TB_SLD',mSeri,mLokasi,GASY_TGL)
			REINDEKS('TB_SLD',mSeri,mLokasi,Eom(GASY_TGL)+1)

			Tutup('TB_MST')
			Bukadbf(.f.,'TB_MST',mLokasi,mSeri,Gasy_Tgl)
			
			IF BUKA(.T.,MFILESLD1,'TB_SLD1',MFILESLD1)
				IF BUKA(.T.,MFILESLD2,'TB_SLD2',MFILESLD2)
					SELECT TB_SLD2
					Tunggu("Proses Pengecekan Data",1)					
					GO top
					DO WHILE !EOF()
						DELETE
						SKIP
					ENDDO
					PACK
					Tunggu("Proses Pengecekan Data",100)
					Tunggu("Proses Copy Data",1)
					SELECT TB_SLD2
					APPEND FROM (MFILESLD1) FOR TBS_LALU+TBS_KINI-TBT_KINI+BUNGA-PAJAK>0
					GO TOP
					mJml=RECCOUNT("TB_SLD2")
					mNom=0
					DO WHILE !EOF()
						mNom=mNom+1
						Tunggu("Proses Update Data, Kode: "+Kode+CHR(13)+"SERI : "+MSERI,mNom/mJml*100)
						REPLACE TBS_LALU WITH TBS_LALU+TBS_KINI-TBT_KINI+BUNGA-PAJAK,;
						TBS_KINI WITH 0, TBT_KINI WITH 0, BUNGA WITH 0, PAJAK WITH 0, DSB_KINI WITH 0
						SKIP
					ENDDO
				ENDIF
				IF xmMulai=1
					Select TB_SLD1.GRP,TBS_LALU,TBS_KINI,TBT_KINI,DSB_KINI,BUNGA,PAJAK, TB_MST.* from TB_SLD1 ;
						Left Join TB_MST On TB_SLD1.KODE=TB_MST.KODE Order By TB_SLD1.KODE INTO TABLE (mFileSld)
					USE
					ELSE
					IF BUKA(.T.,MFILESLD,'TB_SLD')
						Select TB_SLD1.GRP,TBS_LALU,TBS_KINI,TBT_KINI,DSB_KINI,BUNGA,PAJAK, TB_MST.* from TB_SLD1 ;
							Left Join TB_MST On TB_SLD1.KODE=TB_MST.KODE Order By TB_SLD1.KODE INTO CURSOR NTBSALDO
						SELECT TB_SLD
						APPEND FROM NTBSALDO
						TUTUP('NTBSALDO','TB_SLD')
					ENDIF					
				ENDIF				
			ENDIF
			SELECT TBU_JNS
			SKIP
		ENDDO
		TUNGGU("Proses selesai",100,0)
		CLOSE TABLES ALL
		
	ENDPROC
	
	
	PROCEDURE prstp.Click
	
		CLOSE TABLES all
		Gasy_Tgl=Eom(This.Parent.Tgl.Value)
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		
		IF Buka(.f.,'Alamat','Alamat')
			SELECT LEFT(KODE,1) AS TBP,ALAMAT AS ALAMATDATA FROM ALAMAT WHERE KLP=='ATP' INTO CURSOR TBP_JNS
			SELECT TBP_JNS
			GO TOP
			IF EOF()
				Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
				CLOSE TABLES ALL
				RETURN
			ENDIF
			TUTUP("ALAMAT")
			ELSE
			Inipesan('Cek File'+CHR(13)+'Alamat data tabungan tidak ditemukan')
			CLOSE TABLES ALL
			RETURN
		ENDIF	

		Select TBP_JNS
		Go TOP
		If Eof()
			Inipesan('Cek File'+CHR(13)+'File seri tabungan program kosong')
			CLOSE TABLES ALL
			Return 
		ENDIF
		
		SELECT TBP_JNS
		GO TOP		
		MFILESLD=ALLTRIM(ALAMATDATA)+'NTP'+GS_NTOC(GASY_TGL)+LEFT(DTOS(GASY_TGL),4)
		
		CREATE TABLE (mFILEsld) (TGL_TRS D(8),GRP C(1),KODE C(9),INDUK C(8),;
			NAMA C(30),	ALAMAT C(30),KOTA C(30), KTP C(30),;
			PEKERJAAN C(15),TGL_LAHIR D(8),;
			JML_SETOR N(9),JNS_SETOR C(1),;
			JNG_WAKTU N(3),PRS_BUNGA N(6,2),;
			SKT C(4),KWT C(4),KPT C(4),GOL C(3),;
			KLA C(4),CATATAN C(30),NAMA_AW C(30),ALAMAT_AW C(30),;
			STD_JURNAL C(2), Pokok_Bll N(12), Pokok_Bli N(12), ;
			Bunga_Bll N(12,2), Pajak_Bll N(12), Dsb_Kini N(16,2), ;
			Bunga_Bli N(12,2), Pajak_Bli N(12), Tarik_Bli N(16,2))
		USE
		
		BUKA(.T.,MFILESLD,'TP_SLD')

		SELECT TBP_JNS
		GO TOP		
		DO WHILE !EOF()
			MSERI=ALLTRIM(TBP)
			mLokasi=ALLTRIM(ALAMATDATA)					
			Tutup('TP_MST','TP_KRT')
			Bukadbf(.t.,'TP_MST',mLokasi,ALLTRIM(mSeri),Gasy_Tgl)
			Bukadbf(.t.,'TP_KRT',mLokasi,ALLTRIM(mSeri),Gasy_Tgl)
						
			IF USED('TP_MST') AND USED('TP_KRT')
				SELECT TP_MST
				nRekord=RECCOUNT('TP_MST')
				Mulai=0
				GO top
				DO WHILE !EOF()
					STORE 0 TO mPokokBll, mPokokBli, mBungaBll, mBungaBli, mPajakBll, mPajakBli, mDsbKini, mSaldo, mTarik
					vKode=Kode
					Mulai=Mulai+1
					Tunggu("Kode:"+Kode+CHR(13)+"Nama:"+Nama,Mulai/nRekord*100)
					SELECT TP_KRT
					SET ORDER TO 1
					SEEK vKOde
					IF FOUND()
						DO WHILE KODE==Vkode
							IF TGL_TRS<Bom(Gasy_Tgl)
								mPokokBll=mPokokBll+IIF(D_K='K',Nilai_Rp,0)
								mBungaBll=mBungaBll+JML_Bunga
								mPajakBll=mPajakBll+Jml_Pajak
								Msaldo=mSaldo+IIF(D_K$"K+",NILAI_RP,0)-IIF(D_K$"D-",NILAI_RP,0)+JML_BUNGA-JML_PAJAK
							ENDIF
							IF BETWEEN(TGL_TRS,Bom(Gasy_Tgl),Eom(Gasy_Tgl))
								mPokokBli=mPokokBli+IIF(D_K='K',Nilai_Rp,0)
								mBungaBli=mBungaBli+JML_Bunga
								mPajakBli=mPajakBli+Jml_Pajak
								mTarik=IIF(D_K='D',NILAI_Rp,0)
							ENDIF
							SKIP
						ENDDO
					ENDIF
					IF mSaldo>0
						SELECT TP_SLD
						APPEND BLANK
						REPLACE TGL_TRS WITH TP_MST.TGL_TRS, GRP WITH TP_MST.GRP,;
							KODE WITH vKode, INDUK WITH TP_MST.Induk,;
							NAMA WITH TP_MST.Nama, ALAMAT WITH Tp_MSt.Alamat,;
							KOTA WITH TP_MST.KOTA, ;
							KTP WITH Tp_Mst.KTP,;
							PEKERJAAN WITH Tp_Mst.Pekerjaan,;					
							TGL_LAHIR WITH Tp_Mst.Tgl_Lahir,;
							JML_SETOR WITH Tp_Mst.Jml_setor,;
							JNS_SETOR WITH Tp_Mst.Jns_setor,;
							JNG_WAKTU WITH Tp_Mst.Jng_waktu,;
							PRS_BUNGA WITH Tp_Mst.Prs_bunga,;
							SKT WITH Tp_Mst.Skt,;
							KWT WITH Tp_Mst.Kwt,;
							KPT WITH Tp_Mst.Kpt,;
							GOL WITH Tp_Mst.Gol,;
							KLA WITH Tp_Mst.Kla,;
							CATATAN WITH Tp_Mst.Catatan,;
							NAMA_AW WITH Tp_Mst.Nama_Aw,;
							ALAMAT_AW WITH Tp_Mst.Alamat_Aw,;
							STD_JURNAL WITH Tp_Mst.Std_Jurnal,;
							Pokok_Bll WITH mPokokBll,;
							Pokok_Bli WITH mPokokBli,;
							Bunga_Bll WITH mBungaBll,;
							Pajak_Bll WITH mPajakBll,;
							Dsb_Kini WITH mDsbKini,;
							Bunga_Bli WITH mBungaBli,;
							Pajak_Bli WITH mPajakBli,;
							Tarik_Bli WITH mTarik
					ENDIF					
					SELECT tp_mst
					SKIP				
				ENDDO				
			ENDIF
			SELECT TBP_JNS
			SKIP
		ENDDO
		TUNGGU("Proses selesai",100,0)
		CLOSE TABLES ALL		
	ENDPROC
	

	PROCEDURE prskr.Click
		CLOSE TABLES all
		Gasy_Tgl=This.Parent.Tgl.Value
		IF EMPTY(Gasy_Tgl)
			RETURN
		ENDIF
		
		IF Buka(.f.,'Alamat','Alamat')
			SELECT LEFT(KODE,1) AS KRU,KETERANGAN,Alamat AS ALAMATDATA FROM Alamat WHERE KLP=='AKR' INTO CURSOR KRU_JNS
			SELECT KRU_JNS
			GO TOP
			IF EOF()
				Inipesan('Cek File'+CHR(13)+'Alamat data kredit tidak ditemukan')
				CLOSE TABLES ALL
				RETURN
			ENDIF
			TUTUP("GASYKLAS")
			ELSE
			Inipesan('Cek File'+CHR(13)+'Alamat data kredit tidak ditemukan')
			CLOSE TABLES ALL
			RETURN
		ENDIF
		mxMulai=0
		Select KRU_JNS
		Go TOP
		MFILESLD=ALLTRIM(ALAMATDATA)+'NKR'+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4)
		DO WHILE NOT EOF()
			mxMulai=mxMulai+1
			mnseri=keterangan
			MFILEMST=ALLTRIM(ALAMATDATA)+'KM'+ALLTRIM(KRU)+'MST'
			MFILETRS=Alltrim(ALAMATDATA)+'KK'+Alltrim(KRU)+'TRS'
			MFILERCS=Alltrim(ALAMATDATA)+'KK'+Alltrim(KRU)+'RCS'
			MFILEMSTB=ALLTRIM(ALAMATDATA)+'KB'+ALLTRIM(KRU)+GS_NTOC(GASY_TGL)+STR(YEAR(GASY_TGL),4)

			IF BUKA(.T.,(MFILEMST),'KR_MST',(MFILEMST+'1'),(MFILEMST+'2'),(MFILEMST+'3'))
				IF BUKA(.T.,(MFILETRS),'KR_TRS',(MFILETRS)) AND BUKA(.T.,(MFILERCS),'KR_RCS',(MFILERCS))
					SELECT KR_MST
					nRekord=RECCOUNT("KR_MST")
					Mulai=0
					SELECT kr_mst
					GO top
					DO WHILE NOT EOF()
						IF TGL_CAIR<=EOM(GASY_TGL)
						Mulai=Mulai+1
						Tunggu("Kode:"+Kode+CHR(13)+"Nama:"+Nama,Mulai/nRekord*100)
						mKode=Kode
						mJNSB=JNS_BUNGA
						mTgl=Tgl_Cair
						mTglb=Tgl_Cair
						STORE 0 TO MP1, MP2, MB1, MB2
						REPLACE TGL_BAYAR WITH TGL_CAIR
						IF MJNSB=='C'
							SELE KR_RCS
							SET ORDER TO 1
							SEEK ALLTRIM(MKODE)
							IF FOUND()
								DO WHILE KODE==MKODE
									IF TANGGAL<BOM(GASY_TGL)
										MTGLB=TANGGAL
										MP1=MP1+IIF(SD='1',NILAI_RP,0)
										MB1=MB1+IIF(SD$'234',NILAI_RP,0)
									ENDIF
									IF TANGGAL>=BOM(GASY_TGL) AND TANGGAL<=GASY_TGL
										MP2=MP2+IIF(SD='1',NILAI_RP,0)
										MB2=MB2+IIF(SD$'234',NILAI_RP,0)
										MTGLB=TANGGAL
									ENDIF
									SKIP
								ENDDO
							ENDIF
							SELECT KR_MST
							REPLACE ANG_POKOK WITH mP1, DBPK_B WITH MP2, ANG_BUNGA WITH MB1, DBBG_B WITH MB2
							REPLACE TGL_BAYAR WITH MTGLB, KOL WITH "1", KOL_MAN WITH "L",;
								TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
								TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
								TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
								TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
								SLD_BLI WITH MB2+MB1-MP1-MP2, SLD_BLL WITH MB1-MP1						
							ELSE
							STORE 0 TO MP1, MP2, MB1, MB2
							SELECT KR_TRS
							SET ORDER TO 1
							SEEK ALLTRIM(MKODE)
							IF FOUND()
								DO WHILE KODE==MKODE
									IF TANGGAL<BOM(GASY_TGL)
										MTGLB=TANGGAL
										MP1=MP1+ANG_POKOK
										MB1=MB1+ANG_BUNGA
									ENDIF
									IF TANGGAL>=BOM(GASY_TGL) AND TANGGAL<=GASY_TGL
										MP2=MP2+ANG_POKOK
										MB2=MB2+ANG_BUNGA
										MTGLB=TANGGAL
									ENDIF
									SKIP
								ENDDO
							ENDIF
							SELECT KR_MST
							REPLACE ANG_POKOK WITH mP1, DBPK_B WITH MP2, ANG_BUNGA WITH MB1, DBBG_B WITH MB2
							REPLACE TGL_BAYAR WITH MTGLB, KOL WITH "1", KOL_MAN WITH "L",;
								TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
								TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
								TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
								TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
								SLD_BLL WITH JML_PINJAM-ANG_POKOK,;
								SLD_BLI WITH JML_PINJAM-ANG_POKOK-DBPK_B
													
							IF JML_PINJAM-ANG_POKOK-DBPK_B<>0
								DO CASE
									CASE mJnsB="B" 
										DO BPRTGK WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="M"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="R"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="H"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="A"
										DO BPRTGKM WITH mKODE,GASY_TGL, .F.
									CASE mJNSB="T"
										DO BPRTGK WITH mKODE,GASY_TGL, .F.
								ENDCASE
								SELECT HASIL
								GO TOP
								IF !EOF()
									SELECT HASIL
									LOCATE FOR VAL(TANGGAL)==VAL(LEFT(DTOS(GASY_TGL),6))-1
									IF !FOUND()
										SELECT HASIL
										GO BOTTOM
									ENDIF
									IF VAL(TANGGAL)<=VAL(LEFT(DTOS(GASY_TGL),6))-1
										SELECT KR_MST
										REPLACE BUNGA_YHD WITH HASIL.AGR_B2, ;
										TGK_PRPBLL WITH MAX(HASIL.TGK_POKOK,0) TGK_BRPBLL WITH MAX(HASIL.TGK_BUNGA,0);
										TGK_PXXBLL WITH MAX(HASIL.NKALIP,0), TGK_BXXBLL WITH MAX(HASIL.NKALIB,0)
										ELSE
										SELECT KR_MST
										REPLACE BUNGA_YHD WITH 0, SLD_BLL WITH 0,;
											TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
										TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0
									ENDIF
									SELECT HASIL
									LOCATE FOR TANGGAL==LEFT(DTOS(GASY_TGL),6)
									IF FOUND()
										SELECT KR_MST
										REPLACE BUNGA_BLI WITH HASIL.AGR_B1, ;
										TGK_PRPBLI WITH MAX(HASIL.TGK_POKOK,0), TGK_BRPBLI WITH MAX(HASIL.TGK_BUNGA,0),;
										TGK_PXXBLI WITH MAX(HASIL.NKALIP,0), TGK_BXXBLI WITH MAX(HASIL.NKALIB,0)
										ELSE
										SELECT KR_MST
										REPLACE BUNGA_BLI WITH 0, SLD_BLI WITH 0,;
										TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
										TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0
									ENDIF
								ENDIF
								SELECT KR_MST
								IF JML_PINJAM-ANG_POKOK=0 AND TGL_CAIR<=GASY_TGL
									REPLACE KOL WITH "1", KOL_MAN WITH "1",;
									TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
									TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
									TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
									TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
									SLD_BLL WITH 0
								ENDIF
								IF JML_PINJAM-ANG_POKOK>0 AND TGL_CAIR<=GASY_TGL
									IF JML_PINJAM-ANG_POKOK-DBPK_B=0
										REPLACE KOL WITH "1", KOL_MAN WITH "L",;
										TGK_PRPBLL WITH 0, TGK_BRPBLL WITH 0,;
										TGK_PXXBLL WITH 0, TGK_BXXBLL WITH 0,;
										TGK_PRPBLI WITH 0, TGK_BRPBLI WITH 0,;
										TGK_PXXBLI WITH 0, TGK_BXXBLI WITH 0,;
										SLD_BLI WITH 0
										ELSE
										*KOLEKBI(GASY_TGL)
										IF GOMONTH(TGL_CAIR,JNG_WAKTU)>GASY_TGL
											DO CASE
												CASE TGK_BXXBLI<=6
													REPLACE KOL WITH '1'
												CASE TGK_BXXBLI>6
													REPLACE KOL WITH '2'
											ENDCASE
										    ELSE
											IF GOMONTH(TGL_CAIR,JNG_WAKTU+6)<GASY_TGL
												REPLACE KOL WITH '3'
												ELSE
												REPLACE KOL WITH '4'
											ENDIF
										ENDIF
									ENDIF
								ENDIF
							ENDIF
						ENDIF
						ENDIF
						SELE KR_MST
						SKIP
					ENDDO
					SELECT KR_MST
					SELECT * FROM KR_MST WHERE SLD_BLI+SLD_BLL<>0 AND TGL_CAIR<=GASY_TGL INTO TABLE (MFILEMSTB)
					USE					
					IF mxMulai=1
						SELECT * FROM KR_MST WHERE SLD_BLI+SLD_BLL<>0 AND TGL_CAIR<=GASY_TGL INTO TABLE (MFILESLD)
						USE						
						ELSE
						IF BUKA(.T.,(MFILESLD),'KR_SLD')
							SELECT * FROM KR_MST WHERE SLD_BLL+SLD_BLI<>0 AND TGL_CAIR<=GASY_TGL INTO CURSOR NKRSALDO
							SELECT NKRSALDO
							GO TOP
							IF !EOF()
								SELECT * FROM NKRSALDO INTO ARRAY KRNSALDO
								SELECT KR_SLD
								APPEND FROM ARRAY KRNSALDO
							ENDIF
							TUTUP("KR_SLD","NKRSALDO")
						ENDIF					
					ENDIF
					TUTUP("KR_MST","KR_TRS")
				ENDIF				
			ENDIF
			SELECT KRU_JNS
			SKIP
		ENDDO
		Tunggu('Proses sudah selesai',100,0)
	ENDPROC	
	
	
	PROCEDURE tgl.Init
		This.Value=Gasy_Tgl
	ENDPROC
	
	PROCEDURE tgl.keypress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	
	PROCEDURE tgl.gotfocus	
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	
	
	PROCEDURE tgl.click	
		IF TYPE('This.Parent.GasyTgl')='O'
			This.Parent.RemoveObject('GasyTgl')
		ENDIF
	ENDPROC
	

	PROCEDURE proses.Click
		IF This.Parent.pDp.Value=1
			This.Parent.prsDp.Click
		ENDIF
		IF This.Parent.pTb.Value=1
			This.Parent.prsTb.Click
		ENDIF
		IF This.Parent.pKr.Value=1
			This.Parent.prsKr.Click
		ENDIF
		IF This.Parent.pTp.Value=1
			This.Parent.prsTp.Click
		ENDIF
	ENDPROC

	
	PROCEDURE tgl.RightClick
		IF TYPE('This.Parent.GasyTgl')<>'O'
			This.Parent.NewObject('GasyTgl','_viewtgl','Progasy.Vcx')
			This.Parent.GasyTgl.Top=This.Top
			This.Parent.GasyTgl.Left=This.Left+This.Width	
			This.Parent.GasyTgl.Kembalinya=This.Name
			This.Parent.GasyTgl.Visible=.T.
			This.Parent.GasyTgl.Proses.Click(IIF(EMPTY(This.Value),DATE(),This.Value))
		ENDIF
	ENDPROC
	
	
ENDDEFINE
*
*-- EndDefine: form1
**************************************************

PUBLIC oGasyRekening
IF !AK_MST(.F.,GASY_TGL)
	RETURN
ENDIF
oGasyRekening=CREATEOBJECT("sAkmst")
oGasyRekening.Show
   


DEFINE CLASS sakmst AS form
	Caption="Setup Rekening Akuntansi"
	DESKTOP=.F.
	Height = 312
	Width = 432
	MaxButton= .F.	
	MinButton= .F.	
	AUTOCENTER=.T.
	Icon = "gasy.ico"
	WINDOWTYPE=1
	BackColor = RGB(144,176,168)
	
	ADD OBJECT lkode AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Kode", ;
		Left = 31, ;
		Top = 54

	ADD OBJECT mnoper AS textbox WITH ;
		Height = 23, ;
		Left = 72, ;
		MaxLength = 10, ;
		Top = 48, ;
		Width = 88


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nama", ;
		Left = 31, ;
		Top = 80


	ADD OBJECT mnaper AS textbox WITH ;
		Height = 23, ;
		Left = 72, ;
		MaxLength = 30, ;
		Top = 74, ;
		Width = 316

	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Jenis", ;
		Left = 31, ;
		Top = 106


	ADD OBJECT mjenis AS combobox WITH ;
		ColumnCount = 2, ;
		ColumnWidths = "0", ;
		RowSourceType = 1, ;
		RowSource = "A,Aktiva,H,Hutang,M,Modal,P,Pendapatan,B,Biaya,S,Sementara/Administratif", ;
		Height = 24, ;
		Left = 72, ;
		Top = 100, ;
		Width = 40, ;
		Format = "!", ;
		InputMask = "!"

	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Sifat", ;
		Left = 31, ;
		Top = 132


	ADD OBJECT msifat AS combobox WITH ;
		ColumnCount = 2, ;
		ColumnWidths = "0", ;
		RowSourceType = 1, ;
		RowSource = "G,General,D,Detail", ;
		Height = 24, ;
		Left = 72, ;
		Top = 127, ;
		Width = 40, ;
		Format = "!", ;
		InputMask = "!"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T.,;
		BackStyle = 0, ;
		Caption = "Level", ;
		Left = 31, ;
		Top = 158

	ADD OBJECT mLEVEL AS combobox WITH ;
		ColumnCount = 1, ;
		RowSourceType = 1, ;
		RowSource = "0,1,2,3,4,5,6,7,8,9",;
		Height = 24, ;
		Left = 72, ;
		Top = 153, ;
		Width = 41, ;
		Format = "!", ;
		InputMask = "!"


	ADD OBJECT lkontrol AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Induk", ;
		Left = 31, ;
		Top = 185


	ADD OBJECT mkontrol AS textbox WITH ;
		Height = 23, ;
		Left = 72, ;
		MaxLength = 10, ;
		Top = 181, ;
		Width = 88
		

	ADD OBJECT mnamakontrol AS textbox WITH ;
		Height = 23, ;
		Left = 163, ;
		MaxLength = 30, ;
		Top = 182, ;
		Width = 225,;
		STYLE=1

	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Sandi", ;
		Left = 31, ;
		Top = 210

	ADD OBJECT msandi AS textbox WITH ;
		Height = 23, ;
		Left = 72, ;
		MaxLength = 30, ;
		Top = 207, ;
		Width = 316


	ADD OBJECT rekam AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 256, ;
		Left = 72, ;
		Caption = "\<Simpan"


	ADD OBJECT zbaru1 AS commandbutton WITH ;
		AUTOSIZE=.T.,;
		Top = 256, ;
		Caption = '\<Baru'



	ADD OBJECT zexit1 AS commandbutton WITH ;
		Top = 256, ;
		Left = 337, ;
		Height = 23, ;
		Width = 51, ;
		Caption= 'E\<xit',;
		CANCEL=.T.
	
	
	PROCEDURE INIT
		THIS.ZBARU1.LEFT=THIS.REKAM.LEFT+THIS.REKAM.WIDTH
	ENDPROC
	
	
	PROCEDURE LOAD
		THIS.MINHeight = 312
		THIS.MINWidth = 432
	ENDPROC
	

	PROCEDURE rekam.Click
		IF EMPTY(THIS.PARENT.MNOPER.VALUE)
			THIS.PARENT.MNOPER.SETFOCUS
			RETURN
		ENDIF
		
		IF !EMPTY(This.Parent.MNoper.Value)
			IF AK_MST(.F.,GASY_TGL)
				SELECT AK_MST
				SEEK This.Parent.MNoper.Value ORDER 1
				IF !FOUND()
					IF KUNCI_FI(10)
						APPEND BLANK
					ENDIF
				ENDIF
				REPLACE NOPER WITH This.Parent.mNoPER.Value,;
						NAPER WITH This.Parent.mNaper.Value,;
						SIFAT WITH This.Parent.mSifat.Value,;
						JENIS WITH This.Parent.mJenis.Value,;
						LEPEL WITH VAL(This.Parent.mLevel.Value),;
						UMUM WITH This.Parent.mKontrol.Value,;
						Kode WITH This.Parent.mSandi.Value
				FLUSH
				UNLOCK
				This.Parent.mNoPER.Value=""
				This.Parent.mNaper.Value=""
				This.Parent.mNopER.SetFocus
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE mkontrol.Valid
		IF EMPTY(This.Value)
			RETURN
		ENDIF
		THIS.PARENT.MNAMAKONTROL.VALUE=''	
		IF ALLTRIM(THIS.VALUE)==ALLTRIM(THIS.PARENT.MNOPER.VALUE)
			THIS.VALUE=''
			RETURN 0
		ENDIF
		
		IF AK_MST(.F.,GASY_TGL)
			SELECT AK_MST
			SET ORDER TO 1
			SEEK This.Value
			IF !FOUND()
				WAIT 'Nomer rekening tidak ada' WINDOW NOWAIT
				This.Value=""
				RETURN 0
			ENDIF
			This.Parent.mNamaKontrol.Value=NAPER
			IF AK_MST.SIFAT=="D"
				WAIT 'Kontrol Rekening'+CHR(13)+;
					'Nomer rekening bersifat detil tidak boleh sebagai kontrol' ;
					WINDOW NOWAIT
				RETURN 0
			ENDIF
			RETURN 1
		ENDIF
	ENDPROC

	PROCEDURE mkontrol.RightClick
		IF USED('Ak_Mst')
			Sele NOPER,NAPER ;
				FROM AK_MST ;
				where OCCURS(ALLTRIM(this.value),NOPER)>0 ;
				ORDER BY NOPER INTO CURSOR DAFTARAK
			This.Value=gLookup('Daftar Rekening Akuntansi',This.Value,"DAFTARAK",80)
		ENDIF		
	ENDPROC


	PROCEDURE mjenis.Valid
		if empty(this.value)
			keyboard "{F4}"
			RETURN 0
		ENDIF
	ENDPROC


	PROCEDURE msifat.Valid
		if empty(this.value)
			keyboard "{F4}"
			RETURN 0
		ENDIF
	ENDPROC


	PROCEDURE mLEVEL.Valid
		if empty(this.value)
			keyboard "{F4}"
			RETURN 0
		ENDIF
	ENDPROC

	PROCEDURE mnoper.Valid
		IF EMPTY(This.Value)
			RETURN
		ENDIF
		IF AK_MST(.F.,GASY_TGL)
			SELECT AK_MST
			SET ORDER TO 1
			SEEK This.Value
			IF FOUND()
				This.Parent.mnaper.Value=naper
				This.Parent.mjenis.Value=JENIS
				This.Parent.MSIfat.Value=SIFAT
				This.Parent.MLEvel.Value=TRANS(LEPEL)
				This.Parent.MKontrol.Value=UMUM
				This.Parent.mSandi.Value=Kode
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE mnoper.RightClick
		IF USED('Ak_Mst')
			Sele NOPER,NAPER ;
				FROM AK_MST where ;
				OCCURS(ALLTRIM(this.value),NOPER)>0 ;
				ORDER BY NOPER ;
				INTO CURSOR DAFTARAK
			This.Value=gLookup('Daftar Rekening Akuntansi',This.Value,"DAFTARAK",80)
		ENDIF		
	ENDPROC


	PROCEDURE zbaru1.Click
		This.Parent.MNoper.VALUE=''
		This.Parent.MNoper.Enabled=.T.
		This.Parent.mnoper.SetFocus
	ENDPROC
	
	
	PROCEDURE Zexit1.Click
	    RELEASE oGasyRekening
	ENDPROC

ENDDEFINE

PROCEDURE ALAMATDATA
	LPARAMETERS nDATA1
	CLOSE TABLES ALL
	IDATA='BMPS\ALAMAT_CONTOH.DBF'
	IF TYPE('NDATA1')='N'
		IDATA='BMPS\ALAMAT_'+TRANSFORM(NDATA1)+'.DBF'
	ENDIF

	IF !FILE(IDATA)
		CREATE TABLE (IDATA) ;
		(;
			KLP C(3),;
			KODE C(2),;
			KETERANGAN C(60),;
			ALAMAT C(250);
		)
		USE
	ENDIF
	IF !BUKA(.F.,IDATA,JUSTSTEM(IDATA))
		RETURN
	ENDIF
	SELECT(JUSTSTEM(IDATA))
	BROWSE TITLE DBF() NODELETE FONT "Tahoma",14
	TUTUP(JUSTSTEM(IDATA))
ENDPROC

PROCEDURE ASIKI
PUBLIC OFORM
OFORM=CREATEOBJECT('TKS1')
OFORM.SHOW
ENDPROC

DEFINE CLASS TKS1 AS TKS 
	CAPTION = "GASY Software 8.01.00"
	DESKTOP=.F.
	ALWAYSONBOTTOM=.F.
	WINDOWTYPE=0
	
	PROCEDURE CONTAINER1.CLICK
	ENDPROC
	
			
	PROCEDURE INIT
		THIS.BackColor=RGB(255,255,255)
		THIS.Label1.Left=9
		THIS.Label1.AutoSize= .F.
		THIS.Label1.Alignment= 2
		WITH THIS.CONtainer1
			.BORDERWIDTH = 0
			.AddObject('PF','PFX')
			.AddObject('GS','GASYLOGO')
			.HEIGHT=.GS.HEIGHT+9
			.PF.HEIGHT=.HEIGHT-9
			.PF.VISIBLE=.T.
		ENDWITH
		
		WITH THIS.CMDREFRSH
			.VISIBLE = .F.
			.AutoSize= .F.
			.HEIGHT=27
			.WIDTH=27
			.CAPTION=''
			.PICTURE='GASY\BMPS\WZEDIT.BMP'
		ENDWITH
		WITH THIS.CMDCETAK
			.VISIBLE=.F.
			.AutoSize= .F.
			.HEIGHT=27
			.WIDTH=27
			.CAPTION=''
			.PICTURE='GASY\BMPS\WZPRINT.BMP'
		ENDWITH
		THIS.REKORD.Visible= .F.
		
		THIS.Label1.TOP=THIS.COntainer1.Height+9
		THIS.OLEHTML.Top=THIS.LABEL1.Top+THIS.LABEL1.Height
		THIS.Resize
		THIS.CMDREFRSH.Click
	ENDPROC
	PROCEDURE ACTIVATE
		THIS.CONtainer1.PF.PAGE1.TXT1.VALUE=CN_CLIENT
	ENDPROC
	
	PROCEDURE CONTAINER1.RESIZE
		THIS.GS.LEFT=THIS.Width-THIS.GS.WIDTH-27
		THISFORM.LABEL1.WIDTH=THISFORM.WIDTH-9
		IF TYPE('THIS.PF')='O'
			THIS.PF.WIDTH=THIS.GS.LEFT-THIS.PF.LEFT-9
		ENDIF		
	ENDPROC

	PROCEDURE CMDREFRSH.CLICK
		ASIKI_HTML(THIS.PARENT.REKORD.Value,THISFORM)
	ENDPROC
	
	PROCEDURE REKORD.RIGHTCLICK
		THIS.Tag='GASY\ASIKI_'+PADL(TRANSFORM(THIS.VALUE),4,'0')+'.PRG'
		GAE(THIS.Tag)
	ENDPROC
		
	PROCEDURE LABEL1.CLICK
		THIS.Tag='GASY\ASIKI_'+PADL(TRANSFORM(THIS.Parent.Rekord.VALUE),4,'0')+'.FXP'
		IF FILE(THIS.Tag)
			DO (THIS.Tag) WITH THISFORM.OLEHTML
		ENDIF
	ENDPROC

	PROCEDURE OLEHTML.BUKA
		LPARAMETERS OPSI,OPSI1,OPSI2
		THIS.Tag='GASY\ASIKI_'+PADL(TRANSFORM(THIS.Parent.Rekord.VALUE),4,'0')+'.FXP'
		IF FILE(THIS.Tag)
			DO (THIS.Tag) WITH THIS, OPSI,OPSI1,OPSI2
		ENDIF
	ENDPROC
	
	PROCEDURE CMDREFRSH.RIGHTCLICK
		THIS.Tag='GASY\BMPS\ASIKI_'+PADL(TRANSFORM(THIS.Parent.Rekord.VALUE),4,'0')+'.HTML'
		IF FILE(THIS.Tag)
			MODIFY FILE (THIS.Tag)
		ENDIF
	ENDPROC	
ENDDEFINE
*************

DEFINE CLASS CMDX AS COMMANDBUTTON
	SPECIALEFFECT = 2
	FONTNAME = "Arial"
	AUTOSIZE = .T.
	FONTSIZE = 11
	FONTBOLD = .T.
	TOP = 5
	LEFT = 9
	CAPTION = '\<MENU'
ENDDEFINE
		
**BOF() GASYLOGO
DEFINE CLASS GASYLOGO AS IMAGE
	VISIBLE=.T.
	TOP = 2
	LEFT= 2
	MousePointer = 15
	PICTURE = 'GASY\BMPS\GASYLOGO.PNG'
	
	PROCEDURE CLICK
		DO FORM PROSES
	ENDPROC
	PROCEDURE RIGHTCLICK
		GASYTOOLS()
	ENDPROC
	
ENDDEFINE
**EOF() GASYLOGO

**BOF() PFX
DEFINE CLASS PFX AS PageFrame
	TOP=9
	LEFT=9
	TabStyle=1
	TabOrienTation=0

	PROCEDURE INIT
		THIS.AddObject('PAGE1','PAGE1X')
		THIS.AddObject('PAGE2','PAGE2X')
		THIS.AddObject('PAGE3','PAGE3X')		
	ENDPROC
	
	PROCEDURE RESIZE
		FOR i=1 TO THIS.PageCount
			THIS.Pages(i).Resize
		ENDFOR		
	ENDPROC
	
ENDDEFINE
**EOF() PFX
**BEOF() PAGE1X		
DEFINE CLASS PAGE1X AS Page
	CAPTION = "USER"
	FONTSIZE = 12
	FontBold = .T.

	ADD OBJECT TXT1 AS TextBox WITH ; 
		Visible=.t.,;
		FontSize = 18,;
		FONTBOLD = .T.,;
		Top=9,;
		left=9,;
		MARGIN = 0,;
		height=30,;
		width=180,;
		fontsize=14,;
		MAXLENGTH = 250,;
		Style = 1,;
		BorderStyle = 0
	
	ADD OBJECT CMD1 AS CMDX WITH CAPTION = '\<Setup'		
	ADD OBJECT CMD2 AS CMDX WITH CAPTION = '\<Operator'
	ADD OBJECT CMD3 AS CMdX WITH CAPTION = '\<Refresh'
				
	PROCEDURE CMD3.CLICK
		THISFORM.CMDREFRSH.CLICK
	ENDPROC

	PROCEDURE CMD1.CLICK
		LANGGANAN()
	ENDPROC

	PROCEDURE CMD2.CLICK
		NAMAUSER()
	ENDPROC

	
	PROCEDURE RESIZE
		THIS.CMD3.LEFT=THIS.Parent.PageWidth-THIS.CMD3.WIDTH-9
		THIS.CMD2.LEFT=THIS.CMD3.LEFT-THIS.CMD2.WIDTH
		THIS.CMD1.LEFT=THIS.CMD2.LEFT-THIS.CMD1.WIDTH
		THIS.TXT1.WIDTH=THIS.CMD1.LEFT-9		
	ENDPROC
	
ENDDEFINE
**EOF() PAGE1X

**BOF() PAGE2X
DEFINE CLASS PAGE2X AS Page
	CAPTION = "DATA"
	FONTSIZE = 12
	FontBold = .T.

	ADD OBJECT TXT1 AS TextBox WITH ; 
		Visible=.t.,;
		FontSize = 18,;
		FONTBOLD = .T.,;
		Top=9,;
		left=9,;
		MARGIN = 0,;
		height=30,;
		width=180,;
		fontsize=14,;
		MAXLENGTH = 250,;
		Style = 1,;
		BorderStyle = 0

	ADD OBJECT CMD1 AS CMDX WITH CAPTION = '\<SETUP'
		
	PROCEDURE INIT
		THIS.TXT1.VALUE=ALAMATDL
	ENDPROC
	
	PROCEDURE ACTIVATE
		THIS.TXT1.VALUE=ALAMATDL
	ENDPROC
	
	PROCEDURE CMD1.CLICK
		IF !EMPTY(THIS.Parent.TXT1.VALUE)
			ALAMAT()
		ENDIF
	ENDPROC
	
	PROCEDURE CMD1.RIGHTCLICK
		IF !EMPTY(THIS.Parent.TXT1.VALUE)
			BUKAXFILE(THIS.Parent.TXT1.VALUE)
		ENDIF
	ENDPROC
	
	PROCEDURE RESIZE
		THIS.CMD1.LEFT=THIS.Parent.PAGEWIDTH-THIS.CMD1.WIDTH-9
		THIS.TXT1.WIDTH=THIS.CMD1.LEFT-THIS.TXT1.LEFT-9		
	ENDPROC
		
	PROCEDURE TXT1.RIGHTCLICK
		THIS.ToolTipText=GETDIR(THIS.VALUE)
		IF !EMPTY(THIS.ToolTipText)
			THIS.VALUE=THIS.ToolTipText
		ENDIF
	ENDPROC
	
ENDDEFINE
**EOF() PAGE2X
**BOF() PAGE3X		
DEFINE CLASS PAGE3X AS Page
	CAPTION = "CARI"
	FONTSIZE = 12
	FontBold = .T.

	ADD OBJECT TXTCARI AS TextBox WITH ; 
		Visible=.t.,;
		Top=9,;
		left=9,;
		height=27,;
		width=135,;
		fontsize=14,;
		inputMask=REPLICATE('!',150),;
		Format=REPLICATE('!',150)
	

	ADD OBJECT CMD1 AS CMdX WITH CAPTION = '\<REFRESH'
	ADD OBJECT CMD2 AS CMDX WITH CAPTION = '\<MENU'		
	ADD OBJECT CMD3 AS CMDX WITH CAPTION = '\<USER'
				
	PROCEDURE CMD1.CLICK
		THISFORM.CMDREFRSH.CLICK
		THIS.Parent.TXTCARI.SETFOCUS
	ENDPROC

	PROCEDURE CMD2.CLICK
		DO FORM PROSES
	ENDPROC

	PROCEDURE CMD3.CLICK
		NAMAUSER()
	ENDPROC

	
	PROCEDURE RESIZE
		THIS.TXTCARI.LEFT=THIS.Parent.PAGEWIDTH-THIS.TXTCARI.WIDTH-9
		THIS.CMD2.LEFT=THIS.CMD1.LEFT+THIS.CMD1.WIDTH
		THIS.CMD3.LEFT=THIS.CMD2.LEFT+THIS.CMD2.WIDTH		
	ENDPROC

	PROCEDURE TXTCARI.GOTFOCUS
		IF !CEKDL()
			RETURN
		ENDIF
		THISFORM.OLEHTML.BUKA(-1)
	ENDPROC
	
	PROCEDURE TXTCARI.DBLCLICK
		THIS.Value=''
		THIS.INTERACTIVECHANGE
	ENDPROC
	
	PROCEDURE TXTCARI.INTERACTIVECHANGE
		THISFORM.OLEHTML.BUKA(1,THIS.Value)
	ENDPROC
	
ENDDEFINE
**EOF() PAGE3X

Lparameters pKode,pJudul
PUBLIC oaplikasi
oaplikasi=CREATEOBJECT("aplikasi",pKode,pJudul)
oaplikasi.Show
RETURN


DEFINE CLASS aplikasi AS FORM

	DataSession = 1
	Height = 500
	Width = 793
	DoCreate = .T.
	ShowTips = .T.
	AutoCenter = .T.
	BorderStyle = 3
	Caption = "Gasy Software"
	HalfHeightCaption = .F.
	MaxButton = .F.
	MinButton = .F.
	MaxHeight = 500
	MaxWidth = 793
	MinHeight = 500
	MinWidth = 793
	Enabled = .T.
	Icon = "BMPS\GASY.ico"
	TitleBar = 1
	WindowType = 0
	WindowState = 0
	BackColor = RGB(144,176,168)
	Name = "Aplikasi"
	laporan = .F.
	pmklp = .F.
	oldtgl = .F.


	ADD OBJECT pf AS pageframe WITH ;
		ErasePage = .T., ;
		TabStyle = 0, ;
		Top = 123, ;
		Left = 8, ;
		Width = 773, ;
		Height = 336, ;
		TabIndex = 3, ;
		ZOrderSet = 0


	ADD OBJECT kembali AS commandbutton WITH ;
		Top = 467, ;
		Left = 696, ;
		Height = 27, ;
		Width = 84, ;
		Cancel = .T., ;
		Caption = "E\<XIT", ;
		TabIndex = 19, ;
		ZOrderSet = 1

	ADD OBJECT shape1 AS shape WITH ;
		Top = 80, ;
		Left = 8, ;
		Height = 41, ;
		Width = 771, ;
		SpecialEffect = 0, ;
		ZOrderSet = 2

	ADD OBJECT tgllapor AS TEXTBOX WITH ;
		Height = 23, ;
		Left = 58, ;
		TabIndex = 5, ;
		Top = 89, ;
		Width = 89, ;
		VALUE=DATE(),;
		ZOrderSet = 3

	ADD OBJECT atur AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 36, ;
		Left = 10, ;
		Height = 42, ;
		Width = 769, ;
		FontBold = .T., ;
		FontSize = 27, ;
		FontUnderline = .F., ;
		Caption = "\<MENU APLIKASI", ;
		TabIndex = 16, ;
		ToolTipText = "Menentukan pilihan aplikasi sesuai kelompok atau keseluruhan", ;
		SpecialEffect = 2, ;
		ForeColor = RGB(0,0,64), ;
		ZOrderSet = 4


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "S/D", ;
		Height = 15, ;
		Left = 252, ;
		Top = 92, ;
		Width = 22, ;
		TabIndex = 8, ;
		ColorSource = 4, ;
		ZOrderSet = 5

	ADD OBJECT hal02 AS spinner WITH ;
		FontName = "MS Sans Serif", ;
		Height = 24, ;
		Increment =   1.00, ;
		Left = 277, ;
		SelectOnEntry = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 9, ;
		Top = 88, ;
		Width = 71, ;
		ZOrderSet = 6, ;
		Value = 6500

	ADD OBJECT hal01 AS spinner WITH ;
		FontName = "MS Sans Serif", ;
		Height = 24, ;
		Increment =   1.00, ;
		Left = 204, ;
		SelectOnEntry = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 7, ;
		Top = 89, ;
		Width = 43, ;
		ZOrderSet = 7, ;
		Value = 1

	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Halaman", ;
		Height = 15, ;
		Left = 155, ;
		Top = 93, ;
		Width = 44, ;
		TabIndex = 6, ;
		ZOrderSet = 8

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Cetak:", ;
		Height = 15, ;
		Left = 353, ;
		Top = 92, ;
		Width = 33, ;
		TabIndex = 10, ;
		ColorSource = 0, ;
		ZOrderSet = 9

	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Tanggal", ;
		Height = 15, ;
		Left = 14, ;
		Top = 92, ;
		Width = 41, ;
		TabIndex = 4, ;
		ZOrderSet = 10

	ADD OBJECT tcetak AS optiongroup WITH ;
		ButtonCount = 4, ;
		BackStyle = 0, ;
		BorderStyle = 1, ;
		Value = 1, ;
		Height = 27, ;
		Left = 387, ;
		Top = 87, ;
		Width = 299, ;
		TabIndex = 18, ;
		ColorSource = 0, ;
		ZOrderSet = 11, ;
		Name = "TCETAK", ;
		Option1.FontName = "MS Sans Serif", ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<1 View", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 0, ;
		Option1.Top = 5, ;
		Option1.Width = 90, ;
		Option1.AutoSize = .F., ;
		Option1.Name = "Option1", ;
		Option2.FontName = "MS Sans Serif", ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "\<2.Default", ;
		Option2.Value = 0, ;
		Option2.Height = 17, ;
		Option2.Left = 59, ;
		Option2.Style = 0, ;
		Option2.Top = 5, ;
		Option2.Width = 90, ;
		Option2.AutoSize = .F., ;
		Option2.Name = "Option2", ;
		Option3.FontName = "MS Sans Serif", ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "\<3.Select Printer", ;
		Option3.Height = 17, ;
		Option3.Left = 122, ;
		Option3.Style = 0, ;
		Option3.Top = 5, ;
		Option3.Width = 90, ;
		Option3.AutoSize = .F., ;
		Option3.Name = "Option3", ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "\<4.Modifikasi", ;
		Option4.Height = 17, ;
		Option4.Left = 212, ;
		Option4.Style = 0, ;
		Option4.Top = 5, ;
		Option4.Width = 90, ;
		Option4.AutoSize = .F., ;
		Option4.Name = "Option4"


	ADD OBJECT rangkap AS spinner WITH ;
		FontName = "MS Sans Serif", ;
		Height = 24, ;
		Increment =   1.00, ;
		Left = 731, ;
		SelectOnEntry = .T., ;
		SpecialEffect = 0, ;
		TabIndex = 11, ;
		Top = 91, ;
		Width = 43, ;
		ZOrderSet = 7, ;
		Value = 1

	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Copy", ;
		Height = 15, ;
		Left = 699, ;
		Top = 94, ;
		Width = 26, ;
		TabIndex = 12, ;
		ZOrderSet = 8, ;
		ToolTipText = "Pencetakan rangkap, jika pilihan cetak = Default"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 467, ;
		Left = 9, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Validasi", ;
		TabIndex = 17, ;
		ZOrderSet = 1

	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "CARI MENU", ;
		Height = 17, ;
		Left = 516, ;
		Top = 10, ;
		Width = 68, ;
		TabIndex = 1

	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 593, ;
		TabIndex = 2, ;
		Top = 7, ;
		Width = 185

	ADD OBJECT label7 AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Kategori Menu", ;
		Height = 17, ;
		Left = 13, ;
		Top = 10, ;
		Width = 81, ;
		TabIndex = 13, ;
		ToolTipText = "Refresh Kategori Menu"


	ADD OBJECT combo1 AS combobox WITH ;
		ColumnCount = 2, ;
		Height = 24, ;
		Left = 99, ;
		Style = 2, ;
		TabIndex = 14, ;
		Top = 6, ;
		Width = 70

	ADD OBJECT command2 AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 5, ;
		Left = 171, ;
		Height = 26, ;
		Width = 27, ;
		Picture = "bmps\wznew.bmp", ;
		Caption = "", ;
		ToolTipText = "Buka Window Baru"

	PROCEDURE TGLLAPOR.RIGHTCLICK
		MYKALENDER(THISFORM,THIS)
	ENDPROC
	
	PROCEDURE jalan
		PARAMETERS iPro,iCetak,iJudul
		LOCAL mPro, pax1, pax2, pax3, pax4, pax5, pax6
		pax1=Thisform.TglLapor.Value
		pax2=Thisform.tCETAK.Value
		pax3=Thisform.HAL01.Value
		pax4=Thisform.HAL02.Value
		pax5=Thisform.Rangkap.Value
		pax6=iCetak
		IF LEFT(iPro,1)='0'
			mPro=SUBSTR(iPro,2)
			&mPro
			ELSE
			IF !FILE(iPro+'.Fxp')
				WAIT WINDOW 'File prosedur belum dibuat'
				ELSE
				IF pax2=4
					IF !EMPTY(pax6)
						MODIFY REPORT (pax6)
						ELSE
						WAIT WINDOW 'Prosedur ini tidak berisi file laporan'
					ENDIF
					RETURN
				ENDIF
				IF !EMPTY(pax6)
					XXJUDUL=ALLTRIM(SUBSTR(ALLTRIM(iJudul),RAT('.',iJudul)))
					DO (iPro) WITH pax1, pax2, pax3, pax4, pax5, pax6
					ELSE
					DO (iPro)
				ENDIF
			ENDIF
		ENDIF
		RETURN
	ENDPROC


	PROCEDURE carilagi
		Thisform.Oldtgl=Gasy_Tgl
		Thisform.Closable= .T.

		FOR nPos=1 TO 18
			this.sembunyikan(nPos)
		ENDFOR

		IF !THIS.BUkagasypros()
			RETURN
		ENDIF

		LLKODE=''
		ICARI=UPPER(ALLTRIM(THIS.TExt1.Value))

		IF EMPTY(llKode)
			nPos=0
			IF EMPTY(ICARI)
				SELECT * FROM GASYPROS ORDER BY NMMENU INTO CURSOR HASILPRO
				ELSE
				SELECT * FROM GASYPROS WHERE OCCURS(ICARI,UPPER(NMMENU))>0 ORDER BY NMMENU INTO CURSOR HASILPRO
			ENDIF

			SELECT HASILPRO
			Thisform.PMKLP='PRO'
			GO Top
			this.isipage1
		ENDIF
		TUTUP("HASILPRO")
	ENDPROC


	PROCEDURE bukagasypros
		LOCAL mDbf
		TUTUP("GASYPROS")	
		mDbf=ALAMATDL+'PROS_108'
		IF !FILE(mDbf+".Dbf")
			CREATE TABLE (mDbf) ;
			(;
				KODE C(3), ;
				NMR C(3), ;
				NMMENU C(60), ;
				NMPROSEDUR C(100), ;
				NMLAPORAN C(100), ;
				SBR C(1), ;
				CATATAN C(100))
			USE
		ENDIF
		RETURN(BUKA(.F.,mDbf,"GASYPROS"))
	ENDPROC


	PROCEDURE sembunyikan
		LPARAMETERS nPos1
		LOCAL nPos,mOk1
		FOR nPos=1 TO 18
			mOk1="Thisform.PF.PAGE"+TRANSFORM(nPos1)+".Command"+TRANSFORM(nPos)
			&mOk1..Visible=.F.
		NEXT
	ENDPROC


	PROCEDURE isipage
		LPARAMETERS nPage,nCommand,nRekord
		mOk1="Thisform.PF.PAGE"+TRANSFORM(nPage)+".Command"+TRANSFORM(nCommand)
		&mOk1..Visible=.t.
		&mOk1..Caption=TRANSFORM(nRekord)+". "+ALLTRIM(nmmenu)
		&mOk1..StatusBarText=IIF(EMPTY(NMPROSEDUR),ALAMATDL+'Proses\'+KODE+NMR,;
		IIF(SUBSTR(NMPROSEDUR,2,1)=":",ALLTRIM(NMPROSEDUR),ALAMATDL+'Proses\'+ALLTRIM(NMPROSEDUR)))
		&mOk1..Comment=IIF(EMPTY(NMLAPORAN),"",;
		IIF(SUBSTR(NMLAPORAN,2,1)=":",ALLTRIM(NMLAPORAN),ALAMATDL+'Laporan\'+ALLTRIM(NMLAPORAN)))
		IF SBR='0'
			&mOk1..StatusBarText='0'+ALLTRIM(NMPROSEDUR)
		ENDIF
	ENDPROC


	PROCEDURE isipage1
		DO WHILE NOT EOF()
			nPos=nPos+1
			IF BETWEEN(nPOS,1,126)
				DO CASE
					CASE BETWEEN(nPos,1,18)
						This.isipage(1,nPos,RECNO())
					CASE BETWEEN(nPos,19,36)
						This.isipage(2,nPos-18,RECNO())
					CASE BETWEEN(nPos,37,54)
						This.isipage(3,nPos-36,RECNO())
					CASE BETWEEN(nPos,55,72)
						This.isipage(4,nPos-54,RECNO())
					CASE BETWEEN(nPos,73,90)
						This.isipage(5,nPos-72,RECNO())
					CASE BETWEEN(nPos,91,108)
						This.isipage(6,nPos-90,RECNO())
					CASE BETWEEN(nPos,109,126)
						This.isipage(7,nPos-108,RECNO())
				ENDCASE
			ENDIF
			SKIP
		ENDDO
	ENDPROC


	PROCEDURE Init
		Parameters LLKODE, mJudul
		THIS.Caption='Gasy Software : '+TTOC(DATETIME())
		if type('this.pf.page1')<>'O'
			this.pf.addobject('page1','page_x')
			this.pf.addobject('page2','page_x')
			this.pf.addobject('page3','page_x')
			this.pf.addobject('page4','page_x')
			this.pf.addobject('page5','page_x')
			this.pf.addobject('page6','page_x')
			this.pf.addobject('page7','page_x')
			this.pf.addobject('page8','page_x')
			this.pf.addobject('page9','page_x')
			this.pf.addobject('page10','page_x')
			this.pf.addobject('page11','page_x')
			this.pf.addobject('page12','page_x')
			this.pf.addobject('page13','page_x')
			this.pf.addobject('page14','page_x')
			this.pf.addobject('page15','page_x')
			this.pf.addobject('page16','page_x')
			this.pf.addobject('page17','page_x')
			this.pf.addobject('page18','page_x')
			this.pf.addobject('page19','page_s')
		endif		
		IF TYPE('MJUDUL')='C' AND !EMPTY(MJUDUL)
			Thisform.Atur.CaptioN=MJUDUL
			ELSE
			Thisform.Atur.Caption='MENU APLIKASI'
		ENDIF

		Thisform.PF.PAGE19.KodeUsr.Value=ALLTRIM(MPHOTO)

		Thisform.PF.PAGE19.Enabled=DADI(41)

		Thisform.Oldtgl=Gasy_Tgl

		Thisform.Closable= .T.

		IF TYPE('LLKODE')=='C'
			Thisform.PMKLP=LLKODE
			THIS.COMbo1.Value=LLKODE
			Thisform.PF.PAGE19.ckLP.Value=LLKODE
		ENDIF

		FOR nPos=1 TO 18
			this.sembunyikan(nPos)
		ENDFOR


		IF !THIS.BUkagasypros()
			RETURN
		ENDIF

		IF !EMPTY(llKode)
			nPos=0
			SELECT * FROM GASYPROS WHERE KODE==LLKODE ORDER BY NMR INTO CURSOR HASILPRO
			SELECT HASILPRO
			this.isipage1
		ENDIF

		IF EMPTY(llKode)
			Thisform.PF.PAGE19.ckLP.Value='PRO'
			nPos=0
			SELECT * FROM GASYPROS ORDER BY KODE,NMR INTO CURSOR HASILPRO
			SELECT HASILPRO
			Thisform.PMKLP='PRO'
			GO Top
			this.isipage1
		ENDIF
		TUTUP("HASILPRO")
	ENDPROC


	PROCEDURE Destroy
		GASY_TGL=Thisform.Oldtgl
	ENDPROC


	PROCEDURE Load
		PUBLIC ALAMATDL,MPHOTO,GASY_TGL,DADIMENU
		DADIMENU=REPL('1',200)
		GASY_TGL=DATE()
		MPHOTO="PRO"			
		ALAMATDL=ALAMATNYA("ADIDL")		
		CHEKFOLDER(ALAMATDL)
		IF !FILE(ALAMATDL+"GASYKLAS.DBF")
			REINDEKS('GASYKLAS','',ALAMATDL)
		ENDIF
	ENDPROC

	PROCEDURE kembali.Click
		Thisform.Release
	ENDPROC


	PROCEDURE tgllapor.Init
		THIS.Value=DATE()
	ENDPROC


	PROCEDURE tgllapor.LostFocus
		Gasy_Tgl=This.Value
	ENDPROC


	PROCEDURE atur.Click
		IF THIS.Parent.COMbo1.ListCount>0
			THIS.Parent.COMbo1.SetFocus
			KEYBOARD '{F4}'
			ELSE
			THISFORM.Init()
		ENDIF
	ENDPROC


	PROCEDURE hal02.LostFocus
		THIS.Value=Max(This.Value,1)
	ENDPROC


	PROCEDURE hal01.LostFocus
		THIS.Value=Max(This.Value,1)
	ENDPROC


	PROCEDURE tcetak.Option4.Init
		This.Enabled=DADI(54)
	ENDPROC


	PROCEDURE rangkap.LostFocus
		THIS.Value=Max(This.Value,1)
	ENDPROC


	PROCEDURE text1.InteractiveChange
		THISFORM.PF.ActivePage=1
		THISFORM.Carilagi()
	ENDPROC


	PROCEDURE text1.DblClick
		THISFORM.PF.ActivePage=1
		THIS.Value=''
		THISFORM.Carilagi()
	ENDPROC


	PROCEDURE label7.Click
		THIS.Parent.COMbo1.Init
		this.Parent.combo1.SetFocus
	ENDPROC


	PROCEDURE combo1.Init
		THIS.Clear
		this.ColumnWidths=TRANSFORM(this.Width-17)
		IF Gasyklas()
			SELECT KODE,KETERANGAN FROM GASYKLAS WHERE KLP=='NFP' AND LEFT(KODE,3)=MPHOTO ORDER BY Keterangan INTO CURSOR JNSLAPOR
			SELECT JNSLAPOR
			GO TOP
			SCAN
				this.AddListItem(SUBSTR(kode,4,3),RECNO(),1)
				this.AddListItem(ALLTRIM(keterangan),RECNO(),2)
			ENDSCAN
			this.AddListItem('',RECNO()+1,1)
			this.AddListItem('Semua',RECNO()+1,2)
			TUTUP("JNSLAPOR")
		ENDIF
	ENDPROC


	PROCEDURE combo1.InteractiveChange
		THISFORM.PF.ActivePage=1
		This.Parent.Init(this.Value,this.ListItem(this.ListIndex,2))
	ENDPROC


	PROCEDURE combo1.RightClick
		THISform.INIT(this.Value,this.ListItem(this.ListIndex,2))
	ENDPROC

	PROCEDURE command2.Click
		this.Parent.combo1.RightClick
	ENDPROC


ENDDEFINE
*
*-- EndDefine: aplikasi
**************************************************
DEFINE CLASS PAGE_X AS PAGE
	
	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 5, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 38, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command2"


	ADD OBJECT command3 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 71, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command3"


	ADD OBJECT command4 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 104, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command4"


	ADD OBJECT command5 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 137, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command5"


	ADD OBJECT command6 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 170, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command6"


	ADD OBJECT command7 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 203, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command7"


	ADD OBJECT command8 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 236, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command8"


	ADD OBJECT command9 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 269, ;
		Left = 2, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command9"


	ADD OBJECT command10 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 5, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command10"


	ADD OBJECT command11 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 38, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command11"


	ADD OBJECT command12 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 71, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command12"


	ADD OBJECT command13 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 104, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command13"


	ADD OBJECT command14 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 137, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command14"


	ADD OBJECT command15 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 170, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command15"


	ADD OBJECT command16 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 203, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command16"


	ADD OBJECT command17 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 236, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command17"


	ADD OBJECT command18 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 269, ;
		Left = 390, ;
		Height = 32, ;
		Width = 99, ;
		FontBold = .F., ;
		FontName = "Garamond", ;
		FontSize = 12, ;
		Caption = "Command1", ;
		SpecialEffect = 2, ;
		Name = "Command18"


	ADD OBJECT line1 AS line WITH ;
		Height = 305, ;
		Left = 388, ;
		Top = 1, ;
		Width = 0, ;
		Name = "Line1"


	ADD OBJECT line2 AS line WITH ;
		Height = 0, ;
		Left = 0, ;
		Top = 0, ;
		Width = 769, ;
		Name = "Line2"
		
	
	Procedure Init
		This.Caption=strtran(upper(This.Name),'PAGE','')
	Endproc
		
	PROCEDURE command1.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command2.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command3.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command4.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command5.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command6.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command7.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command8.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command9.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command10.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command11.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command12.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command13.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command14.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command15.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command16.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command17.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command18.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command1.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command2.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command3.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command4.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command5.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command6.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command7.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command8.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command9.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command10.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command11.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command12.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command13.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command14.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command15.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command16.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command17.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC


	PROCEDURE command18.Click
		Thisform.Jalan(This.StatusBarText,This.Comment,This.Caption)
	ENDPROC

ENDDEFINE

DEFINE CLASS PAGE_S AS PAGE
	Caption="Setup"

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Kode/Nama Menu", ;
		Height = 15, ;
		Left = 125, ;
		Top = 109, ;
		Width = 90, ;
		TabIndex = 17, ;
		ZOrderSet = 1, ;
		Name = "Label1"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Nomer Sub Menu", ;
		Height = 15, ;
		Left = 125, ;
		Top = 133, ;
		Width = 85, ;
		TabIndex = 18, ;
		ZOrderSet = 1, ;
		Name = "Label5"


	ADD OBJECT label7 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Nama File Prosedur", ;
		Height = 15, ;
		Left = 125, ;
		Top = 155, ;
		Width = 94, ;
		TabIndex = 19, ;
		ZOrderSet = 40, ;
		Name = "Label7"


	ADD OBJECT mno AS textbox WITH ;
		Alignment = 2, ;
		Enabled = .T., ;
		Format = "XXX", ;
		Height = 23, ;
		InputMask = "XXX", ;
		Left = 226, ;
		MaxLength = 3, ;
		TabIndex = 3, ;
		Top = 129, ;
		Width = 37, ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 52, ;
		Name = "mNo"


	ADD OBJECT mnama AS textbox WITH ;
		Enabled = .T., ;
		Height = 23, ;
		Left = 263, ;
		MaxLength = 60, ;
		TabIndex = 4, ;
		Top = 129, ;
		Width = 272, ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 64, ;
		Name = "mNama"


	ADD OBJECT mfile AS textbox WITH ;
		Enabled = .T., ;
		Height = 25, ;
		Left = 226, ;
		MaxLength = 150, ;
		TabIndex = 5, ;
		Top = 152, ;
		Width = 309, ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 65, ;
		Name = "mFile"


	ADD OBJECT cklp AS textbox WITH ;
		Alignment = 2, ;
		Enabled = .T., ;
		Format = "XXX", ;
		Height = 23, ;
		InputMask = "XXX", ;
		Left = 226, ;
		MaxLength = 3, ;
		TabIndex = 1, ;
		Top = 104, ;
		Width = 37, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 52, ;
		Name = "cKLP"


	ADD OBJECT rekam AS commandbutton WITH ;
		Top = 147, ;
		Left = 567, ;
		Height = 27, ;
		Width = 95, ;
		Caption = "\<Rekam", ;
		TabIndex = 9, ;
		Name = "Rekam"


	ADD OBJECT hapus AS commandbutton WITH ;
		Top = 174, ;
		Left = 567, ;
		Height = 27, ;
		Width = 95, ;
		Caption = "\<Hapus", ;
		TabIndex = 10, ;
		Name = "Hapus"


	ADD OBJECT namakelompok AS textbox WITH ;
		Enabled = .T., ;
		Height = 23, ;
		Left = 263, ;
		MaxLength = 60, ;
		TabIndex = 2, ;
		Top = 104, ;
		Width = 272, ;
		Style = 0, ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 64, ;
		Name = "NamaKelompok"


	ADD OBJECT proses2 AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 59, ;
		Left = 567, ;
		Height = 32, ;
		Width = 95, ;
		Caption = "\<Program Baru", ;
		TabIndex = 11, ;
		Name = "Proses2"


	ADD OBJECT proses1 AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 91, ;
		Left = 567, ;
		Height = 27, ;
		Width = 95, ;
		Caption = "\<Compile", ;
		TabIndex = 12, ;
		Name = "Proses1"


	ADD OBJECT kodeusr AS textbox WITH ;
		FontSize = 12, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Enabled = .F., ;
		Format = "XXX", ;
		Height = 33, ;
		InputMask = "XXX", ;
		Left = 461, ;
		MaxLength = 3, ;
		TabIndex = 14, ;
		Top = 59, ;
		Width = 73, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 52, ;
		Name = "KodeUsr"


	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 58, ;
		Left = 125, ;
		Height = 36, ;
		Width = 331, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 12, ;
		WordWrap = .F., ;
		Caption = "Modifikasi Prosedur/Kode Akses User", ;
		TabIndex = 13, ;
		Name = "Command1"


	ADD OBJECT adaprogram AS optiongroup WITH ;
		AutoSize = .T., ;
		ButtonCount = 2, ;
		Value = 2, ;
		Height = 27, ;
		Left = 226, ;
		Top = 230, ;
		Width = 136, ;
		TabIndex = 8, ;
		Name = "AdaProgram", ;
		Option1.Caption = "Intenal", ;
		Option1.Value = 0, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 0, ;
		Option1.Top = 5, ;
		Option1.Width = 62, ;
		Option1.AutoSize = .F., ;
		Option1.Name = "Option1", ;
		Option2.Caption = "External", ;
		Option2.Value = 1, ;
		Option2.Height = 17, ;
		Option2.Left = 69, ;
		Option2.Style = 0, ;
		Option2.Top = 5, ;
		Option2.Width = 62, ;
		Option2.AutoSize = .F., ;
		Option2.Name = "Option2"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Nama File Laporan", ;
		Height = 15, ;
		Left = 125, ;
		Top = 181, ;
		Width = 91, ;
		TabIndex = 20, ;
		ZOrderSet = 40, ;
		Name = "Label2"


	ADD OBJECT mfilelapor AS textbox WITH ;
		Enabled = .T., ;
		Height = 25, ;
		Left = 226, ;
		MaxLength = 150, ;
		TabIndex = 6, ;
		Top = 177, ;
		Width = 309, ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 65, ;
		Name = "mFileLapor"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Catatan", ;
		Height = 15, ;
		Left = 125, ;
		Top = 207, ;
		Width = 39, ;
		TabIndex = 21, ;
		ZOrderSet = 40, ;
		Name = "Label4"


	ADD OBJECT xcatatan AS textbox WITH ;
		Enabled = .T., ;
		Height = 25, ;
		Left = 226, ;
		MaxLength = 100, ;
		TabIndex = 7, ;
		Top = 202, ;
		Width = 309, ;
		DisabledForeColor = RGB(0,0,0), ;
		ZOrderSet = 65, ;
		Name = "xCatatan"


	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Sumber Program", ;
		Height = 15, ;
		Left = 125, ;
		Top = 233, ;
		Width = 80, ;
		TabIndex = 22, ;
		ZOrderSet = 40, ;
		Name = "Label6"


	ADD OBJECT commandBrowse AS commandbutton WITH ;
		Top = 201, ;
		Left = 567, ;
		Height = 27, ;
		Width = 95, ;
		Caption = "\<Browse"


	PROCEDURE mfilelapor.RightClick
		This.Value = GETFILE('FRX')
	ENDPROC


	PROCEDURE commandBrowse.RightClick
		IF !GASYKLAS()
			RETURN
		ENDIF

		IF USED('GASYKLAS')
			SELECT GASYKLAS
			GBROWSE("GASYKLAS")
		ENDIF
	ENDPROC


	PROCEDURE commandBrowse.Click
		IF !THISFORM.BUkagasypros()
			RETURN
		ENDIF

		IF USED('GASYPROS')
			SELECT GASYPROS
			GBROWSE("GASYPROS")
		ENDIF
	ENDPROC
	
	PROCEDURE mno.RightClick
		IF !THISFORM.BUkagasypros()
			RETURN
		ENDIF

		IF USED('GASYPROS')
			SELECT NMR,NMMENU FROM GASYPROS WHERE KODE==This.Parent.cKLP.Value ORDER BY NMR INTO CURSOR DAFTAR
			SELECT DAFTAR

			DEFINE POPUP Daftar FONT "Courier",8 PROMPT FIELD  ;
				NMR+" "+ALLTRIM(NMMENU) SCROLL SHORTCUT TITLE ;
				"DAFTAR SUB MENU APLIKASI" FROM MROW(),MCOL()
			ON SELECTION POPUP Daftar BAR()
		 
			ACTIVATE POPUP Daftar
			DEACTIVATE POPUP Daftar 

			SELECT Daftar
			IF BAR()>0
				GOTO BAR()
				This.Value=NMR
			ENDIF
			TUTUP("DAFTAR")
		ENDIF
	ENDPROC


	PROCEDURE mno.LostFocus
		LOCAL mDbf
		IF !EMPTY(This.Value)
			This.Value=RIGHT('000'+ALLTRIM(This.Value),3)
			IF !THISFORM.BUkagasypros()
				RETURN
			ENDIF
			SELECT GASYPROS
			Locate For KODE==This.Parent.CKLP.Value And NMR==This.Value
			If Found()
				This.Parent.AdaProgram.Value=IIF(SBR='0',1,2)
				This.Parent.mNama.Value=NMMENU
				This.Parent.mFile.Value=NMPROSEDUR
				This.Parent.mFilelapor.Value=NMLAPORAN
				This.Parent.xCatatan.Value=Catatan
			ELSE
				This.Parent.AdaProgram.Value=2
				This.Parent.mNama.Value=""
				This.Parent.mFile.Value=""
				This.Parent.mFilelapor.Value=""
				This.Parent.xCatatan.Value=""
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE mno.GotFocus
		IF EMPTY(THIS.Parent.CKLP.Value)
			THIS.Parent.CKLP.SetFocus
			RETURN
		ENDIF
	ENDPROC


	PROCEDURE mfile.RightClick
		This.Value = GETFILE('FXP')
	ENDPROC


	PROCEDURE cklp.LostFocus
		IF !EMPTY(This.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				LOCATE FOR KLP=='NFP' AND SUBSTR(KODE,4,3)==This.Value
				IF FOUND()
					This.Parent.NamaKelompok.Value=ALLTRIM(Keterangan)
					THIS.Parent.NamaKelompok.Style= 1
				ENDIF
			ENDIF
			ELSE
			This.Parent.NamaKelompok.Value="Menu Aplikasi"
		ENDIF
	ENDPROC


	PROCEDURE cklp.RightClick
		IF GASYKLAS()
			SELECT GASYKLAS
			SELECT KODE,KETERANGAN FROM GASYKLAS WHERE KLP=='NFP' AND LEFT(KODE,3)=MPHOTO ORDER BY KODE INTO CURSOR DAFTAR
			SELECT DAFTAR

			DEFINE POPUP Daftar FONT "Courier",8 PROMPT FIELD  ;
				ALLTRIM(KODE)+" "+ALLTRIM(KETERANGAN) SCROLL SHORTCUT TITLE ;
				"DAFTAR MENU APLIKASI" FROM MROW(),MCOL()
			ON SELECTION POPUP Daftar BAR()
		 
			ACTIVATE POPUP Daftar
			DEACTIVATE POPUP Daftar 

			SELECT Daftar
			IF BAR()>0
				GOTO BAR()
				This.Value=SUBSTR(KODE,4,3)
			ENDIF
			TUTUP("DAFTAR")
		ENDIF
	ENDPROC


	PROCEDURE cklp.GotFocus
		IF !EMPTY(This.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				LOCATE FOR KLP=='NFP' AND SUBSTR(KODE,4,3)==This.Value
				IF FOUND()
					This.Parent.NamaKelompok.Value=ALLTRIM(Keterangan)
					THIS.Parent.NamaKelompok.Style= 1
				ENDIF
			ENDIF
			ELSE
			This.Parent.NamaKelompok.Style= 1
		ENDIF
	ENDPROC


	PROCEDURE rekam.Click
		IF !THISFORM.BUkagasypros()
			RETURN
		ENDIF

		IF USED('GASYPROS') AND !EMPTY(This.Parent.mNo.Value)
			SELECT GASYPROS
			Locate For KODE==This.Parent.CKLP.Value And NMR==This.Parent.Mno.Value
			If !Found()
				IF KUNCI_FI(5)
					APPEND BLANK
					UNLOCK
				ENDIF
			ENDIF
			IF KUNCI_RC(5)
				REPLACE KODE WITH This.Parent.CKLP.Value,;
					NMR WITH This.Parent.Mno.Value,;
					SBR WITH IIF(This.Parent.AdaProgram.Value=2,'X','0'),;
					NMMENU WITH This.Parent.mNama.Value,;
					NMPROSEDUR WITH This.Parent.mFile.Value,;
					NMLAPORAN WITH This.Parent.mFileLapor.Value,;
					SBR WITH IIF(This.Parent.AdaProgram.Value=2,'X','0'),;
					Catatan WITH This.Parent.xCatatan.Value
				FLUSH
				UNLOCK
			ENDIF
			This.Parent.mNo.Value=""
			This.Parent.mNama.Value=""
			This.Parent.mFile.Value=""
			This.Parent.mFileLapor.Value=""
			This.Parent.xCatatan.Value=""
			This.Parent.mNo.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE hapus.Click
		IF !THISFORM.BUkagasypros()
			RETURN
		ENDIF

		IF USED('GASYPROS')
			SELECT GASYPROS
			Locate For KODE==This.Parent.CKLP.Value And NMR==This.Parent.Mno.Value
			If Found()
				IF KUNCI_RC(5)
					DELETE
					UNLOCK
				ENDIF
				This.Parent.mNo.Value=""
				This.Parent.mNama.Value=""
				This.Parent.mFile.Value=""
				This.Parent.mFileLapor.Value=""
				This.Parent.mNo.SetFocus
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE namakelompok.LostFocus
		IF !EMPTY(This.Parent.cKLP.Value) AND !EMPTY(This.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				LOCATE FOR KLP=='NFP' AND LEFT(KODE,6)==MPHOTO+This.Parent.cKLP.Value
				IF !FOUND()
					IF Kunci_Fi(5)
						APPEND BLANK
						REPLACE KLP WITH 'NFP',;
							KODE WITH MPHOTO+This.Parent.cKLP.Value,;
							NAMAKLP WITH 'MENU APLIKASI',;
							KETERANGAN WITH This.VALUE
						FLUSH
						UNLOCK
					ENDIF
					ELSE
					IF Kunci_RC(5)
						REPLACE KETERANGAN WITH This.VALUE
						FLUSH
						UNLOCK
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE proses2.Click
		IF This.Parent.AdaProgram.Value=2
			mFile1=IIF(EMPTY(This.Parent.mFile.Value),ALAMATDL+'Proses\'+;
				This.Parent.cKlp.Value+This.Parent.mNo.Value,;
				IIF(SUBSTR(This.Parent.mFile.Value,2,1)=":",ALLTRIM(This.Parent.mFile.Value),;
				ALAMATDL+'Proses\'+ALLTRIM(This.Parent.mFile.Value)))
			CHEKFOLDER(MFILE1)
			MODIFY COMMAND (mFile1)
		ENDIF
	ENDPROC


	PROCEDURE proses1.Click
		IF This.Parent.AdaProgram.Value=2
			mFile1=IIF(EMPTY(This.Parent.mFile.Value),ALAMATDL+'Proses\'+;
				This.Parent.cKlp.Value+This.Parent.mNo.Value,;
				IIF(SUBSTR(This.Parent.mFile.Value,2,1)=":",ALLTRIM(This.Parent.mFile.Value),;
				ALAMATDL+'Proses\'+ALLTRIM(This.Parent.mFile.Value)))
			COMPILE (mFile1) ENCRYPT NODEBUG
		ENDIF
	ENDPROC

ENDDEFINE

PROCEDURE DN00()
	PUBLIC oGasyDN
	IF !DN_MST(.F.)
	   	RETURN
	ENDIF   
	oGasyDN=CREATEOBJECT("oDn00")
	oGasyDN.Show
ENDPROC

DEFINE CLASS XLabel AS label
	AutoSize = .T.
	FontName = "MS Sans Serif"
	FontSize = 9
	BackStyle = 0
ENDDEFINE
DEFINE CLASS XTextBox AS TEXTBOX
	FontName = "MS Sans Serif"
	FontSize = 10
	Enabled = .F.
	Height = 25
	MaxLength = 30
	Width = 269
	DisabledBackColor = RGB(128,128,128)
	DisabledForeColor = RGB(255,255,255)
ENDDEFINE

DEFINE CLASS oDn00 AS form
	AUTOCENTER=.T.
	Height = 356
	Width = 550
	Caption = "Pendataan Nasabah"
	MaxButton= .F.	
	MinButton= .F.		
	BorderStyle=1
	Icon = _SCREEN.ICON
	WindowType = 1
	DESKTOP=.T.
	BackColor = RGB(147,192,168)
	CLOSABLE=.F.

	ADD OBJECT INDUK0 AS Xlabel WITH ;
		Caption = "No.Induk:", ;
		Left = 25, ;
		Top = 78-50

	ADD OBJECT nBaru AS Xtextbox WITH ;
		Left = 81, ;
		MaxLength = 8, ;
		ToolTipText = "Ketik Kode Nasabah Baru", ;
		Top = 73-50, ;
		Width = 80


	ADD OBJECT NAMA0 AS Xlabel WITH ;
		Caption = "Nama:", ;
		Left = 25, ;
		Top = 102-50

	ADD OBJECT tNama AS XTextBox WITH ;
		Left = 81, ;
		Enabled = .F., ;
		MaxLength = 30, ;
		Top = 97-50, ;
		Width = 269

	ADD OBJECT ALAMAT0 AS Xlabel WITH ;
		Caption = "Alamat:", ;
		Left = 25, ;
		Top = 127-50
		
	ADD OBJECT tAlamat AS Xtextbox WITH ;
		Enabled = .F., ;
		Left = 81, ;
		MaxLength = 30, ;
		Top = 121-50, ;
		Width = 269
	

	ADD OBJECT KOTA0 AS Xlabel WITH ;
		Caption = "Kota:", ;
		Left = 25, ;
		Top = 151-50			

	ADD OBJECT tkota AS Xtextbox WITH ;
		Enabled = .F., ;
		Left = 81, ;
		MaxLength = 30, ;
		Top = 145-50, ;
		Width = 269


		



	ADD OBJECT shape1 AS shape WITH ;
		Top = 96-50, ;
		Left = 379, ;
		Height = 147, ;
		Width = 145, ;
		SpecialEffect = 0, ;
		BorderColor = RGB(255,255,255)


	ADD OBJECT tbfoto AS image WITH ;
		Stretch = 2, ;
		BorderStyle = 1, ;
		Height = 138, ;
		Left = 386, ;
		Top = 100-50, ;
		Width = 131
		

	ADD OBJECT JOB0 AS Xlabel WITH ;
		Caption = "Pekerjaan:", ;
		Left = 25, ;
		Top = 173-50

	ADD OBJECT tJob AS Xtextbox WITH ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 81, ;
		MaxLength = 30, ;
		Top = 169-50, ;
		Width = 269


	ADD OBJECT KTP0 AS Xlabel WITH ;
		Caption = "Identitas:", ;
		Left = 25, ;
		Top = 196-50

	ADD OBJECT tKTP AS Xtextbox WITH ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 81, ;
		MaxLength = 30, ;
		Top = 193-50, ;
		Width = 269


	ADD OBJECT CATATAN0 AS Xlabel WITH ;
		Caption = "Catatan:", ;
		Left = 25, ;
		Top = 221-50

	ADD OBJECT tCatatan AS Xtextbox WITH ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 81, ;
		MaxLength = 30, ;
		Top = 219-50, ;
		Width = 269	


	ADD OBJECT TGL_LAHIR0 AS Xlabel WITH ;
		Caption = "Tanggal Lahir:", ;
		Left = 197, ;
		Top = 76-50
		

	ADD OBJECT tTanggal AS Xtextbox WITH ;
		Alignment = 2, ;
		Value = {}, ;
		Enabled = .F., ;
		Left = 270, ;
		Top = 72-50, ;
		Width = 80
		
	ADD OBJECT tGender AS optiongroup WITH ;
		ButtonCount = 3, ;
		BackStyle = 0, ;
		Value = 1, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 81, ;
		Top = 245-50, ;
		Width = 269, ;
		TabIndex = 10, ;
		Name = "tGender", ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<Laki", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Top = 5, ;
		Option1.Width = 41, ;
		Option1.AutoSize = .F., ;
		Option1.Name = "Option1", ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "\<Perempuan", ;
		Option2.Height = 17, ;
		Option2.Left = 72, ;
		Option2.Top = 5, ;
		Option2.Width = 83, ;
		Option2.AutoSize = .F., ;
		Option2.Name = "Option2", ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "\<Khusus", ;
		Option3.Height = 17, ;
		Option3.Left = 181, ;
		Option3.Top = 5, ;
		Option3.Width = 61, ;
		Option3.AutoSize = .F., ;
		Option3.Name = "Option3"


	ADD OBJECT tagama AS optiongroup WITH ;
		AutoSize = .F., ;
		ButtonCount = 6, ;
		BackStyle = 0, ;
		Value = 1, ;
		Enabled = .F., ;
		Height = 27, ;
		Left = 81, ;
		Top = 271-50, ;
		Width = 443, ;
		TabIndex = 12, ;
		Name = "tAgama", ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<Hindu", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 0, ;
		Option1.Top = 5, ;
		Option1.Width = 51, ;
		Option1.AutoSize = .T., ;
		Option1.Name = "Option1", ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "\<Islam", ;
		Option2.Height = 17, ;
		Option2.Left = 69, ;
		Option2.Style = 0, ;
		Option2.Top = 5, ;
		Option2.Width = 49, ;
		Option2.AutoSize = .T., ;
		Option2.Name = "Option2", ;
		Option3.BackStyle = 0, ;
		Option3.Caption = "\<Katolik", ;
		Option3.Height = 17, ;
		Option3.Left = 131, ;
		Option3.Style = 0, ;
		Option3.Top = 5, ;
		Option3.Width = 55, ;
		Option3.AutoSize = .T., ;
		Option3.Name = "Option3", ;
		Option4.BackStyle = 0, ;
		Option4.Caption = "\<Protestan", ;
		Option4.Height = 17, ;
		Option4.Left = 199, ;
		Option4.Style = 0, ;
		Option4.Top = 5, ;
		Option4.Width = 71, ;
		Option4.AutoSize = .T., ;
		Option4.Name = "Option4", ;
		Option5.BackStyle = 0, ;
		Option5.Caption = "\<Budha", ;
		Option5.Height = 17, ;
		Option5.Left = 283, ;
		Option5.Style = 0, ;
		Option5.Top = 5, ;
		Option5.Width = 54, ;
		Option5.AutoSize = .T., ;
		Option5.Name = "Option5", ;
		Option6.BackStyle = 0, ;
		Option6.Caption = "\<Lainnya", ;
		Option6.Height = 17, ;
		Option6.Left = 350, ;
		Option6.Style = 0, ;
		Option6.Top = 5, ;
		Option6.Width = 61, ;
		Option6.AutoSize = .T., ;
		Option6.Name = "Option6"


	ADD OBJECT label7 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Kelamin:", ;
		Height = 15, ;
		Left = 25, ;
		Top = 247-50, ;
		Width = 42, ;
		TabIndex = 19, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label7"


	ADD OBJECT label8 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Agama:", ;
		Height = 15, ;
		Left = 25, ;
		Top = 273-50, ;
		Width = 38, ;
		TabIndex = 22, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label8"


	ADD OBJECT label9 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Blokir:", ;
		Height = 15, ;
		Left = 358, ;
		Top = 251-50, ;
		Width = 31, ;
		TabIndex = 23, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label9"


	ADD OBJECT tblokir AS optiongroup WITH ;
		AutoSize = .F., ;
		ButtonCount = 2, ;
		BackStyle = 0, ;
		Value = 1, ;
		Enabled = .F., ;
		Height = 27, ;
		Left = 393, ;
		Top = 243-50, ;
		Width = 131, ;
		TabIndex = 11, ;
		Name = "tBlokir", ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<Ya", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 12, ;
		Option1.Top = 5, ;
		Option1.Width = 32, ;
		Option1.AutoSize = .T., ;
		Option1.Name = "Option1", ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "\<Tidak", ;
		Option2.Height = 17, ;
		Option2.Left = 76, ;
		Option2.Top = 6, ;
		Option2.Width = 48, ;
		Option2.AutoSize = .T., ;
		Option2.Name = "Option2"


	ADD OBJECT kosongkan AS image WITH ;
		Height = 17, ;
		Left = 384, ;
		Top = 75-50, ;
		Visible = .F., ;
		Width = 17, ;
		Name = "Kosongkan"
		

	ADD OBJECT rekam AS commandbutton WITH ;
		Top = 315, ;
		Left = 273, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Simpan", ;
		Name = "Rekam"


	ADD OBJECT hapus AS commandbutton WITH ;
		Top = 315, ;
		Left = 357, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Hapus", ;
		Name = "Hapus"


	ADD OBJECT cmdkembali AS commandbutton WITH ;
		Top = 315, ;
		Left = 441, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Kembali", ;
		Name = "cmdKembali"

	PROCEDURE Init
		THIS.MINWIDTH=THIS.WIDTH
		THIS.MINHEIGHT=THIS.HEIGHT
		This.Hapus.Visible=Dadi(11)
		This.Rekam.Visible=Dadi(10)
		THIS.SETALL("SELECTONENTRY",.F.,"TEXTBOX")
	ENDPROC
	
	
	PROCEDURE nbaru.GotFocus
		This.Parent.Kosongkan.Init
	ENDPROC


	PROCEDURE nbaru.Valid
		IF LASTKEY()=5 OR EMPTY(This.Value)
			RETURN -1
		ENDIF
		IF ALLTRIM(This.Value)="+"
			SELECT DN_MST
			SET ORDER TO 1
			GO BOTTOM
			This.Value=RIGHT('00000000'+ALLTRIM(STR(VAL(INDUK)+1,8)),8)
			ELSE
			This.Value=RIGHT('00000000'+ALLTRIM(This.Value),8)
		ENDIF
		SELECT DN_MST
		SET ORDER TO 1
		SEEK This.Value

		IF FOUND()
			This.Parent.Kosongkan.Click
			This.Parent.Kosongkan.RightClick
			This.Parent.REKam.Enabled=DADI(42)
			This.Parent.HAPUS.Enabled=DADI(43)
			RETURN 1
			ELSE
			This.Parent.Kosongkan.RightClick
			This.Parent.REKam.Enabled=DADI(41)
			RETURN 1
		ENDIF
		RETURN 0
	ENDPROC


	PROCEDURE nbaru.LostFocus
		IF NOT EMPTY(This.Value)
			IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.nBaru.Value),8)+'.JPG')
				This.Parent.tbFoto.Visible=.T.
				This.Parent.TbFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.nBaru.Value),8)+'.JPG'
				ELSE
				This.Parent.TbFoto.Picture=DATAFOTO+'00000000.JPG'
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE kosongkan.RightClick
		This.Parent.tNama.Enabled=.T.
		This.Parent.tAlamat.Enabled=.T.
		This.Parent.tKtp.Enabled=.T.
		This.Parent.tJob.Enabled=.T.
		This.Parent.tKota.Enabled=.T.
		This.Parent.tCATATAN.Enabled=.T.
		This.Parent.tGender.Enabled=.T.
		This.Parent.tBlokir.Enabled=.T.
		This.Parent.tTanggal.Enabled=.T.
		This.Parent.tAgama.Enabled=.T.
	ENDPROC


	PROCEDURE kosongkan.Click
		This.Parent.nBaru.Value=INDUK
		This.Parent.tNama.Value=NAMA
		This.Parent.tAlamat.Value=ALAMAT
		This.Parent.tKtp.Value=KTP
		This.Parent.tJob.Value=PEKERJAAN
		This.Parent.tKota.Value=KOTA
		This.Parent.tCATATAN.Value=CATATAN
		This.Parent.tGender.Value=IIF(GENDER="L",1,IIF(GENDER="P",2,3))
		This.Parent.tBlokir.Value=IIF(BLOKIR="B",1,2)
		This.Parent.tTanggal.Value=TGL_TRS
		This.Parent.tAgama.Value=IIF(AGAMA="H",1,IIF(AGAMA="I",2,IIF(AGAMA="K",3,IIF(AGAMA="P",4,IIF(AGAMA="B",5,6)))))
	ENDPROC


	PROCEDURE kosongkan.Init
		This.Parent.nBaru.Value=""
		This.Parent.tNama.Value=""
		This.Parent.tAlamat.Value=""
		This.Parent.tKtp.Value=""
		This.Parent.tJob.Value=""
		This.Parent.tKota.Value=""
		This.Parent.tCATATAN.Value=""
		This.Parent.tGender.Value=0
		This.Parent.tBlokir.Value=0
		This.Parent.tTanggal.Value=CTOD("")
		This.Parent.tAgama.Value=0
		This.Parent.tNama.Enabled=.f.
		This.Parent.tAlamat.Enabled=.f.
		This.Parent.tKtp.Enabled=.f.
		This.Parent.tJob.Enabled=.f.
		This.Parent.tKota.Enabled=.f.
		This.Parent.tCATATAN.Enabled=.f.
		This.Parent.tGender.Enabled=.f.
		This.Parent.tBlokir.Enabled=.f.
		This.Parent.tTanggal.Enabled=.f.
		This.Parent.tAgama.Enabled=.f.
		This.Parent.nBaru.SetFocus
	ENDPROC


	PROCEDURE rekam.Click
		IF !EMPTY(This.Parent.nBaru.Value)
			SELECT DN_MST
			SET ORDER TO 1
			SEEK This.Parent.NBaru.Value
			IF !FOUND()
				IF Kunci_fi(15)
					APPEND BLANK
				ENDIF
			ENDIF
			REPLACE INDUK WITH This.Parent.nBaru.Value,;
				NAMA WITH This.Parent.tNama.Value,;
				ALAMAT WITH This.Parent.tAlamat.Value,;
				KOTA WITH This.Parent.tKOTA.Value,;
				KTP WITH This.Parent.tKtp.Value,;
				PEKERJAAN WITH This.Parent.tJob.Value,;
				CATATAN WITH This.Parent.tcATATAN.Value,;
				TGL_TRS WITH THIS.Parent.tTanggal.Value,;
				GENDER WITH IIF(This.Parent.tGender.Value=1,"L",IIF(This.Parent.tGender.Value=2,"P","K")),;
				AGAMA WITH IIF(This.Parent.tAgama.Value=1,"H",IIF(This.Parent.tAgama.Value=2,"I",;
						IIF(This.Parent.tAgama.Value=3,"K",IIF(This.Parent.tAgama.Value=4,"P",;
						IIF(This.Parent.tAgama.Value=5,"B","L"))))),;
				BLOKIR WITH IIF(This.Parent.tBLOKIR.Value=1,"B","")
			FLUSH
			UNLOCK
			This.Parent.nBaru.SetFocus
		ENDIF		
	ENDPROC


	PROCEDURE hapus.Click
		IF !EMPTY(This.Parent.nBaru.Value)
		SELECT DN_MST
		SET ORDER TO 1
		SEEK This.Parent.nBaru.Value
		IF FOUND()
			IF KUNCI_RC(10)
				DELETE
				FLUSH
				UNLOCK
				This.Parent.nBaru.SetFocus
			ENDIF
		ENDIF
		ENDIF
		
	ENDPROC
	
	PROCEDURE cmdKembali.Click
		RELEASE oGasyDn
	ENDPROC
	
ENDDEFINE
*
*-- EndDefine: dn000
**************************************************

PROCEDURE GASYTBL
	PUBLIC oGasyTBL
	AUSED(OLDTABEL)
	IF !GASYKLAS()
	    RETURN
	ENDIF
	oGasyTBL=CREATEOBJECT("GasyTbl1")
	oGasyTBL.Show
ENDPROC

DEFINE CLASS GasyTbl1 AS form
	Caption="Setup File Interface"
	AutoCenter = .T.
	MinHeight = 200
	MinWidth = 408	
	MaxButton= .F.	
	Icon = "bmps\arw03up.ico"
	BackColor = RGB(144,176,168)

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Kode Klasifikasi: ", ;
		Height = 18, ;
		Left = 19, ;
		Top = 14, ;
		Width = 122, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Keterangan: ", ;
		Height = 18, ;
		Left = 51, ;
		Top = 41, ;
		Width = 90, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Kode : ", ;
		Height = 18, ;
		Left = 90, ;
		Top = 95, ;
		Width = 51, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label3"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Keterangan: ", ;
		Height = 18, ;
		Left = 51, ;
		Top = 122, ;
		Width = 90, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label4"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Jumlah Karakter: ", ;
		Height = 18, ;
		Left = 19, ;
		Top = 68, ;
		Width = 122, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label5"


	ADD OBJECT text1 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 3, ;
		Top = 12, ;
		Width = 45, ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 60, ;
		Top = 39, ;
		Width = 239, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "Text2"


	ADD OBJECT text3 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 3, ;
		Value = 1, ;
		Format = "999", ;
		Height = 28, ;
		InputMask = "999", ;
		Left = 145, ;
		MaxLength = 3, ;
		Top = 66, ;
		Width = 45, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "Text3"


	ADD OBJECT text4 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 10, ;
		Top = 93, ;
		Width = 100, ;
		Name = "Text4"


	ADD OBJECT text5 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 60, ;
		Top = 120, ;
		Width = 239, ;
		Name = "Text5"


	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 159, ;
		Left = 145, ;
		Height = 23, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "  \<Rekam", ;
		Name = "Command1"

	ADD OBJECT Cetak AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 159, ;
		Left = 215, ;
		Height = 23, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "  \<Cetak", ;
		Name = "Cetak"

	ADD OBJECT _Close AS commandbutton WITH ;
		Top = 159, ;
		Left = 328, ;
		Height = 23, ;
		Width = 56, ;
		Caption ='E\<XIT',;
		Name = "_Close"


	ADD OBJECT lihat AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 93, ;
		Left = 249, ;
		Height = 23, ;
		Width = 39, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "....", ;
		Name = "Lihat"


	PROCEDURE Destroy		
		TUTUPDBF()		
	ENDPROC


	PROCEDURE text1.LostFocus
		IF !EMPTY(This.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				SET ORDER TO 1
				SEEK ALLTRIM(This.Value)
				IF FOUND()
					This.Parent.Text2.Value=NAMAKLP
					This.Parent.Text3.Value=LEBAR
					This.Parent.Text2.Enabled=.T.
					This.Parent.Text3.Enabled=.T.
					This.Parent.Text4.MaxLength=Lebar
					ELSE
					This.Parent.Text2.Enabled=.T.
					This.Parent.Text3.Enabled=.T.
				ENDIF
			ENDIF		
		ENDIF		
	ENDPROC


	PROCEDURE text1.Valid
		IF LASTKEY()=27 OR EMPTY(This.Value)
			RETURN -1
		ENDIF
		RETURN 1
	ENDPROC


	PROCEDURE text2.LostFocus
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE text3.LostFocus
		This.Parent.Text4.MaxLength=This.Value
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE text4.RightClick
		This.Parent.Lihat.Click
	ENDPROC


	PROCEDURE text4.LostFocus
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE text4.Valid
		IF LASTKEY()=27 OR LASTKEY()=5 OR EMPTY(THIS.Value)
			RETURN -1
		ENDIF
		SELECT GASYKLAS
		SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Value)
		IF FOUND()
			IniPesan("Kode ini sudah direkam!")
			This.Parent.Text5.Value=Keterangan
			RETURN 1
		ENDIF
		RETURN 1
	ENDPROC


	PROCEDURE command1.Click
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
		IF EMPTY(This.Parent.Text4.Value) OR EMPTY(This.Parent.Text5.Value)
			This.Parent.Text4.Setfocus
		ENDIF
		
		IF GASYKLAS()
			SELECT GASYKLAS
			SET ORDER TO 1
			IF KUNCI_FI(10)
				SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Parent.Text4.Value)
				IF NOT FOUND()
					APPEND BLANK
					REPLACE KLP WITH This.Parent.Text1.Value,;
					NAMAKLP WITH This.Parent.Text2.Value,;
					LEBAR WITH This.Parent.Text3.Value,;
					KODE WITH This.Parent.Text4.Value,;
					KETERANGAN WITH This.Parent.Text5.Value
					FLUSH
					UNLOCK
					ELSE					
					REPLACE KETERANGAN WITH This.Parent.Text5.Value
					FLUSH					
					UNLOCK										
				ENDIF
			ENDIF
		ENDIF
		This.Parent.Text4.Value=""
		This.Parent.Text5.Value=""
		This.Parent.Text4.SetFocus
	ENDPROC


	PROCEDURE _Close.Click
		RELEASE oGasyTBL
	ENDPROC


	PROCEDURE lihat.Click
		IF !EMPTY(This.Parent.Text1.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				SELECT KODE,KETERANGAN,NAMAKLP FROM GASYKLAS WHERE KLP=This.Parent.Text1.Value ORDER BY KODE INTO CURSOR KlasNsb
				SELECT KlasNsb
				DEFINE POPUP SANDI FROM MROW(),MCOL() FONT "Courier",8 PROMPT FIELD KODE+" "+ALLTRIM(KETERANGAN) ;
			 		SHORTCUT TITLE NAMAKLP COLOR SCHEME 4
				ON SELECTION POPUP SANDI BAR()
				ACTIVATE POPUP SANDI
				DEACTIVATE POPUP SANDI
				RELEASE POPUPS SANDI EXTENDED
				TUTUP("KlasNsb")
			ENDIF
		ENDIF
	ENDPROC
	
	
	PROCEDURE CETAK.CLICK
		SELECT GASYKLAS
		PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface')
	ENDPROC
	
	
	PROCEDURE CETAK.RIGHTCLICK
		SELECT * FROM GASYKLAS WHERE KLP==THISFORM.TEXT1.VALUE INTO CURSOR HASIL
		SELECT HASIL
		GO TOP
		IF EOF()
			PESAN('Data kosong')
			RETURN
		ENDIF		
		PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface')
		TUTUP('HASIL')
	ENDPROC
	

ENDDEFINE
*
*-- EndDefine: gasyklas
**************************************************

PROCEDURE GASYTBL(IKLP,INAMAKLP)
	PUBLIC oGasyTBL
	IF !GASYKLAS()
	    RETURN
	ENDIF
	oGasyTBL=CREATEOBJECT("GasyTbl1",IKLP,INAMAKLP)
	oGasyTBL.Show(1)
ENDPROC


DEFINE CLASS GasyTbl1 AS form 
	Autocenter=.T.
	Caption="Setup File Interface"
	Height = 248-50
	Width = 408	
	MinHeight = 248-50
	MinWidth = 408	
	DoCreate = .T.
	MaxButton= .F.	
	MINButton= .F.
	BORDERSTYLE=1
	Icon = _screen.icon
	WindowType = 1
	BackColor = RGB(144,176,168)

	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Kode Klasifikasi: ", ;
		Height = 18, ;
		Left = 19, ;
		Top = 14, ;
		Width = 122, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192)


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Keterangan: ", ;
		Height = 18, ;
		Left = 51, ;
		Top = 41, ;
		Width = 90, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192)


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Kode : ", ;
		Height = 18, ;
		Left = 90, ;
		Top = 95, ;
		Width = 51, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192)


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Keterangan: ", ;
		Height = 18, ;
		Left = 51, ;
		Top = 122, ;
		Width = 90, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192)


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "Jumlah Karakter: ", ;
		Height = 18, ;
		Left = 19, ;
		Top = 68, ;
		Width = 122, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192)


	ADD OBJECT text1 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 3, ;
		Top = 12, ;
		Width = 45

	ADD OBJECT text2 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 60, ;
		Top = 39, ;
		Width = 239, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255)


	ADD OBJECT text3 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 3, ;
		Value = 1, ;
		Format = "999", ;
		Height = 28, ;
		InputMask = "999", ;
		Left = 145, ;
		MaxLength = 3, ;
		Top = 66, ;
		Width = 45, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255)


	ADD OBJECT text4 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 10, ;
		Top = 93, ;
		Width = 100,;
		INPUTMASK=REPLICATE('!',10)


	ADD OBJECT text41 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 245, ;
		MaxLength = 10, ;
		Top = 93, ;
		Width = 100,;
		INPUTMASK=REPLICATE('!',10)

	ADD OBJECT text5 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 28, ;
		Left = 145, ;
		MaxLength = 60, ;
		Top = 120, ;
		Width = 239
		
	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 159, ;
		Left = 145, ;
		Height = 23, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "  \<Rekam"

	ADD OBJECT Cetak AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 159, ;
		Left = 215, ;
		Height = 23, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "  \<Cetak"

	ADD OBJECT _Close AS commandbutton WITH ;
		Top = 159, ;
		Left = 328, ;
		Height = 23, ;
		Width = 56, ;
		Caption ='E\<XIT'


	ADD OBJECT lihat AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 93, ;
		Left = 350, ;
		Height = 23, ;
		Width = 39, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "...."

	PROCEDURE INIT
		LPARAMETERS IKLP1,INAMAKLP1
		IF TYPE("IKLP1")="C" AND TYPE("INAMAKLP1")="C"
			THIS.TEXT1.VALUE=IKLP1
			THIS.TEXT2.VALUE=INAMAKLP1
			THIS.TEXT1.STYLE=1
			THIS.TEXT2.STYLE=1
			THIS.TEXT3.VALUE=0
		ENDIF
		
	ENDPROC

	PROCEDURE text1.LostFocus
		IF !EMPTY(This.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				SET ORDER TO 1
				SEEK ALLTRIM(This.Value)
				IF FOUND()
					This.Parent.Text2.Value=NAMAKLP
					This.Parent.Text3.Value=LEBAR
					This.Parent.Text2.Enabled=.T.
					This.Parent.Text3.Enabled=.T.
					This.Parent.Text4.MaxLength=Lebar
					ELSE
					This.Parent.Text2.Enabled=.T.
					This.Parent.Text3.Enabled=.T.
				ENDIF
			ENDIF		
		ENDIF		
	ENDPROC


	PROCEDURE text1.Valid
		IF LASTKEY()=27 OR EMPTY(This.Value)
			RETURN -1
		ENDIF
		RETURN 1
	ENDPROC


	PROCEDURE text2.LostFocus
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE text3.LostFocus
		This.Parent.Text4.MaxLength=This.Value
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE text4.RightClick
		This.Parent.Lihat.Click
	ENDPROC


	PROCEDURE text4.LostFocus
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
	ENDPROC


	PROCEDURE text4.Valid
		IF LASTKEY()=27 OR LASTKEY()=5 OR EMPTY(THIS.Value)
			RETURN -1
		ENDIF
		IF !GASYKLAS()
			RETURN
		ENDIF
		
		SELECT GASYKLAS
		SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Value)
		IF FOUND()
			IniPesan("Kode ini sudah direkam!")
			THIS.PARENT.TEXT41.VALUE=KONDISI
			This.Parent.Text5.Value=Keterangan
			RETURN 1
		ENDIF
		RETURN 1
	ENDPROC


	PROCEDURE command1.Click
		IF EMPTY(This.Parent.Text1.Value)
			This.Parent.Text1.SetFocus
		ENDIF
		IF EMPTY(This.Parent.Text4.Value) OR EMPTY(This.Parent.Text5.Value)
			This.Parent.Text4.Setfocus
		ENDIF
		
		IF GASYKLAS()
			SELECT GASYKLAS
			SET ORDER TO 1
			IF KUNCI_FI(10)
				SEEK ALLTRIM(This.Parent.Text1.Value)+ALLTRIM(This.Parent.Text4.Value)
				IF NOT FOUND()
					APPEND BLANK
					REPLACE KLP WITH This.Parent.Text1.Value,;
					NAMAKLP WITH This.Parent.Text2.Value,;
					LEBAR WITH This.Parent.Text3.Value,;
					KODE WITH This.Parent.Text4.Value,;
					KETERANGAN WITH This.Parent.Text5.Value,;
					KONDISI WITH THIS.PARENT.TEXT41.VALUE
					FLUSH
					UNLOCK
					ELSE					
					REPLACE KETERANGAN WITH This.Parent.Text5.Value,;
					KONDISI WITH THIS.PARENT.TEXT41.VALUE
					FLUSH					
					UNLOCK										
				ENDIF
			ENDIF
		ENDIF
		This.Parent.Text4.Value=""
		This.Parent.Text5.Value=""
		This.Parent.Text4.SetFocus
	ENDPROC


	PROCEDURE _Close.Click
		RELEASE oGasyTBL
	ENDPROC


	PROCEDURE lihat.Click
		IF !EMPTY(This.Parent.Text1.Value)
			IF GASYKLAS()
				SELECT GASYKLAS
				SELECT KODE,KETERANGAN,NAMAKLP FROM GASYKLAS WHERE KLP=This.Parent.Text1.Value ORDER BY KODE INTO CURSOR KlasNsb
				SELECT KlasNsb
				DEFINE POPUP SANDI FROM MROW(),MCOL() FONT "Courier",8 PROMPT FIELD KODE+" "+ALLTRIM(KETERANGAN) ;
			 		SHORTCUT TITLE NAMAKLP COLOR SCHEME 4
				ON SELECTION POPUP SANDI BAR()
				ACTIVATE POPUP SANDI
				IF BAR()>0
					THIS.PARENT.TEXT4.VALUE=KODE
					THIS.PARENT.TEXT4.SETFOCUS
				ENDIF
				DEACTIVATE POPUP SANDI
				RELEASE POPUPS SANDI EXTENDED
				TUTUP("KlasNsb")
			ENDIF
		ENDIF
	ENDPROC
	
	
	PROCEDURE CETAK.CLICK
		ALAMATDL=ALAMATNYA("ADI")
		IF !GASYKLAS()
			RETURN
		ENDIF
		
		SELECT GASYKLAS
		PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface')
	ENDPROC
	
	
	PROCEDURE CETAK.RIGHTCLICK
		ALAMATDL=ALAMATNYA("ADI")
		IF !GASYKLAS()
			RETURN
		ENDIF
		
		SELECT * FROM GASYKLAS WHERE KLP==THISFORM.TEXT1.VALUE INTO CURSOR HASIL
		SELECT HASIL
		GO TOP
		IF EOF()
			PESAN('Data kosong')
			RETURN
		ENDIF		
		PROCETAK(Alamatdl+'Laporan\Ak_DaftarInterface')
		TUTUP('HASIL')
	ENDPROC
	

ENDDEFINE
*
*-- EndDefine: gasyklas
**************************************************

PUBLIC ofakbbt

SET CLASSLIB TO c:\users\hp\vfp8\prg\progasy.vcx ADDITIVE

ofakbbt=NEWOBJECT("fakbbt")
ofakbbt.Show
RETURN


	**************************************************
*-- Form:         fakbbt (c:\users\hp\vfp8\libs\ledger.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   12/22/24 08:34:01 PM
*
DEFINE CLASS fakbbt AS form


	Top = 0
	Left = 0
	Height = 450
	Width = 750
	ShowWindow = 1
	DoCreate = .T.
	AutoCenter = .F.
	BorderStyle = 3
	Caption = "Buku Besar"
	ControlBox = .T.
	FontSize = 10
	HalfHeightCaption = .F.
	MaxButton = .F.
	MinButton = .F.
	Icon = "..\bmps\checkmrk.ico"
	TitleBar = 1
	WindowType = 0
	WindowState = 0
	BackColor = RGB(144,176,168)
	Name = "FAKBBT"
	xoffset = .F.
	yoffset = .F.
	ijenis = .F.


	ADD OBJECT sld00 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 5, ;
		Top = 33, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD00"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Saldo Debet", ;
		Height = 15, ;
		Left = 459, ;
		Top = 14, ;
		Width = 73, ;
		TabIndex = 6, ;
		Name = "Label1"


	ADD OBJECT dbl01 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 7, ;
		Top = 59, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL01"


	ADD OBJECT kbl01 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 8, ;
		Top = 59, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL01"


	ADD OBJECT sld01 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 9, ;
		Top = 59, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD01"


	ADD OBJECT dbl02 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 10, ;
		Top = 84, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL02"


	ADD OBJECT kbl02 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 11, ;
		Top = 84, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL02"


	ADD OBJECT sld02 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 12, ;
		Top = 84, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD02"


	ADD OBJECT dbl03 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 13, ;
		Top = 109, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL03"


	ADD OBJECT kbl03 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 14, ;
		Top = 109, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL03"


	ADD OBJECT sld03 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 15, ;
		Top = 109, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD03"


	ADD OBJECT dbl04 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 16, ;
		Top = 134, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL04"


	ADD OBJECT kbl04 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 17, ;
		Top = 134, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL04"


	ADD OBJECT sld04 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 18, ;
		Top = 134, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD04"


	ADD OBJECT dbl05 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 19, ;
		Top = 160, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL05"


	ADD OBJECT kbl05 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 20, ;
		Top = 160, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL05"


	ADD OBJECT sld05 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 21, ;
		Top = 160, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD05"


	ADD OBJECT dbl06 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 22, ;
		Top = 185, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL06"


	ADD OBJECT kbl06 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 23, ;
		Top = 185, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL06"


	ADD OBJECT sld06 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 24, ;
		Top = 185, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD06"


	ADD OBJECT dbl07 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 25, ;
		Top = 210, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL07"


	ADD OBJECT kbl07 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 26, ;
		Top = 210, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL07"


	ADD OBJECT sld07 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 27, ;
		Top = 210, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD07"


	ADD OBJECT dbl08 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 28, ;
		Top = 235, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL08"


	ADD OBJECT kbl08 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 29, ;
		Top = 235, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL08"


	ADD OBJECT sld08 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 30, ;
		Top = 235, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD08"


	ADD OBJECT dbl09 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 31, ;
		Top = 260, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL09"


	ADD OBJECT kbl09 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 32, ;
		Top = 260, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL09"


	ADD OBJECT sld09 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 33, ;
		Top = 260, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD09"


	ADD OBJECT dbl10 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 34, ;
		Top = 286, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL10"


	ADD OBJECT kbl10 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 35, ;
		Top = 286, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL10"


	ADD OBJECT sld10 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 36, ;
		Top = 286, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD10"


	ADD OBJECT dbl11 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 37, ;
		Top = 312, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL11"


	ADD OBJECT kbl11 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 38, ;
		Top = 312, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL11"


	ADD OBJECT sld11 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 39, ;
		Top = 312, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD11"


	ADD OBJECT dbl12 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 40, ;
		Top = 337, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "DBL12"


	ADD OBJECT kbl12 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 41, ;
		Top = 337, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "KBL12"


	ADD OBJECT sld12 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 387, ;
		TabIndex = 42, ;
		Top = 337, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLD12"


	ADD OBJECT ttdb AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 91, ;
		TabIndex = 43, ;
		Top = 363, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "TTDB"


	ADD OBJECT ttkb AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 239, ;
		TabIndex = 44, ;
		Top = 363, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "TTKB"


	ADD OBJECT label17 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Total Mutasi", ;
		Height = 15, ;
		Left = 9, ;
		Top = 367, ;
		Width = 73, ;
		TabIndex = 45, ;
		Name = "Label17"


	ADD OBJECT label10 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Mutasi Kredit", ;
		Height = 15, ;
		Left = 307, ;
		Top = 40, ;
		Width = 77, ;
		TabIndex = 48, ;
		Name = "Label10"


	ADD OBJECT label11 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Mutasi Debet", ;
		Height = 15, ;
		Left = 158, ;
		Top = 40, ;
		Width = 78, ;
		TabIndex = 49, ;
		Name = "Label11"


	ADD OBJECT xnoper AS textbox WITH ;
		Height = 25, ;
		Left = 8, ;
		MaxLength = 10, ;
		SelectOnEntry = .T., ;
		TabIndex = 1, ;
		Top = 8, ;
		Width = 79, ;
		Name = "xNoper"


	ADD OBJECT xnaper AS textbox WITH ;
		Height = 25, ;
		Left = 91, ;
		TabIndex = 50, ;
		Top = 8, ;
		Width = 293, ;
		Style = 1, ;
		Name = "xNaper"


	ADD OBJECT check1 AS checkbox WITH ;
		Top = 59, ;
		Left = 9, ;
		Height = 15, ;
		Width = 52, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Januari", ;
		TabIndex = 51, ;
		Name = "Check1"


	ADD OBJECT check2 AS checkbox WITH ;
		Top = 86, ;
		Left = 9, ;
		Height = 15, ;
		Width = 56, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Februari", ;
		TabIndex = 52, ;
		Name = "Check2"


	ADD OBJECT check3 AS checkbox WITH ;
		Top = 111, ;
		Left = 9, ;
		Height = 15, ;
		Width = 45, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Maret", ;
		TabIndex = 53, ;
		Name = "Check3"


	ADD OBJECT check4 AS checkbox WITH ;
		Top = 137, ;
		Left = 9, ;
		Height = 15, ;
		Width = 38, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "April", ;
		TabIndex = 54, ;
		Name = "Check4"


	ADD OBJECT check5 AS checkbox WITH ;
		Top = 163, ;
		Left = 9, ;
		Height = 15, ;
		Width = 35, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Mei", ;
		TabIndex = 55, ;
		Name = "Check5"


	ADD OBJECT check6 AS checkbox WITH ;
		Top = 189, ;
		Left = 9, ;
		Height = 15, ;
		Width = 37, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Juni", ;
		TabIndex = 56, ;
		Name = "Check6"


	ADD OBJECT check7 AS checkbox WITH ;
		Top = 215, ;
		Left = 9, ;
		Height = 15, ;
		Width = 33, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Juli", ;
		TabIndex = 57, ;
		Name = "Check7"


	ADD OBJECT check8 AS checkbox WITH ;
		Top = 240, ;
		Left = 9, ;
		Height = 15, ;
		Width = 56, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Agustus", ;
		TabIndex = 58, ;
		Name = "Check8"


	ADD OBJECT check9 AS checkbox WITH ;
		Top = 265, ;
		Left = 9, ;
		Height = 15, ;
		Width = 69, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "September", ;
		TabIndex = 59, ;
		Name = "Check9"


	ADD OBJECT check10 AS checkbox WITH ;
		Top = 291, ;
		Left = 9, ;
		Height = 15, ;
		Width = 56, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Oktober", ;
		TabIndex = 60, ;
		Name = "Check10"


	ADD OBJECT check11 AS checkbox WITH ;
		Top = 317, ;
		Left = 9, ;
		Height = 15, ;
		Width = 70, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nopermber", ;
		TabIndex = 61, ;
		Name = "Check11"


	ADD OBJECT check12 AS checkbox WITH ;
		Top = 341, ;
		Left = 9, ;
		Height = 15, ;
		Width = 66, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Desember", ;
		TabIndex = 62, ;
		Name = "Check12"


	ADD OBJECT sldkr00 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 5, ;
		Top = 33, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR00"


	ADD OBJECT sldkr01 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 9, ;
		Top = 59, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR01"


	ADD OBJECT sldkr02 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 12, ;
		Top = 84, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR02"


	ADD OBJECT sldkr03 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 15, ;
		Top = 109, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR03"


	ADD OBJECT sldkr04 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 18, ;
		Top = 134, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR04"


	ADD OBJECT sldkr05 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 21, ;
		Top = 160, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR05"


	ADD OBJECT sldkr06 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 24, ;
		Top = 185, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR06"


	ADD OBJECT sldkr07 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 27, ;
		Top = 210, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR07"


	ADD OBJECT sldkr08 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 30, ;
		Top = 235, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR08"


	ADD OBJECT sldkr09 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 33, ;
		Top = 260, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR09"


	ADD OBJECT sldkr10 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 36, ;
		Top = 286, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR10"


	ADD OBJECT sldkr11 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 39, ;
		Top = 312, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR11"


	ADD OBJECT sldkr12 AS textbox WITH ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999,999,999,999.99", ;
		Height = 26, ;
		InputMask = "999,999,999,999.99", ;
		Left = 533, ;
		TabIndex = 42, ;
		Top = 337, ;
		Width = 145, ;
		Style = 1, ;
		DisabledBackColor = RGB(255,255,255), ;
		Name = "SLDKR12"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Saldo Kredit", ;
		Height = 15, ;
		Left = 606, ;
		Top = 14, ;
		Width = 72, ;
		TabIndex = 6, ;
		Name = "Label3"


	ADD OBJECT line1 AS line WITH ;
		Height = 0, ;
		Left = 1, ;
		Top = 390, ;
		Width = 748, ;
		BorderColor = RGB(128,128,128), ;
		Name = "Line1"


	ADD OBJECT _rekord1 AS _rekord WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Height = 240, ;
		Left = 693, ;
		Top = 28, ;
		Width = 44, ;
		Visible = .T., ;
		Name = "_rekord1", ;
		AWAL.Top = 71, ;
		AWAL.Left = 5, ;
		AWAL.Name = "AWAL", ;
		MUNDUR.Top = 104, ;
		MUNDUR.Left = 5, ;
		MUNDUR.Name = "MUNDUR", ;
		MAJU.Top = 137, ;
		MAJU.Left = 5, ;
		MAJU.Name = "MAJU", ;
		AKHIR.Top = 170, ;
		AKHIR.Left = 5, ;
		AKHIR.Name = "AKHIR", ;
		CARI.Top = 38, ;
		CARI.Left = 5, ;
		CARI.Name = "CARI", ;
		CKON.Comment = "PBBT", ;
		CKON.Top = 5, ;
		CKON.Left = 5, ;
		CKON.ToolTipText = "View daftar kondisi/prosedur, PBBT", ;
		CKON.Name = "CKON", ;
		CETAK.Comment = "ABT", ;
		CETAK.Top = 203, ;
		CETAK.Left = 5, ;
		CETAK.Height = 32, ;
		CETAK.Width = 34, ;
		CETAK.Name = "CETAK"


	ADD OBJECT kembali AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 404, ;
		Left = 649, ;
		Height = 27, ;
		Width = 88, ;
		Caption = "E\<XIT", ;
		ToolTipText = "Kembali", ;
		Name = "KEMBALI"


	ADD OBJECT cmdharian AS commandbutton WITH ;
		Top = 404, ;
		Left = 387, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Harian", ;
		ToolTipText = "View buku besar harian", ;
		Name = "cmdHarian"


	ADD OBJECT cmdbulanan AS commandbutton WITH ;
		Top = 404, ;
		Left = 471, ;
		Height = 27, ;
		Width = 87, ;
		Caption = "\<Bulanan", ;
		ToolTipText = "View buku besar bulanan", ;
		Name = "cmdBulanan"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Bulan", ;
		Height = 15, ;
		Left = 8, ;
		Top = 40, ;
		Width = 35, ;
		TabIndex = 46, ;
		Name = "Label4"


	ADD OBJECT line2 AS line WITH ;
		Height = 0, ;
		Left = 1, ;
		Top = 33, ;
		Width = 748, ;
		BorderColor = RGB(128,128,128), ;
		Name = "Line2"


	ADD OBJECT cgeneral AS checkbox WITH ;
		Top = 367, ;
		Left = 574, ;
		Height = 17, ;
		Width = 104, ;
		AutoSize = .T., ;
		Alignment = 1, ;
		BackStyle = 0, ;
		Caption = "\<General Ledger", ;
		Name = "cGeneral"


	ADD OBJECT cmdperiodik AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 404, ;
		Left = 9, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Proses", ;
		ToolTipText = "Proses buku besar kumulatif bulanan", ;
		Name = "cmdPeriodik"


	ADD OBJECT cdetail AS optiongroup WITH ;
		AutoSize = .T., ;
		ButtonCount = 2, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Value = 0, ;
		Height = 27, ;
		Left = 454, ;
		Top = 363, ;
		Width = 111, ;
		Name = "cDetail", ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "\<Rinci", ;
		Option1.Value = 0, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 0, ;
		Option1.ToolTipText = "Rinci per bukti transaksi", ;
		Option1.Top = 5, ;
		Option1.Width = 46, ;
		Option1.AutoSize = .T., ;
		Option1.Name = "Option1", ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "\<Rekap", ;
		Option2.Height = 17, ;
		Option2.Left = 52, ;
		Option2.Style = 0, ;
		Option2.ToolTipText = "Rekap per tanggal transaksi", ;
		Option2.Top = 5, ;
		Option2.Width = 54, ;
		Option2.AutoSize = .T., ;
		Option2.Name = "Option2"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Detail Ledger", ;
		Height = 15, ;
		Left = 388, ;
		Top = 368, ;
		Width = 65, ;
		TabIndex = 46, ;
		Name = "Label2"


	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 404, ;
		Left = 558, ;
		Height = 27, ;
		Width = 91, ;
		Caption = "\<Refresh", ;
		ToolTipText = "View mutasi rekening yang dipilih", ;
		Name = "Command1"


	ADD OBJECT postingulang AS commandbutton WITH ;
		Top = 404, ;
		Left = 93, ;
		Height = 27, ;
		Width = 217, ;
		Caption = "\<Posting Ulang Transaksi", ;
		Enabled = .T., ;
		DisabledForeColor = RGB(64,0,128), ;
		Name = "PostingUlang"


	ADD OBJECT cetak AS commandbutton WITH ;
		AutoSize = .F., ;
		Top = 404, ;
		Left = 311, ;
		Height = 27, ;
		Width = 76, ;
		Caption = "\<Cetak", ;
		Name = "Cetak"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 271, ;
		Left = 696, ;
		Height = 41, ;
		Width = 38, ;
		Picture = "..\bmps\graph07.ico", ;
		Caption = "", ;
		Name = "Command2"


	PROCEDURE mutasisaldo
		LOCAL mJmldb, mJmlKr, mSaldoDb, mSaldoKr, Angka, Angkanya

		STORE 0 TO mJmldb, mJmlKr, mSaldoDb, mSaldoKr, Angka, Angkanya

		FOR Angka=1 TO 12
			mChek='Thisform.Check'+ALLTRIM(STR(Angka,2))+'.Value'
			IF &mChek=1
				Angkanya=Angka
			ENDIF
		ENDFOR


		IF USED('AK_MST')
			SELECT AK_MST
			SET ORDER TO 1
			THIS.IJenis=AK_MST.JENIS
			IF AK_MST.JENIS$"ABS"
				Thisform.SLD00.Value=IIF(DBBLA-KRBLA>0,DBBLA-KRBLA,0)
				Thisform.SLDKR00.Value=IIF(DBBLA-KRBLA<0,KRBLA-DBBLA,0)
				ELSE
				Thisform.SLD00.Value=IIF(DBBLA-KRBLA<0,0,DBBLA-KRBLA)
				Thisform.SLDKR00.Value=IIF(KRBLA-DBBLA>0,KRBLA-DBBLA,0)
			ENDIF

			FOR Nom=1 TO 12

				mNolkan='Thisform.Sld'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
				&mNolkan=0
				mNolkan='Thisform.SldKR'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
				&mNolkan=0
				mNolkan='Thisform.Dbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
				&mNolkan=0
				mNolkan='Thisform.Kbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
				&mNolkan=0

				mChek='Thisform.Check'+ALLTRIM(STR(Nom,2))+'.Value'

				IF &mChek=1
					mNolkan='Thisform.Sld'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
					&mNolkan=0
					mNolkan='Thisform.SldKR'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
					&mNolkan=0
					mDb='DBBLI'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)
					mNolkan='Thisform.Dbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
					&mNolkan=&mDB
					mJmlDb=mJmlDb+&mDb
					mKr='KRBLI'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)
					mNolkan='Thisform.Kbl'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
					&mNolkan=&mKr
					mJmlKr=mJmlKr+&mKr
				ENDIF

				mSaldoDb='Thisform.SLD'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'
				mSaldoKr='Thisform.SLDKR'+RIGHT('00'+ALLTRIM(STR(Nom,2)),2)+'.Value'

				IF AK_MST.JENIS$"ABS"
					mSaldo=AK_SALDO(AK_MST.Jenis,MIN(Nom,Angkanya))
					&mSaldoDb=IIF(mSaldo>0,mSaldo,0)
					&mSaldoKr=IIF(mSaldo<0,ABS(mSaldo),0)
					ELSE
					mSaldo=AK_SALDO(AK_MST.Jenis,MIN(Nom,Angkanya))
					&mSaldoDb=IIF(mSaldo<0,ABS(mSaldo),0)
					&mSaldoKr=IIF(mSaldo>0,mSaldo,0)
				ENDIF

			ENDFOR


			Thisform.TTDB.Value=mJmldb
			Thisform.TTKB.Value=mJmlkr

			IF TYPE('Thisform.AkUmum')=='O'
				Thisform.RemoveObject('AkUmum')
			ENDIF
			IF TYPE('Thisform.AkRinci')=='O'
				Thisform.RemoveObject('AkRinci')
			ENDIF

			IF Thisform.cGeneral.Value=1
				Thisform.Umum
			ENDIF
			IF Thisform.cDetail.Option1.Value=1
				Thisform.Rincian
			ENDIF
			IF Thisform.cDetail.Option2.Value=1
				Thisform.Rekapan
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE cheker
		PARAMETERS mCekNilai,mPosisi
		LOCAL Nom, mNilai, mNilai1, mNilai2

		FOR Nom=1 TO mPosisi-1
			mNilai1='This.Check'+ALLTRIM(STR(Nom,2))+'.Value'
			mNilai2='This.Check'+ALLTRIM(STR(Nom+1,2))+'.Value'
			IF &mNilai1=1
				&mNilai2=1
			ENDIF
		ENDFOR
		FOR Nom=1 TO 11
			mNilai='This.Check'+ALLTRIM(STR(Nom+1,2))+'.Value'
			IF Nom>=mPosisi
				&mNilai=0
			ENDIF
		ENDFOR
		mNilai='This.Check'+ALLTRIM(STR(mPosisi,2))+'.Value'
		&mNilai=mCekNilai
	ENDPROC


	PROCEDURE rincian
		IF USED('BUKUBB')

			CREATE CURSOR BBDETAIL (TANGGAL D(8), KJ C(2), BUKTI C(6),;
				        URUT N(3),URAIAN C(50), DEBET N(15,2),;
				        KREDIT N(15,2),SALDO N(15,2))

			SELECT BUKUBB
			SET ORDER TO 1
			SEEK ALLTRIM(Thisform.xNoper.Value)
			IF FOUND()
				DO WHILE ALLTRIM(NOPER)==ALLTRIM(Thisform.xNoper.Value)
					SELECT BBDETAIL
					APPEND BLANK
					REPLACE TANGGAL WITH BUKUBB.TANGGAL,;
						KJ WITH BUKUBB.KJ,;
						Bukti WITH BUKUBB.Bukti,;
						Urut WITH BUKUBB.Urut,;
						Uraian WITH BUKUBB.Uraian,;
						Debet WITH IIF(BUKUBB.D_K='D',BUKUBB.Nilai,0),;
						Kredit WITH IIF(BUKUBB.D_K='K',BUKUBB.Nilai,0)
					SELECT BUKUBB
					SKIP
				ENDDO
			ENDIF
			IF USED('BBDETAIL')
				SELECT BBDETAIL
				GO TOP
				IF !EOF()
				    SELECT AK_MST
				    mJenis=Jenis
					mSaldoAwal=AK_SALDO(AK_MST.Jenis,MONTH(BBDETAIL.Tanggal)-1)
					SELECT BBDETAIL
					GO TOP
					DO WHILE NOT EOF()
						mSaldoAwal=mSaldoAwal+IIF(mJenis$'ABS',Debet-Kredit,Kredit-Debet)
						REPLACE Saldo WITH mSaldoAwal
						SKIP
					ENDDO
					GO Top
					IF TYPE('Thisform.Akrinci')=='O'
						Thisform.RemoveObject('Akrinci')
					ENDIF
					Thisform.NewObject('Akrinci','_detail','Progasy.Vcx')
					Thisform.Akrinci.Left=8
					Thisform.Akrinci.Top=33
					Thisform.Akrinci.RecordSource="BBDETAIL"
					Thisform.Akrinci.RecordSourceType= 1
					Thisform.Akrinci.Visible=.T.
					ELSE
					IF TYPE('Thisform.Akrinci')=='O'
						Thisform.RemoveObject('Akrinci')
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE rekapan
		IF USED('BUKUBB')

			CREATE CURSOR BB_REKAP (TANGGAL D(8), DEBET N(15,2),;
				        KREDIT N(15,2),SALDODB N(15,2), SALDOKR N(15,2))

			SELECT BUKUBB
			SET ORDER TO 1
			SEEK ALLTRIM(Thisform.xNoper.Value)
			IF FOUND()
				DO WHILE ALLTRIM(NOPER)==ALLTRIM(Thisform.xNoper.Value)
					SELECT BB_REKAP
					LOCATE FOR TANGGAL==BUKUBB.TANGGAL
					IF !FOUND()
						APPEND BLANK
						REPLACE TANGGAL WITH BUKUBB.TANGGAL
					ENDIF
					REPLACE Debet WITH Debet+IIF(BUKUBB.D_K='D',BUKUBB.Nilai,0),;
						Kredit WITH Kredit+IIF(BUKUBB.D_K='K',BUKUBB.Nilai,0)
					SELECT BUKUBB
					SKIP
				ENDDO
			ENDIF
			IF USED('BB_REKAP')
				SELECT BB_REKAP
				GO TOP
				IF !EOF()
				    SELECT AK_MST
				    mJenis=Jenis
					mSaldoAwal=AK_SALDO(AK_MST.Jenis,MONTH(BB_REKAP.Tanggal)-1)
					SELECT BB_REKAP
					GO TOP
					DO WHILE NOT EOF()
						mSaldoAwal=mSaldoAwal+IIF(mJenis$'ABS',Debet-Kredit,Kredit-Debet)
						IF mJenis$'ABS'
							REPLACE Saldodb WITH MAX(mSaldoAwal,0), SALDOKR WITH ABS(MIN(mSALDOAWAL,0))
							ELSE
							REPLACE Saldodb WITH ABS(MIN(mSaldoAwal,0)), SALDOKR WITH MAX(mSALDOAWAL,0)
						ENDIF
						SKIP
					ENDDO
					GO Top
					IF TYPE('Thisform.Akrinci')=='O'
						Thisform.RemoveObject('Akrinci')
					ENDIF
					Thisform.NewObject('Akrinci','_rekapan','Progasy.Vcx')
					Thisform.Akrinci.Left=8
					Thisform.Akrinci.Top=33
					Thisform.Akrinci.RecordSource="BB_REKAP"
					Thisform.Akrinci.RecordSourceType= 1
					Thisform.Akrinci.Visible=.T.
					ELSE
					IF TYPE('Thisform.Akrinci')=='O'
						Thisform.RemoveObject('Akrinci')
					ENDIF
				ENDIF
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE umum
		LOCAL mSifat, mKontrol, mTglAwal

		mSifat=Ak_MST.Sifat
		mKontrol=Ak_MST.Noper

		IF mSifat=='G'

			SELECT * From Ak_Mst WHERE Umum==mKontrol INTO CURSOR BB_UMUM1

			SELECT BB_UMUM1
			GO Top
			IF EOF()
				RETURN
			ENDIF

			IF USED('BUKUBB')

				CREATE CURSOR BB_UMUM (NOPER C(10), NAPER C(30), DEBET N(15,2),;
					        KREDIT N(15,2),SALDO N(15,2), TANGGAL D(8), JENIS C(1))
				        
				SELECT BB_UMUM1
				GO TOP
				DO WHILE !EOF()

					SELECT BUKUBB
					GO Top
					mTglAwal=Tanggal
					SET ORDER TO 1
					SEEK ALLTRIM(BB_UMUM1.NOPER)
					IF !FOUND()
						SELECT BB_UMUM
						APPEND BLANK
						REPLACE NOPER WITH BB_UMUM1.NOPER, NAPER WITH BB_UMUM1.NAPER,;
						TANGGAL WITH mTglAwal, JENIS WITH BB_UMUM1.JENIS
						ELSE
						DO WHILE ALLTRIM(NOPER)==ALLTRIM(BB_UMUM1.NOPER)
							SELECT BB_UMUM
							LOCATE FOR ALLTRIM(NOPER)==ALLTRIM(BB_UMUM1.NOPER)
							IF !FOUND()
								APPEND BLANK
								REPLACE NOPER WITH BB_UMUM1.NOPER,;
								NAPER WITH BB_UMUM1.NAPER, TANGGAL WITH BUKUBB.TANGGAL,;
									JENIS WITH BB_UMUM1.JENIS
							ENDIF
							REPLACE Debet WITH Debet+IIF(BUKUBB.D_K='D',BUKUBB.Nilai,0),;
							Kredit WITH Kredit+IIF(BUKUBB.D_K='K',BUKUBB.Nilai,0)
							SELECT BUKUBB
							SKIP
						ENDDO
					ENDIF

					SELECT BB_UMUM1
					SKIP
				ENDDO

				IF USED('BB_UMUM')
					SELECT BB_UMUM
					GO TOP
					IF !EOF()
						GO TOP
						DO WHILE NOT EOF()
							SELECT AK_MST
							SEEK BB_UMUM.NOPER ORDER 1
					    	mJenis=Jenis
							mSaldoAwal=AK_SALDO(mJenis,MONTH(BB_UMUM.Tanggal)-1)
							SELECT BB_UMUM
							mSaldoAwal=mSaldoAwal+IIF(mJenis$'ABS',Debet-Kredit,Kredit-Debet)
							REPLACE Saldo WITH mSaldoAwal
							SKIP
						ENDDO
						GO Top
						IF TYPE('Thisform.AkUmum')=='O'
							Thisform.RemoveObject('AkUmum')
						ENDIF
						Thisform.NewObject('AkUmum','_general','Progasy.Vcx')
						Thisform.AkUmum.Left=8
						Thisform.AkUmum.Top=33
						Thisform.AkUmum.RecordSource="BB_UMUM"
						Thisform.AkUmum.RecordSourceType= 1
						Thisform.AkUmum.Visible=.T.
						ELSE
						IF TYPE('Thisform.AkUmum')=='O'
							Thisform.RemoveObject('AkUmum')
						ENDIF
					ENDIF
				ENDIF
			ENDIF
		ENDIF
		SELECT AK_MST
		SEEK mKONTROL ORDER 1
	ENDPROC


	PROCEDURE Init
		Thisform.Caption='Buku Besar Tahun '+Left(Dtos(GASY_TGL),4)
		Thisform.Closable= .T.
	ENDPROC


	PROCEDURE Load
		LOCAL AlamatAk
*!*			DO FORM Libs\Tglproses WITH 'Tanggal Buku Besar' TO mTgl
*!*			IF EMPTY(mTgl)
*!*				RETURN TO Master
*!*			ENDIF
		MTGL=DATE()
		AlamatAk=ALLTRIM(Alamatnya('AAK'))
		IF !EMPTY(ALAMATAK)
			TUTUP('AK_MST')
			CREATE CURSOR AK_MST (NOPER C(10),;
				   		NAPER C(30),JENIS C(1),SIFAT C(1),LEPEL N(1),UMUM C(10),Kode C(30),;
				   		DBBLA N(15,2),KRBLA N(15,2),DBBLI01 N(15,2),KRBLI01 N(15,2),;
				   		DBBLI02 N(15,2),KRBLI02 N(15,2),DBBLI03 N(15,2),KRBLI03 N(15,2),;
				   		DBBLI04 N(15,2),KRBLI04 N(15,2),DBBLI05 N(15,2),KRBLI05 N(15,2),;
				   		DBBLI06 N(15,2),KRBLI06 N(15,2),DBBLI07 N(15,2),KRBLI07 N(15,2),;
				   		DBBLI08 N(15,2),KRBLI08 N(15,2),DBBLI09 N(15,2),KRBLI09 N(15,2),;
				   		DBBLI10 N(15,2),KRBLI10 N(15,2),DBBLI11 N(15,2),KRBLI11 N(15,2),;
				   		DBBLI12 N(15,2),KRBLI12 N(15,2),DBHRI N(15,2),KRHRI N(15,2))
			INDEX ON NOPER TO AK_MST
			SELECT AK_MST
			APPEND FROM ALAMATAK+'AKM_'+STR(YEAR(mTgl),4) 
		ENDIF
		IF !USED('AK_MST')
			RETURN TO Master
		ENDIF
		Gasy_Tgl=mTgl
	ENDPROC


	PROCEDURE DragDrop
		LPARAMETERS oSource, nXCoord, nYCoord
		oSource.Left = nXCoord - Thisform.XOffset
		oSource.Top = nYCoord - Thisform.YOffset
	ENDPROC


	PROCEDURE xnoper.InteractiveChange
		SELECT AK_MST
		SEEK This.Value ORDER 1
		Thisform.xNaper.Value=AK_MST.Naper
		Thisform.Mutasisaldo
	ENDPROC


	PROCEDURE xnoper.DblClick
		This.Value=""
	ENDPROC


	PROCEDURE xnoper.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF nKeyCode=-4
			This.RightClick
		ENDIF
	ENDPROC


	PROCEDURE xnoper.GotFocus
		IF TYPE('Thisform.BukuBesar')='O'
			Thisform.RemoveObject('BukuBesar')
		ENDIF
	ENDPROC


	PROCEDURE xnoper.Init
		IF USED('Ak_MST')
			SELECT AK_MST
			GO Top
			Thisform.xNoper.Value=AK_MST.Noper
			Thisform.xNaper.Value=AK_MST.Naper
			Thisform.Mutasisaldo
		ENDIF
	ENDPROC


	PROCEDURE xnoper.LostFocus
		IF USED('AK_MST')
			SELECT AK_MST
			SEEK This.Value ORDER 1
			Thisform.xNaper.Value=AK_MST.Naper
			Thisform.Mutasisaldo
		ENDIF
	ENDPROC


	PROCEDURE xnoper.RightClick
		IF !EMPTY(This.Value)
			SELECT NOPER,NAPER FROM AK_MST WHERE LEFT(This.Value,1)==LEFT(NOPER,1) ORDER BY NOPER INTO CURSOR AKLIHAT
			ELSE
			SELECT NOPER,NAPER FROM AK_MST ORDER BY NOPER INTO CURSOR AKLIHAT
		ENDIF
		This.Value=gLookUp('DAFTAR REKENING',This.Value,'AKLIHAT',60,1)
		SELECT AK_MST
		SEEK This.Value ORDER 1
		This.Parent.xNaper.Value=AK_MST.Naper
		This.Parent.Mutasisaldo
	ENDPROC


	PROCEDURE check1.Click
		Thisform.Cheker(This.Value,1)
	ENDPROC


	PROCEDURE check2.Click
		Thisform.Cheker(This.Value,2)
	ENDPROC


	PROCEDURE check3.InteractiveChange
		Thisform.Cheker(This.Value,3)
	ENDPROC


	PROCEDURE check4.InteractiveChange
		Thisform.Cheker(This.Value,4)
	ENDPROC


	PROCEDURE check5.InteractiveChange
		Thisform.Cheker(This.Value,5)
	ENDPROC


	PROCEDURE check6.InteractiveChange
		Thisform.Cheker(This.Value,6)
	ENDPROC


	PROCEDURE check7.InteractiveChange
		Thisform.Cheker(This.Value,7)
	ENDPROC


	PROCEDURE check8.InteractiveChange
		Thisform.Cheker(This.Value,8)
	ENDPROC


	PROCEDURE check9.InteractiveChange
		Thisform.Cheker(This.Value,9)
	ENDPROC


	PROCEDURE check10.InteractiveChange
		Thisform.Cheker(This.Value,10)
	ENDPROC


	PROCEDURE check11.InteractiveChange
		Thisform.Cheker(This.Value,11)
	ENDPROC


	PROCEDURE check12.InteractiveChange
		Thisform.Cheker(This.Value,12)
	ENDPROC


	PROCEDURE _rekord1.AWAL.Click
		IF USED('AK_MSt')
			SELECT AK_MST
			GO Top
			Thisform.xNoper.Value=Ak_MSt.Noper
			Thisform.xNaper.Value=Ak_MSt.Naper
			Thisform.Mutasisaldo
		ENDIF
	ENDPROC


	PROCEDURE _rekord1.MUNDUR.Click
		IF USED('AK_MSt')
			SELECT AK_MST
			SKIP IIF(!BOF(),-1,1)
			Thisform.xNoper.Value=Ak_MSt.Noper
			Thisform.xNaper.Value=Ak_MSt.Naper
			Thisform.Mutasisaldo
		ENDIF
	ENDPROC


	PROCEDURE _rekord1.MAJU.Click
		IF USED('AK_MSt')
			SELECT AK_MST
			SKIP IIF(!EOF(),1,-1)
			Thisform.xNoper.Value=Ak_MSt.Noper
			Thisform.xNaper.Value=Ak_MSt.Naper
			Thisform.Mutasisaldo
		ENDIF
	ENDPROC


	PROCEDURE _rekord1.AKHIR.Click
		IF USED('AK_MSt')
			SELECT AK_MST
			GO Bottom
			Thisform.xNoper.Value=Ak_MSt.Noper
			Thisform.xNaper.Value=Ak_MSt.Naper
			Thisform.Mutasisaldo
		ENDIF
	ENDPROC


	PROCEDURE _rekord1.CARI.Click
		IF !USED('AKMASTER')
			SELECT NOPER,NAPER FROM AK_MST ORDER BY NOPER INTO CURSOR AKMASTER
		ENDIF
		IF USED('AKMASTER')
			SELECT AKMASTER
			GO TOP
			IF !EOF()
				IF TYPE('Thisform.Rekening')<>'O'
					Thisform.NewObject('Rekening','ViewNasabah','Progasy.Vcx')
					Thisform.Rekening.Visible=.t.
				ENDIF
				Thisform.Rekening.Jenisnya.Caption='Daftar Rekening Akuntansi'
				Thisform.Rekening.Kembalinya.Value='Thisform.xNoper'
				Thisform.Rekening.List1.RowSource='AKMASTER.NOPER,NAPER'
				Thisform.Rekening.List1.RowSourceType= 2
				Thisform.Rekening.List1.Visible=.T.
				Thisform.Rekening.List1.Setfocus
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE kembali.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE kembali.Click
		Thisform.Release
	ENDPROC


	PROCEDURE cmdharian.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE cmdharian.Click
		IF TYPE('Thisform.BukuBesarHarian')<>'O'
			Thisform.NewObject('BukuBesarHarian','_bbharian','Progasy.Vcx')
			Thisform.BukuBesarHarian.Visible=.t.
		ENDIF
		Thisform.BukuBesarHarian.Setfocus
	ENDPROC


	PROCEDURE cmdbulanan.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE cmdbulanan.Click
		IF TYPE('Thisform.BukuBesar')<>'O'
			Thisform.NewObject('BukuBesar','_Ledger','Progasy.Vcx')
			Thisform.BukuBesar.Visible=.t.
		ENDIF
		Thisform.BukuBesar.Setfocus
	ENDPROC


	PROCEDURE cgeneral.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE cmdperiodik.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE cmdperiodik.Click
		LOCAL Alamatak, mTgl, Nom, mNilai, mNilainya
		mNilainya=0
		FOR Nom=1 TO 12
			mNilai='Thisform.Check'+ALLTRIM(STR(Nom,2))+'.Value'
			mNilainya=mNilainya+&mNilai
		ENDFOR
		IF mNilainya=0
			Pesan('Tentukan bulan transaksi')
			RETURN
		ENDIF
		AlamatAk=ALLTRIM(Alamatnya('AAK'))
		IF EMPTY(AlamatAk)
			RETURN
		ENDIF

		mTgl=Gasy_Tgl
		CREATE CURSOR BukuBB (KJ C(2),TANGGAL D(8),BUKTI C(6),;
				        URUT N(3),NOPER C(10),URAIAN C(30),NILAI N(15,2),;
				        D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5))
		INDEX ON NOPER+DTOS(TANGGAL)+BUKTI+STR(URUT,3) TO BukuBB
		Nom=1
		FOR Nom=1 TO 12
			mChek='Thisform.check'+ALLTRIM(STR(Nom,2))+".Value"
			mFileDbf=ALAMATAK+"BB_"+SUBSTR('ABCDEFGHIJKL',Nom,1)+STR(YEAR(mTGL),4)
			IF &mChek=1
				SELECT BukuBB
				APPEND from (mFileDbf)
			ENDIF
		ENDFOR
	ENDPROC


	PROCEDURE cdetail.Option1.RightClick
		This.Value=0
		This.Parent.Value=0
	ENDPROC


	PROCEDURE cdetail.Option2.RightClick
		This.Value=0
		This.Parent.Value=0
	ENDPROC


	PROCEDURE label2.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE label2.Click
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE command1.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE command1.Click
		This.Parent.Mutasisaldo
	ENDPROC


	PROCEDURE postingulang.Init
		This.Visible=Dadi(16)
	ENDPROC


	PROCEDURE postingulang.RightClick
		Sihelp(This.Caption)
	ENDPROC


	PROCEDURE postingulang.Click
		Local MDBB, MKRB, MKR, MDB, MTGLL, MNOPER, MTGLL, LEV, ;
			loTherm, lnPercent, nRekord1, nRekord2, AlamatAk, mNilainya

		AlamatAk=ALLTRIM(Alamatnya('AAK'))
		IF EMPTY(AlamatAK)
			RETURN
		ENDIF

		mNilainya=0
		FOR Nom=1 TO 12
			mNilai='Thisform.Check'+ALLTRIM(STR(Nom,2))+'.Value'
			mNilainya=mNilainya+&mNilai
		ENDFOR
		IF mNilainya=0
			Pesan('Tentukan bulan transaksi')
			RETURN
		ENDIF

		CLOSE TABLES all

		IF !BUKADBF(.T.,'AK_MST',ALAMATAK,'',GASY_TGL)
			RETURN
		ENDIF

		mTgl=Gasy_Tgl
		Nom=1
		FOR Nom=1 TO 12
			CREATE CURSOR AK_BBB (KJ C(2),TANGGAL D(8),BUKTI C(6),;
				        URUT N(3),NOPER C(10),URAIAN C(30),NILAI N(15,2),;
				        D_K C(1),PROSES L(1),OPR C(3),SPR C(3), SANDI C(5))

			mChek='Thisform.check'+ALLTRIM(STR(Nom,2))+".Value"
			mFileDbf=ALAMATAK+"BB_"+SUBSTR('ABCDEFGHIJKL',Nom,1)+STR(YEAR(mTGL),4)

			mDB="DBBLI"+RIGHT('00'+ALLTRIM(STR(NOM,2)),2)
			mKR="KRBLI"+RIGHT('00'+ALLTRIM(STR(NOM,2)),2)

			IF &mChek=1
				SELECT AK_BBB
				APPEND from (mFileDbf)

				If Used("AK_MST") And Used("AK_BBB")

					nRekord1=RECCOUNT('AK_BBB')

					This.Enabled=.F.

					nRekord2=0

					Select AK_MST
					Set Order To 1
					Go TOP
					Do WHILE !EOF()
						nRekord2=nRekord2+1
						Tunggu('1. Bulan: '+STR(Nom,2)+' Nomer Rekening: '+Noper,nRekord2/nRekord1*100)
		      			REPL &MDB WITH 0, &MKR WITH 0
				      	SKIP
					ENDDO
					nRekord2=0
					Select AK_BBB
					Go TOP
					Do WHILE !EOF()
						nRekord2=nRekord2+1
						Tunggu('2. Bulan: '+STR(Nom,2)+' Nomer Rekening: '+Noper,nRekord2/nRekord1*100)
						mNOPER=NOPER
						mD_K=D_K
				      	mDBB=IIF(D_K=="D",NILAI,0)
		    		  	mKRB=IIF(D_K=="K",NILAI,0)
			      		SELE AK_MST
				      	Set Order To 1
						SEEK mNOPER
		    	  		IF !FOUND() And MDBB+MKRB>0
							APPEND BLANK
		    		     	REPL NOPER WITH mNOPER
			    	  	Endif
						REPL &MDB WITH &MDB+mDBB, &MKR WITH &MKR+mKRB
				        LEV=LEPEL-1
					    DO WHILE LEV>=0
					         UMU=UMUM
		        			 SEEK UMU
			        		 If Found()
						         IF mD_K="D"
			    	   		       	REPL &MDB WITH &MDB+mDbb
						            ELSE
		        	    			REPL &MKR WITH &MKR+mKrb
				    	    	 Endif
					    	 Endif		    	 
					         LEV=LEPEL-1
					         IF LEV=0
		        			    EXIT
					         Endif         
						ENDDO
						Select AK_BBB
						Skip
					Enddo
				ENDIF
			ENDIF
		ENDFOR
		Select AK_MST
		SET ORDER TO 1
		FLUSH
		CLOSE TABLES all
		This.Caption='\<Proses Posting Sudah Selesai'
		CREATE CURSOR AK_MST (NOPER C(10),;
				   		NAPER C(30),JENIS C(1),SIFAT C(1),LEPEL N(1),UMUM C(10),Kode C(30),;
				   		DBBLA N(15,2),KRBLA N(15,2),DBBLI01 N(15,2),KRBLI01 N(15,2),;
				   		DBBLI02 N(15,2),KRBLI02 N(15,2),DBBLI03 N(15,2),KRBLI03 N(15,2),;
				   		DBBLI04 N(15,2),KRBLI04 N(15,2),DBBLI05 N(15,2),KRBLI05 N(15,2),;
				   		DBBLI06 N(15,2),KRBLI06 N(15,2),DBBLI07 N(15,2),KRBLI07 N(15,2),;
				   		DBBLI08 N(15,2),KRBLI08 N(15,2),DBBLI09 N(15,2),KRBLI09 N(15,2),;
				   		DBBLI10 N(15,2),KRBLI10 N(15,2),DBBLI11 N(15,2),KRBLI11 N(15,2),;
				   		DBBLI12 N(15,2),KRBLI12 N(15,2),DBHRI N(15,2),KRHRI N(15,2))
		INDEX ON NOPER TO AK_MST
		SELECT AK_MST
		APPEND FROM ALAMATAK+'AKM_'+STR(YEAR(Gasy_Tgl),4)
		Tunggu('Proses sudah selesai',100,0)
	ENDPROC


	PROCEDURE cetak.Click
		IF FILE(AlamatDl+'Proses\Prscakbt.Fxp')
			DO (AlamatDl+'Proses\Prscakbt')
			ELSE
			Pesan('Invalid prosedur '+AlamatDl+'Proses\Prscakbt')
		ENDIF
	ENDPROC


	PROCEDURE command2.Click
		DO FORM LIBS\OLEGRAPH WITH THISFORM
	ENDPROC


ENDDEFINE
*
*-- EndDefine: fakbbt
**************************************************

PROCEDURE menuhtml
	PARAMETERS INOMOR
	SET STATUS BAR ON
	PUBLIC oMenuHTML
	oMenuHTML=NEWOBJECT("menuhtml_")
	oMenuHTML.Show
	IF TYPE('INOMOR')=='N'
		oMenuHTML.rekord.value=inomor
		oMenuHTML.CMDREFRSH.Click
	endif
	RETURN
ENDPROC

DEFINE CLASS MENUHTML_ AS form
	DataSession = 1 
	Height = 450
	Width = 750
	DoCreate = .T.
	ICON='BMPS\INFO1.ICO'
	AutoCenter = .T.
	Caption = "Gasy Software"
	MinHeight = 450
	MinWidth = 600
	showtips=.t.
	alwaysonbottom=.f.
	MDIFORM=.f.
	folder='bmps\panduan\'


	ADD OBJECT container1 AS container WITH ;
		Top = 0, ;
		Left = 0, ;
		Width = 750, ;
		Height = 30, ;
		BackStyle = 1, ;
		SpecialEffect = 1, ;
		BackColor = RGB(255,255,255)


	ADD OBJECT olehtml AS olehtml_ WITH ;
		Top = 31, ;
		Left = 9, ;
		Height = 419, ;
		Width = 750

	ADD OBJECT edit1X AS editbox WITH VISIBLE=.F.
	
	ADD OBJECT edit1 AS editbox WITH ;
		FontName = "Courier New", ;
		FontSize = 14, ;
		Height = 305, ;
		Left = 9, ;
		ScrollBars = 2, ;
		Top = 144, ;
		Visible = .F., ;
		ALLOWTABS=.T.,;
		MARGIN = 15,;
		Width = 750,;
		IKLP='',;
		IGAID='',;
		IKEY=0

	ADD OBJECT rekord AS spinner WITH ;
		FontSize = 14, ;
		BorderStyle = 0, ;
		Height = 24, ;
		KeyboardLowValue = 0, ;
		Left = 531, ;
		SelectOnEntry = .T., ;
		SpecialEffect = 1, ;
		SpinnerLowValue =   0.00, ;
		Top = 3, ;
		Width = 78, ;
		Value = 0

	ADD OBJECT cmdrefrsh AS commandbutton WITH ;
		Top = 2, ;
		Left = 611, ;
		Height = 27, ;
		Width = 69, ;
		Caption = "\<Refresh"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontSize = 14, ;
		BackStyle = 0, ;
		Caption = "Menu Aplikasi", ;
		Height = 25, ;
		Left = 10, ;
		Top = 5, ;
		Width = 118, ;
		ForeColor = RGB(0,0,160)

	ADD OBJECT cmdcetak AS commandbutton WITH ;
		Top = 2, ;
		Left = 680, ;
		Height = 27, ;
		Width = 69, ;
		Caption = "\<Cetak"
		

*!*		Procedure Activate
*!*			this.cmdREFRSH.Click
*!*		endproc
	
	PROCEDURE INIT
		THIS.Resize
		this.cmdREFRSH.Click
	ENDPROC

	PROCEDURE viewhtml
		PARAMETERS iText
		this.olehtml.viewHtml(iText)
		THIS.label1.Caption=This.olehtml.oBJECT.Document.TITLE
	ENDPROC


	PROCEDURE obyek
		PARAMETERS OB
		RETURN THIS.OLEHtml.obyek(OB)
	ENDPROC


	PROCEDURE isiid
		PARAMETERS cID,oText
		this.olehtml.isiid(cID,oText)
	ENDPROC


	PROCEDURE Resize
		this.container1.Width=this.Width
		this.oleHtml.Top=this.container1.top+this.container1.height+5
		
		this.olehtml.Width=this.Width-THIS.OLEHTML.LEFT-9
		THIS.CMDcetak.Left=THIS.Width-THIS.CMDcetak.WIDTH-2-9
		THIS.CMDREFRSH.Left=THIS.cmdcetak.left-THIS.CMDREFRSH.WIDTH-2
		THIS.REKord.Left=THIS.CMDREFRSH.Left-THIS.REKord.WIDTH
		IF this.edit1.Visible= .T.
			this.olehtml.Height=this.Height-this.olehtml.Top-this.edit1.Height-9
			this.edit1.Top=this.Height-this.edit1.Height-9
			this.edit1.Width=this.Width-THIS.EDIT1.LEFT-9
			ELSE
			this.olehtml.Height=this.Height-this.olehtml.Top-9
		ENDIF
	ENDPROC


	PROCEDURE container1.Click
		THIS.Parent.Edit1.Visible=!THIS.Parent.Edit1.Visible
		THIS.Parent.Resize
	ENDPROC


	PROCEDURE container1.RightClick
		mfile=GETFILE('html')
		IF !EMPTY(MFILE)
			DO FORM frmedittxt WITH MFILE			
			*MODIFY FILE (mfile)
		ENDIF
	ENDPROC



	PROCEDURE olehtml.NavigateComplete2
	*** ActiveX Control Event ***
		LPARAMETERS pdisp, url
		IF !EMPTY(this.Document.title)
			this.Parent.label1.Caption=this.Document.title
		ENDIF
	ENDPROC


	PROCEDURE edit1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF nKeyCode=-4
			this.Parent.viewhtml(this.Value)
		ENDIF
	ENDPROC


	PROCEDURE rekord.DOWNCLICK
		THIS.Parent.CMDREFRSH.Click
	ENDPROC

	PROCEDURE rekord.UPCLICK
		THIS.Parent.CMDREFRSH.Click
	ENDPROC

	PROCEDURE rekord.RightClick
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Value)),4)+'.PRG'
		GAE(THIS.TAG)
	ENDPROC


	PROCEDURE cmdrefrsh.RightClick
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML'
		CHEKFOLDER(THIS.Tag)
		DO FORM frmedittxt WITH THIS.TAG			

		*MODIFY FILE (THIS.Tag)
	ENDPROC
	
	


	PROCEDURE cmdrefrsh.Click
		THISFORM.EDIT1X.VALUE=''
		THIS.Parent.Edit1.Value=''
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML'
		MTEKS=''
		IF FILE(THIS.Tag)
			MTEKS=ALLTRIM(FILETOSTR(This.Tag))
			THIS.Parent.Edit1.Value=MTEKS
			IF EMPTY(MTEKS)
				THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001)
				MTEKS=THISFORM.EDIT1X.VALUE
			ENDIF
			ELSE
			THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001)
			MTEKS=THISFORM.EDIT1X.VALUE
		ENDIF
		THIS.Parent.edit1.IKLP=''
		THIS.Parent.edit1.IGAID=''
		THIS.Parent.edit1.IKEY=''
		THIS.Parent.OLEHTML.file_index_html(STREXTRACT(MTEKS,'~','~',2),400)
		THIS.Parent.OLEHTML.file_js_css()
		THIS.Parent.OLEHTML.buka_menu_html(STREXTRACT(MTEKS,'~','~',1))
	ENDPROC

	PROCEDURE cmdR1
		WITH THISFORM
		.EDIT1X.VALUE=''
		.Edit1.Value=''
		.Tag='BMPS\GASY\Gasy_0000.HTML'
		MTEKS=''
		.OLEHTML.FXP(0,1001)
		MTEKS=.EDIT1X.VALUE
		.edit1.IKLP=''
		.edit1.IGAID=''
		.edit1.IKEY=''
		.OLEHTML.file_index_html(STREXTRACT(MTEKS,'~','~',2),400,0)
		.OLEHTML.file_js_css()
		.OLEHTML.buka_menu_html(STREXTRACT(MTEKS,'~','~',1))
		ENDWITH
	ENDPROC

	PROCEDURE edit1.LostFocus
		this.RightClick
	endproc
	
	PROCEDURE edit1.RightClick
		IF !EMPTY(THIS.IGAID)
			THIS.Comment='BMPS\DOKUMEN_HTML.DBF'
			IF !EMPTY(THIS.IKLP)
				THIS.Comment='BMPS\DOKUMEN_HTML_'+THIS.IKLP+'.DBF'
			ENDIF
			ISI1=THIS.VALUE
			IKLP1=THIS.IKLP
			IGAID1=THIS.IGAID
			IKEY1=THIS.IKEY
			TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment))
			IF BUKA(.F.,THIS.Comment,'DOKUMEN_HTML')
				UPDATE DOKUMEN_HTML SET HTM=ISI1 ;
				WHERE ALLTRIM(ID_KLP)==IKLP1 AND ID_GAID==IGAID1 AND ID_KEY==IKEY1
				WAIT 'Sudah di UPDATE' WINDOW NOWAIT
			ENDIF
			TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment))
			thisform.Resize
			RETURN
		ENDIF
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML'		
		IF EMPTY(THIS.Value)
			DELE FILE (THIS.TAG)
			ELSE
			CHEKFOLDER(THIS.Tag)
			STRTOFILE(this.Value,THIS.Tag)
			WAIT 'Sudah disimpan' WINDOW NOWAIT
		ENDIF
		thisform.Resize
	ENDPROC


	PROCEDURE label1.Click
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.Rekord.Value)),4)+'.FXP'		
		IF FILE(This.Tag)
			DO (This.Tag) WITH THIS.Parent.OLEHtml
		ENDIF
	ENDPROC


	PROCEDURE cmdcetak.Click
		This.Parent.OLEHtml.ExecWB(6, 1)
	ENDPROC


	PROCEDURE cmdcetak.RightClick
		This.Parent.OLEHtml.ExecWB(6, 2)
	ENDPROC


ENDDEFINE

DEFINE CLASS olehtml_ AS olecontrol
	OleClass = "Shell.Explorer.2"
	folder='bmps\panduan\'
	
	PROCEDURE Cetak
		LPARAMETERS nCetak
		This.ExecWB(6, nCetak)
	ENDPROC

	PROCEDURE BeforeNavigate2
	*** ActiveX Control Event ***
		LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel
		LOCAL lcURL
		lcURL=ALLTRIM(url)        
		IF UPPER(LEFT(lcURL,5))=="GASY:"
			CANCEL=.T.
			MPRO=SUBSTR(LCURL,6)
			MPRO=STRTRAN(MPRO,'%20',' ')
			&mpro
			RETURN
		ENDIF
	ENDPROC

	PROCEDURE Init
		this.navigate('About:Blank')
		this.oBJECT.Document.open()
		this.oBJECT.Document.write('Gasy')
		This.oBJECT.Document.close()
	ENDPROC

	PROCEDURE viewhtml
		PARAMETERS iText
		IF TYPE('iText')=='C'
			this.oBJECT.Document.open()
			this.oBJECT.Document.write(iText)
			This.oBJECT.Document.close()
		ENDIF
	ENDPROC

	PROCEDURE obyek
		LPARAMETERS OB
		RETURN THIS.OBJECT.Document.ALL(OB).VALUE
	ENDPROC


	PROCEDURE isiid
		LPARAMETERS cID,oText
		this.objECT.document.getElementById(cID).innerHTML = oText
	ENDPROC
	
	PROCEDURE TABEL
		LPARAMETERS idtabel,nRow,nCol,cTxt
		IF TYPE('cTxt')=='C'
			this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt
			ELSE
			RETURN this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML
		ENDIF
	ENDPROC
	
	PROCEDURE TABELF
		LPARAMETERS idTabel,nRow,nCol,cTxt
		IF TYPE('cTxt')=='C'
			This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt
			ELSE
			RETURN This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML
		ENDIF
	ENDPROC
	
	PROCEDURE file_js_css
**___dtree.js
text to isi_js noshow
// Node object
function Node(id, pid, name, url, title, target, icon, iconOpen, open) {
	this.id = id;
	this.pid = pid;
	this.name = name;
	this.url = url;
	this.title = title;
	this.target = target;
	this.icon = icon;
	this.iconOpen = iconOpen;
	this._io = open || false;
	this._is = false;
	this._ls = false;
	this._hc = false;
	this._ai = 0;
	this._p;
};
// Tree object
function dTree(objName) {
	this.config = {
		target					: null,
		folderLinks			: true,
		useSelection		: true,
		useCookies			: true,
		useLines				: true,
		useIcons				: true,
		useStatusText		: false,
		closeSameLevel	: false,
		inOrder					: false
	}
	this.icon = {
		root				: 'img/database.bmp',
		folder			: 'img/folder.gif',
		folderOpen	: 'img/folderopen.gif',
		node				: 'img/page.gif',
		empty				: 'img/empty.gif',
		line				: 'img/line.gif',
		join				: 'img/join.gif',
		joinBottom	: 'img/joinbottom.gif',
		plus				: 'img/plus.gif',
		plusBottom	: 'img/plusbottom.gif',
		minus				: 'img/minus.gif',
		minusBottom	: 'img/minusbottom.gif',
		nlPlus			: 'img/nolines_plus.gif',
		nlMinus			: 'img/nolines_minus.gif'
	};
	this.obj = objName;
	this.aNodes = [];
	this.aIndent = [];
	this.root = new Node(-1);
	this.selectedNode = null;
	this.selectedFound = false;
	this.completed = false;
};
// Adds a new node to the node array
dTree.prototype.add = function(id, pid, name, url, title, target, icon, iconOpen, open) {
	this.aNodes[this.aNodes.length] = new Node(id, pid, name, url, title, target, icon, iconOpen, open);
};

// Open/close all nodes
dTree.prototype.openAll = function() {
	this.oAll(true);
};
dTree.prototype.closeAll = function() {
	this.oAll(false);
};
// Outputs the tree to the page
dTree.prototype.toString = function() {
	var str = '<div class="dtree">\n';
	if (document.getElementById) {
		if (this.config.useCookies) this.selectedNode = this.getSelected();
		str += this.addNode(this.root);
	} else str += 'Browser not supported.';
	str += '</div>';
	if (!this.selectedFound) this.selectedNode = null;
	this.completed = true;
	return str;
};
// Creates the tree structure
dTree.prototype.addNode = function(pNode) {
	var str = '';
	var n=0;
	if (this.config.inOrder) n = pNode._ai;
	for (n; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == pNode.id) {
			var cn = this.aNodes[n];
			cn._p = pNode;
			cn._ai = n;
			this.setCS(cn);
			if (!cn.target && this.config.target) cn.target = this.config.target;
			if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id);
			if (!this.config.folderLinks && cn._hc) cn.url = null;
			if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) {
					cn._is = true;
					this.selectedNode = n;
					this.selectedFound = true;
			}
			str += this.node(cn, n);
			if (cn._ls) break;
		}
	}
	return str;
};
// Creates the node icon, url and text
dTree.prototype.node = function(node, nodeId) {
	var str = '<div class="dTreeNode">' + this.indent(node, nodeId);
	if (this.config.useIcons) {
		if (!node.icon) node.icon = (this.root.id == node.pid) ? this.icon.root : ((node._hc) ? this.icon.folder : this.icon.node);
		if (!node.iconOpen) node.iconOpen = (node._hc) ? this.icon.folderOpen : this.icon.node;
		if (this.root.id == node.pid) {
			node.icon = this.icon.root;
			node.iconOpen = this.icon.root;
		}
		str += '<img id="i' + this.obj + nodeId + '" src="' + ((node._io) ? node.iconOpen : node.icon) + '" alt="" />';
	}
	if (node.url) {
		str += '<a id="s' + this.obj + nodeId + '" class="' + ((this.config.useSelection) ? ((node._is ? 'nodeSel' : 'node')) : 'node') + '" target="xbody" href="' + node.url + '"';
		if (node.title) str += ' title="' + node.title + '"';
		if (node.target) str += ' target="' + node.target + '"';
		if (this.config.useStatusText) str += ' onmouseover="window.status=\'' + node.name + '\';return true;" onmouseout="window.status=\'\';return true;" ';
		if (this.config.useSelection && ((node._hc && this.config.folderLinks) || !node._hc))
			str += ' onclick="javascript: ' + this.obj + '.s(' + nodeId + ');"';
		str += '>';
	}
	else if ((!this.config.folderLinks || !node.url) && node._hc && node.pid != this.root.id)
		str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');" class="node">';
	str += node.name;
	if (node.url || ((!this.config.folderLinks || !node.url) && node._hc)) str += '</a>';
	str += '</div>';
	if (node._hc) {
		str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">';
		str += this.addNode(node);
		str += '</div>';
	}
	this.aIndent.pop();
	return str;
};
// Adds the empty and line icons
dTree.prototype.indent = function(node, nodeId) {
	var str = '';
	if (this.root.id != node.pid) {
		for (var n=0; n<this.aIndent.length; n++)
			str += '<img src="' + ( (this.aIndent[n] == 1 && this.config.useLines) ? this.icon.line : this.icon.empty ) + '" alt="" />';
		(node._ls) ? this.aIndent.push(0) : this.aIndent.push(1);
		if (node._hc) {
			str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');"><img id="j' + this.obj + nodeId + '" src="';
			if (!this.config.useLines) str += (node._io) ? this.icon.nlMinus : this.icon.nlPlus;
			else str += ( (node._io) ? ((node._ls && this.config.useLines) ? this.icon.minusBottom : this.icon.minus) : ((node._ls && this.config.useLines) ? this.icon.plusBottom : this.icon.plus ) );
			str += '" alt="" /></a>';
		} else str += '<img src="' + ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty) + '" alt="" />';
	}
	return str;
};
// Checks if a node has any children and if it is the last sibling
dTree.prototype.setCS = function(node) {
	var lastId;
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.id) node._hc = true;
		if (this.aNodes[n].pid == node.pid) lastId = this.aNodes[n].id;
	}
	if (lastId==node.id) node._ls = true;
};
// Returns the selected node
dTree.prototype.getSelected = function() {
	var sn = this.getCookie('cs' + this.obj);
	return (sn) ? sn : null;
};
// Highlights the selected node
dTree.prototype.s = function(id) {
	if (!this.config.useSelection) return;
	var cn = this.aNodes[id];
	if (cn._hc && !this.config.folderLinks) return;
	if (this.selectedNode != id) {
		if (this.selectedNode || this.selectedNode==0) {
			eOld = document.getElementById("s" + this.obj + this.selectedNode);
			eOld.className = "node";
		}
		eNew = document.getElementById("s" + this.obj + id);
		eNew.className = "nodeSel";
		this.selectedNode = id;
		if (this.config.useCookies) this.setCookie('cs' + this.obj, cn.id);
	}
};
// Toggle Open or close
dTree.prototype.o = function(id) {
	var cn = this.aNodes[id];
	this.nodeStatus(!cn._io, id, cn._ls);
	cn._io = !cn._io;
	if (this.config.closeSameLevel) this.closeLevel(cn);
	if (this.config.useCookies) this.updateCookie();
};
// Open or close all nodes
dTree.prototype.oAll = function(status) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n]._hc && this.aNodes[n].pid != this.root.id) {
			this.nodeStatus(status, n, this.aNodes[n]._ls)
			this.aNodes[n]._io = status;
		}
	}
	if (this.config.useCookies) this.updateCookie();
};
// Opens the tree to a specific node
dTree.prototype.openTo = function(nId, bSelect, bFirst) {
	if (!bFirst) {
		for (var n=0; n<this.aNodes.length; n++) {
			if (this.aNodes[n].id == nId) {
				nId=n;
				break;
			}
		}
	}
	var cn=this.aNodes[nId];
	if (cn.pid==this.root.id || !cn._p) return;
	cn._io = true;
	cn._is = bSelect;
	if (this.completed && cn._hc) this.nodeStatus(true, cn._ai, cn._ls);
	if (this.completed && bSelect) this.s(cn._ai);
	else if (bSelect) this._sn=cn._ai;
	this.openTo(cn._p._ai, false, true);
};
// Closes all nodes on the same level as certain node
dTree.prototype.closeLevel = function(node) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.pid && this.aNodes[n].id != node.id && this.aNodes[n]._hc) {
			this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);
		}
	}
}
// Closes all children of a node
dTree.prototype.closeAllChildren = function(node) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.id && this.aNodes[n]._hc) {
			if (this.aNodes[n]._io) this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);		
		}
	}
}
// Change the status of a node(open or closed)
dTree.prototype.nodeStatus = function(status, id, bottom) {
	eDiv	= document.getElementById('d' + this.obj + id);
	eJoin	= document.getElementById('j' + this.obj + id);
	if (this.config.useIcons) {
		eIcon	= document.getElementById('i' + this.obj + id);
		eIcon.src = (status) ? this.aNodes[id].iconOpen : this.aNodes[id].icon;
	}
	eJoin.src = (this.config.useLines)?
	((status)?((bottom)?this.icon.minusBottom:this.icon.minus):((bottom)?this.icon.plusBottom:this.icon.plus)):
	((status)?this.icon.nlMinus:this.icon.nlPlus);
	eDiv.style.display = (status) ? 'block': 'none';
};
// [Cookie] Clears a cookie
dTree.prototype.clearCookie = function() {
	var now = new Date();
	var yesterday = new Date(now.getTime() - 1000 * 60 * 60 * 24);
	this.setCookie('co'+this.obj, 'cookieValue', yesterday);
	this.setCookie('cs'+this.obj, 'cookieValue', yesterday);
};
// [Cookie] Sets value in a cookie
dTree.prototype.setCookie = function(cookieName, cookieValue, expires, path, domain, secure) {
	document.cookie =
		escape(cookieName) + '=' + escape(cookieValue)
		+ (expires ? '; expires=' + expires.toGMTString() : '')
		+ (path ? '; path=' + path : '')
		+ (domain ? '; domain=' + domain : '')
		+ (secure ? '; secure' : '');
};
// [Cookie] Gets a value from a cookie
dTree.prototype.getCookie = function(cookieName) {
	var cookieValue = '';
	var posName = document.cookie.indexOf(escape(cookieName) + '=');
	if (posName != -1) {
		var posValue = posName + (escape(cookieName) + '=').length;
		var endPos = document.cookie.indexOf(';', posValue);
		if (endPos != -1) cookieValue = unescape(document.cookie.substring(posValue, endPos));
		else cookieValue = unescape(document.cookie.substring(posValue));
	}
	return (cookieValue);
};
// [Cookie] Returns ids of open nodes as a string
dTree.prototype.updateCookie = function() {
	var str = '';
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n]._io && this.aNodes[n].pid != this.root.id) {
			if (str) str += '.';
			str += this.aNodes[n].id;
		}
	}
	this.setCookie('co' + this.obj, str);
};
// [Cookie] Checks if a node id is in a cookie
dTree.prototype.isOpen = function(id) {
	var aOpen = this.getCookie('co' + this.obj).split('.');
	for (var n=0; n<aOpen.length; n++)
		if (aOpen[n] == id) return true;
	return false;
};
// If Push and pop is not implemented by the browser
if (!Array.prototype.push) {
	Array.prototype.push = function array_push() {
		for(var i=0;i<arguments.length;i++)
			this[this.length]=arguments[i];
		return this.length;
	}
};
if (!Array.prototype.pop) {
	Array.prototype.pop = function array_pop() {
		lastElement = this[this.length-1];
		this.length = Math.max(this.length-1,0);
		return lastElement;
	}
};
endtext
strtofile(isi_js,this.folder+'___dtree.js')
text to isi_css noshow
.dtree {
	font-family: Times New Roman, Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-size: 20px;
	color: #666;
	white-space: nowrap;
}
.dtree img {
	border: 0px;
	vertical-align: middle;
}
.dtree a {
	color: #333;
	text-decoration: none;
}
.dtree a.node, .dtree a.nodeSel {
	white-space: nowrap;
	padding: 2px 2px 2px 2px;
}
.dtree a.node:hover, .dtree a.nodeSel:hover {
	color: #333;
	text-decoration: underline;
}
.dtree a.nodeSel {
	background-color: #c0d2ec;
}
.dtree .clip {
	overflow: hidden;
}
endtext
strtofile(isi_css,this.folder+'___dtree.css')
ENDPROC
	
PROCEDURE file_index_html
LPARAMETERS lx_caption_1,ln_Cols_1,nREKORD
NREKORD=IIF(TYPE('NREKORD')<>'N',THISFORM.REKORD.VALUE,NREKORD)
	
lx_caption='MENU APLIKASI'
ln_Cols='10'
IF TYPE('lx_caption_1')='C' AND !EMPTY(lX_CAPTION_1)
	lx_caption=lx_caption_1
ENDIF
IF TYPE('ln_Cols_1')='N' AND ln_Cols_1>0
	Ln_Cols=TRANSFORM(ln_Cols_1)
ENDIF

text to isi_index TEXTMERGE NOSHOW
<!DOCTYPE html>
<HTML>
<HEAD>
<TITLE><<lx_caption>></TITLE>
<meta name="viewport" content="width=device-width, initial-scale=10">
</HEAD>
<frameset cols="<<ln_Cols>>,*">
  	<frame name="left" src="tree_menu.html" width="400">
	<frame name="xbody" src="gasy.html">
</frameset>
<noframes></noframes>
</html>
endtext
strtofile(isi_index,this.folder+'index.html')

if !empty(this.parent.edit1.value)
	isi_gasy=this.parent.edit1.value
	else
	THIS.PARENT.EDIT1X.VALUE=''
	THIS.FXP(NREKORD,1001)
	isi_gasy=THIS.PARENT.EDIT1X.VALUE
endif
strtofile(isi_gasy,this.folder+'gasy.html')
ENDPROC
	
	PROCEDURE dbf_menu
		LPARAMETERS LSHARE,LINDEK
		THIS.Tag=this.folder+'dbf\GW_HTML_'+PADL(TRANSFORM(THISFORM.REKORD.VALUE),4,'0')+'.DBF'
		TUTUP('GW_HTML')
		IF !FILE(THIS.Tag)
			CHEKFOLDER(THIS.TAG)
			CREATE TABLE (THIS.Tag) ;
			(;
				GAID C(10),;
				ID_PARENT c(10),;
				ID_FXP N(3),;
				KLP C(3),;
				KETERANGAN C(250),;
				noper c(10),;
				naper c(30),;
				jenis c(1),;
				sifat c(1),;
				lepel n(1),;
				umum c(10),;
				kode c(30),;
				nopi c(2),;
				id_key i autoinc,;
				key_id i,;
				htm m;
			)
			index on klp+gaid tag klpgaid
			USE
		ENDIF
		IF LINDEK=.T.
			IF buka(lshare,this.tag,'gw_html')
				SELECT GW_HTML
				set order to klpgaid	
				IF lshare=.t.
					index on klp+gaid tag klpgaid
					MODIFY STRUCTURE
				ENDIF
				BROWSE FONT "Times New Roman",14 NODELETE TITLE "DATA: "+DBF()+" ( "+ALIAS()+" )"
			ENDIF
			TUTUP('GW_HTML')
		ENDIF			
		IF buka(LSHARE,this.tag,'gw_html')
			sele gw_html
			set order to klpgaid
			RETURN .t.
		ENDIF
		RETURN .f.
	ENDPROC
	PROCEDURE buka_menu_HTML	
	LPARAMETERS IKLP
	
IKLP=IIF(TYPE('IKLP')#'C','000',IKLP)
*************************************
SET TEXTMERGE ON
text to txt1 noshow
<!DOCTYPE html>
<html>
<head>
<meta name="viewport" content="width=device-width, initial-scale=10">
<title>Gasy</title>
<head>
<link rel="StyleSheet" href="___dtree.css" type="text/css" />
<script type="text/javascript" src="___dtree.js"></script>
</head>
<body background="paper.gif">
<div class="dtree">
<div style="padding:2px;text-align:left;border-style:none;">
<a href="javascript: d.openAll();">Buka</a> | 
<a href="javascript: d.closeAll();">Tutup</a> | 
<A HREF="GASY:THIS.DBF_FORM()">Form Input</a>
</div>
<hr>
<script type="text/javascript"><!--
d = new dTree("d");
endtext
*****************
TUTUP('GW_HTML')
TXT=''
IF this.dbf_menu()
	SELE * FROM GW_HTML ORDER BY KLP,ID_PARENT,ID_FXP,GAID INTO CURSOR HASIL_HTML
	SELE HASIL_HTML
	GO TOP
	SCAN		
		TXT=alltrim(TXT)+[d.add("]+ALLTRIM(GAID)+[","]+ALLTRIM(id_parent)+[","]+;
		IIF(LEFT(ALLTRIM(ID_PARENT),1)=='-',' ',' ')+ALLTRIM(KETERANGAN)+[","GASY:THIS.ISI_XBODY(']+ALLTRIM(KLP)+[',']+ALLTRIM(GAID)+[',]+;
		TRANSFORM(ID_FXP)+[,']+ALLTRIM(KETERANGAN)+[',']+alltrim(id_parent)+[')");]+CHR(13)+CHR(12)
	ENDSCAN 
ENDIF
TUTUP('GW_HTML','HASIL_HTML')
**************************
*!*			TXT=TXT+[d.add("]+ALLTRIM(GAID)+[","]+ALLTRIM(id_parent)+[","]+;
*!*			Alltrim(keterangan)+[","GASY:THIS.FXP(]+TRANSFORM(THISFORM.REKORD.VALUE)+;
*!*			[,]+TRANSFORM(ID_FXP)+[)");]+CHR(13)+CHR(12)
text to txt3 noshow
document.write(d);
//-->
</script>
</div>
<p \><hr size="1" \>
<font class="dtree">©<A HREF="GASY:THISFORM.REKORD.RIGHTCLICK">Gasy, 1991-2023</A>. All Rights Reserved</font></p>
<p>
<h1>Menu</h1>
<ol>
<li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.f.,.T.)">Browse</a></font>
<li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.t.,.T.)">Modifikasi Struktur</a></font>
<li><font class="dtree"><A HREF="GASY:THIS.DBF_FORM()">Form Input</a></font>
</ol>
</p>

</body>
</html>
endtext
**************
strtofile(txt1+txt+txt3,THIS.FOLDER+'tree_menu.html')
THIS.Navigate(FULLPATH(THIS.FOLDER+'index.html'))
ENDPROC

PROCEDURE FXP
	LPARAMETERS nGAID,OPSI
	THIS.TAG='bmps\gasy\gasy_'+PADL(TRANSFORM(nGaid),4,'0')+'.fxp'
	IF file(this.tag)
		DO (this.tag) WITH this,opsi
	ENDIF
ENDPROC

PROCEDURE ISI_XBODY
	LPARAMETERS lxKlp,lxGaid,lnGaid,lxKeterangan,lxParent
	THIS.COMMENT='BMPS\DOKUMEN_HTML.DBF'
	THIS.TAG='BMPS\DOKUMEN_XHTM.HTML'
	IF TYPE('lxKeterangan')='C' AND !EMPTY(lxKeterangan)
		this.tag='bmps\'+LOWER(lxKeterangan)+'.html'
	ENDIF
		
	IF TYPE('lxKlp')='C' AND !EMPTY(lxKlp)
		THIS.COMMENT='BMPS\DOKUMEN_HTML_'+LXKLP+'.DBF'
	ENDIF
	
	IF !FILE(THIS.COMMENT)
		CREATE TABLE (THIS.COMMENT) ;
		(;
			ID_KLP C(3),ID_GAID C(10),ID_KEY I,HTM M;
		)
		USE
	ENDIF
	IF TYPE('LNGAID')<>'N'
		LNGAID=0
	ENDIF
	
	IF TYPE('lxGAID')='C' AND !EMPTY(lxGaid)
		SELECT * from (this.comment) ;
			WHERE ALLTRIM(ID_KLP)==ALLTRIM(LXKLP) ;
				AND ALLTRIM(ID_GAID)==ALLTRIM(LXGAID) ;
				AND ID_KEY=LNGAID ;
		INTO CURSOR HASIL_X1
		SELECT HASIL_X1
		GO TOP
		ISIHTML=HTM
		THIS.PARENT.EDIT1.IKLP=LXKLP
		THIS.PARENT.EDIT1.IGAID=LXGAID
		THIS.PARENT.EDIT1.IKEY=LNGAID
		THIS.PARENT.EDIT1.VALUE=ISIHTML
		IF EOF()
			INSERT INTO (THIS.COMMENT) (ID_KLP,ID_GAID,ID_KEY) VALUES (LXKLP,LXGAID,LNGAID)
		ENDIF
		IF !EMPTY(ISIHTML)
			STRTOFILE(isihtml,this.tag)
			THIS.navigate(fullpath(this.tag),,'xbody')
			RETURN
		ENDIF
		if type("this.document.GetElementById('xbody').contentWindow.document.forms('menu').gaid_1.value")='C'
			with this.document.GetElementById('xbody').contentWindow.document.forms('menu')
				.gaid_1.value=lxgaid
				This.FXP(0,-1)
			endwith
		ENDIF		
	ENDIF
ENDPROC

PROCEDURE DBF_FORM
	THISTAG='BMPS\DOKUMEN_IHTM.HTML'
	THIS.FXP(0,1001)
	ISIHTML=THISFORM.EDIT1X.VALUE
	IF !EMPTY(ISIHTML)
		STRTOFILE(isihtml,thistag)
		THIS.navigate(fullpath(thistag),,'xbody')
		RETURN
	ENDIF
ENDPROC



ENDDEFINE

PROCEDURE menuhtml
	PARAMETERS INOMOR
	SET STATUS BAR ON
	PUBLIC oMenuHTML
	oMenuHTML=NEWOBJECT("menuhtml_")
	oMenuHTML.Show
	IF TYPE('INOMOR')=='N'
		oMenuHTML.rekord.value=inomor
		oMenuHTML.CMDREFRSH.Click
	endif
	RETURN
ENDPROC

DEFINE CLASS MENUHTML_ AS form
	DataSession = 1 
	Height = 450
	Width = 750
	DoCreate = .T.
	ICON='BMPS\GASY.ICO'
	AutoCenter = .T.
	Caption = "Gasy Software"
	MinHeight = 450
	MinWidth = 600
	showtips=.t.
	alwaysonbottom=.f.
	MDIFORM=.f.
	folder='bmps\panduan\'


	ADD OBJECT container1 AS container WITH ;
		Top = 0, ;
		Left = 0, ;
		Width = 750, ;
		Height = 30, ;
		BackStyle = 1, ;
		SpecialEffect = 1, ;
		BackColor = RGB(255,255,255)


	ADD OBJECT olehtml AS olehtml_ WITH ;
		Top = 31, ;
		Left = 9, ;
		Height = 419, ;
		Width = 750

	ADD OBJECT edit1X AS editbox WITH VISIBLE=.F.
	
	ADD OBJECT edit1 AS editbox WITH ;
		FontName = "Courier New", ;
		FontSize = 14, ;
		Height = 305, ;
		Left = 9, ;
		ScrollBars = 2, ;
		Top = 144, ;
		Visible = .F., ;
		ALLOWTABS=.T.,;
		Width = 750,;
		IKLP='',;
		IGAID='',;
		IKEY=0

	ADD OBJECT rekord AS spinner WITH ;
		FontSize = 14, ;
		BorderStyle = 0, ;
		Height = 24, ;
		KeyboardLowValue = 0, ;
		Left = 531, ;
		SelectOnEntry = .T., ;
		SpecialEffect = 1, ;
		SpinnerLowValue =   0.00, ;
		Top = 3, ;
		Width = 78, ;
		Value = 0

	ADD OBJECT cmdrefrsh AS commandbutton WITH ;
		Top = 2, ;
		Left = 611, ;
		Height = 27, ;
		Width = 69, ;
		Caption = "\<Refresh"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontSize = 14, ;
		BackStyle = 0, ;
		Caption = "Menu Aplikasi", ;
		Height = 25, ;
		Left = 10, ;
		Top = 5, ;
		Width = 118, ;
		ForeColor = RGB(0,0,160)

	ADD OBJECT cmdcetak AS commandbutton WITH ;
		Top = 2, ;
		Left = 680, ;
		Height = 27, ;
		Width = 69, ;
		Caption = "\<Cetak"
		

	Procedure Activate
		this.cmdREFRSH.Click
	endproc
	
	PROCEDURE INIT
		THIS.Resize
		this.cmdREFRSH.Click
	ENDPROC

	PROCEDURE viewhtml
		PARAMETERS iText
		this.olehtml.viewHtml(iText)
		THIS.label1.Caption=This.olehtml.oBJECT.Document.TITLE
	ENDPROC


	PROCEDURE obyek
		PARAMETERS OB
		RETURN THIS.OLEHtml.obyek(OB)
	ENDPROC


	PROCEDURE isiid
		PARAMETERS cID,oText
		this.olehtml.isiid(cID,oText)
	ENDPROC


	PROCEDURE Resize
		this.container1.Width=this.Width
		this.oleHtml.Top=this.container1.top+this.container1.height+5
		
		this.olehtml.Width=this.Width-THIS.OLEHTML.LEFT-9
		THIS.CMDcetak.Left=THIS.Width-THIS.CMDcetak.WIDTH-2-9
		THIS.CMDREFRSH.Left=THIS.cmdcetak.left-THIS.CMDREFRSH.WIDTH-2
		THIS.REKord.Left=THIS.CMDREFRSH.Left-THIS.REKord.WIDTH
		IF this.edit1.Visible= .T.
			this.olehtml.Height=this.Height-this.olehtml.Top-this.edit1.Height-9
			this.edit1.Top=this.Height-this.edit1.Height-9
			this.edit1.Width=this.Width-THIS.EDIT1.LEFT-9
			ELSE
			this.olehtml.Height=this.Height-this.olehtml.Top-9
		ENDIF
	ENDPROC


	PROCEDURE container1.Click
		THIS.Parent.Edit1.Visible=!THIS.Parent.Edit1.Visible
		THIS.Parent.Resize
	ENDPROC


	PROCEDURE container1.RightClick
		mfile=GETFILE('html')
		IF !EMPTY(MFILE)
			MODIFY FILE (mfile)
		ENDIF
	ENDPROC



	PROCEDURE olehtml.NavigateComplete2
	*** ActiveX Control Event ***
		LPARAMETERS pdisp, url
		IF !EMPTY(this.Document.title)
			this.Parent.label1.Caption=this.Document.title
		ENDIF
	ENDPROC


	PROCEDURE edit1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF nKeyCode=-4
			this.Parent.viewhtml(this.Value)
		ENDIF
	ENDPROC


	PROCEDURE rekord.DOWNCLICK
		THIS.Parent.CMDREFRSH.Click
	ENDPROC

	PROCEDURE rekord.UPCLICK
		THIS.Parent.CMDREFRSH.Click
	ENDPROC

	PROCEDURE rekord.RightClick
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Value)),4)+'.PRG'
		CHEKFOLDER(THIS.Tag)		
		MODIFY command (THIS.Tag)		
		IF FILE(THIS.Tag) 
			IF MESSAGEBOX('Compile?',33,'Gasy')=1
				COMPILE (THIS.Tag)
			ENDIF
		ENDIF		
	ENDPROC


	PROCEDURE cmdrefrsh.RightClick
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML'
		CHEKFOLDER(THIS.Tag)
		MODIFY FILE (THIS.Tag)
	ENDPROC
	
	


	PROCEDURE cmdrefrsh.Click
		THISFORM.EDIT1X.VALUE=''
		THIS.Parent.Edit1.Value=''
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML'
		MTEKS=''
		IF FILE(THIS.Tag)
			MTEKS=ALLTRIM(FILETOSTR(This.Tag))
			THIS.Parent.Edit1.Value=MTEKS
			IF EMPTY(MTEKS)
				THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001)
				MTEKS=THISFORM.EDIT1X.VALUE
			ENDIF
			ELSE
			THISFORM.OLEHTML.FXP(THISFORM.REKORD.VALUE,1001)
			MTEKS=THISFORM.EDIT1X.VALUE
		ENDIF
		THIS.Parent.edit1.IKLP=''
		THIS.Parent.edit1.IGAID=''
		THIS.Parent.edit1.IKEY=''
		THIS.Parent.OLEHTML.file_index_html(STREXTRACT(MTEKS,'~','~',2),400)
		THIS.Parent.OLEHTML.file_js_css()
		THIS.Parent.OLEHTML.buka_menu_html(STREXTRACT(MTEKS,'~','~',1))
	ENDPROC

	PROCEDURE edit1.LostFocus
		this.RightClick
	endproc
	
	PROCEDURE edit1.RightClick
		IF !EMPTY(THIS.IGAID)
			THIS.Comment='BMPS\DOKUMEN_HTML.DBF'
			IF !EMPTY(THIS.IKLP)
				THIS.Comment='BMPS\DOKUMEN_HTML_'+THIS.IKLP+'.DBF'
			ENDIF
			ISI1=THIS.VALUE
			IKLP1=THIS.IKLP
			IGAID1=THIS.IGAID
			IKEY1=THIS.IKEY
			TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment))
			IF BUKA(.F.,THIS.Comment,'DOKUMEN_HTML')
				UPDATE DOKUMEN_HTML SET HTM=ISI1 ;
				WHERE ALLTRIM(ID_KLP)==IKLP1 AND ID_GAID==IGAID1 AND ID_KEY==IKEY1
				WAIT 'Sudah di UPDATE' WINDOW NOWAIT
			ENDIF
			TUTUP('DOKUMEN_HTML',JUSTSTEM(THIS.Comment))
			thisform.Resize
			RETURN
		ENDIF
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.REKORD.Value)),4)+'.HTML'		
		IF EMPTY(THIS.Value)
			DELE FILE (THIS.TAG)
			ELSE
			CHEKFOLDER(THIS.Tag)
			STRTOFILE(this.Value,THIS.Tag)
			WAIT 'Sudah disimpan' WINDOW NOWAIT
		ENDIF
		thisform.Resize
	ENDPROC


	PROCEDURE label1.Click
		THIS.Tag='BMPS\GASY\Gasy_'+RIGHT('0000'+ALLTRIM(STR(this.Parent.Rekord.Value)),4)+'.FXP'		
		IF FILE(This.Tag)
			DO (This.Tag) WITH THIS.Parent.OLEHtml
		ENDIF
	ENDPROC


	PROCEDURE cmdcetak.Click
		This.Parent.OLEHtml.ExecWB(6, 1)
	ENDPROC


	PROCEDURE cmdcetak.RightClick
		This.Parent.OLEHtml.ExecWB(6, 2)
	ENDPROC


ENDDEFINE

DEFINE CLASS olehtml_ AS olecontrol
	OleClass = "Shell.Explorer.2"
	folder='bmps\panduan\'
	
	PROCEDURE Cetak
		LPARAMETERS nCetak
		This.ExecWB(6, nCetak)
	ENDPROC

	PROCEDURE BeforeNavigate2
	*** ActiveX Control Event ***
		LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel
		LOCAL lcURL
		lcURL=ALLTRIM(url)        
		IF UPPER(LEFT(lcURL,5))=="GASY:"
			CANCEL=.T.
			MPRO=SUBSTR(LCURL,6)
			MPRO=STRTRAN(MPRO,'%20',' ')
			&mpro
			RETURN
		ENDIF
	ENDPROC

	PROCEDURE Init
		this.navigate('About:Blank')
		this.oBJECT.Document.open()
		this.oBJECT.Document.write('Gasy')
		This.oBJECT.Document.close()
	ENDPROC

	PROCEDURE viewhtml
		PARAMETERS iText
		IF TYPE('iText')=='C'
			this.oBJECT.Document.open()
			this.oBJECT.Document.write(iText)
			This.oBJECT.Document.close()
		ENDIF
	ENDPROC

	PROCEDURE obyek
		LPARAMETERS OB
		RETURN THIS.OBJECT.Document.ALL(OB).VALUE
	ENDPROC


	PROCEDURE isiid
		LPARAMETERS cID,oText
		this.objECT.document.getElementById(cID).innerHTML = oText
	ENDPROC
	
	PROCEDURE TABEL
		LPARAMETERS idtabel,nRow,nCol,cTxt
		IF TYPE('cTxt')=='C'
			this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt
			ELSE
			RETURN this.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML
		ENDIF
	ENDPROC
	
	PROCEDURE TABELF
		LPARAMETERS idTabel,nRow,nCol,cTxt
		IF TYPE('cTxt')=='C'
			This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML=cTxt
			ELSE
			RETURN This.document.getElementById('xbody').contentWindow.document.getElementById(idTabel).rows[nRow].cells[nCol].innerHTML
		ENDIF
	ENDPROC
	
	PROCEDURE file_js_css
**___dtree.js
text to isi_js noshow
// Node object
function Node(id, pid, name, url, title, target, icon, iconOpen, open) {
	this.id = id;
	this.pid = pid;
	this.name = name;
	this.url = url;
	this.title = title;
	this.target = target;
	this.icon = icon;
	this.iconOpen = iconOpen;
	this._io = open || false;
	this._is = false;
	this._ls = false;
	this._hc = false;
	this._ai = 0;
	this._p;
};
// Tree object
function dTree(objName) {
	this.config = {
		target					: null,
		folderLinks			: true,
		useSelection		: true,
		useCookies			: true,
		useLines				: true,
		useIcons				: true,
		useStatusText		: false,
		closeSameLevel	: false,
		inOrder					: false
	}
	this.icon = {
		root				: 'img/database.bmp',
		folder			: 'img/folder.gif',
		folderOpen	: 'img/folderopen.gif',
		node				: 'img/page.gif',
		empty				: 'img/empty.gif',
		line				: 'img/line.gif',
		join				: 'img/join.gif',
		joinBottom	: 'img/joinbottom.gif',
		plus				: 'img/plus.gif',
		plusBottom	: 'img/plusbottom.gif',
		minus				: 'img/minus.gif',
		minusBottom	: 'img/minusbottom.gif',
		nlPlus			: 'img/nolines_plus.gif',
		nlMinus			: 'img/nolines_minus.gif'
	};
	this.obj = objName;
	this.aNodes = [];
	this.aIndent = [];
	this.root = new Node(-1);
	this.selectedNode = null;
	this.selectedFound = false;
	this.completed = false;
};
// Adds a new node to the node array
dTree.prototype.add = function(id, pid, name, url, title, target, icon, iconOpen, open) {
	this.aNodes[this.aNodes.length] = new Node(id, pid, name, url, title, target, icon, iconOpen, open);
};

// Open/close all nodes
dTree.prototype.openAll = function() {
	this.oAll(true);
};
dTree.prototype.closeAll = function() {
	this.oAll(false);
};
// Outputs the tree to the page
dTree.prototype.toString = function() {
	var str = '<div class="dtree">\n';
	if (document.getElementById) {
		if (this.config.useCookies) this.selectedNode = this.getSelected();
		str += this.addNode(this.root);
	} else str += 'Browser not supported.';
	str += '</div>';
	if (!this.selectedFound) this.selectedNode = null;
	this.completed = true;
	return str;
};
// Creates the tree structure
dTree.prototype.addNode = function(pNode) {
	var str = '';
	var n=0;
	if (this.config.inOrder) n = pNode._ai;
	for (n; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == pNode.id) {
			var cn = this.aNodes[n];
			cn._p = pNode;
			cn._ai = n;
			this.setCS(cn);
			if (!cn.target && this.config.target) cn.target = this.config.target;
			if (cn._hc && !cn._io && this.config.useCookies) cn._io = this.isOpen(cn.id);
			if (!this.config.folderLinks && cn._hc) cn.url = null;
			if (this.config.useSelection && cn.id == this.selectedNode && !this.selectedFound) {
					cn._is = true;
					this.selectedNode = n;
					this.selectedFound = true;
			}
			str += this.node(cn, n);
			if (cn._ls) break;
		}
	}
	return str;
};
// Creates the node icon, url and text
dTree.prototype.node = function(node, nodeId) {
	var str = '<div class="dTreeNode">' + this.indent(node, nodeId);
	if (this.config.useIcons) {
		if (!node.icon) node.icon = (this.root.id == node.pid) ? this.icon.root : ((node._hc) ? this.icon.folder : this.icon.node);
		if (!node.iconOpen) node.iconOpen = (node._hc) ? this.icon.folderOpen : this.icon.node;
		if (this.root.id == node.pid) {
			node.icon = this.icon.root;
			node.iconOpen = this.icon.root;
		}
		str += '<img id="i' + this.obj + nodeId + '" src="' + ((node._io) ? node.iconOpen : node.icon) + '" alt="" />';
	}
	if (node.url) {
		str += '<a id="s' + this.obj + nodeId + '" class="' + ((this.config.useSelection) ? ((node._is ? 'nodeSel' : 'node')) : 'node') + '" target="xbody" href="' + node.url + '"';
		if (node.title) str += ' title="' + node.title + '"';
		if (node.target) str += ' target="' + node.target + '"';
		if (this.config.useStatusText) str += ' onmouseover="window.status=\'' + node.name + '\';return true;" onmouseout="window.status=\'\';return true;" ';
		if (this.config.useSelection && ((node._hc && this.config.folderLinks) || !node._hc))
			str += ' onclick="javascript: ' + this.obj + '.s(' + nodeId + ');"';
		str += '>';
	}
	else if ((!this.config.folderLinks || !node.url) && node._hc && node.pid != this.root.id)
		str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');" class="node">';
	str += node.name;
	if (node.url || ((!this.config.folderLinks || !node.url) && node._hc)) str += '</a>';
	str += '</div>';
	if (node._hc) {
		str += '<div id="d' + this.obj + nodeId + '" class="clip" style="display:' + ((this.root.id == node.pid || node._io) ? 'block' : 'none') + ';">';
		str += this.addNode(node);
		str += '</div>';
	}
	this.aIndent.pop();
	return str;
};
// Adds the empty and line icons
dTree.prototype.indent = function(node, nodeId) {
	var str = '';
	if (this.root.id != node.pid) {
		for (var n=0; n<this.aIndent.length; n++)
			str += '<img src="' + ( (this.aIndent[n] == 1 && this.config.useLines) ? this.icon.line : this.icon.empty ) + '" alt="" />';
		(node._ls) ? this.aIndent.push(0) : this.aIndent.push(1);
		if (node._hc) {
			str += '<a href="javascript: ' + this.obj + '.o(' + nodeId + ');"><img id="j' + this.obj + nodeId + '" src="';
			if (!this.config.useLines) str += (node._io) ? this.icon.nlMinus : this.icon.nlPlus;
			else str += ( (node._io) ? ((node._ls && this.config.useLines) ? this.icon.minusBottom : this.icon.minus) : ((node._ls && this.config.useLines) ? this.icon.plusBottom : this.icon.plus ) );
			str += '" alt="" /></a>';
		} else str += '<img src="' + ( (this.config.useLines) ? ((node._ls) ? this.icon.joinBottom : this.icon.join ) : this.icon.empty) + '" alt="" />';
	}
	return str;
};
// Checks if a node has any children and if it is the last sibling
dTree.prototype.setCS = function(node) {
	var lastId;
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.id) node._hc = true;
		if (this.aNodes[n].pid == node.pid) lastId = this.aNodes[n].id;
	}
	if (lastId==node.id) node._ls = true;
};
// Returns the selected node
dTree.prototype.getSelected = function() {
	var sn = this.getCookie('cs' + this.obj);
	return (sn) ? sn : null;
};
// Highlights the selected node
dTree.prototype.s = function(id) {
	if (!this.config.useSelection) return;
	var cn = this.aNodes[id];
	if (cn._hc && !this.config.folderLinks) return;
	if (this.selectedNode != id) {
		if (this.selectedNode || this.selectedNode==0) {
			eOld = document.getElementById("s" + this.obj + this.selectedNode);
			eOld.className = "node";
		}
		eNew = document.getElementById("s" + this.obj + id);
		eNew.className = "nodeSel";
		this.selectedNode = id;
		if (this.config.useCookies) this.setCookie('cs' + this.obj, cn.id);
	}
};
// Toggle Open or close
dTree.prototype.o = function(id) {
	var cn = this.aNodes[id];
	this.nodeStatus(!cn._io, id, cn._ls);
	cn._io = !cn._io;
	if (this.config.closeSameLevel) this.closeLevel(cn);
	if (this.config.useCookies) this.updateCookie();
};
// Open or close all nodes
dTree.prototype.oAll = function(status) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n]._hc && this.aNodes[n].pid != this.root.id) {
			this.nodeStatus(status, n, this.aNodes[n]._ls)
			this.aNodes[n]._io = status;
		}
	}
	if (this.config.useCookies) this.updateCookie();
};
// Opens the tree to a specific node
dTree.prototype.openTo = function(nId, bSelect, bFirst) {
	if (!bFirst) {
		for (var n=0; n<this.aNodes.length; n++) {
			if (this.aNodes[n].id == nId) {
				nId=n;
				break;
			}
		}
	}
	var cn=this.aNodes[nId];
	if (cn.pid==this.root.id || !cn._p) return;
	cn._io = true;
	cn._is = bSelect;
	if (this.completed && cn._hc) this.nodeStatus(true, cn._ai, cn._ls);
	if (this.completed && bSelect) this.s(cn._ai);
	else if (bSelect) this._sn=cn._ai;
	this.openTo(cn._p._ai, false, true);
};
// Closes all nodes on the same level as certain node
dTree.prototype.closeLevel = function(node) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.pid && this.aNodes[n].id != node.id && this.aNodes[n]._hc) {
			this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);
		}
	}
}
// Closes all children of a node
dTree.prototype.closeAllChildren = function(node) {
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n].pid == node.id && this.aNodes[n]._hc) {
			if (this.aNodes[n]._io) this.nodeStatus(false, n, this.aNodes[n]._ls);
			this.aNodes[n]._io = false;
			this.closeAllChildren(this.aNodes[n]);		
		}
	}
}
// Change the status of a node(open or closed)
dTree.prototype.nodeStatus = function(status, id, bottom) {
	eDiv	= document.getElementById('d' + this.obj + id);
	eJoin	= document.getElementById('j' + this.obj + id);
	if (this.config.useIcons) {
		eIcon	= document.getElementById('i' + this.obj + id);
		eIcon.src = (status) ? this.aNodes[id].iconOpen : this.aNodes[id].icon;
	}
	eJoin.src = (this.config.useLines)?
	((status)?((bottom)?this.icon.minusBottom:this.icon.minus):((bottom)?this.icon.plusBottom:this.icon.plus)):
	((status)?this.icon.nlMinus:this.icon.nlPlus);
	eDiv.style.display = (status) ? 'block': 'none';
};
// [Cookie] Clears a cookie
dTree.prototype.clearCookie = function() {
	var now = new Date();
	var yesterday = new Date(now.getTime() - 1000 * 60 * 60 * 24);
	this.setCookie('co'+this.obj, 'cookieValue', yesterday);
	this.setCookie('cs'+this.obj, 'cookieValue', yesterday);
};
// [Cookie] Sets value in a cookie
dTree.prototype.setCookie = function(cookieName, cookieValue, expires, path, domain, secure) {
	document.cookie =
		escape(cookieName) + '=' + escape(cookieValue)
		+ (expires ? '; expires=' + expires.toGMTString() : '')
		+ (path ? '; path=' + path : '')
		+ (domain ? '; domain=' + domain : '')
		+ (secure ? '; secure' : '');
};
// [Cookie] Gets a value from a cookie
dTree.prototype.getCookie = function(cookieName) {
	var cookieValue = '';
	var posName = document.cookie.indexOf(escape(cookieName) + '=');
	if (posName != -1) {
		var posValue = posName + (escape(cookieName) + '=').length;
		var endPos = document.cookie.indexOf(';', posValue);
		if (endPos != -1) cookieValue = unescape(document.cookie.substring(posValue, endPos));
		else cookieValue = unescape(document.cookie.substring(posValue));
	}
	return (cookieValue);
};
// [Cookie] Returns ids of open nodes as a string
dTree.prototype.updateCookie = function() {
	var str = '';
	for (var n=0; n<this.aNodes.length; n++) {
		if (this.aNodes[n]._io && this.aNodes[n].pid != this.root.id) {
			if (str) str += '.';
			str += this.aNodes[n].id;
		}
	}
	this.setCookie('co' + this.obj, str);
};
// [Cookie] Checks if a node id is in a cookie
dTree.prototype.isOpen = function(id) {
	var aOpen = this.getCookie('co' + this.obj).split('.');
	for (var n=0; n<aOpen.length; n++)
		if (aOpen[n] == id) return true;
	return false;
};
// If Push and pop is not implemented by the browser
if (!Array.prototype.push) {
	Array.prototype.push = function array_push() {
		for(var i=0;i<arguments.length;i++)
			this[this.length]=arguments[i];
		return this.length;
	}
};
if (!Array.prototype.pop) {
	Array.prototype.pop = function array_pop() {
		lastElement = this[this.length-1];
		this.length = Math.max(this.length-1,0);
		return lastElement;
	}
};
endtext
strtofile(isi_js,this.folder+'___dtree.js')
text to isi_css noshow
.dtree {
	font-family: Times New Roman, Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-size: 20px;
	color: #666;
	white-space: nowrap;
}
.dtree img {
	border: 0px;
	vertical-align: middle;
}
.dtree a {
	color: #333;
	text-decoration: none;
}
.dtree a.node, .dtree a.nodeSel {
	white-space: nowrap;
	padding: 2px 2px 2px 2px;
}
.dtree a.node:hover, .dtree a.nodeSel:hover {
	color: #333;
	text-decoration: underline;
}
.dtree a.nodeSel {
	background-color: #c0d2ec;
}
.dtree .clip {
	overflow: hidden;
}
endtext
strtofile(isi_css,this.folder+'___dtree.css')
ENDPROC
	
PROCEDURE file_index_html
LPARAMETERS lx_caption_1,ln_Cols_1
lx_caption='MENU APLIKASI'
ln_Cols='10'
IF TYPE('lx_caption_1')='C' AND !EMPTY(lX_CAPTION_1)
	lx_caption=lx_caption_1
ENDIF
IF TYPE('ln_Cols_1')='N' AND ln_Cols_1>0
	Ln_Cols=TRANSFORM(ln_Cols_1)
ENDIF

text to isi_index TEXTMERGE NOSHOW
<!DOCTYPE html>
<HTML>
<HEAD>
<TITLE><<lx_caption>></TITLE>
<meta name="viewport" content="width=device-width, initial-scale=10">
</HEAD>
<frameset cols="<<ln_Cols>>,*">
  	<frame name="left" src="tree_menu.html" width="400">
	<frame name="xbody" src="gasy.html">
</frameset>
<noframes></noframes>
</html>
endtext
strtofile(isi_index,this.folder+'index.html')

if !empty(this.parent.edit1.value)
	isi_gasy=this.parent.edit1.value
	else
	THIS.PARENT.EDIT1X.VALUE=''
	THIS.FXP(THISFORM.REKORD.VALUE,1001)
	isi_gasy=THIS.PARENT.EDIT1X.VALUE
endif
strtofile(isi_gasy,this.folder+'gasy.html')
ENDPROC
	
	PROCEDURE dbf_menu
		LPARAMETERS LSHARE,LINDEK
		THIS.Tag=this.folder+'dbf\GW_HTML_'+PADL(TRANSFORM(THISFORM.REKORD.VALUE),4,'0')+'.DBF'
		TUTUP('GW_HTML')
		IF !FILE(THIS.Tag)
			CHEKFOLDER(THIS.TAG)
			CREATE TABLE (THIS.Tag) ;
			(;
				GAID C(10),;
				ID_PARENT c(10),;
				ID_FXP N(3),;
				KLP C(3),;
				KETERANGAN C(250),;
				noper c(10),;
				naper c(30),;
				jenis c(1),;
				sifat c(1),;
				lepel n(1),;
				umum c(10),;
				kode c(30),;
				nopi c(2),;
				id_key i autoinc,;
				key_id i,;
				htm m;
			)
			index on klp+gaid tag klpgaid
			USE
		ENDIF
		IF LINDEK=.T.
			IF buka(lshare,this.tag,'gw_html')
				SELECT GW_HTML
				set order to klpgaid	
				IF lshare=.t.
					index on klp+gaid tag klpgaid
					MODIFY STRUCTURE
				ENDIF
				BROWSE FONT "Times New Roman",14 NODELETE TITLE "DATA: "+DBF()+" ( "+ALIAS()+" )"
			ENDIF
			TUTUP('GW_HTML')
		ENDIF			
		IF buka(LSHARE,this.tag,'gw_html')
			sele gw_html
			set order to klpgaid
			RETURN .t.
		ENDIF
		RETURN .f.
	ENDPROC
	PROCEDURE buka_menu_HTML	
	LPARAMETERS IKLP
	
IKLP=IIF(TYPE('IKLP')#'C','000',IKLP)
*************************************
SET TEXTMERGE ON
text to txt1 noshow
<!DOCTYPE html>
<html>
<head>
<meta name="viewport" content="width=device-width, initial-scale=10">
<title>Gasy</title>
<head>
<link rel="StyleSheet" href="___dtree.css" type="text/css" />
<script type="text/javascript" src="___dtree.js"></script>
</head>
<body background="paper.gif">
<div class="dtree">
<div style="padding:2px;text-align:left;border-style:none;">
<a href="javascript: d.openAll();">Buka</a> | 
<a href="javascript: d.closeAll();">Tutup</a> | 
<A HREF="GASY:THIS.DBF_FORM()">Form Input</a>
</div>
<hr>
<script type="text/javascript"><!--
d = new dTree("d");
endtext
*****************
TUTUP('GW_HTML')
TXT=''
IF this.dbf_menu()
	SELE * FROM GW_HTML ORDER BY KLP,ID_PARENT,ID_FXP,GAID INTO CURSOR HASIL_HTML
	SELE HASIL_HTML
	GO TOP
	SCAN		
		TXT=alltrim(TXT)+[d.add("]+ALLTRIM(GAID)+[","]+ALLTRIM(id_parent)+[","]+;
		IIF(LEFT(ALLTRIM(ID_PARENT),1)=='-',' ',' ')+ALLTRIM(KETERANGAN)+[","GASY:THIS.ISI_XBODY(']+ALLTRIM(KLP)+[',']+ALLTRIM(GAID)+[',]+;
		TRANSFORM(ID_FXP)+[,']+ALLTRIM(KETERANGAN)+[',']+alltrim(id_parent)+[')");]+CHR(13)+CHR(12)
	ENDSCAN 
ENDIF
TUTUP('GW_HTML','HASIL_HTML')
**************************
*!*			TXT=TXT+[d.add("]+ALLTRIM(GAID)+[","]+ALLTRIM(id_parent)+[","]+;
*!*			Alltrim(keterangan)+[","GASY:THIS.FXP(]+TRANSFORM(THISFORM.REKORD.VALUE)+;
*!*			[,]+TRANSFORM(ID_FXP)+[)");]+CHR(13)+CHR(12)
text to txt3 noshow
document.write(d);
//-->
</script>
</div>
<p \><hr size="1" \>
<font class="dtree">©<A HREF="GASY:THISFORM.REKORD.RIGHTCLICK">Gasy, 1991-2023</A>. All Rights Reserved</font></p>
<p>
<h1>Menu</h1>
<ol>
<li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.f.,.T.)">Browse</a></font>
<li><font class="dtree"><A HREF="GASY:THIS.DBF_MENU(.t.,.T.)">Modifikasi Struktur</a></font>
<li><font class="dtree"><A HREF="GASY:THIS.DBF_FORM()">Form Input</a></font>
</ol>
</p>

</body>
</html>
endtext
**************
strtofile(txt1+txt+txt3,THIS.FOLDER+'tree_menu.html')
THIS.Navigate(FULLPATH(THIS.FOLDER+'index.html'))
ENDPROC

PROCEDURE FXP
	LPARAMETERS nGAID,OPSI
	THIS.TAG='bmps\gasy\gasy_'+PADL(TRANSFORM(nGaid),4,'0')+'.fxp'
	IF file(this.tag)
		DO (this.tag) WITH this,opsi
	ENDIF
ENDPROC

PROCEDURE ISI_XBODY
	LPARAMETERS lxKlp,lxGaid,lnGaid,lxKeterangan,lxParent
	THIS.COMMENT='BMPS\DOKUMEN_HTML.DBF'
	THIS.TAG='BMPS\DOKUMEN_XHTM.HTML'
	IF TYPE('lxKeterangan')='C' AND !EMPTY(lxKeterangan)
		this.tag='bmps\'+LOWER(lxKeterangan)+'.html'
	ENDIF
		
	IF TYPE('lxKlp')='C' AND !EMPTY(lxKlp)
		THIS.COMMENT='BMPS\DOKUMEN_HTML_'+LXKLP+'.DBF'
	ENDIF
	
	IF !FILE(THIS.COMMENT)
		CREATE TABLE (THIS.COMMENT) ;
		(;
			ID_KLP C(3),ID_GAID C(10),ID_KEY I,HTM M;
		)
		USE
	ENDIF
	IF TYPE('LNGAID')<>'N'
		LNGAID=0
	ENDIF
	
	IF TYPE('lxGAID')='C' AND !EMPTY(lxGaid)
		SELECT * from (this.comment) ;
			WHERE ALLTRIM(ID_KLP)==ALLTRIM(LXKLP) ;
				AND ALLTRIM(ID_GAID)==ALLTRIM(LXGAID) ;
				AND ID_KEY=LNGAID ;
		INTO CURSOR HASIL_X1
		SELECT HASIL_X1
		GO TOP
		ISIHTML=HTM
		THIS.PARENT.EDIT1.IKLP=LXKLP
		THIS.PARENT.EDIT1.IGAID=LXGAID
		THIS.PARENT.EDIT1.IKEY=LNGAID
		THIS.PARENT.EDIT1.VALUE=ISIHTML
		IF EOF()
			INSERT INTO (THIS.COMMENT) (ID_KLP,ID_GAID,ID_KEY) VALUES (LXKLP,LXGAID,LNGAID)
		ENDIF
		IF !EMPTY(ISIHTML)
			STRTOFILE(isihtml,this.tag)
			THIS.navigate(fullpath(this.tag),,'xbody')
			RETURN
		ENDIF
		if type("this.document.GetElementById('xbody').contentWindow.document.forms('menu').gaid_1.value")='C'
			with this.document.GetElementById('xbody').contentWindow.document.forms('menu')
				.gaid_1.value=lxgaid
				This.FXP(0,-1)
			endwith
		ENDIF		
	ENDIF
ENDPROC

PROCEDURE DBF_FORM
	THISTAG='BMPS\DOKUMEN_IHTM.HTML'
	THIS.FXP(0,1001)
	ISIHTML=THISFORM.EDIT1X.VALUE
	IF !EMPTY(ISIHTML)
		STRTOFILE(isihtml,thistag)
		THIS.navigate(fullpath(thistag),,'xbody')
		RETURN
	ENDIF
ENDPROC



ENDDEFINE

PROCEDURE MYKALENDER(O,OBYEKS,nTop,nLeft)
	PUBLIC oKalender
	oKalender=NEWOBJECT("_Kalender")
	oKalender.kembalinya=obyeks
	IF TYPE("OBYEKS")=='O'
		IF TYPE('NTOP')<>'N'
			NTOP=0
		ENDIF
		IF TYPE('NLEFT')<>'N'
			NLEFT=0
		ENDIF	
		OKALENDER.XRESIZE(O,OBYEKS,NTOP,NLEFT)	
		oKalender.Proses(Obyeks.Value)
		ELSE
		oKalender.Top=iif(Type("nTop")=='N',nTop,(_screen.height/2)-166/2)
		oKalender.Left=iif(Type("nLeft")=='N',nLeft,(_screen.width/2)-138/2)
	ENDIF
	oKalender.Show(iif(type('O')='O',0,1))
	RETURN
ENDPROC

DEFINE CLASS _Kalender AS form
	Height = 166
	Width = 138
	DoCreate = .T.
	BorderStyle = 2
	Caption = "Kalender"
	MaxButton = .F.
	MinButton = .F.
	ShowTips = .T.
	AlwaysOnTop = .t.
	DESKTOP=.T.
	Icon='gasy.ico'
	HalfHeightCaption=.F.
	nhari = 1
	kembalinya = ""
	bulanan = 0
	nilainya = .F.

	ADD OBJECT label8 AS label WITH ;
		AutoSize = .F., ;
		FontBold = .F., ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		Alignment = 2, ;
		Caption = "Hari Ini:", ;
		Height = 15, ;
		Left = -4, ;
		Top = 151, ;
		Width = 143, ;
		TabIndex = 54, ;
		ForeColor = RGB(255,255,255), ;
		BackColor = RGB(0,0,128)


	ADD OBJECT bulan AS combobox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 7, ;
		Height = 16, ;
		Left = -4, ;
		Margin = 0, ;
		SpecialEffect = 1, ;
		Style = 2, ;
		TabStop = .F., ;
		Top = 166, ;
		Visible = .F., ;
		Width = 84, ;
		BorderStyle = 0


	ADD OBJECT tahun AS combobox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 7, ;
		MaxLength = 4, ;
		Height = 16, ;
		Left = 84, ;
		Margin = 0, ;
		SpecialEffect = 1, ;
		Style = 0, ;
		TabStop = .F., ;
		Top = 166, ;
		Visible = .F., ;
		Width = 53, ;
		Format = "9999", ;
		InputMask = "9999", ;
		BorderStyle = 0


	ADD OBJECT pf AS _pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 3, ;
		BorderWidth = 0, ;
		Top = 18, ;
		Left = 0, ;
		Width = 144, ;
		Height = 129, ;
		SpecialEffect = 0, ;
		Tabs = .F.

	ADD OBJECT maju AS commandbutton WITH ;
		Top = -1, ;
		Left = 118, ;
		Height = 19, ;
		Width = 19, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = ">", ;
		TabStop = .F., ;
		SpecialEffect = 2


	ADD OBJECT mundur AS commandbutton WITH ;
		Top = -1, ;
		Left = -1, ;
		Height = 19, ;
		Width = 18, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		Caption = "<", ;
		TabStop = .F., ;
		SpecialEffect = 2


	ADD OBJECT bbyyyy AS commandbutton WITH ;
		Top = -1, ;
		Left = 16, ;
		Height = 19, ;
		Width = 102, ;
		FontName = "MS Sans Serif", ;
		FontSize = 8, ;
		Caption = "Januari 2011", ;
		TabStop = .F., ;
		SpecialEffect = 2


	PROCEDURE label8.Click
		this.Parent.pf.ActivePage=1
		This.Parent.Proses(CTOD(This.ToolTipText))
	ENDPROC


	PROCEDURE label8.Init
		This.Caption=THISFORM.HariTGL(DATE())
		This.ToolTipText=DTOC(DATE())
	ENDPROC
	
	PROCEDURE bulan.Init
		THIS.AddItem('Januari')
		THIS.AddItem('Februari')
		THIS.AddItem('Maret')
		THIS.AddItem('April')
		THIS.AddItem('Mei')
		THIS.AddItem('Juni')
		THIS.AddItem('Juli')
		THIS.AddItem('Agustus')
		THIS.AddItem('September')
		THIS.AddItem('Oktober')
		THIS.AddItem('Nopember')
		THIS.AddItem('Desember')
		this.Value=MONTH(DATE())
	ENDPROC


	PROCEDURE bulan.InteractiveChange
		this.Parent.proses(DATE(VAL(this.Parent.tahun.DisplayValue),this.Value,this.Parent.nhari))
	ENDPROC


	PROCEDURE tahun.Init
		FOR nom=MAX(YEAR(DATE())-10,1900) to MIN(YEAR(DATE())+5,9999)
			THIS.AddItem(ALLTRIM(STR(nom)))
		ENDFOR
		this.DisplayValue=ALLTRIM(STR(YEAR(DATE())))
	ENDPROC


	PROCEDURE tahun.InteractiveChange
		IF LEN(ALLTRIM(this.DisplayValue))=4
			IF VAL(THIS.DisplayValue)<999
				THIS.DisplayValue='1000'
			ENDIF
			this.Parent.proses(DATE(VAL(this.DisplayValue),this.Parent.bulan.Value,this.Parent.nhari))
		ENDIF
	ENDPROC


	PROCEDURE maju.Click
		IF this.Parent.pf.ActivePage=1
			this.Parent.pf.hari.hr42.RightClick
			return
		ENDIF
		IF this.Parent.pf.ActivePage=2
			this.Parent.bbyyyy.Caption=ALLTRIM(STR(VAL(this.Parent.bbyyyy.Caption)+1))
			this.Parent.pf.bulan.Tag=this.Parent.bbyyyy.Caption
			return
		ENDIF
		IF this.Parent.pf.ActivePage=3
			p1=VAL(RIGHT(ALLTRIM(this.Parent.bbyyyy.Caption),4))
			this.Parent.pf.tahun.hrthn1.Caption=ALLTRIM(STR(p1))
			this.Parent.pf.tahun.hrthn2.Caption=ALLTRIM(STR(p1+1))
			this.Parent.pf.tahun.hrthn3.Caption=ALLTRIM(STR(p1+2))
			this.Parent.pf.tahun.hrthn4.Caption=ALLTRIM(STR(p1+3))
			this.Parent.pf.tahun.hrthn5.Caption=ALLTRIM(STR(p1+4))
			this.Parent.pf.tahun.hrthn6.Caption=ALLTRIM(STR(p1+5))
			this.Parent.pf.tahun.hrthn7.Caption=ALLTRIM(STR(p1+6))
			this.Parent.pf.tahun.hrthn8.Caption=ALLTRIM(STR(p1+7))
			this.Parent.pf.tahun.hrthn9.Caption=ALLTRIM(STR(p1+8))
			this.Parent.pf.tahun.hrthn10.Caption=ALLTRIM(STR(p1+9))
			this.Parent.pf.tahun.hrthn11.Caption=ALLTRIM(STR(p1+10))
			this.Parent.pf.tahun.hrthn12.Caption=ALLTRIM(STR(p1+11))
			this.Parent.bbyyyy.Caption=ALLTRIM(STR(p1))+'-'+ALLTRIM(STR(p1+11))
			return
		ENDIF
	ENDPROC


	PROCEDURE mundur.Click
		IF this.Parent.pf.ActivePage=1
			this.Parent.pf.hari.hr01.RightClick
		ENDIF
		IF this.Parent.pf.ActivePage=2
			this.Parent.bbyyyy.Caption=ALLTRIM(STR(VAL(this.Parent.bbyyyy.Caption)-1))
			this.Parent.pf.bulan.Tag=this.Parent.bbyyyy.Caption
			return
		ENDIF
		IF this.Parent.pf.ActivePage=3
			p1=VAL(LEFT(ALLTRIM(this.Parent.bbyyyy.Caption),4))-10
			this.Parent.pf.tahun.hrthn1.Caption=ALLTRIM(STR(p1))
			this.Parent.pf.tahun.hrthn2.Caption=ALLTRIM(STR(p1+1))
			this.Parent.pf.tahun.hrthn3.Caption=ALLTRIM(STR(p1+2))
			this.Parent.pf.tahun.hrthn4.Caption=ALLTRIM(STR(p1+3))
			this.Parent.pf.tahun.hrthn5.Caption=ALLTRIM(STR(p1+4))
			this.Parent.pf.tahun.hrthn6.Caption=ALLTRIM(STR(p1+5))
			this.Parent.pf.tahun.hrthn7.Caption=ALLTRIM(STR(p1+6))
			this.Parent.pf.tahun.hrthn8.Caption=ALLTRIM(STR(p1+7))
			this.Parent.pf.tahun.hrthn9.Caption=ALLTRIM(STR(p1+8))
			this.Parent.pf.tahun.hrthn10.Caption=ALLTRIM(STR(p1+9))
			this.Parent.pf.tahun.hrthn11.Caption=ALLTRIM(STR(p1+10))
			this.Parent.pf.tahun.hrthn12.Caption=ALLTRIM(STR(p1+11))
			this.Parent.bbyyyy.Caption=ALLTRIM(STR(p1))+'-'+ALLTRIM(STR(p1+11))
			return
		ENDIF
	ENDPROC


	PROCEDURE bbyyyy.Click
		IF LEN(ALLTRIM(this.Caption))=4
			p1=VAL(this.Caption)-6
			this.Parent.pf.tahun.hrthn1.Caption=ALLTRIM(STR(p1))
			this.Parent.pf.tahun.hrthn2.Caption=ALLTRIM(STR(p1+1))
			this.Parent.pf.tahun.hrthn3.Caption=ALLTRIM(STR(p1+2))
			this.Parent.pf.tahun.hrthn4.Caption=ALLTRIM(STR(p1+3))
			this.Parent.pf.tahun.hrthn5.Caption=ALLTRIM(STR(p1+4))
			this.Parent.pf.tahun.hrthn6.Caption=ALLTRIM(STR(p1+5))
			this.Parent.pf.tahun.hrthn7.Caption=ALLTRIM(STR(p1+6))
			this.Parent.pf.tahun.hrthn8.Caption=ALLTRIM(STR(p1+7))
			this.Parent.pf.tahun.hrthn9.Caption=ALLTRIM(STR(p1+8))
			this.Parent.pf.tahun.hrthn10.Caption=ALLTRIM(STR(p1+9))
			this.Parent.pf.tahun.hrthn11.Caption=ALLTRIM(STR(p1+10))
			this.Parent.pf.tahun.hrthn12.Caption=ALLTRIM(STR(p1+11))
			this.Caption=ALLTRIM(STR(p1))+'-'+ALLTRIM(STR(p1+11))
			this.Parent.pf.ActivePage=3
			ELSE
			THIS.Caption=this.Parent.tahun.DisplayValue
			this.Parent.pf.bulan.Tag=this.Caption
			this.Parent.pf.ActivePage=2
		ENDIF
	ENDPROC

	PROCEDURE XRESIZE(O,OBYEKS,NTOP,NLEFT)
		NTOP1=O.TOP+45+OBYEKS.TOP+NTOP
		NLEFT1=O.LEFT+OBYEKS.LEFT+OBYEKS.WIDTH+NLEFT
		IF NTOP1+188>_SCREEN.HEIGHT
			NTOP1=_SCREEN.HEIGHT-188
		ENDIF
		IF NLEFT1+138>_SCREEN.WIDTH
			NLEFT1=_SCREEN.WIDTH-148
			NTOP1=MIN(NTOP1+OBYEKS.HEIGHT,_SCREEN.HEIGHT-188)
		ENDIF	
		THIS.Top=NTOP1
		THIS.Left=NLEFT1
	ENDPROC
	PROCEDURE proses
		PARAMETERS mTglnya
		this.pf.ActivePage=1
		LOCAL mTglb, mTgle, mTgl1, mHr3, Mhr0, mHr1, mHr2, mIsi, Nom, mNomer
		IF PCOUNT()=0
			mTGLNYA=DATE()
		ENDIF
		if type('mTglnya')<>'D'
			mTglnya=Date()
		endif
		if empty(mTglnya)
			mTglnya=date()
		endif
		*MNOMER=0
		This.Hari(mTglnya)
		mTglb=mTglnya
		mTgle=mTglnya
		mTgl1=MAX(1,((DAY(mtgle)-(DAY(mtgle)%7))/7))
		mHr3="HR0"+STR(DOW(mTgle),1)+STR(mTgl1,1)
		This.Nilainya=mTglnya
		FOR Nom=1 TO 42
			mHr0="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM,2)),2)+".Caption"
			mHr1="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM,2)),2)+".StatusBarText"
			mHr2=STR(NOM,2)+STR(mTgl1,1)
			mIsi=&mHr1
			IF mHr3==mIsi
				MNomer=Nom
				EXIT
			ENDIF
		ENDFOR
		mTglb=mTgle
		DO WHILE DAY(mTglb)-mNomer>=0
			mNomer=mNomer+7
		ENDDO
		FOR Nom1=mNomer TO 1 STEP -1
		    mHr4="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Forecolor"
			mHr0="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Caption"
			mHr1="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Setfocus"
			mHr2="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Fontbold"
			mHr3="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".ToolTiptext"
			&mHr0=STR(DAY(mTglb),2)
			&mHr2=.F.
			&mHr3=DTOC(mTGLB)
			IF mTglb==mTglnya
				&mHr2=.T.
			ENDIF
			&mHr4=RGB(0,0,0)
			IF LEFT(DTOS(mTGLB),6)<>LEFT(DTOS(mTglnya),6)
				&mHr4=RGB(128,128,128)
			ENDIF
			mTglb=mTglb-1
		ENDFOR

		FOR Nom2=mNomer TO 42
		    mHr4="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Forecolor"
			mHr0="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Caption"
			mHr1="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Setfocus"
			mHr2="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Fontbold"
			mHr3="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".ToolTiptext"
			&mHr2=.F.
			&mHr3=DTOC(mTGLE)
			IF mTgle==mTglnya
				&mHr2=.T.
			ENDIF
			&mHr0=STR(DAY(mTgle),2)
			&mHr4=RGB(0,0,0)
			IF LEFT(DTOS(mTGLE),6)<>LEFT(DTOS(mTglnya),6)
				&mHr4=RGB(128,128,128)
			ENDIF
			mTgle=mTgle+1
		ENDFOR
	ENDPROC


	PROCEDURE kembali
		PARAMETERS mTglnya
		DO CASE
			CASE TYPE('THIS.Kembalinya.value')=='D'
				THIS.Kembalinya.value=mTglnya
			CASE TYPE('THIS.Kembalinya.value')=='C'
				THIS.Kembalinya.value=DTOC(mTglnya)
		ENDCASE
		Release oKalender
	ENDPROC


	PROCEDURE hari
		PARAMETERS mTglnya
		this.nhari=DAY(mtglnya)
		this.bulan.Value=MONTH(mTglnya)
		this.tahun.DisplayValue=ALLTRIM(STR(YEAR(mTglnya)))
		this.bbyyyy.Caption=this.bulan.DisplayValue+' '+this.tahun.DisplayValue
	ENDPROC


	PROCEDURE Init
		PARAMETERS DTGL
		IF PCOUNT()=0
			IF this.bulanan=0
				DTGL=DATE()
				ELSE
				DTGL=DATE(YEAR(DATE()),THIS.BULanan,1)
			ENDIF
		ENDIF
		THIS.PRoses(DTGL)
	ENDPROC

	PROCEDURE label8.Init
		This.Caption=THISFORM.HariTgl(DATE())
		This.ToolTipText=DTOC(DATE())
	ENDPROC


	PROCEDURE label8.Click
		this.Parent.pf.ActivePage=1
		This.Parent.Proses(CTOD(This.ToolTipText))
	ENDPROC

	procedure deactivate
		release oKalender
	endproc
	
	PROCEDURE HARITgl(xTGL)
		LOCAL xHARI
		IF TYPE('XTGL')<>'D'
			XTGL=DATE()
		ENDIF
		IF EMPTY(XTGL)
			XTGL=DATE()
		ENDIF
		xHRI='Minggu,Senin,Selasa,Rabu,Kamis,Jumat,Sabtu'
		xBLN='Januari,Februari,Maret,April,Mei,Juni,Juli,Agustus,September,Oktober,Nopember,Desember'
		RETURN GETWORDNUM(xHri,DOW(xTGL),',')+', '+TRANSFORM(DAY(xTgl))+' '+GETWORDNUM(xBln,MONTH(xTgl),',')+' '+TRANSFORM(YEAR(xTgl))
	ENDPROC
	
ENDDEFINE
DEFINE CLASS _PageFrame AS pageframe
	add object hari as hari
	add object bulan as bulan
	add object tahun as tahun
ENDDEFINE

DEFINE CLASS hari as page
	ADD OBJECT hr01 AS hr WITH ;
		Top = 13, ;
		Left = 2, ;
		Width = 20, ;
		StatusBarText = "HR011", ;
		ToolTipText = "HR011"


	ADD OBJECT hr02 AS hr WITH ;
		Top = 13, ;
		Left = 22, ;
		StatusBarText = "HR021", ;
		ToolTipText = "HR021"


	ADD OBJECT hr03 AS hr WITH ;
		Top = 13, ;
		Left = 42, ;
		StatusBarText = "HR031", ;
		ToolTipText = "HR031"


	ADD OBJECT hr04 AS hr WITH ;
		Top = 13, ;
		Left = 62, ;
		StatusBarText = "HR041", ;
		ToolTipText = "HR041"


	ADD OBJECT hr05 AS hr WITH ;
		Top = 13, ;
		Left = 82, ;
		StatusBarText = "HR051", ;
		ToolTipText = "HR051"


	ADD OBJECT hr06 AS hr WITH ;
		Top = 13, ;
		Left = 101, ;
		StatusBarText = "HR061", ;
		ToolTipText = "HR061"


	ADD OBJECT hr07 AS hr WITH ;
		Top = 13, ;
		Left = 120, ;
		StatusBarText = "HR071", ;
		ToolTipText = "HR071"


	ADD OBJECT hr08 AS hr WITH ;
		Top = 33, ;
		Left = 2, ;
		StatusBarText = "HR012", ;
		ToolTipText = "HR012"


	ADD OBJECT hr09 AS hr WITH ;
		Top = 33, ;
		Left = 22, ;
		StatusBarText = "HR022", ;
		ToolTipText = "HR022"


	ADD OBJECT hr10 AS hr WITH ;
		Top = 33, ;
		Left = 42, ;
		StatusBarText = "HR032", ;
		ToolTipText = "HR032"


	ADD OBJECT hr11 AS hr WITH ;
		Top = 33, ;
		Left = 62, ;
		StatusBarText = "HR042", ;
		ToolTipText = "HR042"


	ADD OBJECT hr12 AS hr WITH ;
		Top = 33, ;
		Left = 82, ;
		StatusBarText = "HR052", ;
		ToolTipText = "HR052"


	ADD OBJECT hr13 AS hr WITH ;
		Top = 33, ;
		Left = 101, ;
		StatusBarText = "HR062", ;
		ToolTipText = "HR062"


	ADD OBJECT hr14 AS hr WITH ;
		Top = 33, ;
		Left = 120, ;
		StatusBarText = "HR072", ;
		ToolTipText = "HR072"


	ADD OBJECT hr15 AS hr WITH ;
		Top = 52, ;
		Left = 2, ;
		StatusBarText = "HR013", ;
		ToolTipText = "HR013"


	ADD OBJECT hr16 AS hr WITH ;
		Top = 52, ;
		Left = 22, ;
		StatusBarText = "HR023", ;
		ToolTipText = "HR023"


	ADD OBJECT hr17 AS hr WITH ;
		Top = 52, ;
		Left = 42, ;
		StatusBarText = "HR033", ;
		ToolTipText = "HR033"


	ADD OBJECT hr18 AS hr WITH ;
		Top = 52, ;
		Left = 62, ;
		StatusBarText = "HR043", ;
		ToolTipText = "HR043"


	ADD OBJECT hr19 AS hr WITH ;
		Top = 52, ;
		Left = 82, ;
		StatusBarText = "HR053", ;
		ToolTipText = "HR053"


	ADD OBJECT hr20 AS hr WITH ;
		Top = 52, ;
		Left = 101, ;
		StatusBarText = "HR063", ;
		ToolTipText = "HR063"


	ADD OBJECT hr21 AS hr WITH ;
		Top = 52, ;
		Left = 120, ;
		StatusBarText = "HR073", ;
		ToolTipText = "HR073"


	ADD OBJECT hr22 AS hr WITH ;
		Top = 71, ;
		Left = 2, ;
		StatusBarText = "HR014", ;
		ToolTipText = "HR014"


	ADD OBJECT hr23 AS hr WITH ;
		Top = 71, ;
		Left = 22, ;
		StatusBarText = "HR024", ;
		ToolTipText = "HR024"


	ADD OBJECT hr24 AS hr WITH ;
		Top = 71, ;
		Left = 42, ;
		StatusBarText = "HR034", ;
		ToolTipText = "HR034"


	ADD OBJECT hr25 AS hr WITH ;
		Top = 71, ;
		Left = 62, ;
		StatusBarText = "HR044", ;
		ToolTipText = "HR044"


	ADD OBJECT hr26 AS hr WITH ;
		Top = 71, ;
		Left = 82, ;
		StatusBarText = "HR054", ;
		ToolTipText = "HR054"


	ADD OBJECT hr27 AS hr WITH ;
		Top = 71, ;
		Left = 101, ;
		StatusBarText = "HR064", ;
		ToolTipText = "HR064"


	ADD OBJECT hr28 AS hr WITH ;
		Top = 71, ;
		Left = 120, ;
		StatusBarText = "HR074", ;
		ToolTipText = "HR074"


	ADD OBJECT hr29 AS hr WITH ;
		Top = 90, ;
		Left = 2, ;
		StatusBarText = "HR015", ;
		ToolTipText = "HR015"


	ADD OBJECT hr30 AS hr WITH ;
		Top = 90, ;
		Left = 22, ;
		StatusBarText = "HR025", ;
		ToolTipText = "HR025"


	ADD OBJECT hr31 AS hr WITH ;
		Top = 90, ;
		Left = 42, ;
		StatusBarText = "HR035", ;
		ToolTipText = "HR035"


	ADD OBJECT hr32 AS hr WITH ;
		Top = 90, ;
		Left = 62, ;
		StatusBarText = "HR045", ;
		ToolTipText = "HR045"


	ADD OBJECT hr33 AS hr WITH ;
		Top = 90, ;
		Left = 82, ;
		StatusBarText = "HR055", ;
		ToolTipText = "HR055"


	ADD OBJECT hr34 AS hr WITH ;
		Top = 90, ;
		Left = 101, ;
		StatusBarText = "HR065", ;
		ToolTipText = "HR065"


	ADD OBJECT hr35 AS hr WITH ;
		Top = 90, ;
		Left = 120, ;
		StatusBarText = "HR075", ;
		ToolTipText = "HR075"


	ADD OBJECT hr36 AS hr WITH ;
		Top = 109, ;
		Left = 2, ;
		StatusBarText = "HR016", ;
		ToolTipText = "HR016"


	ADD OBJECT hr37 AS hr WITH ;
		Top = 109, ;
		Left = 22, ;
		StatusBarText = "HR026", ;
		ToolTipText = "HR026"


	ADD OBJECT hr38 AS hr WITH ;
		Top = 109, ;
		Left = 42, ;
		StatusBarText = "HR036", ;
		ToolTipText = "HR036"


	ADD OBJECT hr39 AS hr WITH ;
		Top = 109, ;
		Left = 62, ;
		StatusBarText = "HR046", ;
		ToolTipText = "HR046"


	ADD OBJECT hr40 AS hr WITH ;
		Top = 109, ;
		Left = 82, ;
		StatusBarText = "HR056", ;
		ToolTipText = "HR056"


	ADD OBJECT hr41 AS hr WITH ;
		Top = 109, ;
		Left = 101, ;
		StatusBarText = "HR066", ;
		ToolTipText = "HR066"


	ADD OBJECT hr42 AS hr WITH ;
		Top = 109, ;
		Left = 120, ;
		StatusBarText = "HR076", ;
		ToolTipText = "HR076"


	ADD OBJECT label2 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "S", ;
		Height = 13, ;
		Left = 22, ;
		Top = 0, ;
		Width = 20, ;
		TabIndex = 45, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Senin, Soma"


	ADD OBJECT label4 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "R", ;
		Height = 13, ;
		Left = 62, ;
		Top = 0, ;
		Width = 20, ;
		TabIndex = 47, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Rabu, Buda"


	ADD OBJECT label6 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "J", ;
		Height = 13, ;
		Left = 101, ;
		Top = 0, ;
		Width = 20, ;
		TabIndex = 49, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Jumat, Sukra"


	ADD OBJECT label1 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "M", ;
		Height = 13, ;
		Left = 2, ;
		Top = 0, ;
		Width = 19, ;
		TabIndex = 44, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Minggu, Redite"


	ADD OBJECT label3 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "S", ;
		Height = 13, ;
		Left = 42, ;
		Top = 0, ;
		Width = 20, ;
		TabIndex = 46, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Selasa, Anggara"


	ADD OBJECT label5 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "K", ;
		Height = 13, ;
		Left = 82, ;
		Top = 0, ;
		Width = 20, ;
		TabIndex = 48, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Kemis, Wraspati"


	ADD OBJECT label7 AS label WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 2, ;
		BorderStyle = 1, ;
		Caption = "S", ;
		Height = 13, ;
		Left = 120, ;
		Top = 0, ;
		Width = 20, ;
		TabIndex = 50, ;
		ForeColor = RGB(192,192,192), ;
		BackColor = RGB(128,128,128), ;
		ToolTipText = "Sabtu, Saniscara"



	PROCEDURE label1.Click
		this.Parent.hr01.RightClick
	ENDPROC


	PROCEDURE label7.Click
		this.Parent.hr42.RightClick
	ENDPROC


enddefine

define class bulan as page
	ADD OBJECT hrbl1 AS hrbl WITH Top = 8, Left = 4, Caption = "JAN", bl = 1
	ADD OBJECT hrbl2 AS hrbl WITH Top = 8, Left = 50, Caption = "FEB", bl = 2
	ADD OBJECT hrbl3 AS hrbl WITH Top = 8, Left = 96, Caption = "MAR", bl = 3
	ADD OBJECT hrbl4 AS hrbl WITH Top = 37, Left = 4, Caption = "APR", bl = 4
	ADD OBJECT hrbl5 AS hrbl WITH Top = 37, Left = 50, Caption = "MEI", bl = 5
	ADD OBJECT hrbl6 AS hrbl WITH Top = 37, Left = 96, Caption = "JUN", bl = 6
	ADD OBJECT hrbl7 AS hrbl WITH Top = 67, Left = 4, Caption = "JUL", bl = 7
	ADD OBJECT hrbl8 AS hrbl WITH Top = 67, Left = 50, Caption = "AGS", bl = 8
	ADD OBJECT hrbl9 AS hrbl WITH Top = 67, Left = 96, Caption = "SEP", bl = 9
	ADD OBJECT hrbl10 AS hrbl WITH Top = 98, Left = 4, Caption = "OKT", bl = 10
	ADD OBJECT hrbl11 AS hrbl WITH Top = 98, Left = 50, Caption = "NOP", bl = 11
	ADD OBJECT hrbl12 AS hrbl WITH Top = 98, Left = 96, Caption = "DES", bl = 12
enddefine

define class tahun as page
	ADD OBJECT hrthn1 AS hrthn WITH Top = 10, Left = 7
	ADD OBJECT hrthn2 AS hrthn WITH Top = 10, Left = 49		
	ADD OBJECT hrthn3 AS hrthn WITH Top = 10, Left = 92		
	ADD OBJECT hrthn4 AS hrthn WITH Top = 38, Left = 7
	ADD OBJECT hrthn5 AS hrthn WITH Top = 38, Left = 49
	ADD OBJECT hrthn6 AS hrthn WITH Top = 38, Left = 92
	ADD OBJECT hrthn7 AS hrthn WITH Top = 66, Left = 7
	ADD OBJECT hrthn8 AS hrthn WITH Top = 66, Left = 49	
	ADD OBJECT hrthn9 AS hrthn WITH Top = 66, Left = 92
	ADD OBJECT hrthn10 AS hrthn WITH Top = 94, Left = 7
	ADD OBJECT hrthn11 AS hrthn WITH Top = 94, Left = 49
	ADD OBJECT hrthn12 AS hrthn WITH Top = 94, Left = 92
ENDDEFINE
*
*-- EndDefine: _kalender
**************************************************


DEFINE CLASS hr AS commandbutton

	AutoSize = .F.
	Height = 20
	Width = 20
	FontName = "MS Sans Serif"
	FontSize = 8
	Caption = "01"
	StatusBarText = "HR011"
	TabStop = .F.
	ToolTipText = "HR011"
	SpecialEffect = 2

	PROCEDURE GotFocus
		This.Parent.Parent.Parent.Hari(CTOD(This.ToolTiptext))
	ENDPROC


	PROCEDURE Click
		GASY_TGL=CTOD(This.ToolTiptext)
		This.Parent.Parent.Parent.Kembali(CTOD(This.ToolTiptext))
	ENDPROC

	PROCEDURE RightClick
		This.Parent.Parent.Parent.Proses(CTOD(This.ToolTiptext))
	ENDPROC


ENDDEFINE



DEFINE CLASS hrbl AS commandbutton

	Height = 27
	Width = 39
	FontName = "MS Sans Serif"
	Caption = "JAN"
	SpecialEffect = 0
	bl = 1

	PROCEDURE Click
		This.Parent.Parent.Parent.Proses(DATE(VAL(this.Parent.Parent.Parent.bbyyyy.caption),this.bl,1))
	ENDPROC

ENDDEFINE


DEFINE CLASS hrthn AS commandbutton

	Height = 27
	Width = 39
	Caption = "2011"
	TabStop = .F.


	PROCEDURE Click
		This.Parent.Parent.Parent.bbyyyy.caption=this.caption
		This.Parent.Parent.Parent.pf.activepage=2
	ENDPROC


ENDDEFINE

PROCEDURE SANDIMUTASI
	PUBLIC oGasySandi
	oGasySandi=CREATEOBJECT("standarjurnal")
	oGasySandi.Show   
ENDPROC
 

DEFINE CLASS standarjurnal AS form
	Caption="Setup Sandi Transasi dan Standar Jurnal"
	AutoCenter=.T.
   	MAXHeight = 442
	MAXWidth = 685
   	MINHeight = 442
	MINWidth = 685
	MaxButton= .F.	
	MinButton= .F.
	Icon = "Gasy.ico"
	WindowType = 1
	DESKTOP=.T.
	BackColor = RGB(144,176,168)
	SHOWTIPS=.T.


	ADD OBJECT cJurnal AS Checkbox WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "", ;
		Left = 19, ;
		Top = 69

	ADD OBJECT label10 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Sandi Mutasi", ;
		Left = 56, ;
		Top = 48
		
	ADD OBJECT vsandi AS textbox WITH ;
		Format ="!!!!!!!!!",;
		Height = 23, ;
		Left = 55, ;
		MaxLength = 9, ;
		SelectOnEntry = .T., ;
		Top = 69, ;
		Width = 88,;
		TOOLTIPTEXT="KLIK KANAN UNTUK MENAMPILKAN, ATAU KETIK ="

	ADD OBJECT label19 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Keterangan", ;
		Left = 146, ;
		Top = 48

	ADD OBJECT vnamasandi AS textbox WITH ;
		Height = 23, ;
		Left = 146, ;
		MaxLength = 50, ;
		Top = 69, ;
		Width = 232
			
	ADD OBJECT label24 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Kode Jurnal", ;
		Left = 384, ;
		Top = 48

	ADD OBJECT ccjurnal AS textbox WITH ;
		Height = 23, ;
		Left = 379, ;
		MaxLength = 30, ;
		SelectOnEntry = .T., ;
		Top = 69, ;
		Width = 66


	ADD OBJECT label20 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "DK", ;
		Left = 455, ;
		Top = 48

	ADD OBJECT dk AS textbox WITH ;
		Height = 23, ;
		Left = 449, ;
		MaxLength = 2, ;
		SelectOnEntry = .T., ;
		Top = 69, ;
		Width = 35	

	ADD OBJECT label21 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "SD", ;
		Left = 492, ;
		Top = 48

	ADD OBJECT sandilama AS textbox WITH ;
		Height = 23, ;
		Left = 486, ;
		MaxLength = 1, ;
		SelectOnEntry = .T., ;
		Top = 69, ;
		Width = 28

	ADD OBJECT label23 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Prosedur", ;
		Left = 538, ;
		Top = 48

	ADD OBJECT ccpros AS textbox WITH ;
		Height = 23, ;
		Left = 516, ;
		MaxLength = 8, ;
		SelectOnEntry = .T., ;
		Top = 69, ;
		Width = 67

	ADD OBJECT label22 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Catatan", ;
		Left = 614, ;
		Top = 48

	ADD OBJECT vcatatan AS textbox WITH ;
		Height = 23, ;
		Left = 584, ;
		MaxLength = 30, ;
		SelectOnEntry = .T., ;
		Top = 69, ;
		Width = 95

	ADD OBJECT cmdrekamstd AS commandbutton WITH ;
		Top = 114, ;
		Left = 486, ;
		Height = 27, ;
		Width = 84, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<Simpan"


	ADD OBJECT cmdhapusstd AS commandbutton WITH ;
		Top = 114, ;
		Left = 571, ;
		Height = 27, ;
		Width = 84, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<Hapus"
		
	ADD OBJECT lxKodeJurnal AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		BackStyle = 0, ;
		Caption = "Kode Jurnal", ;
		Left = 56, ;
		Top = 120
	
	ADD OBJECT kodejurnal AS textbox WITH ;
		Height = 23, ;
		Left = 145, ;
		MaxLength = 9, ;
		SelectOnEntry = .T., ;
		Top = 117, ;
		Width = 88

	add object std_0 as std_jurnal_ with ;
		top=150
		
	add object std_1 as std_jurnal_ with ;
		NOMER_.VALUE='1',;
		top=173
		
	add object std_2 as std_jurnal_ with ;
		NOMER_.VALUE='2',;
		top=196
		
	add object std_3 as std_jurnal_ with ;
		NOMER_.VALUE='3',;
		top=219
		
	add object std_4 as std_jurnal_ with ;
		NOMER_.VALUE='4',;
		top=239
		
	add object std_5 as std_jurnal_ with ;
		NOMER_.VALUE='5',;
		top=262
		
	add object std_6 as std_jurnal_ with ;
		NOMER_.VALUE='6',;
		top=285	
		
	add object std_7 as std_jurnal_ with ;
		NOMER_.VALUE='7',;
		top=308	
	
	add object std_8 as std_jurnal_ with ;
		NOMER_.VALUE='8',;
		top=331	
		
	add object std_9 as std_jurnal_ with ;
		NOMER_.VALUE='9',;
		top=354	
		
		
	ADD OBJECT cmdrekam AS commandbutton WITH ;
		Top = 402, ;
		Left = 23, ;
		Height = 27, ;
		Width = 84, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<Simpan"


	ADD OBJECT cmdhapus AS commandbutton WITH ;
		Top = 402, ;
		Left = 107, ;
		Height = 27, ;
		Width = 84, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<Hapus"


	ADD OBJECT cmdcetak AS commandbutton WITH ;
		Top = 402, ;
		Left = 191, ;
		Height = 27, ;
		Width = 84, ;
		FontName = "MS Sans Serif", ;
		Caption = "\<Cetak"
	
	ADD OBJECT cmdkembali AS commandbutton WITH ;
		Top = 402, ;
		Left = 572, ;
		Height = 27, ;
		Width = 84, ;
		FontName = "MS Sans Serif", ;
		Caption = "E\<xit"
		
	procedure std_0.init
		this.nomer_.value='No.'
		this.Noper_.Value='No.Rekening'
		this.Noper_.style=1
		this.Noper_.MAXLENGTH=14
		this.Naper_.Value='Nama Rekening'
		this.Naper_.style=1
		this.Kode_.Value='Kode'
		this.Kode_.style=1
		this.D_K_.Value='D/K'
		this.D_K_.style=1	
		this.D_K_.MAXLENGTH=3
		this.Keterangan_.Value='Keterangan'
		this.Keterangan_.style=1
	endproc
	
	PROCEDURE cmdkembali.Click
	    RELEASE oGasySandi
	ENDPROC
	
	PROCEDURE cmdRekam.click
		FOR nom=1 TO 9
			mNoper="This.Parent.STD_"+STR(Nom,1)+".Noper_.Value"
			mDk="This.Parent.STD_"+STR(Nom,1)+".D_K_.Value"
			mCatatan="This.Parent.STD_"+STR(Nom,1)+".KETERANGAN_.Value"		
			mKode="This.Parent.STD_"+STR(Nom,1)+".KODE_.Value"	
			StdRekam(This.Parent.KodeJurnal.Value,STR(Nom,1),&mNoper,&mDk,&mKode,&mCatatan)
		ENDFOR
		This.Parent.KodeJurnal.Setfocus
	ENDPROC
	
	
	PROCEDURE cmdHapus.click
		FOR nom=1 TO 9
			StdHapus(This.Parent.KodeJurnal.Value,STR(Nom,1))
		ENDFOR
		This.Parent.KodeJurnal.Setfocus
	ENDPROC
	
	
	PROCEDURE kodejurnal.KOSONGKAN
		FOR nom=1 TO 9
			mSTD="This.Parent.STD_"+STR(Nom,1)
			&mSTD..Noper_.Value=""
			&mSTD..D_K_.Value=""
			&mSTD..NAPER_.Value=""
			&mSTD..KODE_.Value=""
			&mSTD..KETERANGAN_.Value=""
		ENDFOR
	ENDPROC

	PROCEDURE kodejurnal.VALID
		IF EMPTY(THIS.VALUE)
			THIS.KOSONGKAN
			RETURN
		ENDIF
		FOR nom=1 TO 9
			IF stdcari(This.Value,STR(Nom,1))
				mSTD="This.Parent.STD_"+STR(Nom,1)
				&mSTD..Noper_.VALUE=NOPER
				&mSTD..Naper_.VALUE=Naper
				&mSTD..KODE_.VALUE=C_N				
				&mSTD..D_K_.VALUE=D_K
				&mSTD..KETERANGAN_.VALUE=Blanko
			ENDIF
		ENDFOR
	ENDPROC

	PROCEDURE vSandi.Rightclick
		THIS.TAG=ALLTRIM(UPPER(THIS.VALUE))
		IF AK_STD()
			IF EMPTY(THIS.TAG)
				SELECT AK_STD.KODE,KETERANGAN FROM AK_STD ORDER BY KODE INTO CURSOR SANDIMTS
				ELSE
				SELECT AK_STD.KODE,KETERANGAN FROM AK_STD ;
					WHERE OCCURS(THIS.TAG,UPPER(KODE))>0 ;
					OR OCCURS(THIS.TAG,UPPER(KETERANGAN))>0 ;
					ORDER BY KODE INTO CURSOR SANDIMTS
			ENDIF			
			SELECT SANDIMTS
			This.Value=gLookup('SANDI MUTASI TRANSAKSI',This.Value,"SANDIMTS",80)
			Tutup("SandiMts")
		ENDIF	
	
	ENDPROC
	
	
	PROCEDURE vSandi.Dblclick
		This.Value=""
	ENDPROC
	
	
	PROCEDURE vSandi.VALID
		IF !AK_STD()
			RETURN
		ENDIF
		IF EMPTY(THIS.VALUE)
			RETURN
		ENDIF
		IF LEFT(THIS.VALUE,1)='='
			THIS.VALUE=SUBSTR(THIS.VALUE,2)
			THIS.RIGHTCLICK
			RETURN 0
		ENDIF
		IF !EMPTY(This.Value)
			This.Parent.cmdRekamStd.Enabled=.t.
			SELECT AK_STD
			LOCATE FOR KODE==ALLTRIM(This.Value)
			IF FOUND()
				This.Parent.cmdHapusStd.Enabled=.t.
				This.Parent.vNamaSandi.Value=Keterangan
				This.Parent.ccJurnal.Value=Naper
				This.Parent.DK.Value=D_K
				This.Parent.SandiLama.Value=SDT
				This.Parent.ccPros.Value=Prosedur
				This.Parent.vCatatan.Value=ALLTRIM(Catatan)
				This.Parent.cJurnal.Value=VAL(LEFT(KPRO,1))
			ENDIF		
		ENDIF
		RETURN 1
	ENDPROC
	
	PROCEDURE cmdHapusStd.click
		IF !AK_STD()
			RETURN
		ENDIF
		This.ENABLED=.F.
		SELECT AK_STD
		LOCATE FOR KODE==ALLTRIM(This.Parent.vSandi.Value)
		IF FOUND()
			IF Kunci_Fi(10)
				DELETE
				UNLOCK
				FLUSH
			ENDIF
		ENDIF		
	ENDPROC
	
	PROCEDURE cmdRekamStd.RIGHTclick
		TUTUP('AK_STD')
		IF !AK_STD(.T.)
			RETURN
		ENDIF
		SELE AK_STD
		MODI STRU
	ENDPROC
	
	PROCEDURE cmdRekamStd.click
		IF !AK_STD()
			RETURN
		ENDIF
		This.ENABLED=.F.
		SELECT AK_STD
		LOCATE FOR KODE==ALLTRIM(This.Parent.vSandi.Value)
		IF !FOUND()
			IF Kunci_Fi(10)
				APPEND BLANK
				REPLACE Kode WITH This.Parent.vSandi.Value,;
					Keterangan WITH This.Parent.vNamaSandi.Value,;			
					Naper WITH This.Parent.ccJurnal.Value,;
					D_K WITH This.Parent.DK.Value,;
					SDT WITH This.Parent.SandiLama.Value,;
					Prosedur WITH This.Parent.ccPros.Value,;
					Catatan WITH LEFT(This.Parent.vCatatan.Value,3),;
					KPRO WITH STR(This.Parent.cJurnal.Value,1)
				FLUSH				
				UNLOCK				
			ENDIF
			ELSE
			IF Kunci_RC(5)
				REPLACE Naper WITH This.Parent.ccJurnal.Value,;
					Keterangan WITH This.Parent.vNamaSandi.Value,;
					D_K WITH This.Parent.DK.Value,;
					SDT WITH This.Parent.SandiLama.Value,;
					Prosedur WITH This.Parent.ccPros.Value,;
					Catatan WITH LEFT(This.Parent.vCatatan.Value,3),;
					KPRO WITH STR(This.Parent.cJurnal.Value,1)
				FLUSH
				UNLOCK				
			ENDIF
		ENDIF		
	ENDPROC	

	PROCEDURE cmdCetak.RightClick
		IF !AK_JCN(.F.)
			RETURN
		ENDIF
		SELECT AK_JCN
		PROCETAK(Alamatdl+'Laporan\ak_standarjurnal')
	ENDPROC
	
	PROCEDURE cmdCetak.Click
		IF !AK_STD()
			RETURN
		ENDIF
		SELECT AK_STD
		PROCETAK(Alamatdl+'Laporan\ak_sanditransaksi')
	ENDPROC
	
	PROCEDURE KODEJURNAL.GOTFOCUS
		IF OCCURS('-',THIS.PARENT.CCJURNAL.VALUE)=1
			THIS.TOOLTIPTEXT=STREXTRACT(THIS.PARENT.CCJURNAL.VALUE,'-','')
		ENDIF
		IF OCCURS('-',THIS.PARENT.CCJURNAL.VALUE)=2
			THIS.TOOLTIPTEXT=STREXTRACT(THIS.PARENT.CCJURNAL.VALUE,'-','-')
		ENDIF
		THIS.VALUE=THIS.TOOLTIPTEXT
	ENDPROC
	
	PROCEDURE KODEJURNAL.DBLCLICK
		THIS.VALUE=''
		THIS.KOSONGKAN
	ENDPROC
	
ENDDEFINE

*
*-- EndDefine: standarjurnal
**************************************************
PROCEDURE STDCARI
	LPARAMETERS Kode1,Kode2
	SELECT AK_JCN
	SET ORDER TO 1
	SEEK KODE1+KODE2
	RETURN FOUND()
ENDPROC
PROCEDURE STDHAPUS
	LPARAMETERS Kode1,Kode2
	SELECT AK_JCN
	SET ORDER TO 1
	SEEK KODE1+KODE2
	*LOCATE FOR KODE==KODE1 AND URUT==KODE2
	IF FOUND()
		IF KUNCI_RC(5)
			DELETE
			FLUSH
			UNLOCK
		ENDIF
	ENDIF
ENDPROC
PROCEDURE STDREKAM
	LPARAMETERS Kode1,Kode2,Kode3,Kode4,Kode5,Kode6
	IF !EMPTY(Kode3)
		SELECT AK_MST
		SEEK KODE3 ORDER 1
		IF FOUND()
			MKODE4=NAPER
			SELECT AK_JCN
			SET ORDER TO 1
			SEEK KODE1+KODE2
			IF !FOUND()
				IF KUNCI_FI(5)
					APPEND BLANK
					REPLACE KODE WITH KODE1, URUT WITH KODE2, NOPER WITH KODE3,;
						NAPER WITH MKODE4, D_K WITH KODE4, C_N WITH KODE5, BLANKO WITH Kode6
					UNLOCK
				ENDIF
				ELSE
				IF KUNCI_RC(5)
					REPLACE NOPER WITH KODE3,;
					NAPER WITH MKODE4, D_K WITH KODE4, C_N WITH KODE5, BLANKO WITH Kode6
					UNLOCK
				ENDIF
			ENDIF
		ENDIF
	ENDIF	
ENDPROC

DEFINE CLASS STD_JURNAL_ AS CONTAINER 
	BACKSTYLE=0
	BORDERWIDTH=0
	HEIGHT=25
	WIDTH=750

	ADD OBJECT nomer_ AS TEXTBOX WITH ;
		VALUE = "1", ;
		ALIGNMENT=2,;
		WIDTH=30,;
		HEIGHT=23,;
		Left = 10,;
		STYLE=1

	ADD OBJECT noper_ AS textbox WITH ;
		Height = 23, ;
		Left = 40, ;
		MaxLength = 10, ;
		SelectOnEntry = .T., ;
		Top = 0, ;
		Width = 90,;
		TOOLTIPTEXT="KLIK KANAN UNTUK MENAMPILKAN AKUN, ATAU KETIK ="
		
	ADD OBJECT naper_ AS textbox WITH ;
		Height = 23, ;
		Left = 130, ;
		MaxLength = 100, ;
		SelectOnEntry = .T., ;
		Top = 0, ;
		Width = 300,;
		style=1
		
	ADD OBJECT kode_ AS textbox WITH ;
		Height = 23, ;
		Left = 430, ;
		MaxLength = 10, ;
		SelectOnEntry = .T., ;
		Top = 0, ;
		Width = 70,;
		style=0		
			

	ADD OBJECT d_k_ AS textbox WITH ;
		Height = 23, ;
		Left = 500, ;
		MaxLength = 1, ;
		SelectOnEntry = .T., ;
		Top = 0, ;
		Width = 30,;
		AlignMent=2,;
		style=0,;
		inputmask='!',;
		format='!'

	ADD OBJECT keterangan_ AS textbox WITH ;
		Height = 23, ;
		Left = 530, ;
		MaxLength = 50, ;
		SelectOnEntry = .T., ;
		Top = 0, ;
		Width = 150,;
		style=0
		
		
	PROCEDURE d_k_.Valid
		IF EMPTY(This.Value)
			This.Value="D"
		ENDIF
		IF This.Value$"DK"
			RETURN 1
		ENDIF
	ENDPROC
	
	PROCEDURE noper_.RightClick
		this.tag=upper(alltrim(this.value))		
		if !DBF_AK_MST()
			return
		endif

		IF USED('Ak_Mst')
			if empty(this.tag)
				Sele NOPER,NAPER FROM AK_MST ;
				ORDER BY NOPER ;
				INTO CURSOR DAFTARAK
				else
				Sele NOPER,NAPER FROM AK_MST ;
				WHERE occurs(this.tag,upper(noper))>0 ;
				or occurs(this.tag,upper(naper))>0 ;
				ORDER BY NOPER ;
				INTO CURSOR DAFTARAK				
			endif
			This.Value=gLookup('Daftar Rekening Transaksi',This.Value,"DAFTARAK",80)
		ENDIF
	ENDPROC
	
	PROCEDURE noper_.valid
		if empty(this.value)
			this.parent.naper_.value=''
			return
		endif
		if !DBF_AK_MST()
			return
		endif
		
		if !used('ak_mst')
			return
		endif
		IF LEFT(THIS.VALUE,1)=='='
			THIS.VALUE=SUBSTR(THIS.VALUE,2)
			THIS.RIGHTCLICK
			RETURN 0
		ENDIF
		SELECT AK_MST
		SEEK This.Value ORDER 1
		IF FOUND()
			This.Parent.Naper_.Value=AK_MST.NAPER
			return 1
			ELSE
			This.Value=""
			this.parent.naper_.value=''
			return 0
		ENDIF		
	ENDPROC
	
ENDDEFINE

PROCEDURE ALAMAT
PUBLIC oGasyBrowse
IF !CEKDL()
	RETURN
ENDIF
CLOSE TABLES ALL
IDATA=ALAMATDL+"ALAMATDATA.DBF"
IF !FILE(IDATA)
	CREATE TABLE (IDATA) ;
	(;
			KLP C(3),;
			KODE C(3),;
			KETERANGAN C(50),;
			ALAMAT C(250);
	)
ENDIF	
IF !BUKA(.T.,IDATA,"ALAMATDATA")
	RETURN
ENDIF
SELE ALAMATDATA 
oGasyBrowse=CREATEOBJECT("gBrowser")
oGasyBrowse.Show
ENDPROC

DEFINE CLASS gbrowser AS form
	Height = 450
	Width = 750
	MinHeight = 450
	MinWidth = 750
	Autocenter=.T.	
	Icon = _SCREEN.ICON
	WindowType = 1
	SHOWTIPS=.T.
	BackColor = RGB(144,176,168)
			
	ADD OBJECT browsegrid1 AS grid WITH ;
		AllowAddNew = .F.,;
		DeleteMark = .T.,;
		Height = 400, ;
		Left = 0, ;
		ReadOnly = .F.,;
		FontSize=12,;
		FontName="Tahoma",;
		RowHeight=30,;
		RecordSourceType = 1, ;
		Top = 50, ;
		Width = 785, ;
		gridlinecolor=RGB(192,192,192),;
		HEADERHEIGHT=30

	ADD OBJECT cmdkembalidbu AS commandbutton WITH ;
		Top = 10, ;
		Height = 27, ;
		Width = 100, ;
		Caption = "\<Kembali", ;
		Name = "cmdKembalidbu"


	ADD OBJECT strdbf AS commandbutton WITH ;
		Top = 10, ;
		Left = 5, ;
		Height = 27, ;
		Width = 100, ;
		Caption = "Struktur Data", ;
		Name = "StrDbf"


	ADD OBJECT cmdCode AS commandbutton WITH ;
		Top = 10, ;
		Left = 105, ;
		Height = 27, ;
		Width = 100, ;
		Caption = "Refresh"
		
	ADD OBJECT cmdTambah AS commandbutton WITH ;
		Top = 10, ;
		Left = 205, ;
		Height = 27, ;
		Width = 100, ;
		Caption = "Tambah"
		
	ADD OBJECT cmdCOPY AS commandbutton WITH ;
		Top = 10, ;
		Left = 305, ;
		Height = 27, ;
		Width = 100, ;
		Caption = "COPY"
		
	PROCEDURE cmdkembalidbu.Click
		RELEASE oGasyBrowse
	ENDPROC

	PROCEDURE cmdCOPY.Click
		SELECT ALAMATDATA
		GO TOP
		IF !EOF()
			RETURN
		ENDIF
		
		THIS.Tag=GETFILE('DBF','PILIH TABEL ALAMAT.DBF')
		IF !EMPTY(THIS.Tag)
			IF JUSTSTEM(THIS.Tag)<>"ALAMAT"
				RETURN
			ENDIF
			SELECT ALAMATDATA
			APPEND FROM (THIS.Tag)
			GO TOP
			thisform.browsegrid1.refresh
		ENDIF
	ENDPROC

	
	PROCEDURE cmdTambah.Click
		isi1=klp
		isi2=kode
		isi3=keterangan
		isi4=alamat
		insert into ALAMATDATA (klp,kode,keterangan,alamat) values (isi1,isi2,isi3,isi4)		
		thisform.browsegrid1.refresh
		thisform.browsegrid1.column1.setfocus		
	ENDPROC	

	PROCEDURE strdbf.Click
		LOCAL NOM
		AFIELDS(COBA)
		DEFINE POPUP Coba FONT "Courier",8 SCROLL SHORTCUT TITLE ;
			"STRUKTUR DATABASE -- "+ALIAS() RELATIVE FROM MROW(),MCOL() COLOR SCHEME 3
			FOR NOM=1 TO ALEN(COBA,1)
				DEFINE BAR NOM OF COBA PROMPT LEFT(COBA[NOM,1]+SPACE(12),12) + COBA[NOM,2]+ STR(COBA[NOM,3],4)+ STR(COBA[NOM,4],4)
			ENDFOR
		ACTIVATE POPUP Coba
		DEACTIVATE POPUP Coba
		RELEASE POPUPS Coba EXTENDED
	ENDPROC
	
		
	PROCEDURE browsegrid1.Init
		This.AllowAddNew = .F.
		This.DeleteMark = .T.
		This.ReadOnly = .F.
		THIS.COLUMN1.ALIGNMENT=2
		THIS.COLUMN2.ALIGNMENT=2
		THIS.COLUMN4.ADDOBJECT("TEXT_5","TXT_ALAMAT")
		THIS.COLUMN4.CURRENTCONTROL="TEXT_5"
	ENDPROC
	
	PROCEDURE Init
		This.Caption="Tabel : "+DBF()
		This.Resize
	ENDPROC
	
	PROCEDURE RESIZE
		THIS.cmdkembalidbu.LEFT=THIS.WIDTH-105
		THIS.browsegrid1.WIDTH=THIS.WIDTH
		THIS.browsegrid1.HEIGHT=THIS.HEIGHT-50

	ENDPROC
	
	PROCEDURE CMDCODE.CLICK
		THISFORM.browsegrid1.REFRESH
	ENDPROC
	
ENDDEFINE

DEFINE CLASS TXT_ALAMAT AS TEXTBOX
	FontSize=12
	FontName="Tahoma"
	HEIGHT=30
	BORDERSTYLE=0
	VISIBLE=.T.
	MARGIN=2
	TOOLTIPTEXT="KLIK KANAN UNTUK MEMILIH FOLDER"
	
	PROCEDURE RIGHTCLICK
		THIS.COMMENT=GETDIR(ALLTRIM(THIS.VALUE))
		IF !EMPTY(THIS.COMMENT)
			THIS.VALUE=THIS.COMMENT
		ENDIF
	ENDPROC
ENDDEFINE

Sloka 22 Sarasamuccaya

Teks Sloka

Sloka ke-22 dari Sarasamuccaya menyoroti pentingnya adaptabilitas dan bagaimana sikap ini dapat membantu seseorang untuk berkembang dalam berbagai situasi. Berikut adalah terjemahan dari Sloka 22:

"Orang yang bijaksana hendaknya mengembangkan kemampuan beradaptasi, seperti air yang menyesuaikan diri dengan bentuk wadahnya. Dengan adaptabilitas, ia dapat menghadapi perubahan dengan tenang dan menemukan peluang dalam setiap tantangan."

Penjelasan

Sloka ini mengajarkan bahwa adaptabilitas adalah kunci untuk bertahan dan berkembang dalam dunia yang terus berubah. Dalam perumpamaan ini, adaptabilitas diibaratkan seperti air yang selalu bisa menyesuaikan diri dengan bentuk wadahnya, menunjukkan bahwa fleksibilitas dan kemampuan untuk beradaptasi adalah kualitas penting yang memungkinkan seseorang untuk merespons perubahan dengan efektif.

Adaptabilitas melibatkan kemampuan untuk menerima perubahan dan menyesuaikan strategi ketika menghadapi situasi baru. Ini berarti bersedia untuk belajar dan berkembang, serta melihat perubahan sebagai peluang untuk pertumbuhan daripada sebagai ancaman. Dengan adaptabilitas, seseorang dapat tetap relevan dan berhasil dalam lingkungan yang dinamis.

Relevansi

Dalam dunia modern yang cepat berubah dan tidak menentu, pesan dari sloka ini sangat relevan. Adaptabilitas membantu kita untuk tetap kompetitif dan fleksibel dalam menghadapi berbagai tantangan dan peluang yang muncul. Ini juga memungkinkan kita untuk lebih baik dalam mengelola stres dan ketidakpastian yang sering menyertai perubahan.

Adaptabilitas juga penting dalam pengembangan pribadi dan profesional. Dengan bersedia untuk menyesuaikan diri dengan perubahan, kita dapat mengoptimalkan potensi kita dan mencapai kesuksesan yang lebih besar. Ini juga membantu kita untuk membangun hubungan yang lebih baik, karena kita dapat lebih mudah berinteraksi dan bekerja dengan orang lain dalam berbagai situasi.

Dengan menerapkan ajaran ini, kita dapat membangun kehidupan yang lebih fleksibel dan dinamis, serta memberi inspirasi kepada orang lain untuk mengadopsi sikap yang sama. Adaptabilitas yang disertai dengan kebijaksanaan dan kebajikan dapat membawa kita menuju kehidupan yang lebih harmonis dan memuaskan.

**************************************************
*-- Class:        tp000 (c:\gasy\gasytrs.vcx)
*-- ParentClass:  container
*-- BaseClass:    container
*-- Time Stamp:   02/15/04 03:36:12 AM
*
PUBLIC oGasyTP00

IF !USED('TP_MST')
    RETURN
ENDIF

IF !GASYKLAS()
	RETURN
ENDIF

oGasyTP00=CREATEOBJECT("oTp00")
oGasyTP00.Height=400
oGasyTP00.Width=718
oGasyTP00.Autocenter=Tengah
oGasyTP00.Show

   
DEFINE CLASS otp00 AS form

    Top = 0
    Left = 0
	Height = 400
	Width = 718
	Caption = "Register Nasabah Tabungan Program"
	DoCreate = .T.
	Closable = .T.
	ControlBox = .T.
	TitleBar = 1
	MaxButton= .F.
	Icon = "bmps\arw03up.ico"
	WindowType = 0
	WindowState = 0
	BackColor = RGB(144,176,168)
	Name = "_form"	

	ADD OBJECT lkode AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Kode", ;
		Height = 15, ;
		Left = 61, ;
		Top = 40+ 5, ;
		Width = 27, ;
		TabIndex = 37, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "lKode"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Nama", ;
		Height = 15, ;
		Left = 58, ;
		Top = 40+ 30, ;
		Width = 30, ;
		TabIndex = 38, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label3"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Alamat", ;
		Height = 15, ;
		Left = 54, ;
		Top = 40+ 55, ;
		Width = 34, ;
		TabIndex = 41, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label4"


	ADD OBJECT tkode AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 25, ;
		Left = 100, ;
		MaxLength = 9, ;
		SelectOnEntry = .T., ;
		TabIndex = 2, ;
		ToolTipText = "Ketik Kode Nasabah", ;
		Top = 40+ 0, ;
		Width = 79, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tKode"


	ADD OBJECT tnama AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		MaxLength = 30, ;
		TabIndex = 4, ;
		Top = 40+ 26, ;
		Width = 290, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tNama"


	ADD OBJECT talamat AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		MaxLength = 30, ;
		TabIndex = 5, ;
		Top = 40+ 50, ;
		Width = 290, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tAlamat"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 40+ 156, ;
		Left = 250, ;
		Height = 137, ;
		Width = 139, ;
		ToolTipText = "Click, view foto atau hide foto", ;
		SpecialEffect = 0, ;
		BorderColor = RGB(128,128,128), ;
		Name = "Shape1"


	ADD OBJECT tbfoto AS image WITH ;
		Stretch = 2, ;
		BorderStyle = 1, ;
		Height = 127, ;
		Left = 255, ;
		Top = 40+ 162, ;
		Width = 128, ;
		Name = "tbFoto"


	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Kota", ;
		Height = 15, ;
		Left = 64, ;
		Top = 40+ 80, ;
		Width = 24, ;
		TabIndex = 42, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label6"


	ADD OBJECT tjob AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		MaxLength = 30, ;
		SelectOnEntry = .T., ;
		TabIndex = 7, ;
		Top = 40+ 100, ;
		Width = 290, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tJob"


	ADD OBJECT tinduk AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 303, ;
		MaxLength = 8, ;
		SelectOnEntry = .T., ;
		TabIndex = 3, ;
		ToolTipText = "Ketik Kode Nasabah",;
		Top = 40+ 0, ;
		Width = 87, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tInduk"


	ADD OBJECT tkota AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		MaxLength = 30, ;
		TabIndex = 6, ;
		Top = 40+ 75, ;
		Width = 290, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tKota"


	ADD OBJECT tktp AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		MaxLength = 30, ;
		SelectOnEntry = .T., ;
		TabIndex = 8, ;
		Top = 40+ 125, ;
		Width = 290, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tKtp"


	ADD OBJECT ttgltrs AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 2, ;
		Value = {}, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		SelectOnEntry = .T., ;
		TabIndex = 10, ;
		Top = 40+ 177, ;
		Width = 112, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tTglTrs"


	ADD OBJECT tjw AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .F., ;
		Format = "999", ;
		Height = 25, ;
		InputMask = "999", ;
		Left = 100, ;
		MaxLength = 3, ;
		SelectOnEntry = .T., ;
		TabIndex = 13, ;
		Top = 40+ 227, ;
		Width = 32, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tJW"


	ADD OBJECT ttgljt AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 2, ;
		Value = {}, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		SelectOnEntry = .T., ;
		TabIndex = 15, ;
		Top = 40+ 252, ;
		Width = 112, ;
		BackColor = RGB(128,128,128), ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tTglJt"


	ADD OBJECT label12 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Tgl.Jatuh Tempo", ;
		Height = 15, ;
		Left = 6, ;
		Top = 40+ 256, ;
		Width = 82, ;
		TabIndex = 36, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label12"


	ADD OBJECT label13 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "J.W(Tahun)", ;
		Height = 15, ;
		Left = 30, ;
		Top = 40+ 231, ;
		Width = 58, ;
		TabIndex = 35, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label13"


	ADD OBJECT tjmlsetoran AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .F., ;
		Format = "999,999,999,999", ;
		Height = 25, ;
		InputMask = "999,999,999,999", ;
		Left = 100, ;
		MaxLength = 19, ;
		SelectOnEntry = .T., ;
		TabIndex = 11, ;
		ToolTipText = "Tekan + atau *, untuk mengalikan angka 1000 dan 100", ;
		Top = 40+ 201, ;
		Width = 112, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tJmlSetoran"


	ADD OBJECT tprsbunga AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 3, ;
		Value = 0, ;
		Enabled = .F., ;
		Format = "99.99", ;
		Height = 25, ;
		InputMask = "99.99", ;
		Left = 168, ;
		SelectOnEntry = .T., ;
		TabIndex = 14, ;
		Top = 40+ 227, ;
		Width = 44, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tPrsBunga"


	ADD OBJECT jnsk AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 668, ;
		SelectOnEntry = .T., ;
		TabIndex = 22, ;
		Top = 40+ 27, ;
		Width = 38, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		ZOrderSet = 26, ;
		Name = "JNSK"


	ADD OBJECT tptp5 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 627, ;
		SelectOnEntry = .T., ;
		TabIndex = 21, ;
		Top = 40+ 27, ;
		Width = 38, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		ZOrderSet = 26, ;
		Name = "TPTP5"


	ADD OBJECT tptp4 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 587, ;
		SelectOnEntry = .T., ;
		TabIndex = 20, ;
		Top = 40+ 27, ;
		Width = 38, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		ZOrderSet = 26, ;
		Name = "TPTP4"


	ADD OBJECT tptp3 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 547, ;
		SelectOnEntry = .T., ;
		TabIndex = 19, ;
		Top = 40+ 27, ;
		Width = 38, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		ZOrderSet = 26, ;
		Name = "TPTP3"


	ADD OBJECT tptp2 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 507, ;
		SelectOnEntry = .T., ;
		TabIndex = 18, ;
		Top = 40+ 27, ;
		Width = 38, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		ZOrderSet = 26, ;
		Name = "TPTP2"


	ADD OBJECT tptp1 AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 467, ;
		SelectOnEntry = .T., ;
		TabIndex = 17, ;
		Top = 40+ 27, ;
		Width = 38, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		ZOrderSet = 26, ;
		Name = "TPTP1"


	ADD OBJECT label8 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Pekerjaan", ;
		Height = 15, ;
		Left = 38, ;
		Top = 40+ 105, ;
		Width = 50, ;
		TabIndex = 51, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label8"


	ADD OBJECT label9 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Identitas", ;
		Height = 15, ;
		Left = 46, ;
		Top = 40+ 130, ;
		Width = 42, ;
		TabIndex = 45, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label9"


	ADD OBJECT label15 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Tgl.Setor", ;
		Height = 15, ;
		Left = 43, ;
		Top = 40+ 181, ;
		Width = 45, ;
		TabIndex = 44, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label15"


	ADD OBJECT label16 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Setoran", ;
		Height = 15, ;
		Left = 49, ;
		Top = 40+ 206, ;
		Width = 39, ;
		TabIndex = 46, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label16"


	ADD OBJECT trpbunga AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		Value = 0, ;
		Enabled = .F., ;
		Format = "999,999,999,999.99", ;
		Height = 25, ;
		InputMask = "999,999,999,999.99", ;
		Left = 100, ;
		MaxLength = 19, ;
		SelectOnEntry = .T., ;
		TabIndex = 16, ;
		ToolTipText = "Tekan + atau *, untuk mengalikan angka 1000 dan 100", ;
		Top = 40+ 277, ;
		Width = 112, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "tRPBUNGA"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Jumlah Diterima", ;
		Height = 15, ;
		Left = 12, ;
		Top = 40+ 282, ;
		Width = 76, ;
		TabIndex = 49, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label5"


	ADD OBJECT linduk AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "No Induk:", ;
		Height = 15, ;
		Left = 226, ;
		Top = 40+ 3, ;
		Width = 49, ;
		TabIndex = 34, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		ToolTipText = "Clik disini, untuk melihat DAFTAR NASABAH", ;
		Name = "lInduk"


	ADD OBJECT tgllahir AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 11, ;
		Alignment = 2, ;
		Value = {}, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 100, ;
		SelectOnEntry = .T., ;
		TabIndex = 9, ;
		Top = 40+ 151, ;
		Width = 112, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "TGLLAHIR"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Tgl.Lahir", ;
		Height = 15, ;
		Left = 45, ;
		Top = 40+ 154, ;
		Width = 43, ;
		TabIndex = 43, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label1"


	ADD OBJECT namaaw AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 467, ;
		MaxLength = 30, ;
		TabIndex = 24, ;
		Top = 40+ 80, ;
		Width = 239, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "NAMAAW"


	ADD OBJECT alamataw AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 467, ;
		MaxLength = 30, ;
		TabIndex = 25, ;
		Top = 40+ 104, ;
		Width = 239, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "ALAMATAW"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Ahli Waris", ;
		Height = 15, ;
		Left = 406, ;
		Top = 40+ 86, ;
		Width = 49, ;
		TabIndex = 39, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label2"


	ADD OBJECT label14 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Alamat", ;
		Height = 15, ;
		Left = 421, ;
		Top = 40+ 111, ;
		Width = 34, ;
		TabIndex = 40, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label14"


	ADD OBJECT label17 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Klasifikasi", ;
		Height = 15, ;
		Left = 407, ;
		Top = 40+ 31, ;
		Width = 48, ;
		TabIndex = 50, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label17"


	ADD OBJECT mcatatan AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .F., ;
		Height = 25, ;
		Left = 467, ;
		MaxLength = 30, ;
		TabIndex = 23, ;
		Top = 40+ 53, ;
		Width = 239, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "MCATATAN"


	ADD OBJECT label18 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Catatan", ;
		Height = 15, ;
		Left = 416, ;
		Top = 40+ 57, ;
		Width = 39, ;
		TabIndex = 48, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label18"


	ADD OBJECT jset AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 2, ;
		Enabled = .F., ;
		Format = "X", ;
		Height = 25, ;
		InputMask = "X", ;
		Left = 214, ;
		MaxLength = 1, ;
		SelectOnEntry = .T., ;
		TabIndex = 12, ;
		ToolTipText = "Jenis setoran, 1=Rutin per bulan, 2=Sekali Setor", ;
		Top = 40+ 201, ;
		Width = 27, ;
		DisabledBackColor = RGB(128,128,128), ;
		DisabledForeColor = RGB(255,255,255), ;
		Name = "JSET"


	ADD OBJECT label21 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		BackStyle = 0, ;
		Caption = "Bunga", ;
		Height = 15, ;
		Left = 133, ;
		Top = 40+ 232, ;
		Width = 33, ;
		TabIndex = 47, ;
		ForeColor = RGB(0,0,0), ;
		BackColor = RGB(192,192,192), ;
		Name = "Label21"


	ADD OBJECT line1 AS line WITH ;
		Height = 0, ;
		Left = 0, ;
		Top = 40+ 312, ;
		Width = 718, ;
		BorderColor = RGB(128,128,128), ;
		Name = "Line1"


	ADD OBJECT rekam AS commandbutton WITH ;
		Top = 40+ 324, ;
		Left = 453, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Rekam", ;
		Name = "Rekam"


	ADD OBJECT hapus AS commandbutton WITH ;
		Top = 40+ 324, ;
		Left = 537, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Hapus", ;
		Name = "Hapus"


	ADD OBJECT cmdkembali AS commandbutton WITH ;
		Top = 40+ 324, ;
		Left = 622, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "\<Kembali", ;
		Name = "cmdKembali"


	ADD OBJECT proses AS image WITH ;
		Height = 17, ;
		Left = 420, ;
		Top = 40+ 204, ;
		Visible = .F., ;
		Width = 17, ;
		Name = "Proses"

	PROCEDURE Init
		This.Rekam.Visible=Dadi(39)
		This.Hapus.Visible=Dadi(40)
	ENDPROC
	
	
	PROCEDURE tkode.Valid
		IF !EMPTY(This.Value)
			IF ALLTRIM(This.Value)="+"
				SELECT TP_MST
				SET ORDER TO 1
				GO BOTTOM
				This.Value=RIGHT("000000000"+ALLTRIM(STR(VAL(KODE)+1)),9)
				ELSE
				This.Value=RIGHT("000000000"+ALLTRIM(THIS.Value),9)
			ENDIF

			SELECT TP_MST
			SET ORDER TO 1
			SEEK This.Value
			IF !FOUND()
				This.Parent.Proses.Click
				This.Parent.Proses.DblClick
				This.Parent.TINduk.Enabled=.T.
				ELSE				
				This.Parent.Proses.Rightclick
				This.Parent.Proses.DblClick
				This.Parent.TINduk.Enabled=.T.
				IF TPSAlDO(This.Value,Gasy_Tgl)>0
					This.Parent.Hapus.enabled=.F.
				ENDIF
			ENDIF
		ENDIF		
		RETURN 1		
	ENDPROC


	PROCEDURE shape1.Click
		This.Parent.tbFoto.Visible=IIF(This.Parent.tbFoto.Visible,.F.,.T.)
	ENDPROC


	PROCEDURE tinduk.Valid
		IF !EMPTY(This.Value)
			This.Value=RIGHT('00000000'+ALLTRIM(This.Value),8)
			DATAFOTO=ALLTRIM(ALAMATNYA('ADF'))
			IF DN_MST(.f.)
				SELECT DN_MST
				SET ORDER TO 1
				SEEK This.Value
				IF !FOUND()
					RETURN 0
				ENDIF
				
				This.Parent.tNama.Value=NAMA
				This.Parent.tAlamat.Value=ALAMAT
				This.Parent.tKota.Value=KOTA
				This.Parent.tJob.Value=PEKERJAAN
				This.Parent.tKtp.Value=KTP
				This.Parent.TgLLAHIR.Value=TGL_TRS
				IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG')
					This.Parent.TbFoto.Enabled=.T.
					This.Parent.TbFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG'
					ELSE
					This.Parent.TbFoto.Picture=DATAFOTO+'00000000.JPG'
				ENDIF
			ENDIF		
		ENDIF		
		RETURN 1
	ENDPROC


	PROCEDURE ttgltrs.Init
		This.Value=GASY_TGL
	ENDPROC


	PROCEDURE tjw.LostFocus
		This.Parent.TTglJt.Value=GOMONTH(This.Parent.tTglTrs.Value,(This.Value*12))
		*TpBunga()
	ENDPROC


	PROCEDURE tjmlsetoran.LostFocus
		*TpBunga()
	ENDPROC


	PROCEDURE tjmlsetoran.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF nKeycode=ASC("+")
			This.Value=This.Value*1000
			KEYBOARD '{BACKSPACE}'
		ENDIF
		IF nKeycode=ASC("*")
			This.Value=This.Value*100
		ENDIF
		IF nKeycode=ASC("/")
			This.Value=This.Value*1000000
		ENDIF
		IF nKeycode=7
			This.Value=0
		ENDIF
	ENDPROC


	PROCEDURE tprsbunga.LostFocus
		*TpBunga()
	ENDPROC


	PROCEDURE jnsk.Init
		SELECT GASYKLAS
		SEEK "TP6" ORDER 1
		This.ToolTipText=ALLTRIM(NAMAKLP)
		This.Enabled=FOUND()
		This.Format=REPLICATE("X",LEBAR)
		This.InputMask=REPLICATE("X",LEBAR)
	ENDPROC


	PROCEDURE jnsk.RightClick
		This.Value=DAFTAR(This.ToolTipText,"TP6")
	ENDPROC


	PROCEDURE jnsk.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		RETURN CKLAS("TP6",This.Value)
	ENDPROC


	PROCEDURE tptp5.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		RETURN CKLAS("TP5",This.Value)
	ENDPROC


	PROCEDURE tptp5.RightClick
		This.Value=DAFTAR(This.ToolTipText,"TP5",This.Value)
	ENDPROC


	PROCEDURE tptp5.Init
		SELECT GASYKLAS
		SEEK "TP5" ORDER 1
		This.ToolTipText=ALLTRIM(NAMAKLP)
		This.Enabled=FOUND()
		This.Format=REPLICATE("X",LEBAR)
		This.InputMask=REPLICATE("X",LEBAR)
	ENDPROC


	PROCEDURE tptp4.Init
		SELECT GASYKLAS
		SEEK "TP4" ORDER 1
		This.ToolTipText=ALLTRIM(NAMAKLP)
		This.Enabled=FOUND()
		This.Format=REPLICATE("X",LEBAR)
		This.InputMask=REPLICATE("X",LEBAR)
	ENDPROC


	PROCEDURE tptp4.RightClick
		This.Value=DAFTAR(This.ToolTipText,"TP4",This.Value)
	ENDPROC


	PROCEDURE tptp4.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		RETURN CKLAS("TP4",This.Value)
	ENDPROC


	PROCEDURE tptp3.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		RETURN CKLAS("TP3",This.Value)
	ENDPROC


	PROCEDURE tptp3.RightClick
		This.Value=DAFTAR(This.ToolTipText,"TP3",This.Value)
	ENDPROC


	PROCEDURE tptp3.Init
		SELECT GASYKLAS
		SEEK "TP3" ORDER 1
		This.ToolTipText=ALLTRIM(NAMAKLP)
		This.Enabled=FOUND()
		This.Format=REPLICATE("X",LEBAR)
		This.InputMask=REPLICATE("X",LEBAR)
	ENDPROC


	PROCEDURE tptp2.Init
		SELECT GASYKLAS
		SEEK "TP2" ORDER 1
		This.ToolTipText=ALLTRIM(NAMAKLP)
		This.Enabled=FOUND()
		This.Format=REPLICATE("X",LEBAR)
		This.InputMask=REPLICATE("X",LEBAR)
	ENDPROC


	PROCEDURE tptp2.RightClick
		This.Value=DAFTAR(This.ToolTipText,"TP2",This.Value)
	ENDPROC


	PROCEDURE tptp2.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		RETURN CKLAS("TP2",This.Value)
	ENDPROC


	PROCEDURE tptp1.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		RETURN CKLAS("TP1",This.Value)
	ENDPROC


	PROCEDURE tptp1.RightClick
		This.Value=DAFTAR(This.ToolTipText,"TP1",This.Value)
	ENDPROC


	PROCEDURE tptp1.Init
		SELECT GASYKLAS
		SEEK "TP1" ORDER 1
		This.ToolTipText=ALLTRIM(NAMAKLP)
		This.Enabled=FOUND()
		This.Format=REPLICATE("X",LEBAR)
		This.InputMask=REPLICATE("X",LEBAR)
	ENDPROC


	PROCEDURE jset.LostFocus
		*TpBunga(MJW,MSB,MDB,MSP,TG,Pembulatan)
	ENDPROC


	PROCEDURE jset.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		IF This.Value$"01234"
			RETURN 1
		ENDIF
		IniPesan("Jenis Setoran"+CHR(13)+"0 = Sekali Setor, 1 = Setoran Rutin, 2 = Setoran Berkala")		
		RETURN 0
	ENDPROC


	PROCEDURE rekam.Click
		IF This.Parent.TJmlSetoran.Value>0 AND !EMPTY(This.Parent.tKode.Value)
			SELECT TP_MST
			SET ORDER TO 1
			IF Kunci_Fi(10)
				SEEK This.Parent.tKode.Value
				IF !FOUND()
					APPEND BLANK
					REPLACE Kode WITH This.Parent.tKode.Value
				ENDIF
				REPLACE TGL_TRS WITH This.Parent.tTgltrs.Value,;
				GRP With MSERI,;
				INDUK WITH This.Parent.TInduk.Value,;
				NAMA WITH This.Parent.TNama.Value,;
				ALAMAT WITH This.Parent.TALamat.Value,;
				KOTA WITH This.Parent.TKOta.ValUE,;
				PEKERJAAN WITH This.Parent.TJOb.Value,;
				KTP WITH This.Parent.TKTp.Value,;
				TGL_LAHIR WITH This.Parent.TGLLAHIR.Value,;
				JNG_WAKTU WITH This.Parent.TJW.Value,;
				PRS_BUNGA WITH This.Parent.TPrsBunga.Value,;
				JML_SETOR WITH This.Parent.TJmlSetoran.Value,;
				JNS_SETOR WITH This.Parent.JSET.Value,;
				SKT WITH This.Parent.TPTP1.Value,;
				KWT WITH This.Parent.TPTP2.Value,;
				KPT WITH This.Parent.TPTP3.Value,;
				GOL WITH This.Parent.TPTP4.Value,;
				KLA WITH This.Parent.TPTP5.Value,;
				CATATAN WITH This.Parent.mCATATAN.Value,;
				NAMA_AW WITH This.Parent.NAMAAW.Value,;
				ALAMAT_AW WITH This.Parent.ALAMATAW.Value,;
				STD_JURNAL WITH This.Parent.JnSK.Value
				FLUSH
				UNLOCK
				This.Parent.Proses.Click
				This.Parent.tKode.value=""
				This.Parent.tKode.Setfocus
			ENDIF
		ENDIF
	ENDPROC


	PROCEDURE hapus.Click
		IF This.Parent.TJmlSetoran.Value>0 AND !EMPTY(This.Parent.tKode.Value)
			SELECT TP_MST
			SET ORDER TO 1
			SEEK This.Parent.TKode.Value
			IF FOUND() AND KUNCI_RC(5)
				DELETE
				UNLOCK
				This.Parent.Proses.Click
			ENDIF
		ENDIF				
	ENDPROC


	PROCEDURE proses.Click
		This.Parent.tNama.Value=""
		This.Parent.tAlamat.Value=""
		This.Parent.tKota.Value=""
		This.Parent.tJob.Value=""
		This.Parent.tKtp.Value=""
		This.Parent.JSET.Value=""
		This.Parent.MCATATAN.Value=""
		This.Parent.NAMAAW.Value=""
		This.Parent.ALAMATAW.Value=""
		This.Parent.TGLLAHIR.Value=CTOD("")
		This.Parent.tJmlSetoran.Value=0
		This.Parent.tPrsBunga.Value=0
		This.Parent.tRpBUNGA.Value=0
		This.Parent.tInduk.Value=""
		This.Parent.tJW.Value=0
		This.Parent.tPrsBunga.Enabled=.F.
		This.Parent.tJmlSetoran.Enabled=.F.
		This.Parent.tRpBUNGA.Enabled=.F.
		This.Parent.tInduk.Enabled=.F.
		This.Parent.tJW.Enabled=.F.
		This.Parent.TPTP1.Enabled=.F.
		This.Parent.TPTP2.Enabled=.F.
		This.Parent.TPTP3.Enabled=.F.
		This.Parent.TTglTrs.Enabled=.f.
		This.Parent.TPTP4.Enabled=.F.
		This.Parent.TPTP5.Enabled=.F.
		This.Parent.JNSK.Enabled=.F.
		This.Parent.JSET.Enabled=.F.
		This.Parent.MCATATAN.Enabled=.F.
		This.Parent.NAMAAW.Enabled=.F.
		This.Parent.ALAMATAW.Enabled=.F.
		This.Parent.TGLLAHIR.Enabled=.F.
		This.Parent.TBFoto.Picture=""
		This.Parent.tNama.Enabled=.f.
		This.Parent.tAlamat.Enabled=.f.
		This.Parent.tKtp.Enabled=.f.
		This.Parent.tJOB.Enabled=.f.
		This.Parent.tKOTA.Enabled=.f.
	ENDPROC
	
	
	PROCEDURE proses.DblClick
		This.Parent.tNama.Enabled=.t.
		This.Parent.tAlamat.Enabled=.t.
		This.Parent.tKtp.Enabled=.t.
		This.Parent.tJOB.Enabled=.t.
		This.Parent.tKOTA.Enabled=.t.
		This.Parent.TTglTrs.Value=GASY_TGL
		This.Parent.TGLLAHIR.Enabled=.T.
		This.Parent.TTglTrs.Enabled=.T.
		This.Parent.tJmlSetoran.Enabled=.T.
		This.Parent.tPrsBunga.Enabled=.T.
		This.Parent.tJW.Enabled=.T.
		This.Parent.JSET.Enabled=.T.
		This.Parent.TPTP1.Init
		This.Parent.TPTP2.Init
		This.Parent.TPTP3.Init
		This.Parent.TPTP4.Init
		This.Parent.TPTP5.Init
		This.Parent.NAMAAW.Enabled=.T.
		This.Parent.ALAMATAW.Enabled=.T.
		This.Parent.MCATATAN.Enabled=.T.
	ENDPROC
	
	
	PROCEDURE proses.RightClick
		DATAFOTO=ALLTRIM(ALAMATNYA('ADF'))
		SELECT TP_MST
		This.Parent.tKode.Value=KODE
		This.Parent.tInduk.Value=INDUK
		IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG')
			This.Parent.TbFoto.Enabled=.T.
			This.Parent.TbFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.tInduk.Value),8)+'.JPG'
			ELSE
			This.Parent.TbFoto.Picture=DATAFOTO+'00000000.JPG'
		ENDIF
		This.Parent.tNama.Value=NAMA
		This.Parent.tAlamat.Value=ALAMAT
		This.Parent.tKtp.Value=KTP
		This.Parent.tJOB.Value=PEKERJAAN
		This.Parent.tKOTA.Value=KOTA
		This.Parent.TGLLAHIR.Value=TGL_LAHIR
		This.Parent.tTglTrs.Value=TGL_TRS
		This.Parent.tJW.Value=JNG_WAKTU
		This.Parent.tPRSBunga.Value=PRS_BUNGA
		This.Parent.tJmlSetoran.Value=JML_SETOR

		This.Parent.TPTP1.Value=SKT
		This.Parent.TPTP2.Value=KWT
		This.Parent.TPTP3.Value=KPT
		This.Parent.TPTP4.Value=GOL
		This.Parent.TPTP5.Value=KLA
		This.Parent.TTglJt.Value=GOMONTH(TGL_TRS,(JNG_WAKTU*12))
		This.Parent.JSET.Value=JNS_SETOR
		This.Parent.NAMAAW.Value=NAMA_AW
		This.Parent.ALAMATAW.Value=ALAMAT_AW
		This.Parent.MCATATAN.Value=CATATAN
		This.Parent.JnSK.Value=STD_JURNAL
	ENDPROC
	
	PROCEDURE cmdKembali.Click
		RELEASE oGasyTP00
	ENDPROC


ENDDEFINE
*
*-- EndDefine: tp000
**************************************************

AKHIRB - 72

AKHIRBX - 74

AKMST - 21

ALAMATDATA - 73

ASIKI - 93

CODE_MENU - 75

DN00 - 80

GASYTBL - 51

GASYTBL - 71

LEDGER - 68

MENUHTML - 69

MENUHTML1 - 70

MYKALENDER - 50

SANDIMUTASI - 39

SARASAMUSCAYA - 022 - 100

TP00 - 47