/******************Perubahaan Prg Web********************/
19 Mei 2016
	- Byr hutang HLN scr302 sdh diperbaiki

18 Mei 2016
	- Konsep Diskon Program Standar:
	  - master diskon diisi di scr3140. Disini di bedakan 
	    diskon master,diskon detil, diskon master tambahan, diskon detil tambahan, Hutang komisi External & Internal
08 mei 2016
	- ada perubahan file dim dit dan bim untuk keperluan diskon

05 April 2016
	- file ljm ljd diganti nama amt (alias master) dan adt (alias detil)

04 April 2016
	- ada perubahan struktur file, ket,ljm hapus file jrn
	- scr16? adalah sub menu utk aktiva /biaya dibyr dimuka

28 Maret 2016
	- scr3126 Aktiva sdh ditambah tgl, dan ada perbaikan program dan tampilan

20 Maret 2016
	- Utk Prg dealer: 
	  * harap mengisi scr3004 tombol 3 (setup jual), bagian: dep Sales = SALES, dep Kasir= KASIR
	    dep Kolektor = KOLEK, bid usaha Plg Finco= FINCO
	  * mengisi bidang usaha di scr3106, tambah data detil bidang usaha dengan FINCO (finance company)
	  * mengisi master Finco di scr3121, Bidang Usaha isi dgn FINCO
 	  * untuk pelanggan dealer / jual via finco diisi di scr3128
	  * scr620 adalah transaksi buku tamu.

	-ada tambahan file fjn(File Join) untuk dipakai sebagai tambahan field, apabila 
         diperlukan tambahan field utk file tertentu. dgn menggunakan fasilitas ksystem
	 	SCR_JOIN_FIELDADD1 bkmoto 
		SCR_JOIN_FIELDADD2 fjnbukotoidx fjnbukoto
	    	atau
		SCR_JOIN_FIELDADD1 ppmoto 
		SCR_JOIN_FIELDADD2 fjnbukotoidx fjnbukoto
         
	 
12 Maret 2016
	-ada tambahan file btm(buku tamu master) btd(buku tamu detil) prd(produksi)
	
06 Maret 2016
	-Divisi diganti istilah Setting Jurnal
	-Utk Laba Rugi per Divisi(untuk sistem lama) skrg diganti,
	 dengan mengisi setting 3004 "Y/T ada LR selain Cabang"
	 dan di tabel ACC,LR di scr3106 perlu diisi
	-utk sistem Pt.summit untuk sementara sdh selesai dan bisa	
         dicoba dari 601 - 606

26 Feb 2016
	-field mts ditambah mtshcex, mtshcin
	-field grp ditambah grptype untuk keperluan ksystem
	-scr601 ada perubahan, saat menambah detil, otomatis add pps HC jika
         3140 data hc per barang diisi
	-scr99? di pindah ke scr309?, jadi harap hapus frm/scr99?.frm
        -cari cmpbbmhl dan cmpbbmpl dihapus semua dari scr diganti dari dvs saja

25 Feb 2016
	-field cmpnamfik dan cmpalmfik dihapus, sebagai gantinya
	 keterangan tambahan untuk suplier/pelanggan bisa diisi di
	 detil keterangan tambahan
	-scr3140 ditambah detil2 khusus type HC EX/IN
	-

23 Feb 2016
	- Konsistensi data yang UHD dan UPD sdh dikalikan dgn -1
	- File mts ditambah field mtstgl1 mtstgl2
	- ada beberapa perbaikan yang berhungan dengan 601,602,603,606

18 Feb 2016	
	- ada perubahan struktur sgm (sgmjasbrg  STRING  3)
	- scr401 koreksi plus utk dealer (rangka mesin sdh ok)
	- scr3012 ditambah data PRODUKSI
10 Feb 2016	
	- ada perubahan struktur
	- scr3012 ditambah data PRODUKSI
	- scr3130 scr utk master produksi
	- scr3131 scr utk paket produksi

06 Feb 2016	
	- scr4303 maddbrd,brdlok diganti brdlok2(lokasi tujuan) 
	- scr111 peremajaan bulanan sdh dibuat, silahkan dicoba

29 Jan 2016	
	- file yang ditambah oto: ppm, pmb, mts, bkm, ljm, 
09 Jan 2016 
	- Masalah diskon 601 jika dihapus detil diskon masih masalah
          sdh diperbaiki. Struktur bim berubah (P.Andreas)

08 Jan 2016 
	- Masalah diskon 601 sdh diperbaiki (P.Andreas)
	
16 Des 2015 
	- harap dijalankan F3 tbd, cari tbddata="DTTABEL" && tbdtype == BLANKS, F10 tbdtype = tbddata
	- harap dijalankan F3 tbt, cari tbtdata="DTTABEL" && tbttype == BLANKS, F10 tbttype = tbtdata
	

15 Des 2015 
	- Ada Perubahan Struktur      
	- Pesanan Jual ada Diskon dll, saat posting masih ada masalah di K-System versi ksystem151215.wt
10 Des 2015 
	- Banyak perubahan di struktur
	- perbaikan sistem diskon/promo penjualan
        - Promo penjualan ada di scr3140

22 Nop 2015 
	- masalah 503 yang pilih PO otomatis salah, sudah ok.

18 Nop 2015
   	- Semua Image, perintah2 dibelakangnya dihapus, karena untuk program web tidak diperlukan lagi 
   	- Ada banyak perubahan di sistem penjualan. sekarang ada promo jual dan penjualan ada SO,booking,DO,Invoicing

23 Okt 2015
   	- Nota Debet / Kredit Hutang 102 sdh tersedia
   	- Nota Debet / Kredit Piutang 103 sdh tersedia

09 Okt 2015
   	- pembelian import hutang luar negeri nya masih salah kalau detailnya diubah harga nya.
     	  Biaya ekspedisi juga sdh ok.


07 Okt 2015
ok - scr502 masalah untuk tlmtypbrg yang tidak bisa di SKIP sdh ok
ok - scr503 masalah di 3104 2d, data P.Freddy masih kosong. Jadi harus ditekan Rekam dulu saat di detil 2d 
ok - scr503 sdh bisa diposting (min ksystem151007.wt)
   - disc penjualan?




/********************************************************\
ap_adjrt berfungsi: Jurnal transaksi. lihat contoh di 502, 503, 602, 603 dst

/******************Setting/Info Umum*********************/
- Supaya import data lebih cepat di program web, perlu di set di bawah ini.
  (tapi efeknya, jika ada lampu mati maka data 5 detik terakhir tidak disimpan di komputer)

	#
	# * Basic Settings
	#
	innodb_flush_log_at_trx_commit=2          (Baris ini ditambahkan di atas "user  = mysql")
	user		= mysql
	pid-file	= /var/run/mysqld/mysqld.pid
	socket		= /var/run/mysqld/mysqld.sock
	port		= 3306
	basedir		= /usr
	datadir		= /var/lib/mysql

DO_LIB ap_adbtf(ppdsisbrg,ppdbrdoto,ppmnobuk,ppdbrg,ppdlok,ppdoto,ppdukrwrn,ppdsat,ppdjml,&ldipenuhi,<othpp,&lhrgrata,ppdnokrm,g_strksg,lmapbtf,g_str_empty);

    1. ppdsisbrg: sistem barang O(fifo otomatis) 
    2. paramater terakhir adalah isian dari lokasi akhir untuk mencari dibrd, jika lokasi akhir ini isinya kosong, maka lokasi 
       brd yang dicari adalah: dari paramater ke lima (ppdlok) 
    3. pa

******************Pemakaian Approval****************
SCR_APR capprove
SCR_APR_COND cstsOPEN2
SCR_APR_MSG IF cbknopen Status harus OPEN
            IF cstsaprsdhAPR Approval untuk data ini sdh dijalankan
            IF csisaOK   Sisa Piutang tidak boleh minus
            IF cumblmOK  Uang Muka belum lunas / Kelebihan Bayar UM
            IF cumNol    Uang Muka masih nol, isi 3d type PS
            IF csisaumOK Sisa Piutang Uang Muka tidak boleh minus
            IF cbonusOK  Bonus di 5d belum diisi (apr)
            IF csisCODok COD Cash tidak boleh ada Piutang
            IF cPONol    Tanpa potongan, bonus dan HC tidak perlu approval
SCR_APR_TRANS trans

DEFAULTS(trans)
lnamakode       INIT    "posbrg"
lfldtotal       INIT    "postotdis"
lnamafldsts     INIT    "ppmstsapr"
lnamafldfak     INIT    "ppmnofak"
lnamaidxfak     INIT    "ppmnofakidx"
lnamacalc       INIT    "cppdok"
lyturutapr	INIT    Y  /* 
			       Y/T Urut Approval. 
			     - Isi Y jika Approval hrs secara berurutan, jika paling bawah blm ok, maka atasnya tidak bisa
                                          meng approve
			     - Isi T jika Approval bisa dilakukan tdk secara berurutan. Jadi jika wewenang paling atas sdh
                                          ok, maka yang bawahnya tidak hrs melakukan approval
                           */
CALCS()
cppdok          ppdtypfak == "PO"
capprove        DO_LIB ap_apprv(bkmnobuk,bkmcab,gv_aprbia,lnamakode,lfldtotal,lnamafldsts,lnamafldfak,lnamaidxfak,lnamacalc,bkmjmltlk,lyturutapr);

/************************************************************\
Fungsi SCR_JOIN_FIELDADD1 ppmnobuk
       SCR_JOIN_FIELDADD2 ljmdatbukidx   ppmdata ljmnobuk 

Berfungsi untuk menggabungkan 2 s/d 4 yang seolah2 menjadi 1 file. 
fungsi diatas, SCR_FILE yang dipakai berarti adalah file ppm
               SCR_JOIN_FIELDADD1 ppmnobuk
               SCR_JOIN_FIELDADD2 ljmdatbukidx ppmdata ljmnobuk  
field terakhir(ljmnobuk) setelah index, adalah yang dicopykan dari field ppmnobuk.
sedangkan field 1,2 dst sebelum field terakhir adalah field konstan misal DTPLG, OPEN dll

IF cstsFAK ljmdata	INIT	{gv_dtpiu}
IF cstsSJL ljmdata	INIT	{gv_dtsjl}
ljmscr       	        INIT    {g_scrnumstr}


****************************
Yang akan dikerjakan:
x 1) Membuat Peremajaan
2) Penyusutan Aktiva (162?)
3) Tutup Harian
4) Data Tengah
5) Pembelian Aktiva
6) Data Biaya/Asuransi di Muka (1613,1614)
x 7) Laporan Buku Besar 1505