DAH KETEMU NEH.. MASALAHNYA ADA DI USER.. TERNAYATA MOUSENYA KURANG
BAGUS... JADI DOBEL KLIK.. KARENA SAYA PAKE AJAX DAN TIDAK LANGSUNG DI
PRINT... NAH SOLUSINYA LAGI DIPIKIRIN... ADA MASUKAN GA... KETAUANNYA
DARI DATA TERNYATA WAKTU BEDA 1 DETIK WALAPUN DATA SEMUA SAMA...
ARTINYA KALO ANALISA SAYA USER DOBEL KLIK... GITU KALI YA THANKS..
On Wed, Dec 3, 2008 at 11:57 AM, caturpn <[EMAIL PROTECTED]> wrote:
> bobby mail wrote:
>>
>> ==CUT==
>> <?
>> if($jnspasien=="baru"){
>> if($jenis!=3){
>> $hasil2 =
>> $odb->GenQuery("select * from bm_mr");
>> if($hasil2){
>> $rsCon2 =
>> $odb->mfa($hasil2);
>>
>> for($i=1;$i<=(7-strlen($rsCon2["mr_no"]));$i++){
>> $nomrs =
>> $nomrs ."0" ;
>> }
>> $nomr =
>> $_COOKIE["co_koders"] . $nomrs . $rsCon2["mr_no"] ;
>> $nobaru =
>> intval($rsCon2["mr_no"]) + 1 ;
>> $hasil =
>> $odb->GenQuery("insert into m_pasien values ('". $nomr
>> ."','". $nama ."','". $alamat ."','". $tgllhr ."','". $kota
>> ."','". $kec ."','". $kel ."','".$rt."','".$rw."','". $kodepos
>> ."','". $telp ."','". $telp2 ."','". $jnskel ."','".
>> date("Y-m-d")
>> ."','".$pendidikan."','".$pekerjaan."','".$bangsa."','".$agama."')");
>> $hasil3 =
>> $odb->GenQuery("update bm_mr set mr_no=". $nobaru ."");
>>
>> $odb->GenQuery("insert into usr_history values('".
>> $_SESSION["userid"] ."','". $_SERVER['REMOTE_ADDR'] ."','add pasien
>> rj','".$nomr."','".$_SERVER["PHP_SELF"]."','". date("Y-m-d") ."',now()
>> )");
>> }
>> }else{
>> $hasil2 =
>> $odb->GenQuery("select * from bm_norl");
>> $rsCon2 =
>> $odb->mfa($hasil2);
>> if($hasil2){
>>
>> for($i=1;$i<=(5-strlen($rsCon2["rl_no"]));$i++){
>> $nomrl =
>> $nomrl ."0" ;
>> }
>> $norl = "RL".
>> $_COOKIE["co_koders"] . $nomrl . $rsCon2["rl_no"] ;
>> $nobaru =
>> intval($rsCon2["rl_no"]) + 1 ;
>> $hasil =
>> $odb->GenQuery("insert into m_pasien values ('".
>> $norl ."','". $nama ."','". $alamat ."','". $tgllhr ."','". $kota
>> ."','". $kec ."','". $kel ."','".$rt."','".$rw."','". $kodepos
>> ."','". $telp ."','". $telp2 ."','". $jnskel ."','".
>> date("Y-m-d")
>> ."','".$pendidikan."','".$pekerjaan."','".$bangsa."','".$agama."')");
>> $hasil3 =
>> $odb->GenQuery("update bm_norl set rl_no=". $nobaru ."");
>> $nomr = $norl;
>>
>> $odb->GenQuery("insert into usr_history values('".
>> $_SESSION["userid"] ."','". $_SERVER['REMOTE_ADDR'] ."','add pasien
>> ron/lab','".$nomr."','".$_SERVER["PHP_SELF"]."','". date("Y-m-d")
>> ."','". date("H:i:s") ."' )");
>> }
>> }
>> }else{
>> $nomr = $nomr;
>> }
>> $bulan[1] = "A";
>> $bulan[2] = "B";
>> $bulan[3] = "C";
>> $bulan[4] = "D";
>> $bulan[5] = "E";
>> $bulan[6] = "F";
>> $bulan[7] = "G";
>> $bulan[8] = "H";
>> $bulan[9] = "I";
>> $bulan[10] = "J";
>> $bulan[11] = "K";
>> $bulan[12] = "L";
>>
>> $hasil4 = $odb->GenQuery("select * from
>> bm_noreg");
>> $rsCon4 = $odb->mfa($hasil4);
>> $nor = '';
>>
>> for($j=1;$j<=(5-strlen($rsCon4["no_noreg"]));$j++){
>> $nor = $nor ."0" ;
>> }
>> $noreg = $bulan[$rsCon4["bulan"]].
>> $_COOKIE["co_koders"] .
>> substr($rsCon4["tahun"],-2) . $nor . $rsCon4["no_noreg"] ;
>> $noregbaru = intval($rsCon4["no_noreg"])+1
>> ;
>> $hasil7 = $odb->GenQuery("update bm_noreg
>> set no_noreg=". $noregbaru ."");
>> $hasil5 = $odb->GenQuery("select
>> jn_breakdown,p_nama from
>> bm_jenisperusahaan,m_perusahaan where p_idprsh='". $prsh ."' and
>> p_tipe=jn_kode and p_end = '9999-01-01'");
>> $rsCon5 = $odb->mfa($hasil5);
>> if($rsCon5["jn_breakdown"]!="Y"){
>> $nmprsh2 = "";
>> if($rsCon5["jn_breakdown"]!="U"){
>> $hasil6 = $odb->GenQuery("insert
>> into df_idprsh values('". $noreg
>> ."','". $nip ."','". $bagian ."','". $nmpegawai ."','". $pia ."')");
>> }
>> }else{
>> // --------- Asuransi ----------
>> $nmprsh2 = $prsh2;
>>
>> $hasil6 = $odb->GenQuery("insert
>> into df_idprsh values('". $noreg
>> ."','". $nip ."','". $nopolis ."','". $nmpegawai ."','". $pia ."')");
>> }
>> if($prsh!=""){
>> if($jenis!=3){
>> $hasil6 =
>> $odb->GenQuery("insert into df_daftar values('". $nomr
>> ."','". $noreg ."','". $kunj ."','". $perujuk ."','". $poli ."','".
>> $dokter ."','". $prsh ."','". $nmprsh2 ."','". date("Y-m-d")
>> ."','T','1',now(),'". $_SESSION["userid"] ."','T','Y')");
>> }else{
>> $hasil6 =
>> $odb->GenQuery("insert into df_daftar values('". $nomr
>> ."','". $noreg ."','". $kunj ."','". $perujuk ."','". $poli ."','".
>> $dokter ."','". $prsh ."','". $nmprsh2 ."','". date("Y-m-d")
>> ."','T','3',now(),'". $_SESSION["userid"] ."','T','Y')");
>> }
>> }
>> ?>
>> ==CUT==
>>
>> PERTANYAANNYA KENAPA DI DB SELALU DOBEL DATA PADA SAAT EKSEKUSI SCRIPT
>> YANG DATANY DOBEL :
>> $hasil6 = $odb->GenQuery("insert into df_daftar values('". $nomr
>> ."','". $noreg ."','". $kunj ."','". $perujuk ."','". $poli ."','".
>> $dokter ."','". $prsh ."','". $nmprsh2 ."','". date("Y-m-d")
>> ."','T','1',now(),'". $_SESSION["userid"] ."','T','Y')");
>>
>>
>> PLZ KAKA YANG JAGO PHP
>>
>>
>
> coba membantu yaa...
> coba perhatikan 2 if dr bawah, mungkin di atas script yg anda paste ada
> $hasil6 yg sudah di execute so di execute ulang di baris bag. bawah.
> parameter $prsh kok saya ndak nemu nilainya atau saya yg salah baca script ?
>
> salam hormat,
>
>
> yo2k.
>
>
>
> --
> FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab
> Unsubscribe: kirim email ke [EMAIL PROTECTED]
> Arsip dan info milis selengkapnya di http://linux.or.id/milis
>
>
--
FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab
Unsubscribe: kirim email ke [EMAIL PROTECTED]
Arsip dan info milis selengkapnya di http://linux.or.id/milis
