Пример #1
0
function removeChecks()
{
    $result = ACC_DocCheques::Remove($_POST["DocChequeID"]);
    echo $result ? "true" : "conflict";
    die;
}
Пример #2
0
function RegisterSHRTFUNDPayPartDoc($ReqObj, $PartObj, $PayObj, $BankTafsili, $AccountTafsili, $pdo, $DocID = "")
{
    /*@var $ReqObj LON_requests */
    /*@var $PartObj LON_ReqParts */
    /*@var $PayObj LON_payments */
    //------------- get CostCodes --------------------
    $LoanObj = new LON_loans($ReqObj->LoanID);
    $CostCode_Loan = FindCostID("110" . "-" . $LoanObj->_BlockCode);
    $CostCode_varizi = FindCostID("721-" . $LoanObj->_BlockCode . "-52");
    $CostCode_pardakhti = FindCostID("721-" . $LoanObj->_BlockCode . "-51");
    $CostCode_bank = FindCostID("101");
    $CostCode_todiee = FindCostID("200-" . $LoanObj->_BlockCode . "-01");
    $CostCode_agent_wage = FindCostID("200-02");
    $CostCode_guaranteeAmount_zemanati = FindCostID("904-02");
    $CostCode_guaranteeAmount2_zemanati = FindCostID("905-02");
    //------------------------------------------------
    $CycleID = substr(DateModules::miladi_to_shamsi($PayObj->PayDate), 0, 4);
    //---------------- add doc header --------------------
    if ($DocID == "") {
        $obj = new ACC_docs();
        $obj->RegDate = PDONOW;
        $obj->regPersonID = $_SESSION['USER']["PersonID"];
        $obj->DocDate = PDONOW;
        $obj->CycleID = $CycleID;
        $obj->BranchID = $ReqObj->BranchID;
        $obj->DocType = DOCTYPE_LOAN_PAYMENT;
        $obj->description = "پرداخت وام شماره " . $ReqObj->RequestID . " به نام " . $ReqObj->_LoanPersonFullname;
        if (!$obj->Add($pdo)) {
            ExceptionHandler::PushException("خطا در ایجاد سند");
            return false;
        }
    } else {
        $obj = new ACC_docs($DocID);
    }
    $PayAmount = $PayObj->PayAmount;
    //--------------------------------------------------------
    $payments = LON_payments::Get(" AND RequestID=? order by PayDate", array($PartObj->RequestID));
    $payments = $payments->fetchAll();
    //------------------ nfind tafsilis ---------------
    $LoanPersonTafsili = FindTafsiliID($ReqObj->LoanPersonID, TAFTYPE_PERSONS);
    if (!$LoanPersonTafsili) {
        ExceptionHandler::PushException("تفصیلی مربوطه یافت نشد.[" . $ReqObj->LoanPersonID . "]");
        return false;
    }
    $LoanMode = "";
    if (!empty($ReqObj->ReqPersonID)) {
        $PersonObj = new BSC_persons($ReqObj->ReqPersonID);
        if ($PersonObj->IsAgent == "YES") {
            $LoanMode = "Agent";
        }
    } else {
        $LoanMode = "Customer";
    }
    if ($LoanMode == "Agent") {
        $ReqPersonTafsili = FindTafsiliID($ReqObj->ReqPersonID, TAFTYPE_PERSONS);
        if (!$ReqPersonTafsili) {
            ExceptionHandler::PushException("تفصیلی مربوطه یافت نشد.[" . $ReqObj->ReqPersonID . "]");
            return false;
        }
        $SubAgentTafsili = "";
        if (!empty($ReqObj->SubAgentID)) {
            $SubAgentTafsili = FindTafsiliID($ReqObj->SubAgentID, TAFTYPE_SUBAGENT);
            if (!$SubAgentTafsili) {
                ExceptionHandler::PushException("تفصیلی زیر واحد سرمایه گذار یافت نشد.[" . $ReqObj->SubAgentID . "]");
                return false;
            }
        }
    }
    //------------ find the number step to pay ---------------
    $FirstStep = true;
    $dt = PdoDataAccess::runquery("select * from ACC_DocItems where SourceID=?", array($ReqObj->RequestID));
    if (count($dt) > 0) {
        $FirstStep = false;
        $query = "select ifnull(sum(CreditorAmount-DebtorAmount),0)\r\n\t\t\tfrom ACC_DocItems where CostID=? AND TafsiliID=? AND sourceID=?";
        $param = array($CostCode_todiee, $LoanPersonTafsili, $ReqObj->RequestID);
        if ($LoanMode == "Agent") {
            $query .= " AND TafsiliID2=?";
            $param[] = $ReqPersonTafsili;
        }
        $dt = PdoDataAccess::runquery($query, $param);
        if ($dt[0][0] * 1 < $PayAmount) {
            print_r(ExceptionHandler::PopAllExceptions());
            ExceptionHandler::PushException("حساب تودیعی این مشتری" . number_format($dt[0][0]) . " ریال می باشد که کمتر از مبلغ این مرحله از پرداخت وام می باشد");
            return false;
        }
    }
    //----------------- add Doc items ------------------------
    $itemObj = new ACC_DocItems();
    $itemObj->DocID = $obj->DocID;
    $itemObj->TafsiliType = TAFTYPE_PERSONS;
    $itemObj->TafsiliID = $LoanPersonTafsili;
    if ($LoanMode == "Agent") {
        $itemObj->TafsiliType2 = TAFTYPE_PERSONS;
        $itemObj->TafsiliID2 = $ReqPersonTafsili;
    }
    $itemObj->locked = "YES";
    $itemObj->SourceType = DOCTYPE_LOAN_PAYMENT;
    $itemObj->SourceID = $ReqObj->RequestID;
    $itemObj->SourceID2 = $PartObj->PartID;
    $itemObj->SourceID3 = $PayObj->PayID;
    if ($FirstStep) {
        unset($itemObj->ItemID);
        $itemObj->DocID = $obj->DocID;
        $itemObj->CostID = $CostCode_Loan;
        $itemObj->DebtorAmount = $PartObj->PartAmount;
        $itemObj->CreditorAmount = 0;
        $itemObj->Add($pdo);
        $LoanRow = clone $itemObj;
        if ($PartObj->PartAmount != $PayAmount) {
            unset($itemObj->ItemID);
            $itemObj->DocID = $obj->DocID;
            $itemObj->CostID = $CostCode_todiee;
            $itemObj->DebtorAmount = 0;
            $itemObj->CreditorAmount = $PartObj->PartAmount * 1 - $PayAmount;
            $itemObj->Add($pdo);
        }
    } else {
        unset($itemObj->ItemID);
        $itemObj->DocID = $obj->DocID;
        $itemObj->CostID = $CostCode_todiee;
        $itemObj->DebtorAmount = $PayAmount;
        $itemObj->CreditorAmount = 0;
        $itemObj->Add($pdo);
    }
    //---------------------------------------------------------
    $itemObj = new ACC_DocItems();
    $itemObj->DocID = $obj->DocID;
    $itemObj->CostID = $CostCode_varizi;
    $itemObj->DebtorAmount = $PayAmount;
    $itemObj->CreditorAmount = 0;
    $itemObj->TafsiliType = TAFTYPE_PERSONS;
    $itemObj->TafsiliID = $ReqPersonTafsili;
    $itemObj->locked = "YES";
    $itemObj->SourceType = DOCTYPE_LOAN_PAYMENT;
    $itemObj->SourceID = $ReqObj->RequestID;
    $itemObj->SourceID2 = $PartObj->PartID;
    $itemObj->SourceID3 = $PayObj->PayID;
    $itemObj->Add($pdo);
    $itemObj = new ACC_DocItems();
    $itemObj->DocID = $obj->DocID;
    $itemObj->CostID = $CostCode_pardakhti;
    $itemObj->DebtorAmount = 0;
    $itemObj->CreditorAmount = $PayAmount;
    $itemObj->TafsiliType = TAFTYPE_PERSONS;
    $itemObj->TafsiliID = $ReqPersonTafsili;
    $itemObj->locked = "YES";
    $itemObj->SourceType = DOCTYPE_LOAN_PAYMENT;
    $itemObj->SourceID = $ReqObj->RequestID;
    $itemObj->SourceID2 = $PartObj->PartID;
    $itemObj->SourceID3 = $PayObj->PayID;
    $itemObj->Add($pdo);
    // ----------------------------- bank --------------------------------
    $AgentWage = 0;
    if ($PartObj->CustomerWage * 1 > $PartObj->FundWage * 1 && $PartObj->AgentReturn == "CUSTOMER") {
        //$totalWage = ComputeWageOfSHekoofa($PartObj);
        $totalWage = $PayAmount * $PartObj->CustomerWage / 100;
        $AgentFactor = ($PartObj->CustomerWage * 1 - $PartObj->FundWage * 1) / $PartObj->CustomerWage * 1;
        $AgentWage = $totalWage * $AgentFactor;
        unset($itemObj->ItemID);
        $itemObj->CostID = $CostCode_agent_wage;
        $itemObj->DebtorAmount = 0;
        $itemObj->CreditorAmount = $AgentWage;
        $itemObj->TafsiliType = TAFTYPE_PERSONS;
        $itemObj->TafsiliID = $ReqPersonTafsili;
        unset($itemObj->TafsiliType2);
        unset($itemObj->TafsiliID2);
        $itemObj->Add($pdo);
    }
    $itemObj = new ACC_DocItems();
    $itemObj->DocID = $obj->DocID;
    $itemObj->CostID = $CostCode_bank;
    $itemObj->DebtorAmount = 0;
    $itemObj->CreditorAmount = $PayAmount - $AgentWage;
    $itemObj->TafsiliType = TAFTYPE_BANKS;
    $itemObj->TafsiliID = $BankTafsili;
    $itemObj->TafsiliType2 = TAFTYPE_ACCOUNTS;
    $itemObj->TafsiliID2 = $AccountTafsili;
    $itemObj->locked = "YES";
    $itemObj->SourceType = DOCTYPE_LOAN_PAYMENT;
    $itemObj->SourceID = $ReqObj->RequestID;
    $itemObj->SourceID2 = $PartObj->PartID;
    $itemObj->SourceID3 = $PayObj->PayID;
    $itemObj->Add($pdo);
    $BankRow = clone $itemObj;
    //---------- ردیف های تضمین  ----------
    $dt = PdoDataAccess::runquery("select * from DMS_documents \r\n\t\tjoin BaseInfo b on(InfoID=DocType AND TypeID=8)\r\n\t\tjoin ACC_DocItems on(SourceType=" . DOCTYPE_DOCUMENT . " AND SourceID=DocumentID)\r\n\t\twhere b.param1=1 AND ObjectType='loan' AND ObjectID=?", array($ReqObj->RequestID));
    $SumAmount = 0;
    $countAmount = 0;
    if (count($dt) == 0) {
        $dt = PdoDataAccess::runquery("\r\n\t\t\tSELECT DocumentID, ParamValue, InfoDesc as DocTypeDesc\r\n\t\t\t\tFROM DMS_DocParamValues\r\n\t\t\t\tjoin DMS_DocParams using(ParamID)\r\n\t\t\t\tjoin DMS_documents d using(DocumentID)\r\n\t\t\t\tjoin BaseInfo b on(InfoID=d.DocType AND TypeID=8)\r\n\t\t\twhere b.param1=1 AND paramType='currencyfield' AND ObjectType='loan' AND ObjectID=?", array($ReqObj->RequestID), $pdo);
        foreach ($dt as $row) {
            unset($itemObj->ItemID);
            unset($itemObj->TafsiliType2);
            unset($itemObj->TafsiliID2);
            $itemObj->CostID = $CostCode_guaranteeAmount_zemanati;
            $itemObj->DebtorAmount = $row["ParamValue"];
            $itemObj->CreditorAmount = 0;
            $itemObj->TafsiliType = TAFTYPE_PERSONS;
            $itemObj->TafsiliID = $LoanPersonTafsili;
            $itemObj->SourceType = DOCTYPE_DOCUMENT;
            $itemObj->SourceID = $row["DocumentID"];
            $itemObj->details = $row["DocTypeDesc"];
            $itemObj->Add($pdo);
            $SumAmount += $row["ParamValue"] * 1;
            $countAmount++;
        }
        if ($SumAmount > 0) {
            unset($itemObj->ItemID);
            unset($itemObj->TafsiliType);
            unset($itemObj->TafsiliID);
            unset($itemObj->TafsiliType2);
            unset($itemObj->TafsiliID2);
            unset($itemObj->details);
            $itemObj->CostID = $CostCode_guaranteeAmount2_zemanati;
            $itemObj->DebtorAmount = 0;
            $itemObj->CreditorAmount = $SumAmount;
            $itemObj->Add($pdo);
            /*unset($itemObj->ItemID);
            			$itemObj->CostID = $CostCode_guaranteeCount;
            			$itemObj->DebtorAmount = $countAmount;
            			$itemObj->CreditorAmount = 0;	
            			$itemObj->Add($pdo);
            
            			unset($itemObj->ItemID);
            			$itemObj->CostID = $CostCode_guaranteeCount2;
            			$itemObj->DebtorAmount = 0;
            			$itemObj->CreditorAmount = $countAmount;
            			$itemObj->Add($pdo);*/
        }
    }
    //--------------- cheques of installments ---------------------
    /*if($FirstStep)
    	{
    		$dt = PdoDataAccess::runquery("
    			SELECT PayAmount,BackPayID
    				FROM LON_BackPays
    				where RequestID=? AND PayType=9",array($PartObj->RequestID), $pdo);
    		
    		$SumAmount = 0;
    		foreach($dt as $row)
    		{
    			unset($itemObj->ItemID);
    			unset($itemObj->TafsiliType2);
    			unset($itemObj->TafsiliID2);
    			$itemObj->CostID = $CostCode_guaranteeAmount_daryafti;
    			$itemObj->DebtorAmount = $row["PayAmount"];
    			$itemObj->CreditorAmount = 0;
    			$itemObj->TafsiliType = TAFTYPE_PERSONS;
    			$itemObj->TafsiliID = $LoanPersonTafsili;
    			$itemObj->SourceType = DOCTYPE_DOCUMENT;
    			$itemObj->SourceID = $row["BackPayID"];
    			$itemObj->Add($pdo);
    			
    			$SumAmount += $row["ParamValue"]*1;
    			$countAmount++;
    		}
    		if($SumAmount > 0)
    		{
    			unset($itemObj->ItemID);
    			unset($itemObj->TafsiliType);
    			unset($itemObj->TafsiliID);
    			unset($itemObj->TafsiliType2);
    			unset($itemObj->TafsiliID2);
    			unset($itemObj->details);
    			$itemObj->CostID = $CostCode_guaranteeAmount2_daryafti;
    			$itemObj->DebtorAmount = 0;
    			$itemObj->CreditorAmount = $SumAmount;	
    			$itemObj->Add($pdo);
    
    			
    		}
    	}*/
    //---------------------------------------------------------
    //------ ایجاد چک ------
    $chequeObj = new ACC_DocCheques();
    $chequeObj->DocID = $obj->DocID;
    $chequeObj->CheckDate = $PayObj->PayDate;
    $chequeObj->amount = $PartObj->PartAmount;
    $chequeObj->TafsiliID = $LoanPersonTafsili;
    $chequeObj->description = " پرداخت وام شماره " . $ReqObj->RequestID;
    $chequeObj->Add($pdo);
    //---------------------------------------------------------
    $dt = PdoDataAccess::runquery("select sum(DebtorAmount) dsum, sum(CreditorAmount) csum\r\n\t\tfrom ACC_DocItems where DocID=?", array($obj->DocID), $pdo);
    if ($dt[0]["dsum"] > $dt[0]["csum"]) {
        $BankRow->CreditorAmount += $dt[0]["dsum"] - $dt[0]["csum"];
        $BankRow->Edit($pdo);
    } else {
        if ($dt[0]["csum"] > $dt[0]["dsum"]) {
            $LoanRow->DebtorAmount += $dt[0]["csum"] - $dt[0]["dsum"];
            $LoanRow->Edit($pdo);
        }
    }
    //---------------------------------------------------------
    if (ExceptionHandler::GetExceptionCount() > 0) {
        return false;
    }
    return $obj->DocID;
}