} else {
$fecha = $_POST["elanno0"] . "-" . $_POST["elmes0"] . "-" . $_POST["eldia0"];
$banco = isset($_POST["cBanco"]) ? $_POST["cBanco"] : false;
$numOperacion = isset($_POST["cOperacion"]) ? $_POST["cOperacion"] : false;
$monto = isset($_POST["cMonto"]) ? $_POST["cMonto"] : false;
$observaciones = isset($_POST["observaciones"]) ? $_POST["observaciones"] : "";
if ($monto != false and $banco != false) {
$xRec = new cReciboDeOperacion(201, true);
$xRec->setGenerarBancos(false);
$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$xRec->setCuentaBancaria($banco);
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, 1, $fecha, 1, 201, $observaciones, "NA", "efectivo", "NA", DEFAULT_GRUPO, $banco);
$xRec->setNumeroDeRecibo($idrecibo);
$xRec->setNuevoMvto($fecha, $monto, 9301, 1, $observaciones, 1, TM_ABONO, DEFAULT_SOCIO);
$xRec->addMvtoContableByTipoDePago($monto, TM_CARGO);
$xRec->setFinalizarRecibo(true);
//Agregar la Operacion Bancaria
$xB = new cCuentaBancaria($banco);
$xB->setNewRetiro($numOperacion, $idrecibo, "PAGO DEL IDE", $monto, $fecha);
//
echo $xRec->getFicha();
//
echo "<input type='button' onclick='jsPrintIDE()' value='Imprimir Recibo' />";
}
}
?>
</body>
<script >
function jsPrintIDE() {
var elUrl = "../rpt_formatos/recibo.rpt.php?recibo=<?php
function setDeposito($monto, $cheque = DEFAULT_CHEQUE, $tipo_de_pago = "cheque", $recibo_fiscal = "NA", $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;
}
//Corregir la fecha si no existe
if ($fecha == false) {
if (isset($this->mFechaOperacion) and $this->mFechaOperacion != false) {
$fecha = $this->mFechaOperacion;
} else {
$fecha = fechasys();
}
}
$this->mFechaOperacion = $fecha;
$socio = $this->mSocioTitular;
$CRecibo = new cReciboDeOperacion(7, true);
//Agregar recibo si no hay
if (setNoMenorQueCero($recibo) == 0) {
$recibo = $CRecibo->setNuevoRecibo($socio, $this->mNumeroCuenta, $this->mFechaOperacion, $this->mPeriodoCuenta, 7, $observaciones, $cheque, $tipo_de_pago, $recibo_fiscal, $grupo);
//Checar si se agrego el recibo
if (setNoMenorQueCero($recibo) == 0) {
$this->mMessages .= "OK\tSe Agrego Exitosamente el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " de fecha {$fecha} \r\n";
$this->mReciboDeOperacion = $recibo;
$this->mSucess = true;
} else {
$this->mMessages .= "ERROR\tSe Fallo al Agregar el Recibo {$recibo} de la Cuenta " . $this->mNumeroCuenta . " de Fecha {$fecha}\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->addMvtoContableByTipoDePago();
$CRecibo->setFinalizarRecibo(true);
$CRecibo->setFinalizarTesoreria();
$this->mNuevoSaldo = $this->mSaldoAnterior + $monto;
$this->mMessages .= $CRecibo->getMessages();
$this->mSucess = true;
//Actualizar la Cuenta
$this->setUpdateSaldo();
} else {
$this->mMessages .= "ERROR\tNo Existe Recibo con el cual trabajar({$recibo}) \r\n";
}
$this->mMessages .= $CRecibo->getMessages();
}
return $recibo;
}
$interes = $_POST["interes"];
$idministrado = $_POST["idministrado"];
$idpago = $_POST["idpago"];
$montooriginal = $_POST["montooriginal"];
$aportsocial = $montoaport * EACP_TASA_RESERVA;
$aportvol = $montoaport - $aportsocial;
$cheque = $_POST["cheque"];
$comopago = $_POST["ctipo_pago"];
$foliofiscal = $_POST["foliofiscal"];
$fecha = fechasys();
$cRec = new cReciboDeOperacion(5, false);
//$cRec->setGenerarBancos();
$cRec->setGenerarPoliza();
$cRec->setGenerarTesoreria();
$idrecibo = $cRec->setNuevoRecibo($idsocio, DEFAULT_CREDITO, $fecha, 1, 5, $observaciones, $cheque, $comopago, $foliofiscal, $idgrupo);
$cRec->setNuevoMvto($fecha, $aportvol, 702, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->setNuevoMvto($fecha, $aportsocial, 710, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->addMvtoContableByTipoDePago($totalcuotas, TM_CARGO);
$cRec->setFinalizarRecibo(true);
//PolizaPorRecibo($idrecibo);
$cFicha = new cFicha(iDE_SOCIO, $idsocio);
$cFicha->setTableWidth();
$cFicha->show();
echo $cRec->getFicha(true);
echo $msg_rec_end;
echo $cRec->getJsPrint(true);
}
?>
</body>
</html>
$comopago = $_POST["ctipo_pago"];
$cheque = $_POST["cheque"];
$foliofiscal = $_POST["foliofiscal"];
$idsocio = $_POST["idsocio"];
$fecha = fechasys();
$iddocto = $idsolicitud;
//===================================================================================================
$cRec = new cReciboDeOperacion(15, true, false);
$cRec->setGenerarBancos();
$cRec->setGenerarPoliza();
$cRec->setGenerarTesoreria();
$idrecibo = $cRec->setNuevoRecibo($idsocio, $iddocto, $fecha, 1, 15, $observaciones, $cheque, $comopago, $foliofiscal);
$cRec->setNuevoMvto($fecha, $monto, 351, 1, $observaciones, 1, TM_ABONO, $idsocio);
//IVA
$cRec->setNuevoMvto($fecha, $iva, 151, 1, $observaciones, 1, TM_ABONO, $idsocio);
$cRec->addMvtoContableByTipoDePago($montooperacion, TM_CARGO);
$cRec->setFinalizarRecibo(true);
$cfSocio = new cFicha(iDE_SOCIO, $idsocio);
$cfSocio->setTableWidth();
$cfSocio->show();
echo $cRec->getFicha();
echo $msg_rec_end;
// actualiza el interes Anticipado del Credito
$sqlica = "UPDATE creditos_solicitud\n\t\tSET sdo_int_ant=(sdo_int_ant + ({$monto}))\n\t\tWHERE numero_solicitud={$idsolicitud}";
my_query($sqlica);
//
}
?>
</body>
<script >
var wFrm = document.frminteresant;
$Fecha = parametro("idfechadepago", false);
$Fecha = $Fecha == false ? fechasys() : $xF->getFechaISO($Fecha);
$observacion = parametro("idobservaciones", "");
$monto = parametro("idmonto", 0, MQL_FLOAT);
$cheque = parametro("cheque", DEFAULT_CHEQUE);
$comopago = parametro("ctipo_pago", DEFAULT_TIPO_PAGO, MQL_RAW);
$foliofiscal = parametro("foliofiscal", DEFAULT_RECIBO_FISCAL);
$fecha_de_operacion = $Fecha;
$xRec = new cReciboDeOperacion(20);
//$xRec->setGenerarBancos();
//$xRec->setGenerarPoliza();
//$xRec->setGenerarTesoreria();
$idrecibo = $xRec->setNuevoRecibo($persona, 1, $fecha_de_operacion, 1, 20, $observacion, $cheque, $comopago, $foliofiscal, DEFAULT_GRUPO);
$xRec->setNuevoMvto($fecha_de_operacion, $monto, 1001, 1, $observacion, 1, TM_ABONO);
//agregar Poliza
$xRec->addMvtoContableByTipoDePago();
//Finalizar recibo
$xRec->setFinalizarRecibo(true);
$xRec->init();
$xFRM->addHTML($xRec->getFichaSocio());
$xFRM->addHTML($xRec->getFicha(true));
$xFRM->addHTML($xRec->getJsPrint(true));
$xFRM->OButton("TR. Imprimir recibo", "jsImprimirRecibo()", "imprimir", "idrec-dep");
$xFRM->addCerrar();
if (MODO_DEBUG == true) {
$msg .= $xRec->getMessages();
$xFL = new cFileLog(false, true);
$xFL->setWrite($msg);
$xFL->setClose();
$xFRM->addToolbar($xFL->getLinkDownload("TR.Archivo de sucesos", ""));
}
