PHP cHForm::addCreditoComandos方法代码示例

        $xCat = new cCreditosOtrosDatos();
        if ($tieneprops == true) {
            $xCred->setOtrosDatos($xCat->AML_CON_PROPIETARIO, "1");
        }
        if ($tieneprovs == true) {
            $xCred->setOtrosDatos($xCat->AML_CON_PROVEEDOR, "1");
        }
        if ($xCred->getTipoDeAutorizacion() == CREDITO_TIPO_AUTORIZACION_AUTOMATICA) {
            //$saldo_actual = $monto_autorizado;
            //TODO: Acabar con este modulo
            $xFRM->addToolbar($xBtn->getBasic($xHP->lang("Imprimir", "Orden de Desembolso"), "jsImprimirOrdenDeDesembolso()", "imprimir", "cmdprintdes", false));
        }
        //----------------------------------------------------------------------
        $xFRM->addHTML($xCred->getFichaDeSocio());
        $xFRM->addHTML($xCred->getFicha());
        $xFRM->addCreditoComandos($xCred->getNumeroDeCredito());
        $xFRM->addToolbar($xBtn->getBasic("TR.Autorizar credito", "var CGen=new CredGen();CGen.getFormaAutorizacion({$credito})", "imprimir", "cmdprintdes5", false));
        $xFRM->addToolbar($xBtn->getBasic("TR.GENERAR PLAN_DE_PAGOS", "var CGen=new CredGen();CGen.getFormaPlanPagos({$credito})", "reporte", "generar-plan", false));
    }
}
$msg .= $xSoc->getMessages();
$xFRM->addAviso($msg);
echo $xFRM->get();
?>
<script>
var xGen	= new Gen();
var CGen	= new CredGen();

var idcredito	= <?php 
echo $credito;
?>

     $idsocio = $xCred->getClaveDePersona();
 }
 $xOPdto = $xCred->getOProductoDeCredito();
 if ($idsocio != $xCred->getClaveDePersona()) {
     $msg = "ERROR\tLa Persona {$idsocio} no es la propietaria del credito, el credito marca " . $xCred->getClaveDePersona() . "\r\n";
     $oFrm->addToolbar($xBtn->getRegresar("../index.xul.php?p=frmcreditos/creditos.panel.frm.php", true));
     $oFrm->addAviso($msg);
 } else {
     $oFrm->addHTML($xCred->getFichaDeSocio(true));
     $oFrm->addHTML($xCred->getFicha(true, "", true));
     $codigo_de_oficial = $xCred->getClaveDeOficialDeCredito();
     if (MODO_DEBUG == true) {
         $oFrm->addToolbar($xBtn->getBasic("TR.EDICION_AVANZADA", "jsActualizarCreditoRAW()", "aviso", "edit-credito2", false));
         $oFrm->addToolbar($xBtn->getBasic("TESTING", "var xG=new Gen();xG.w({url:'../unit/core.creditos.test.php?credito={$idsolicitud}'})", "checar", "test-cred", false));
     }
     $oFrm->addCreditoComandos($idsolicitud);
     $oFrm->addToolbar($xBtn->getBasic("TR.ACTUALIZAR DATOS", "jsActualizarCredito()", "editar", "edit-credito", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR PAGARE", "printpagare()", "dinero", "view-pagare", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR formato NOTARIAL", "cedulanotario({$idsolicitud})", "reporte", "view-cedula", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.ORDEN_DE_DESEMBOLSO", "printodes()", "imprimir", "print-order", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.CONTRATO", "contratocredito()", "imprimir", "print-contrato", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR RECIBO DE credito", "printrec()", "imprimir", "print-recP", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.IMPRIMIR MANDATO", "printMandato()", "imprimir", "print-mandato", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.ESTADO_DE_CUENTA", "getEstadoDeCuenta({$idsolicitud})", "statistics", "estado-cta", false));
     $oFrm->addToolbar($xBtn->getBasic("TR.ESTADO_DE_CUENTA Intereses", "getEstadoDeCuentaIntereses({$idsolicitud})", $oFrm->ic()->COBROS, "estado-cta2", false));
     $idrecibo = $xCred->getNumeroReciboDeMinistracion();
     $idnumeroplan = $xCred->getNumeroDePlanDePagos();
     if (setNoMenorQueCero($idnumeroplan) > 0) {
         $oFrm->addToolbar($xBtn->getBasic("TR.PLAN_DE_PAGOS #{$idnumeroplan}", "printplan({$idnumeroplan})", "print", "print-plan", false));
     }
     $oFrm->addToolbar($xBtn->getBasic("TR.RENEGOCIAR", "jsRenegociar()", "editar", "mcediatar", false));

echo $xP->setBodyinit();
//
$fecha = parametro("fecha", fechasys());
/*
Fecha_Cierre_Credito,Forma_Pago_Mop ( Que solo puede salir viendo cuantos dias transcurridos  del credito han pasado) y Monto_Ultimo_Pago creo que con eso ya sale para hoy
 * */
$credito_de_pruebas = parametro("credito", 209999801, MQL_INT);
//Crear formularios
$xFRM = new cHForm("frmTest", "./test.php");
$xHTxt = new cHText("");
//====================================================================================================
$xFRM->addHElem("<p class='aviso'>Pruebas de la Clase Creditos</p>");
$xCred = new cCredito($credito_de_pruebas);
$xCred->init();
$xFRM->addHElem($xCred->getFicha(true, "", true, true));
$xFRM->addCreditoComandos($credito_de_pruebas);
//$xFRM->addHElem($xCred->setDetermineDatosDeEstatus(fechasys(), true));
$xUtils->setEstatusDeCreditos(false, fechasys(), false, true, false);
//$xFRM->addAviso($xCred->getMessages(), "id2", false, "warning");
//$xFRM->addAviso(, "id2", false, "warning");
$xFRM->addLog($xUtils->getMessages());
/*$xFRM->addHElem( "<p class='aviso'>Vencimiento : " . $xCred->setDetermineDatosDeEstatus(false, true) . "</p>" );

$xFRM->addHElem( "<p class='aviso'>fecha de ultimo pago de CAPITAL : " . $xCred->getFechaUltimoMvtoCapital() . "</p>" );

$xFRM->addHElem( "<p class='aviso'>Monto de Parcialidad : " . $xCred->getMontoDeParcialidad() . "</p>" );

$xFRM->addHElem( "<p class='aviso'>Saldo Actual Normal : " . $xCred->getSaldoActual() . "</p>" );

$xFRM->addHElem( "<p class='aviso'>Saldo Actual FORZADO: " . $xCred->getSaldoActual($fecha) . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Monto de Ultimo Pago : " . $xCred->getMontoUltimoPago() . "</p>" );

 if ($idmonto <= TOLERANCIA_SALDOS) {
     //Cambiar a 0 de saldo autorizado y 50 de estatus
     $xCred->setCancelado($idautorizacion, $fechaaut);
     $sucess = false;
 }
 /*------------------------------ Obtiene datos mediante sentencias dinamicas */
 $estatusactual = 98;
 /* Determina si el Pago es en una sola Ministracion, genera el IDAD */
 if ($periocidad == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
     $intdev = $idmonto * $tasaot / EACP_DIAS_INTERES;
     // Interes Diario para Pagos Fijos
     $idpagos = 1;
     $fechavcto = $ds_sol["fecha_vencimiento"];
     $diasaut = restarfechas($fechavcto, $fecha_ministracion_propuesta);
     $msg .= "WARN\tLos Dias Autorizados cambian a {$diasaut}, se respeta la fecha de vencimiento ({$fechavcto})\r\n";
     $xFRM->addCreditoComandos($idsolicitud);
 } else {
     $intdev = $idmonto * $tasaot / EACP_DIAS_INTERES;
     // Interes Diario a Cero para otros Casos
     $fechavcto = sumardias($fecha_ministracion_propuesta, $diasaut);
     $msg .= "WARN\tLa Fecha de Vencimiento es actualizada al " . getFechaLarga($fechavcto) . "; los dias autorizados son de {$diasaut}\r\n";
     $msg .= "WARN\tPARA OBTENER LOS DEMAS DOCUMENTOS DEBE GENERAR EL PLAN DE PAGOS\r\n";
 }
 /* ------------------------------ sentencia update -------------------------- */
 if ($sucess == true) {
     $xCred->setAutorizado($idmonto, $idpagos, $periocidad, $TipoDeAutorizacion, $fechaaut, $idautorizacion, $idtipodepago, $fecha_ministracion_propuesta, $idnivelderiesgo, $diasaut, $fechavcto, $estatusactual, $sdoactual, $intdev, $fechaultmvto, $TasaDeInteres);
     /* si es Credito de Grupos solidarios, Actualiza los Mvtos de Otorgacion */
     if ($OConv->getEsProductoDeGrupos() == true) {
         $sqlusolc = "UPDATE operaciones_mvtos\tSET estatus_mvto = 10\tWHERE\n\t\t\t\tgrupo_asociado={$gpoasoc}\tAND (tipo_operacion=112) AND (estatus_mvto=40)";
         my_query($sqlusolc);
     }