PHP cSQLListas::getConceptosDePago Examples

Example #1

File: frmprocesarpago.php Project: Cywaithaka/S.A.F.E.-Open-Source-Microfinance-Suite

        $interes_moratorio = $interes_moratorio_devengado - $interes_moratorio_pagado + $interes_moratorio_calculado;
        $xLog->add("WARN\tNO_PLAN\tEl Plan de Pagos es ignorado\r\n", $xLog->COMMON);
        $xLog->add("WARN\tINTERES_NORM\tEL Interes Normal Resulto en {$interes_normal}\r\n", $xLog->DEVELOPER);
        $xLog->add("WARN\tINTERES_MOR\tEL Interes Moratorio Resulto en {$interes_moratorio}\r\n", $xLog->DEVELOPER);
    } else {
        //2014-07-22 calcular mora por letra
        if ($pago_total == false) {
            $interes_moratorio = $DInteres[SYS_INTERES_MORATORIO];
            $interes_normal = 0;
            $xLog->add("WARN\tOMITIR_INT\tEL Interes Normal Resulto en {$interes_normal} Y EL Interes Moratorio Resulto en {$interes_moratorio}, SE OMITEN\r\n", $xLog->DEVELOPER);
            //$xLog->add("WARN\tOMITIR_INT\tEL Interes Normal Resulto en $interes_normal Y EL Interes Moratorio Resulto en $interes_moratorio, SE OMITEN\r\n", $xLog->COMMON);
        }
        if ($xCred->getEstadoActual() == CREDITO_ESTADO_VIGENTE) {
        }
    }
    $SQLBody = $xSQL->getConceptosDePago($solicitud, $socio, $parcialidad);
} else {
    $SQLBody = $xSQL->getConceptosDePago($solicitud, $socio);
}
$xLog->add("OK\tNORMAL\tSe ha DEVENGADO {$interes_normal_devengado} y el socio ha PAGADO {$interes_normal_pagado}, se ha CALCULADO {$interes_normal_calculado}\r\n", $xLog->DEVELOPER);
$xLog->add("OK\tMORA\tSe ha DEVENGADO {$interes_moratorio_devengado} y el socio ha PAGADO {$interes_moratorio_pagado}, se ha CALCULADO {$interes_normal_devengado}\r\n", $xLog->DEVELOPER);
//====================== EN INTERESES
$xJsBasic = new jsBasicForm("frmprocesarpago");
echo $xHP->getHeader(true);
$tasa_iva_otros = TASA_IVA;
echo $xHP->setBodyinit("initComponents()");
$xFRM = new cHForm("frmprocesarpago", "frmpagoprocesado.php?p={$params}|{$estatus_del_credito}|{$grupo}", "frmprocesarpago");
$xFRM->addFootElement("<input type='hidden' name='cobservaciones' value='' id=\"idobservaciones\" />\n<input type='hidden' name='ctipo_pago' id=\"idtipo_pago\" value='{$mTipoPago}' /> <input type='hidden' name='crecibo_fiscal' id=\"idrecibo_fiscal\" value='{$mReciboFiscal}' />\n<input type=\"hidden\" name='procesar' id=\"procesar\" value=\"{$procesado}\" />\n<input type='hidden' name='ccheque' id=\"idcheque\" value='NA'  /><input type='hidden' name='idcomodin' id=\"idcomodin\" value='0'  />\n<input type='hidden' name='idletra' id=\"idletra\" value='{$parcialidad}'  /><input type='hidden' name='idpersona' id=\"idpersona\" value='{$socio}'  />\n<input type='hidden' name='idcredito' id=\"idcredito\" value='{$solicitud}'  />");
//<input type=\"hidden\" id=\"iTasaIvaO\" value=\"$tasa_iva_otros\" /> <input type=\"hidden\" id=\"iTasaIva\" value=\"$tasa_iva\" />
/**
* @since 1.9.41 -patch 1.9.23

Example #2

File: frmpagoprocesado.php Project: Cywaithaka/S.A.F.E.-Open-Source-Microfinance-Suite

$xCred = new cCredito($solicitud, $socio);
$xCred->init();
if ($procesado == SYS_AUTOMATICO) {
    $arrINTS = array(420);
    //Array de Intereses Devengados
    $SRC["ctipo_pago"] = $DPar[5];
    $operacion = $DPar[4];
    $monto_a_operar = $xT->cFloat($DPar[3]);
    $periocidad = isset($_REQUEST["periocidad"]) ? $_REQUEST["periocidad"] : DEFAULT_PERIOCIDAD_PAGO;
    $_SESSION[FECHA_OPERATIVA] = $xF->getFechaISO($DPar[7]);
    $totalAutomatico = 0;
    //6 = banco
    //7 = fecha
    $SRC["cobservaciones"] = "({$pempresa}.{$periocidad})L.{$parcialidad}:" . $xCred->getPagosAutorizados();
    //cargar credito y datos de la parcialidad
    $rs = $ql->getDataRecord($xSQL->getConceptosDePago($solicitud, $socio, $parcialidad));
    //$msg					.= "SQL\t" . $xSQL->getConceptosDePago($solicitud, $socio, $parcialidad) . "\r\n";
    foreach ($rs as $rx) {
        $title = $rx["descripcion_operacion"];
        $monto = $xT->cFloat($rx["total_operacion"], 2);
        $MTipo = $rx["tipo_operacion"];
        if (in_array($MTipo, $arrINTS)) {
            $msg .= "WARN\tOPTS\tSe OMITE \t{$title} \t:\t{$monto}\r\n";
        } else {
            $SRC["c-{$MTipo}"] = $monto;
            $totalAutomatico += $monto;
            $msg .= "WARN\tOPTS\tAgregando operacion:\t{$title} [" . $SRC["c-{$MTipo}"] . "]\t:\t{$monto}\r\n";
        }
    }
    //cmbiar estado de la letra
}