* */
$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>" );
$xFRM->addHElem( "<p class='aviso'>fecha de Ultimo Pago S: " . $xCred->getFechaUltimoDePago() . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Saldo Insoluto Integrado : " . $xCred->getSaldoIntegrado($fecha) . "</p>" );
$xFRM->addHElem( "<p class='aviso'>Saldo Vencido : " . $xCred->getSaldoVencido() . "</p>" );
*/
/*$xPlan = new cPlanDePagos();
if (trim($_FILES["idnuevoarchivo"]["name"]) == "") {
$archivoenviado = null;
}
}
$xSoc = new cSocio($persona);
$xSoc->init();
if ($doc1 !== false) {
$ready = $xSoc->setGuardarDocumento($tipodedocto, $doc1, $pagina, $observaciones, false, $archivoenviado);
if ($ready == true) {
$xFRM->addAvisoRegistroOK();
} else {
$xFRM->addAvisoRegistroError();
}
}
if (MODO_DEBUG == true) {
$xFRM->addLog($xSoc->getMessages(OUT_TXT));
}
}
echo $xFRM->get();
//$jsb->show();
?>
<!-- HTML content -->
<script>
var xG = new Gen();
function jsGetDocto(){
xG.w({
url : "../frmutils/docs.explorer.php?callback=jsSetDocto"
});
}
function jsSetDocto(mfile){
$("#iddocumento").val(mfile);
$nexterior = $DDomicilio->getNumeroExterior();
}
$DActividad = $OPersona->getOActividadEconomica();
if ($DActividad != null) {
$tipo_ae = $DActividad->getClaveDeActividad();
$sector_ae = $DActividad->getClaveDeSector();
}
//setLog( $OPersona->getMessages() );
}
$asalariado = true;
}
}
}
if (MODO_DEBUG == true) {
$msg .= $xSoc->getMessages(OUT_TXT);
$xFRM->addLog($msg);
}
}
$xTx3 = new cHText();
//$gssql= "SELECT * FROM socios_aeconomica_dependencias";
$cDE = $xSel->getListaDeEmpresas("iddependencia");
// new cSelect("iddependencia", "iddependencia", $gssql);
$cDE->addEvent("onchange", "jsGetDatosEmpresa");
$cDE->addEvent("onblur", "jsGetDatosEmpresa");
$cDE->setEsSql();
$cDE->setOptionSelect($empresa);
$xFRM->addHElem($cDE->get("TR.Empresa Relacionada", true));
$xFRM->addHElem($xTxt2->get("idrazonsocialtrabajo", $nombre_ae, "TR.Nombre_Comercial / razon_social"));
$xFRM->addHElem($xTxt6->getDeActividadEconomica("idactividad", $tipo_ae, "TR.Clave de Actividad"));
$xTxt->setClearEvents();
$xHSel->setEnclose(false);
$xChk = new cHCheckBox();
$msg = "";
$xFRM->addJsBasico();
$xFRM->addCreditBasico();
$xFRM->addSubmit();
$xFRM->addHElem($xSel->getListaDeTiposDeMemoPersonas()->get(true));
$xFRM->addHElem($xChk->get("TR.Notificar", "idnotificar"));
$xFRM->OTextArea("idmemo", $mem, "TR.Texto del memo");
if ($persona > DEFAULT_SOCIO) {
$idgrupo = parametro("idgrupo", DEFAULT_GRUPO, MQL_INT);
$txtmemo = parametro("idmemo");
$tipomemo = parametro("idtipodememo");
$notificar = parametro("idnotificar", false, MQL_BOOL);
$fechamemo = fechasys();
if (trim($txtmemo) != "") {
$xSoc = new cSocio($persona);
$xSoc->init();
$xSoc->addMemo($tipomemo, $txtmemo, $credito, $fechamemo, $notificar, $notificar);
$xFRM->addAviso("EL REGISTRO SE HA HECHO SATISFACTORIAMENTE");
if (MODO_DEBUG == true) {
$xFRM->addLog($xSoc->getMessages());
}
}
}
//.-
echo $xFRM->get();
?>
</body>
</html>
$messages .= "WARN\tLa Inversion se CIERRA\r\n";
} elseif ($saldo >= TOLERANCIA_SALDOS) {
$messages .= "ERROR\tSDO_MIN\tEL saldo de la Inversion({$saldo}) es menor a " . INVERSION_MONTO_MINIMO . ", la Inversion no se efectua\r\n";
//LLevar a cuenta Corriente
$mCorriente = $xSoc->getCuentaDeCaptacionPrimaria(CAPTACION_TIPO_VISTA);
if ($xTyp->getEvalNotNull(array($mCorriente)) == true) {
$messages .= "WARN\tSDO_MIN\tSe intenta el Traspaso a cuenta Corriente\r\n";
$messages .= $xCta->setTraspaso($mCorriente, CAPTACION_TIPO_VISTA);
}
}
} else {
$messages .= "WARN\tLa Inversion permanece Abierta\r\n";
}
$url_recibo_inversion = $xCta->getURLReciboInversion($recibo_de_reinversion);
if (MODO_DEBUG == true) {
$xFRM->addLog($messages . $xCta->getMessages());
}
$xFRM->addAviso($messages);
$xCta->init();
$xFRM->addHElem($xCta->getFicha(true, "", true));
$xFRM->addToolbar($xBtn->getBasic("TR.Imprimir constancia_de_inversion", "jsPrintReporto()", "imprimir", "idnim", false));
}
echo $xFRM->get();
$jxc->drawJavaScript(false, true);
?>
</body>
<script >
var mjrsF = "../clsfunctions.inc.php";
var mIForm = document.frminversiones;
var localDate = "<?php
echo fechasys();
$sqlEsp = "SELECT\n\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`,\n\t\t\t`operaciones_tipos`.`descripcion_operacion`\n\n\t\tFROM\n\t\t\t`operaciones_tipos` `operaciones_tipos`\n\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\tON `operaciones_tipos`.`idoperaciones_tipos` =\n\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\tWHERE\n\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` = 1001)\n\t\t\tAND\n\t\t\t(`operaciones_tipos`.`estatus` = 1)\n\t\t\tAND (`eacp_config_bases_de_integracion_miembros`.`subclasificacion` = 1)\n\t\tORDER BY\n\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`";
$cEsps = new cSelect("cMvtosEsp", "idMvtosEsp", $sqlEsp);
$cEsps->setOptionSelect(OPERACION_CLAVE_DE_CARGOS_VARIOS);
$cEsps->setEsSql();
$cEsps->addEvent("onblur", "addEspMvto");
$SEsp = $cEsps->show();
$xBtn = new cHButton();
$xFRM->addToolbar($xBtn->getBasic("Ajustar", "jsGetPagoAjustado()", "dinero", "idajust", false));
$xFRM->addToolbar($xBtn->getBasic("Sin Mora", "jsEliminarCargos()", "trabajo", "idsinmora", false));
$xFRM->addToolbar($xBtn->getBasic("Vista Previa", "showVistaPago()", "ver", "idprev", false));
$xFRM->addToolbar($xBtn->getBasic("Guardar Pago", "FormSucess()", "guardar", "idsave", false));
$xFRM->addFootElement("<table>\n\t<tbody id=\"tbCobros\">\t{$tds} </tbody>\n\t<tfoot>\n\t<tr>\n\t\t<td></td>\n\t\t<td colspan='2'>{$SEsp}</td></tr>\n \t<tr>\n \t\t<th><mark>Letra : {$parcialidad}</mark></th>\n \t\t<th>TOTAL</th>\n \t\t<th><input type=\"text\" name=\"ctotal\" id=\"idtotal\" value=\"{$total}\" class='mny' /></th>\n \t</tr>\n\t</tfoot>\n</table>");
$xFRM->addAviso("", "id_letras_de_numeros", false, "success");
if (MODO_DEBUG == true) {
$xLog->add($xCred->getMessages(OUT_TXT), $xLog->DEVELOPER);
$xFRM->addLog($xLog->getMessages());
}
$xFRM->addAviso($xLog->getMessages(), "sysmsg", false, "notice");
echo $xFRM->get();
echo $xHP->setBodyEnd();
$jxc->drawJavaScript(false, true);
//XXX: Verificar generación de IVA
?>
<script>
var Wo = new Gen();
var mMny = 0;
var goSucess = true;
var Frm = document.frmprocesarpago;
var jsWorkForm = document.frmprocesarpago;
var vTipoPago = "<?php
echo $mTipoPago;
