function getStorageInfo($shopWhere = '', $sdcrWhere = '') { $cacheName = md5($shopWhere . $sdcrWhere); static $arrStorage = array(); if (empty($arrStorage[$cacheName])) { $dbshop = new DB_shop(); $db = new DB_test(); $query = "select * from tb_storage where 1 {$shopWhere}"; $dbshop->query($query); if ($dbshop->nf()) { while ($dbshop->next_record()) { $storage_id = $dbshop->f('fd_storage_id'); $storage_name = $dbshop->f('fd_storage_name'); $arrStorage[$cacheName][$storage_id]['storage_name'] = $storage_name; } } $query = "select * from tb_sendcenter where 1 {$sdcrWhere}"; $db->query($query); if ($db->nf()) { while ($db->next_record()) { $storage_id = $db->f('fd_sdcr_id'); $storage_name = $db->f('fd_sdcr_name'); $arrStorage[$cacheName][$storage_id]['storage_name'] = $storage_name; } } } return $arrStorage[$cacheName]; }
/** +---------------------------------------------------------- * 获取商品单价 * +---------------------------------------------------------- * @access public +---------------------------------------------------------- * @param string $agencyid 机构id * @param string $sdcrid 商家id * @param string $produreid 商品id * @param string $producetype 商品类型id * @param string $storageid 商品仓库id * @param string $pricetype 价格类型 (0=本位价格,20=令价,21=吨价) +---------------------------------------------------------- * @return string +---------------------------------------------------------- */ function getsdcrprice($agencyid, $sdcrid, $produreid, $producetype, $storageid, $pricetype = 0) { global $g_lprice_point; global $g_dprice_point; $db = new DB_test(); $query = "select fd_nbsepe_sdcrid,fd_nbsepe_produreid,fd_produre_catalog,fd_nbsepe_lingprice,fd_nbsepe_dunprice,fd_produre_unit\n\t\t\t from tb_websaleprice left join tb_produre on fd_produre_id = fd_nbsepe_produreid\n\t\t\t where fd_nbsepe_iskc = '1' and fd_nbsepe_sdcrid = '" . $sdcrid . "'\n\t\t\t and fd_nbsepe_produreid = '" . $produreid . "' and fd_nbsepe_producetype = '" . $producetype . "' \n\t\t\t and fd_nbsepe_isshow='1'"; // echo $query; $db->query($query); if ($db->nf()) { while ($db->next_record()) { $areaid = $db->f(fd_nbsepe_sdcrid); $produreid = $db->f(fd_nbsepe_produreid); $boxprocaid = $db->f(fd_produre_catalog); $unitid = $db->f(fd_produre_unit); if ($unitid == 20) { $returnvalue = round($db->f(fd_nbsepe_lingprice) * 1.04, 3); } if ($unitid == 21) { $returnvalue = round($db->f(fd_nbsepe_dunprice) * 1.04, 0); } if ($pricetype == 20) { $returnvalue = round($db->f(fd_nbsepe_lingprice) * 1.04, 3); } if ($pricetype == 21) { $returnvalue = round($db->f(fd_nbsepe_dunprice) * 1.04, 0); } } } $dbshop = new DB_shop(); $query = "select fd_skqy_lingprice ,fd_skqy_dunprice,fd_skqy_unitid,\n\t\t\tfd_skqy_shopid,fd_skqy_commid ,fd_skqy_rate \n\t\t\tfrom tb_shopkcquantity where fd_skqy_shopid = '{$sdcrid}' and fd_skqy_commid= '{$produreid}'\n\t\t\tand fd_skqy_producetype = '{$producetype}' and fd_skqy_storageid= '{$storageid}'\n\t\t\t"; $dbshop->query($query); if ($dbshop->nf()) { while ($dbshop->next_record()) { $unitid = $dbshop->f(fd_skqy_unitid); $vlingprice = $dbshop->f(fd_skqy_lingprice); $vdunprice = $dbshop->f(fd_skqy_dunprice); $rate = $dbshop->f(fd_skqy_rate); if ($unitid == 20) { $returnvalue = formatprice($vlingprice * $rate, $g_lprice_point); } if ($unitid == 21) { $returnvalue = formatprice($vdunprice * $rate, $g_dprice_point); } if ($pricetype == 20) { $returnvalue = formatprice($vlingprice * $rate, $g_lprice_point); } if ($pricetype == 21) { $returnvalue = formatprice($vdunprice * $rate, $g_dprice_point); } } } return $returnvalue + 0; }
exit; } else { $mysms = new sms(); if ($mysms->session) { $Charge = $mysms->checkCoverage($CountryCode . $AreaCode . $Number); } echo "Saving...."; $f->save_values(); $count = 0; $db->query("select distinct Country from SmsCoverage where CountryCode='" . $CountryCode . "'"); echo "<b>Done!</b><br><table><tr><td><b>Carriers in "; while ($db->next_record()) { if ($count) { echo ", "; } echo $db->f("Country"); $count++; } $MobileNumber = $CountryCode . $AreaCode . $Number; echo " </b></td><td><b>Credits Used Per SMS Message</b></td></tr>\n"; $db->query("select * from SmsCoverage where CountryCode='" . $CountryCode . "'"); while ($db->next_record()) { printf("<tr><td>%s</td><td>%s</td></tr>\n", $db->f("Carrier"), $db->f("Cost")); } echo "</table><br><a href=\"" . $sess->self_url() . "\">Back to SmsAddressBook.</a><br>\n"; echo "<a href=" . $sess->self_url(); echo $sess->add_query(array("submit" => "Send VCard", "MobileNumber" => $MobileNumber, "Recip" => $Name)); echo ">Send VCard to " . $Name . "</a>"; page_close(); exit; }
function sc_sjstockorder($orderid) { $dbshop = new DB_shop(); $db = new DB_test(); $dberp = new DB_erp(); $query = "select * from web_order where fd_order_id = '{$orderid}'"; $dbshop->query($query); if ($dbshop->nf()) { $dbshop->next_record(); $memeberid = $dbshop->f(fd_order_memeberid); $ishaveinvoice = $dbshop->f(fd_order_isfp); $wlyf = $dbshop->f(fd_order_wlfy); $wlzftype = $dbshop->f(fd_order_wlzftype); $shopid = $dbshop->f(fd_order_shopid); $sjallmoney = $dbshop->f(fd_order_sjallmoney); $allmoney = $dbshop->f(fd_order_allmoney); $mscompanyid = $dbshop->f(fd_order_mscid); $srmoney = $allmoney - $sjallmoney; } if ($ishaveinvoice == 0) { $ishaveinvoice = 1; } else { $ishaveinvoice = 0; } if (empty($mscompanyid)) { $mscompanyid = 2; } //查找对应供应商 $query = "select * from tb_mscompany where fd_msc_id = '{$mscompanyid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $msc_sdcrid = $dberp->f(fd_msc_sdcrid); } $query = "select * from tb_organmem where fd_organmem_id = '{$memeberid}' and fd_organmem_isms = 1"; $db->query($query); if ($db->nf()) { $db->next_record(); $cusid = $db->f(fd_organmem_cusid); $query = "select * from tb_customer where fd_cus_id = '{$cusid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $sdcrid = $dberp->f(fd_cus_wgsdcrid); $owlid = $dberp->f(fd_cus_id); $owlname = $dberp->f(fd_cus_allname); $owlno = $dberp->f(fd_cus_no); $wgmscid = $dberp->f(fd_cus_wgmscid); $otype = 1; } //查找对应供应商 $query = "select * from tb_mscompany where fd_msc_id = '{$mscompanyid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $msc_sdcrid = $dberp->f(fd_msc_sdcrid); } //查找对应供应商 $query = "select * from tb_supplier where fd_supp_mscid = '{$mscompanyid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $suppid = $dberp->f(fd_supp_id); $suppno = $dberp->f(fd_supp_no); $suppname = $dberp->f(fd_supp_allname); } //插入采购订单主表 $stockorderno = listnumber_update(65); $memo_z = "网购采购(商家)"; $syear = date("Y", mktime()); $smonth = date("n", mktime()); $query = "insert into tb_stockorder(\n\t fd_skor_listno , fd_skor_suppid , fd_skor_suppno ,\n\t fd_skor_suppname , fd_skor_organid , fd_skor_lddate , \n\t fd_skor_memo , fd_skor_cgmscid , fd_skor_sdcrid ,\n\t fd_skor_fkqx , fd_skor_year , fd_skor_month ,\n\t fd_skor_yjfhdate , fd_skor_yjshdate , fd_skor_stocktype ,\n\t fd_skor_paymodel , fd_skor_gdr , fd_skor_ishaveinvoice ,\n\t fd_skor_ldr , fd_skor_suplinkid , fd_skor_suplinkname ,\n\t fd_skor_cgfanli , fd_skor_wftpzx , fd_skor_transporttype ,\n\t fd_skor_state \n\t )values(\n\t '{$stockorderno}' , '{$suppid}' , '{$suppno}' ,\n\t '{$suppname}' , '1' , now() ,\n\t '{$memo_z}' , '{$wgmscid}' , '{$sdcrid}' ,\n\t '0' , '{$syear}' , '{$smonth}' ,\n\t now() , now() , '1' ,\n\t '0' , '' , '{$ishaveinvoice}' ,\n\t '{$loginstaname}' , '' , '' ,\n\t '' , '' , '' ,\n\t '6'\n\t )"; $dberp->query($query); //插入单据资料 $stockorderid = $dberp->insert_id(); //插入明细表 $query = "select * from web_orderdetail \n where fd_orderdetail_orderid = '{$orderid}'"; $dbshop->query($query); if ($dbshop->nf()) { while ($dbshop->next_record()) { $commid = $dbshop->f(fd_orderdetail_productid); $commbar = $dbshop->f(fd_orderdetail_barcode); $commname = $dbshop->f(fd_orderdetail_productname); $unitname = $dbshop->f(fd_orderdetail_unit); $price = $dbshop->f(fd_orderdetail_price); $quantity = $dbshop->f(fd_orderdetail_quantity); unset($comm_str); $comm_str = explode("@@@", readproduct($commid)); $tmpralation = $comm_str[5]; //对应关系3 $dunquantity = changekg3($tmpralation, $unitname, $quantity); //吨数量 if ($unitname == "令") { $unit = 20; } else { $unit = 21; } $alldunquantity += $dunquantity; //$allmoney += $price*$quantity; $query = "insert into tb_stockorderdetail(\n\t fd_skdrdetail_skorid , fd_skdrdetail_commid , fd_skdrdetail_isorgan ,\n\t fd_skdrdetail_commname , fd_skdrdetail_commbar , fd_skdrdetail_unit ,\n\t fd_skdrdetail_quantity , fd_skdrdetail_price , fd_skdrdetail_memo ,\n\t fd_skdrdetail_organid , fd_skdrdetail_dyj \n\t )values(\n\t '{$stockorderid}' , '{$commid}' , '0' ,\n\t '{$commname}' , '{$commbar}' , '{$unit}' ,\n\t '{$quantity}' , '{$price}' , '{$memo}' ,\n\t '{$sdcrid}' , '{$dyj}' \n\t )"; $dberp->query($query); } } if ($wlzftype == 2) { $dyj = $wlyf / $alldunquantity; //$allmoney = $allmoney+$wlyf; $query = "update tb_stockorderdetail set fd_skdrdetail_dyj = '{$dyj}' where fd_skdrdetail_skorid = '{$stockorderid}'"; $dberp->query($query); } $query = "update tb_stockorder set fd_skor_allmoney = '{$allmoney}',fd_skor_alldunquantity = '{$alldunquantity}'\n where fd_skor_id = '{$stockorderid}'\n "; $dberp->query($query); } else { $query = "select * from tb_organmem where fd_organmem_id = '{$memeberid}'"; $db->query($query); if ($db->nf()) { $db->next_record(); $cusid = $db->f(fd_organmem_cusid); $query = "select * from tb_mscompany where fd_msc_id = '{$mscompanyid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $sdcrid = $dberp->f(fd_msc_sdcrid); } $query = "select * from tb_customer where fd_cus_id = '{$cusid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); //$sdcrid = 1; $owlid = $dberp->f(fd_cus_id); $owlname = $dberp->f(fd_cus_allname); $owlno = $dberp->f(fd_cus_no); $otype = 1; } } } //生成应收应付转移 //搜索对应供应商 $query = "select * from tb_supplier where fd_supp_shopid = '{$shopid}'"; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $iwlid = $dberp->f(fd_supp_id); $iwlno = $dberp->f(fd_supp_no); $iwlname = $dberp->f(fd_supp_allname); $itype = 2; $ysyfzyno = listnumber_update(101); $memo_z = "网站客户应收款转移到商家应收款"; $money = -$sjallmoney; $query = "insert into tb_ysyfwlzy(\n fd_ysyfwlzy_listno , fd_ysyfwlzy_owlid , fd_ysyfwlzy_otype ,\n fd_ysyfwlzy_owlname , fd_ysyfwlzy_owlno , fd_ysyfwlzy_iwlid , \n fd_ysyfwlzy_iwlno , fd_ysyfwlzy_iwlname , fd_ysyfwlzy_itype , \n fd_ysyfwlzy_listdate , fd_ysyfwlzy_memo , fd_ysyfwlzy_organid , \n fd_ysyfwlzy_sdcrid , fd_ysyfwlzy_mscid , fd_ysyfwlzy_sqman ,\n fd_ysyfwlzy_money\n )values(\n '{$ysyfzyno}' , '{$owlid}' , '{$otype}' ,\n '{$owlname}' , '{$owlno}' , '{$iwlid}' ,\n '{$iwlno}' , '{$iwlname}' , '{$itype}' ,\n now() , '{$memo_z}' , '1' ,\n '{$msc_sdcrid}' , '{$mscompanyid}' , '{$loginstaname}' ,\n '{$money}'\n )"; $dberp->query($query); $listid = $dberp->insert_id(); $query = "update tb_ysyfwlzy set fd_ysyfwlzy_state = '3' ,fd_ysyfwlzy_gzdate = now() where fd_ysyfwlzy_id = '{$listid}'"; $dberp->query($query); //修改 $query = "select * from tb_ysyfwlzy where fd_ysyfwlzy_id = '{$listid}' "; $dberp->query($query); if ($dberp->nf()) { $dberp->next_record(); $listno = $dberp->f(fd_ysyfwlzy_listno); $owlid = $dberp->f(fd_ysyfwlzy_owlid); $owlno = $dberp->f(fd_ysyfwlzy_owlno); $owlname = $dberp->f(fd_ysyfwlzy_owlname); $otype = $dberp->f(fd_ysyfwlzy_otype); $iwlid = $dberp->f(fd_ysyfwlzy_iwlid); $iwlno = $dberp->f(fd_ysyfwlzy_iwlno); $iwlname = $dberp->f(fd_ysyfwlzy_iwlname); $itype = $dberp->f(fd_ysyfwlzy_itype); $listdate = $dberp->f(fd_ysyfwlzy_listdate); $money = $dberp->f(fd_ysyfwlzy_money); $sdcrid = $dberp->f(fd_ysyfwlzy_sdcrid); //配送中心id号 $mscompanyid = $dberp->f(fd_ysyfwlzy_mscid); $addmoney = -$money; $lessenmoney = 0; //生成客户往来对帐单 $ctatmemo = "应收应付款往来转移应付减少" . -$money . "元"; $cactlisttype = "101"; zbcurrentaccount($otype, $owlid, $addmoney, $lessenmoney, $ctatmemo, $cactlisttype, $loginstaname, $listid, $listno, $listdate, $sdcrid, $mscompanyid); changemoney($otype, $owlid, $money, 1, 1, $sdcrid, $mscompanyid, 1); //修改应付应付款函数,0代表正,1代表负数 //--------------------转到往来单位-------------------------------- $addmoney = 0; $lessenmoney = -$money; //生成客户往来对帐单 $ctatmemo = "应收应付款往来转移应付增加" . -$money . "元"; $cactlisttype = "101"; zbcurrentaccount($itype, $iwlid, $addmoney, $lessenmoney, $ctatmemo, $cactlisttype, $loginstaname, $listid, $listno, $listdate, $sdcrid, $mscompanyid); changemoney($itype, $iwlid, $money, 0, 1, $sdcrid, $mscompanyid, 1); //修改应付应付款函数,0代表正,1代表负数 } } //生成收入 $memo_z = "网站会员向商家采购抵扣运费,提成,返利收入"; $fkdno = listnumber_update(9); $query = "insert into tb_paymoneylist(\n fd_pymylt_no , fd_pymylt_clientid , fd_pymylt_type ,\n fd_pymylt_clientname , fd_pymylt_staid , fd_pymylt_money , \n fd_pymylt_date , fd_pymylt_memo , fd_pymylt_organid , \n fd_pymylt_clientno , fd_pymylt_sdcrid , fd_pymylt_mscompanyid ,\n fd_pymylt_state , fd_pymylt_paymscid\n )values(\n '{$fkdno}' , '{$owlid}' , '1' ,\n '{$owlname}' , '{$loginstaid}' , '{$srmoney}' ,\n now() , '{$memo_z}' , '1' , \n '{$cusno}' , '1' , '2' ,\n '1' , '{$mscompanyid}'\n )"; $dberp->query($query); //插入付款单 $fkdid = $dberp->insert_id(); //生成客户往来对帐单 $addmoney = $srmoney; $lessenmoney = 0; $ctatmemo = "抵扣运费,提成,返利收入,应付减少" . $srmoney . "元"; $cactlisttype = "9"; zbcurrentaccount(1, $owlid, $addmoney, $lessenmoney, $ctatmemo, $cactlisttype, $loginstaname, $fkdid, $fkdno, $listdate, 1, 2); changemoney($otype, $owlid, $srmoney, 0, 1, 1, 2, 1); //修改应付应付款函数,0代表正,1代表负数 //其他收入 $query = "select * from tb_othercompany where fd_orcy_izwz = 1"; if ($dberp->nf()) { $dberp->next_record(); $companyid = $dberp->f(fd_orcy_id); $company = $dberp->f(fd_orcy_allname); } $srdno = listnumber_update(13); $memo_z = "网站会员向商家采购运费,提成,返利收入"; $query = "insert into tb_incomelist(\n\t fd_incomelist_no , fd_incomelist_date , fd_incomelist_company ,\n\t fd_incomelist_staid , fd_incomelist_memo , fd_incomelist_organid , \n\t fd_incomelist_mscompanyid , fd_incomelist_sdcrid , fd_incomelist_companyid ,\n\t fd_incomelist_state , fd_incomelist_allmoney , fd_incomelist_datetime\n\t )values(\n\t '{$srdno}' , now() , '{$company}' ,\n\t '{$loginstaid}' , '{$memo_z}' , '1' , \n\t '2' , '1' , '{$companyid}' ,\n\t '2' , '{$srmoney}' , now() \n\t )"; $dberp->query($query); //插入单据资料 $listid = $dberp->insert_id(); //取出刚插入的记录的主关键值的id $query = "insert into tb_incomelistdetail(\n\t \t fd_ieltdl_incomelistid , fd_ieltdl_ptteid , fd_ieltdl_cost , \n\t \t fd_ieltdl_memo\n\t \t )values(\n\t \t '{$listid}' , '30' , '{$srmoney}' ,\n\t \t '{$memo}' \n\t \t )"; $dberp->query($query); $listtype = "13"; //单据类型 $oppositecode = "30301-a001"; updatesubject($listtype, $listid, $oppositecode, $cost, 0, 1); //0代表正,1代表负数 }