function jsaGetDatosEmpresa($idEmpresa)
{
    $xEmp = new cEmpresas($idEmpresa);
    $xF = new cFecha();
    $ql = new MQL();
    $xl = new cSQLListas();
    $observaciones = "";
    $xEmp->init();
    $persona = $xEmp->getClaveDePersona();
    $xF = new cFecha(0);
    $opts = "";
    $exT = "";
    $periocidad = $xEmp->getPeriocidadPref();
    $periodo = $periocidad == CREDITO_TIPO_PERIOCIDAD_SEMANAL ? $xF->semana() : $xF->quincena();
    $periodo = intval($xEmp->getPeriodo()) < 1 ? $periodo : intval($xEmp->getPeriodo());
    $data = $ql->getDataRecord($xl->getListadoDePeriodoPorEmpresa($idEmpresa));
    $variacion = "0";
    $fecha_inicial = $xF->getFechaMX();
    $fecha_final = $xF->getFechaMX();
    $control = 0;
    $ctrl = "<label for=\"idperiodo\">Periodo {$periodo}</label><input type=\"number\" id=\"idperiodo\" onchange=\"jsGetCobranza()\" onblur=\"jsGetCobranza()\" />";
    $contar = 1;
    $max = 5;
    foreach ($data as $rw) {
        $idsel = "";
        $idclave = $rw["codigo"];
        $xPer = $xEmp->getOPeriodo(false, false, $idclave);
        if ($periodo == $xPer->periodo_marcado()->v() and $periocidad == $xPer->periocidad()->v()) {
            $control = $idclave;
            $periodo = $xPer->periodo_marcado()->v();
            $periocidad = $xPer->periocidad()->v();
            $fecha_final = $xPer->fecha_final()->v();
            $fecha_inicial = $xPer->fecha_inicial()->v();
            $idsel = " selected=\"true\" ";
        }
        if ($contar <= $max) {
            $opts .= "<option value=\"" . $idclave . " \"{$idsel}>" . $rw["nombre_periocidad"] . "[" . $xPer->periodo_marcado()->v() . "]";
            $opts .= "  - DEL: " . $xF->getFechaDDMM($rw["fecha_inicial"]) . " - " . $xF->getFechaDDMM($rw["fecha_final"]) . " SALDO " . getFMoney($rw["saldo"]) . "</option>";
        }
        $contar++;
    }
    if ($opts != "") {
        $ctrl = "<label for='idperiodo'>Periodo</label><select id=\"idperiodo\" name=\"idperiodo\" onblur=\"jsGetCobranza()\" onchange=\"jsGetCobranza()\">{$opts}</select>";
    }
    $ctrl .= "<input type=\"hidden\" id=\"idvariacion\" value=\"{$variacion}\" />";
    $ctrl .= "<input type=\"hidden\" id=\"idperiodo\" value=\"{$periodo}\" />";
    $ctrl .= "<input type=\"hidden\" id=\"idperiocidad\" value=\"{$periocidad}\" />";
    $ctrl .= "<input type=\"hidden\" id=\"idclavedepersona\" value=\"{$periocidad}\" />";
    return $ctrl;
}
function jsaGetEmpresa($empresa, $periocidad)
{
    $xEmp = new cEmpresas($empresa);
    $xEmp->init();
    $periodo = 0;
    $dias = 24 * 60;
    $xEmp->init();
    $ctrl = "<label for=\"idperiodo\">Periodo</label><input type=\"number\" id=\"idperiodo\" onchange=\"jsaGetMontoDelPeriodo()\" onblur=\"jsaGetMontoDelPeriodo()\" />";
    $xF = new cFecha(0);
    //$observaciones	.= " -- $periodo";
    $xEmp = new cEmpresas($empresa);
    $xEmp->init();
    $periodo = intval($xEmp->getPeriodo()) == 0 ? $periodo : intval($xEmp->getPeriodo());
    //$observaciones	.= "$fecha";
    switch ($periocidad) {
        case CREDITO_TIPO_PERIOCIDAD_SEMANAL:
            //buscar lunes
            $xSel = $xF->getSelectSemanas("idPeriodo", $periodo);
            $xSel->addEvent("jsaGetMontoDelPeriodo()", "onchange");
            $xSel->addEvent("jsaGetMontoDelPeriodo()", "onblur");
            $xSel->setEnclose(false);
            $ctrl = $xSel->get("idPeriodo", "Periodo", $periodo);
            break;
        case CREDITO_TIPO_PERIOCIDAD_QUINCENAL:
            $xSel = $xF->getSelectQuincenas("idPeriodo", $periodo);
            $xSel->addEvent("jsaGetMontoDelPeriodo()", "onchange");
            $xSel->addEvent("jsaGetMontoDelPeriodo()", "onblur");
            $xSel->setEnclose(false);
            $ctrl = $xSel->get("idPeriodo", "Periodo", $periodo);
            break;
        case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
            break;
        case CREDITO_TIPO_PERIOCIDAD_DECENAL:
            break;
    }
    return $ctrl;
}
function jsaGetDatosEmpresa($idEmpresa, $periocidad, $variacion)
{
    $xEmp = new cEmpresas($idEmpresa);
    $xF = new cFecha();
    $periodo = $periocidad == CREDITO_TIPO_PERIOCIDAD_SEMANAL ? $xF->semana() : $xF->quincena();
    $dias = 24 * 60;
    $observaciones = "";
    $xEmp->init();
    $fecha = strtotime(fechasys()) + $variacion * $periocidad * $dias;
    $ctrl = "<label for=\"idperiodo\">Periodo {$periodo}</label><input type=\"number\" id=\"idperiodo\" onchange=\"jsInitPeriodo()\" onblur=\"jsInitPeriodo()\" />";
    $xF = new cFecha(0);
    //$observaciones	.= " -- $periodo";
    $xEmp = new cEmpresas($idEmpresa);
    $xEmp->init();
    $periodo = intval($xEmp->getPeriodo()) < 1 ? $periodo : intval($xEmp->getPeriodo());
    $periodo = $periodo + 1;
    $xSel = null;
    switch ($periocidad) {
        case CREDITO_TIPO_PERIOCIDAD_SEMANAL:
            $xSel = $xF->getSelectSemanas("idperiodo", $periodo);
            break;
        case CREDITO_TIPO_PERIOCIDAD_QUINCENAL:
            $xSel = $xF->getSelectQuincenas("idperiodo", $periodo);
            break;
            /*case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
            		$xSel	= $xF->getSelectQuincenas("idperiodo", $periodo);
            		break;
            	    case CREDITO_TIPO_PERIOCIDAD_DECENAL:
            		
            		break;*/
        /*case CREDITO_TIPO_PERIOCIDAD_CATORCENAL:
        		$xSel	= $xF->getSelectQuincenas("idperiodo", $periodo);
        		break;
        	    case CREDITO_TIPO_PERIOCIDAD_DECENAL:
        		
        		break;*/
        case CREDITO_TIPO_PERIOCIDAD_MENSUAL:
            $xSel = $xF->getSelectDeMeses("idperiodo", "idperiodo", $periodo);
            break;
    }
    if ($xSel != null) {
        $xSel->setEnclose(false);
        $xSel->addEvent("jsInitPeriodo()", "onblur");
        $xSel->addEvent("jsInitPeriodo()", "onchange");
        $ctrl = $xSel->get("idperiodo", "Periodo", $periodo);
    }
    return $ctrl;
}