* */ $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;