$DConv = $xCred->getDatosDeProducto($producto); $tasaAhorro = $cT->cFloat($DConv["tasa_ahorro"]); if ($ContratoCorriente == 0 and $tasaAhorro > 0) { $xCapta = new cCuentaALaVista(false); $ContratoCorriente = $xCapta->setNuevaCuenta(99, DEFAULT_SUBPRODUCTO_CAPTACION, $socio, "CUENTA POR IMPORTACION", $credito); $msg .= "{$iReg}\t{$socio}\t{$credito}\tAgregando una Cuenta Corriente {$ContratoCorriente} NUEVO\r\n"; } //Agregar $ok = $xCred->add($producto, $socio, $ContratoCorriente, $monto, $periocidad, $pagos, 0, CREDITO_DEFAULT_DESTINO, $credito, DEFAULT_GRUPO, "", "CREDITO IMPORTADO #{$iReg}", DEFAULT_USER, $ministracion); if ($ok == true) { ///Inicializar //autorizar $xCred->setAutorizado($monto, $pagos, $periocidad, CREDITO_TIPO_AUTORIZACION_AUTOMATICA, $ministracion, "CREDITO IMPORTADO #{$iReg}", false, $ministracion, 2, false, $vencimiento, CREDITO_ESTADO_AUTORIZADO, $monto, 0, $UltimaOperacion); $xCred->init(); //ministrar $xCred->setForceMinistracion(); $xCred->setMinistrar(DEFAULT_RECIBO_FISCAL, DEFAULT_CHEQUE, $monto, DEFAULT_CUENTA_BANCARIA, 0, DEFAULT_CUENTA_BANCARIA, "CREDITO IMPORTADO #{$iReg}", $ministracion); if ($monto > $saldo) { $abono = $monto - $saldo; $msg .= "{$iReg}\t{$socio}\t{$credito}\tAgregando un Abono por {$abono} por el Saldo {$saldo} del Monto {$monto}\r\n"; $xCred->setAbonoCapital($abono, 1, DEFAULT_CHEQUE, DEFAULT_RECIBO_FISCAL, "CREDITO IMPORTADO #{$iReg}", DEFAULT_GRUPO, $UltimaOperacion); } } else { $msg .= "{$iReg}\t{$socio}\t{$credito}\tEL Credito no se pudo agregar\r\n"; } $msg .= $xCred->getMessages("txt"); } } $iReg++; } }
function setRegenerarCreditosMinistraciones($incluirSinSaldo) { //Reconstruye el Movimiento de Ministracion de Creditos // $wGeneral = $incluirSinSaldo == "SI" ? "" : "WHERE saldo_actual > 0 AND fecha_ministracion > '2006-12-01'"; // $msg = "============================\t\tGENERANDO MINISTRACIONES DE CREDITOS \r\n "; //Obtiene el Listado de Movimientos 110 $SQLMinistraciones = " SELECT\n\t\t\t\t\t\t\t\tCONCAT(`operaciones_mvtos`.`docto_afectado`, '-',\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`) AS 'id',\n\t\t\t\t\t\t\t\t`operaciones_mvtos`.`afectacion_real` AS 'monto'\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` =110) "; $arrMin = array(); $rsM = mysql_query($SQLMinistraciones, cnnGeneral()); while ($rx = mysql_fetch_array($rsM)) { $arrMin[$rx["id"]] = $rx["monto"]; } //============================================================================== $fecha = fechasys(); $cheque = DEFAULT_CHEQUE; $recibo_fiscal = "NA"; $observaciones = "GENERADO_EN_LA_UTILERIA_874"; //============================================================================== $CRecibo = new cReciboDeOperacion(1, true); //Set a Mvto Contable //$CRecibo->setGenerarPoliza(); //$CRecibo->setGenerarTesoreria(); $recibo = $CRecibo->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fecha, 1, 1, $observaciones, $cheque, "ninguno", $recibo_fiscal, DEFAULT_GRUPO); $CRecibo->setNumeroDeRecibo($recibo); //Genera los Creditos $sql = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.*,\n\t\t\t\t\t\t\t\t\t\t\t\t`creditos_tipoconvenio`.*,\n\t\t\t\t\t\t\t\t\t\t\t\t`creditos_periocidadpagos`.*,\n\t\t\t\t\t\t\t\t\t\t\t\t`creditos_estatus`.*,\n\t\t\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`tasa_interes` AS `tasa_ordinaria_anual`,\n\t\t\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`tipo_autorizacion` AS `tipo_de_autorizacion`,\n\t\t\t\t\t\t\t `creditos_solicitud`.`tasa_ahorro` AS `tasa_de_ahorro`\n\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`creditos_tipoconvenio` `creditos_tipoconvenio`\n\t\t\t\t\t\t\t\t\tINNER JOIN `creditos_solicitud` `creditos_solicitud`\n\t\t\t\t\t\t\t\t\tON `creditos_tipoconvenio`.`idcreditos_tipoconvenio`\n\t\t\t\t\t\t\t\t\t= `creditos_solicitud`.`tipo_convenio`\n\t\t\t\t\t\t\t\t\t\tINNER JOIN `creditos_periocidadpagos`\n\t\t\t\t\t\t\t\t\t\t`creditos_periocidadpagos`\n\t\t\t\t\t\t\t\t\t\tON `creditos_periocidadpagos`.\n\t\t\t\t\t\t\t\t\t\t`idcreditos_periocidadpagos` =\n\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`periocidad_de_pago`\n\t\t\t\t\t\t\t\t\t\t\tINNER JOIN `creditos_estatus`\n\t\t\t\t\t\t\t\t\t\t\t`creditos_estatus`\n\t\t\t\t\t\t\t\t\t\t\tON `creditos_estatus`.`idcreditos_estatus` =\n\t\t\t\t\t\t\t\t\t\t\t`creditos_solicitud`.`estatus_actual`\n\t\t\t\t\t\t\t\t\t\t\t{$wGeneral}\n\t\t\t\t\t\t\t\t "; $rs = mysql_query($sql, cnnGeneral()); while ($rw = mysql_fetch_array($rs)) { $socio = $rw["numero_socio"]; $credito = $rw["numero_solicitud"]; $monto = $rw["monto_autorizado"]; $fecha_ministracion = $rw["fecha_ministracion"]; $CCredito = new cCredito($credito, $socio); $CCredito->init($rw); $CCredito->setForceMinistracion(); if (!isset($arrMin["{$credito}-110"])) { $idreciboMin = $CCredito->setMinistrar($recibo_fiscal, DEFAULT_CHEQUE, $monto, DEFAULT_CUENTA_BANCARIA, DEFAULT_CHEQUE, DEFAULT_CUENTA_BANCARIA, $observaciones, $fecha_ministracion, $recibo); } $msg .= $CCredito->getMessages("txt"); } $CRecibo->setFinalizarRecibo(true); $msg .= $CRecibo->getMessages("txt"); return $msg; }