function setDeposito($monto, $cheque = "NA", $tipo_de_pago = TESORERIA_COBRO_CHEQUE, $recibo_fiscal = DEFAULT_RECIBO_FISCAL, $observaciones = "", $grupo = DEFAULT_GRUPO, $fecha = false, $recibo = false)
{
if ($monto > 0) {
if (setNoMenorQueCero($this->mPeriodoCuenta) == 0) {
$this->mPeriodoCuenta = 1;
}
if (setNoMenorQueCero($this->mSocioTitular) <= DEFAULT_SOCIO) {
$this->init();
}
if ($grupo == DEFAULT_GRUPO) {
$grupo = $this->mGrupoAsociado;
}
if ($fecha == false) {
if (isset($this->mFechaOperacion) and $this->mFechaOperacion != false) {
$fecha = $this->mFechaOperacion;
} else {
$fecha = fechasys();
}
}
$fecha = setFechaValida($fecha);
$this->mFechaOperacion = $fecha;
$socio = $this->mSocioTitular;
$CRecibo = new cReciboDeOperacion(4, true);
//Set a Mvto Contable
if (setNoMenorQueCero($recibo) > 0) {
$CRecibo->setNumeroDeRecibo($recibo);
if ($CRecibo->init() == true) {
$CRecibo->setGrupoAsociado($grupo);
$CRecibo->setDocumento($this->mNumeroCuenta);
$CRecibo->setSocio($this->mSocioTitular);
} else {
$recibo = 0;
}
}
//Agregar recibo si no hay
if (setNoMenorQueCero($recibo) == 0) {
$recibo = $CRecibo->setNuevoRecibo($socio, $this->mNumeroCuenta, $this->mFechaOperacion, $this->mPeriodoCuenta, 3, $observaciones, $cheque, $tipo_de_pago, $recibo_fiscal, $grupo);
//Checar si se agrego el recibo
if ($recibo != false) {
$this->mMessages .= "OK\tSe Agrego Exitosamente el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " \r\n";
$this->mReciboDeOperacion = $recibo;
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tSe Fallo al Agregar el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " \r\n";
$this->mSucess = false;
}
}
$this->mReciboDeOperacion = $recibo;
if (setNoMenorQueCero($recibo) > 0) {
//Agregar el Movimiento
$CRecibo->setNuevoMvto($fecha, $monto, $this->mOperacionDeposito, $this->mPeriodoCuenta, $observaciones, 1, TM_ABONO, $socio, $this->mNumeroCuenta);
$CRecibo->setFinalizarRecibo(true);
$CRecibo->setFinalizarTesoreria();
$this->mNuevoSaldo = $this->mSaldoAnterior + $monto;
$this->mMessages .= $CRecibo->getMessages();
$this->mSucess = true;
$this->mMessages .= "OK\tSaldo Nuevo por " . $this->mNuevoSaldo . "(" . $this->mSaldoAnterior . "|{$monto}) \r\n";
//Actualizar la Cuenta
$this->setUpdateSaldo();
} else {
$this->mMessages .= "ERROR\tNo Existe Recibo con el cual trabajar({$recibo}) \r\n";
}
$this->mMessages .= $CRecibo->getMessages();
$this->addSDPM();
}
return $recibo;
}
$credito_de_pruebas = 29000201;
$xAML = new cAMLPersonas($persona_de_pruebas);
$x2AML = new cAMLPersonas_PerfilTransaccional($persona_de_pruebas);
if ($runTest == true) {
$xCred = new cCredito($credito_de_pruebas);
$init = true;
$xCred->init();
//Ministrar
if ($xCred->getEsAfectable() == false) {
$xCred->setForceMinistracion();
$xCred->setMinistrar("", DEFAULT_CHEQUE, 0, DEFAULT_CUENTA_BANCARIA, 0, 0, "", '2014-01-01');
$init = $xCred->init();
}
if ($init == true) {
$xRec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_CREDITO, true);
$xRec->setDocumento($xCred->getNumeroDeCredito());
$xRec->setSocio($xCred->getClaveDePersona());
$idrec = $xRec->setNuevoRecibo($xCred->getClaveDePersona(), $xCred->getNumeroDeCredito(), fechasys(), 1);
$xCred->setReciboDeOperacion($idrec);
//agregar pagos
$xCred->setAbonoCapital(2200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-01-15");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(5200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-01-20");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(6200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-01-30");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(8200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-05");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }
$xCred->setAbonoCapital(9200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-06");
$xCred->setAbonoCapital(9200, 1, DEFAULT_CHEQUE, TESORERIA_COBRO_EFECTIVO, DEFAULT_RECIBO_FISCAL, "", DEFAULT_GRUPO, "2014-02-10");
//if($xCred->getORecibo() != null){ $xCred->getORecibo()->setFinalizarRecibo(true); }