$out = parametro("out", SYS_DEFAULT);
$FechaInicial = parametro("on", false);
$FechaInicial = parametro("fecha-0", $FechaInicial);
$FechaInicial = $FechaInicial == false ? FECHA_INICIO_OPERACIONES_SISTEMA : $xF->getFechaISO($FechaInicial);
$FechaFinal = parametro("off", false);
$FechaFinal = parametro("fecha-1", $FechaFinal);
$FechaFinal = $FechaFinal == false ? fechasys() : $xF->getFechaISO($FechaFinal);
$jsEvent = $out != OUT_EXCEL ? "initComponents()" : "";
$senders = getEmails($_REQUEST);
$xODat = new cPersonasCatalogoOtrosDatos();
$sql = "SELECT\r\n\t`socios`.`codigo`,\r\n\t`socios`.`nombre`,\r\n\t`socios_otros_parametros`.`clave_del_parametro` \r\nFROM\r\n\t`socios_otros_parametros` `socios_otros_parametros` \r\n\t\tINNER JOIN `socios` `socios` \r\n\t\tON `socios_otros_parametros`.`clave_de_persona` = `socios`.`codigo` \r\nWHERE\r\n\t(`socios_otros_parametros`.`clave_del_parametro` ='" . $xODat->AML_PEP_PRINCIPAL . "')\r\n\t\t\tOR\r\n\t(`socios_otros_parametros`.`clave_del_parametro` ='" . $xODat->AML_PEP_AFINIDAD . "')\t\t\t\r\n\tOR\r\n(`socios_otros_parametros`.`clave_del_parametro` ='" . $xODat->AML_PEP_CONSANGUINIDAD . "')\t\t\t\r\n\t\tOR\r\n(`socios_otros_parametros`.`clave_del_parametro` ='" . $xODat->AML_PEP_VINCULO_ECONOM . "')\t";
$titulo = "";
$archivo = "";
$xRPT = new cReportes($titulo);
$xRPT->setFile($archivo);
$xRPT->setOut($out);
$xRPT->setSQL($sql);
$xRPT->setTitle($xHP->getTitle());
//============ Reporte
$xT = new cTabla($sql, 1);
$xT->setTipoSalida($out);
$body = $xRPT->getEncabezado($xHP->getTitle(), $FechaInicial, $FechaFinal);
$xRPT->setBodyMail($body);
$xRPT->addContent($body);
//$xT->setEventKey("jsGoPanel");
//$xT->setKeyField("creditos_solicitud");
$xRPT->addContent($xT->Show());
//============ Agregar HTML
//$xRPT->addContent( $xHP->init($jsEvent) );
//$xRPT->addContent( $xHP->end() );
$xRPT->setResponse();
//header("Content-type: text/x-csv");
header("Content-type: text/plain");
//header("Content-type: application/csv");
header("Content-Disposition: attachment; filename={$archivo}");
echo $rpt;
if ($definitivo == true) {
//Guardar
$sqlUpdate = " UPDATE `aml_risk_register` SET `estado_de_envio` = 1, `fecha_de_envio`= " . $xF->getInt() . "\n\t\t\tWHERE (SELECT `tipo_de_riesgo` FROM `aml_risk_catalog` WHERE\n\t\t\t(`clave_de_control`= `aml_risk_register`.`tipo_de_riesgo`= " . AML_CLAVE_OPERACIONES_INTERNAS . "\n\t\t\t\tOR\n\t\t\t`clave_de_control`= `aml_risk_register`.`tipo_de_riesgo`= " . AML_CLAVE_OPERACIONES_INUSUALES . ")\n\t\t\tAND (getFechaByInt(`aml_risk_register`.`fecha_de_reporte`) <='{$FechaFinal}')\n\t\t\tAND (`aml_risk_register`.`estado_de_envio` =0)\n\t\t\tAND (`aml_risk_register`.`reporte_inmediato` =1)\t\t\t\n\t\t\t";
$query->setRawQuery($sqlUpdate);
//enviar por mail al administrador
$xMail = new cNotificaciones();
$xMail->sendMail($archivo, $rpt, ADMIN_MAIL);
}
} else {
$xRPT = new cReportes();
$xRPT->setOut(OUT_HTML);
$xRPT->addContent($xRPT->getHInicial($xHP->getTitle(), $FechaInicial, $FechaFinal));
$arrTitulos = array();
foreach ($Estructura as $indice => $propiedades) {
$xCampo = new cReportes_LayoutTipos($propiedades);
$arrTitulos[] = $xCampo->getNombre();
}
$xHTable->addTitles($arrTitulos);
if ($msg != "") {
$xRPT->addFooterBar("<h3>El reporte contiene los siguientes errores</h3>" . $msg);
}
$xRPT->addContent($xHTable->get());
$xRPT->setToPrint();
echo $xRPT->render(true);
}
}
//$xTbl->addTD($adr);
$xTbl->addRaw("<tr><td colspan='3'><h1>" . $xLng->getT("TR.Direcciones") . "<h1><hr />{$adr}</td></tr>");
//$xTbl->endRow()
$xFld = new cHFieldset($flTitle);
$xFld->addHElem($xTbl->get());
$txtLst .= $xFld->get();
}
}
if ($getPDF == true) {
//base64_encode($sql)
$xFMT = new cFormato(8801);
$xFMT->setProcesarVars(array("variable_listado_de_cedulas" => $txtLst, "variable_item_buscado" => "{$nombre} / {$apaterno} / {$amaterno}", "variable_cadena_consulta" => ""));
$xRPT = new cReportes($xHP->getTitle());
$xRPT->getEncabezado($xHP->getTitle());
if ($ret == true) {
$xRPT->setOut(OUT_HTML);
$xRPT->setFile("ofacs_list_");
$xRPT->addContent($xFMT->get());
$xRPT->render(true);
$dompdf = new DOMPDF();
$dompdf->load_html($xRPT->render(true));
$dompdf->set_paper("letter", "portrait");
$dompdf->render();
$json["pdf"] = base64_encode($dompdf->output());
} else {
$xRPT->setSenders($mails);
$xRPT->setOut(OUT_PDF);
$xRPT->setFile("ofacs_list_");
$xRPT->addContent($xFMT->get());
$xRPT->render(true);
}
`creditos_solicitud`.`fuente_de_fondeo`,
`creditos_solicitud`.`fecha_de_primer_pago`,
COUNT(`operaciones_mvtos`.`tipo_operacion`) AS `operaciones`,
MAX(`operaciones_mvtos`.`fecha_afectacion`) AS `fecha`,
SUM(
IF(`operaciones_mvtos`.`tipo_operacion` = 120, `operaciones_mvtos`.`afectacion_real`, 0 )
) AS `abonos`
FROM
`operaciones_mvtos` `operaciones_mvtos`
RIGHT OUTER JOIN `creditos_solicitud` `creditos_solicitud`
ON `operaciones_mvtos`.`docto_afectado` = `creditos_solicitud`.
`numero_solicitud`
INNER JOIN `operaciones_recibos` `operaciones_recibos`
ON `operaciones_mvtos`.`recibo_afectado` = `operaciones_recibos`.
`idoperaciones_recibos` */
$sql = "\nSELECT\n\t`creditos_solicitud`.`numero_solicitud` AS `contrato`,\n\t`creditos_tipoconvenio`.`descripcion_tipoconvenio` AS `producto`,\n\t`socios`.`codigo` AS `persona`,\n\t`socios`.`nombre` AS `nombre`,\n\t`socios`.`alias_dependencia` AS `empresa`,\n\t`creditos_solicitud`.`monto_autorizado` AS `monto_original`\n\t,\n\t`creditos_solicitud`.`plazo_en_dias`,\n\t`creditos_solicitud`.`fecha_ministracion` AS \n\t`fecha_de_desembolso`,\n\t`creditos_solicitud`.`tasa_interes` AS \n\t`tasa_de_interes`,\n\t`creditos_solicitud`.`pagos_autorizados` AS \n\t`numero_de_pagos`,\n\tIF(`creditos_solicitud`.`periocidad_de_pago` = " . CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO . ", 0,`creditos_solicitud`.`monto_parcialidad`) AS \n\t`monto_de_amortizacion`,\n\t'?' AS `tipo`,\n\t`creditos_solicitud`.`fecha_de_primer_pago`,\n\t`creditos_periocidadpagos`.`descripcion_periocidadpagos` AS `frecuencia`,\n\t`creditos_solicitud`.`ultimo_periodo_afectado` AS \n\t`ultima_parcialidad` ,\n\tCOUNT(`operaciones_mvtos`.`tipo_operacion`) AS `operaciones`,\n\tMAX(`operaciones_mvtos`.`fecha_afectacion`) AS `fecha`,\n\tSUM(\n\tIF(`operaciones_mvtos`.`tipo_operacion` = 120,\t`operaciones_mvtos`.`afectacion_real`, 0\t)\n\t) AS `abonos`,\n\t(`creditos_solicitud`.`monto_autorizado` - \tSUM(\n\tIF(`operaciones_mvtos`.`tipo_operacion` = 120,\t`operaciones_mvtos`.`afectacion_real`, 0\t)\n\t)) AS 'saldo',\n\t`creditos_solicitud`.`saldo_actual` AS 'saldo_sistema' \nFROM\n\t`creditos_solicitud` `creditos_solicitud` \n\t\tINNER JOIN `creditos_periocidadpagos` `creditos_periocidadpagos` \n\t\tON `creditos_solicitud`.`periocidad_de_pago` = \n\t\t`creditos_periocidadpagos`.`idcreditos_periocidadpagos` \n\t\t\tINNER JOIN `creditos_tipoconvenio` `creditos_tipoconvenio` \n\t\t\tON `creditos_solicitud`.`tipo_convenio` = `creditos_tipoconvenio`.\n\t\t\t`idcreditos_tipoconvenio` \n\t\t\t\tINNER JOIN `socios` `socios` \n\t\t\t\tON `creditos_solicitud`.`numero_socio` = `socios`.`codigo` \n\t\t\t\t\tRIGHT OUTER JOIN `operaciones_mvtos` `operaciones_mvtos` \n\t\t\t\t\tON `operaciones_mvtos`.`docto_afectado` = \n\t\t\t\t\t`creditos_solicitud`.`numero_solicitud`\n\t\t\t\nWHERE\n\t(\n\t(`operaciones_mvtos`.`tipo_operacion` =120) \n\tOR\n\t(`operaciones_mvtos`.`tipo_operacion` =110))\n\tAND\n\t(`operaciones_mvtos`.`fecha_afectacion` <= '{$fechaFinal}') \n\t{$ByProducto} {$BySucursal}\nGROUP BY\n\t`operaciones_mvtos`.`docto_afectado`\n\t\nHAVING saldo > 0\n\nORDER BY `creditos_solicitud`.`fecha_ministracion`\n \n";
//$sql = "CALL sp_saldos_al_cierre('$fechaFinal')";
//exit($sql);
$xTbl = new cTabla($sql);
$xTbl->setFootSum(array(5 => "monto_original", 17 => "abonos", 18 => "saldo"));
/*$xTbl->setFootSum(array(
3 => "monto_autorizado",
52 => "abonos",
53 => "saldo"
));*/
$xRPT->setSQL($xTbl->getSQL());
$xTbl->setTipoSalida($formato);
$xRPT->setOut($formato);
$xRPT->addContent($xTbl->Show());
//$xRPT->setResponse();
echo $xRPT->render(true);
