Sql_KSE=[https://www.aissssia.com/dbf/sqlkse.php?gs=] SQL1=[select gaid,noper,naper,jenis,sifat,lepel,umum,kode from mst_ak order by noper] jsonString=JSON(SQL_KSE+sql1) messagebox(jsonString) BARIS=STREXTRACT(JSONSTRING,'{','}',2) _cliptext=GETWORDNUM(baris,2,",") messagebox(_cliptext) _cliptext=GETWORDNUM(_cliptext,3,["]) messagebox(_cliptext) *"gaid":"1","noper":"1","naper":"AKTIVA","jenis":"A","sifat":"G","lepel":"1","umum":"","kode":"" *"gaid":"2","noper":"1.100","naper":"KAS","jenis":"A","sifat":"D","lepel":"2","umum":"1","kode":"" RETURN Sql_i=[https://www.aissssia.com/dbf/sqlkiu.php?gs=] iTabel="mst_ak" xSql=[ CREATE TABLE IF NOT EXISTS `]+ITABEL+[` (]+; [ `noper` varchar(10) NOT NULL,]+; [ `naper` varchar(70) NOT NULL,]+; [ `jenis` char(1) NOT NULL,]+; [ `sifat` char(1) NOT NULL,]+; [ `lepel` decimal(1,0) NOT NULL,]+; [ `umum` varchar(10) NOT NULL,]+; [ `kode` varchar(30) NOT NULL,]+; [ `gaid` int(10) NOT NULL auto_increment,]+; [ PRIMARY KEY (`gaid`),]+; [ UNIQUE KEY `noper` (`noper`)]+; [) ENGINE=MyISAM DEFAULT CHARSET=latin1;] oJson=JSON(sql_i+xSql) MESSAGEBOX(OJSON) PROCEDURE COPY iDbf="D:\D\KOPNUSA\DATA\DTAK\AKM_2023.DBF" IF !FILE(iDBF) return endif SELE NOPER,NAPER,JENIS,SIFAT,LEPEL,UMUM,KODE ; FROM (IDBF) ; ORDER BY NOPER ; INTO CURSOR HASIL SELE HASIL Sql_i=[https://www.aissssia.com/dbf/sqlkiu.php?gs=] iTabel="mst_ak" xSql=[ CREATE TABLE IF NOT EXISTS `]+ITABEL+[` (]+; [ `noper` varchar(10) NOT NULL,]+; [ `naper` varchar(70) NOT NULL,]+; [ `jenis` char(1) NOT NULL,]+; [ `sifat` char(1) NOT NULL,]+; [ `lepel` decimal(1,0) NOT NULL,]+; [ `umum` varchar(10) NOT NULL,]+; [ `kode` varchar(30) NOT NULL,]+; [ `gaid` int(10) NOT NULL auto_increment,]+; [ PRIMARY KEY (`gaid`),]+; [ UNIQUE KEY `noper` (`noper`)]+; [) ENGINE=MyISAM DEFAULT CHARSET=latin1;] oJson=koperasi(sql_i+xSql) IF UPPER(OJSON)<>"OK" messagebox(oJSON) RETURN ENDIF SELE HASIL SCAN p1=alltrim(noper) p2=alltrim(naper) p3=jenis p4=sifat p5=TRANS(lepel) p6=alltrim(umum) p7=alltrim(kode) sqla=[insert into mst_ak (noper,naper,jenis,sifat,lepel,umum,kode) values (']+; alltrim(p1)+[',']+; alltrim(p2)+[',']+; alltrim(p3)+[',']+; alltrim(p4)+[',']+; p5+[',']+; alltrim(p6)+[',']+; alltrim(p7)+[')] *xsql=[insert into mst_ak (noper,naper,jenis,sifat,lepel,umum,kode) values (?p1,?p2,?p3,?p4,?p5,?p6,?p7)] wait "Tunggu: "+p1 window nowait oJson=koperasi(sql_i+Sqla) IF UPPER(OJSON)<>"OK" messagebox(xSqla) EXIT ENDIF ENDSCAN ENDPROC