$tasa = 0;
$sucursal = getSucursal();
$fechabaja = "2029-12-31";
$fechaalta = parametro("idfecha", fechasys());
$estatus = 10;
$man1 = parametro("idsocio2", 0, MQL_INT);
$man2 = parametro("idsocio3", 0, MQL_INT);
$cuentaDeIntereses = parametro("idcuentainteres", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$fechaalta = $xF->getFechaISO($fechaalta);
$subpdto = parametro("idproductocaptacion");
$sucess = true;
//Iniciar socio
$xSoc = new cSocio($idsocio);
if ($xSoc->init() == true) {
$idcuenta = $xSoc->getIDNuevoDocto(iDE_CAPTACION, $subpdto);
if ($xSoc->existeCredito($idcuenta) == true or $xSoc->existeCuenta($idcuenta) == true) {
$idcuenta = $xSoc->getIDNuevoDocto(iDE_CAPTACION, $subpdto);
$msg .= "WARN\tNumero de Cuenta Cambiada {$idcuenta}\r\n";
}
//if( $xSoc->existeCuenta($idcuenta) )
$sqlPdto = "SELECT * FROM captacion_subproductos WHERE idcaptacion_subproductos={$subpdto}";
$dPdto = obten_filas($sqlPdto);
$tipocuenta = $dPdto["tipo_de_cuenta"];
$destino_de_intereses = $dPdto["destino_del_interes"];
//la cuenta debe de ser de intereses
$eCta = new cCuentaDeCaptacion($cuentaDeIntereses, $idsocio);
$eCta->init();
$eTS = $eCta->getTipoDeSubproducto();
if ($destino_de_intereses == CAPTACION_DESTINO_CTA_INTERES and $eTS != CAPTACION_PRODUCTO_INTERESES) {
$msg .= "ERROR\tLa Cuenta debe tener una CUENTA VALIDA PARA INTERESES, Si no Existe agrege una NUEVA y Asociela con esta Cuenta\r\n";
exit($html->setJsDestino("frmcaptacioncuentas.php?s={$idsocio}&x={$idcuenta}&i={$cuentaDeIntereses}&o={$origencuenta}&ti={$tipotitulo}&n={$observacion}&g={$idgrupo}&c={$idsolicitud}&p={$subpdto}&msg={$msg}"));
$observaciones = "";
$cadena = explode(",", trim($bufer), 8);
//Depurar
$socio = $xT->cInt($cadena[0]);
$credito = $xT->cInt($cadena[1]);
$letra = $xT->cInt($cadena[2]);
$capital = round($xT->cFloat($cadena[3]), 2);
$interes = round($xT->cFloat($cadena[4]), 2);
$iva = round($xT->cFloat($cadena[5]), 2);
$ahorro = round($xT->cFloat($cadena[6]), 2);
$observaciones = $xT->cChar($cadena[7]);
$total = $capital + $ahorro + $interes + $iva;
if (isset($socio) and isset($credito) and !empty($socio) and !empty($credito)) {
$DSoc = new cSocio($socio);
$SocioExiste = $DSoc->existe($socio);
$CreditoExiste = $DSoc->existeCredito($credito);
if ($SocioExiste == true and $CreditoExiste == true) {
$DSoc->init();
$nombre = $DSoc->getNombreCompleto();
$nombre = substr($nombre, 0, 25);
//Verificar el Saldo del Credito
$CCred = new cCredito($credito, $socio);
//echo "$credito ---- $socio<br>";
$CCred->init();
$DCred = $CCred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"];
if (!isset($saldo) or $saldo == 0) {
//$socio = "";
if ($saldo != 0 && $capital != 0) {
$msg .= "{$iReg}\t{$socio}\t{$credito}\tDIF1\tEL Saldo({$saldo}) es menor al abono({$capital}), difiere por " . getFMoney($saldo - $capital) . " \r\n ";
}
