function uf_print_notas($as_numncnd, $as_numrecdoc, $as_numsol, $as_tipo, $ad_fecregdes, $ad_fecreghas, $as_tipproben, $as_proben, $as_tipooperacion)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_notas
// Access: private
// Argument: as_numsol // Numero de la solicitud de ejecucion presupuestaria
// as_tipo // Indica si es de Bienes o de servicios
// as_coduniadm // Codigo de la Unidad Ejecutora
// ad_fecregdes // Fecha (Registro) de inicio de la Busqueda
// ad_fecreghas // Fecha (Registro) de fin de la Busqueda
// as_tipproben // Tipo proveedor/ beneficiario
// as_proben // Codigo de proveedor/ beneficiario
// as_tipooperacion // Codigo de la Unidad Ejecutora
// Description: Mtodo que impirme el grid de las solicitudes a ser aprobadas o para reversar la aprovacin
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creacin: 17/03/2007 Fecha ltima Modificacin :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once "class_funciones_cxp.php";
$io_cxp = new class_funciones_cxp();
global $io_grid, $io_funciones_cxp, $io_funciones, $io_aprobacion, $io_mensajes;
// Titulos del Grid de Solicitudes
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$lo_title[1] = "<input type=checkbox name=chkall id=chkall onClick='javascript:ue_chequear_all();'>";
$lo_title[2] = "Numero de Nota";
$lo_title[3] = "Numero de Recepcion";
$lo_title[4] = "Estatus de Aprobacion";
$lo_title[5] = "Proveedor/Beneficiaro";
$lo_title[6] = "Monto";
//$lo_title[8]="Monto";
if ($as_tipo == "--" || $as_tipo == 'T') {
$as_tipo = "";
} else {
$as_tipo = " AND cxp_sol_dc.codope='" . $as_tipo . "' ";
}
$ad_fecregdes = $io_funciones->uf_convertirdatetobd($ad_fecregdes);
$ad_fecreghas = $io_funciones->uf_convertirdatetobd($ad_fecreghas);
if ($as_proben != "") {
if ($as_tipproben == 'P') {
$ls_aux_sql = " AND cxp_sol_dc.cod_pro='" . $as_proben . "' ";
} else {
$ls_aux_sql = " AND cxp_sol_dc.ced_bene='" . $as_proben . "' ";
}
} else {
$ls_aux_sql = " ";
}
if ($as_numsol != "") {
$ls_aux_sql = $ls_aux_sql . " AND cxp_sol_dc.numsol like '%" . $as_numsol . "%' ";
}
if ($as_numrecdoc != "") {
$ls_aux_sql = $ls_aux_sql . " AND cxp_sol_dc.numrecdoc like '%" . $as_numrecdoc . "%' ";
}
if ($as_numncnd != "") {
$ls_aux_sql = $ls_aux_sql . " AND cxp_sol_dc.numdc like '%" . $as_numncnd . "%' ";
}
if ($_SESSION["ls_gestor"] == "MYSQL") {
$ls_aux = " CONCAT(rpc_beneficiario.nombene,' ',rpc_beneficiario.apebene) ";
} else {
$ls_aux = " (rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene) ";
}
$ls_sql = "SELECT cxp_sol_dc.*," . " (CASE cxp_sol_dc.cod_pro WHEN '----------' THEN " . $ls_aux . " ELSE rpc_proveedor.nompro END) as nombre," . "\t\t(SELECT count(cxp_dc_spg.numrecdoc) " . "\t\t FROM cxp_dc_spg " . "\t\t WHERE cxp_sol_dc.codemp=cxp_dc_spg.codemp " . "\t\t\tAND cxp_sol_dc.numsol=cxp_dc_spg.numsol " . "\t\t\tAND cxp_sol_dc.numrecdoc=cxp_dc_spg.numrecdoc " . "\t\t\tAND cxp_sol_dc.codtipdoc=cxp_dc_spg.codtipdoc " . "\t\t\tAND cxp_sol_dc.codope=cxp_dc_spg.codope " . "\t\t\tAND cxp_sol_dc.numdc=cxp_dc_spg.numdc " . "\t\t\tAND cxp_sol_dc.cod_pro=cxp_dc_spg.cod_pro" . "\t\t\tAND cxp_sol_dc.ced_bene=cxp_dc_spg.ced_bene) as rowspg," . "\t\t(SELECT count(cxp_dc_scg.numrecdoc) " . "\t\t FROM cxp_dc_scg " . "\t\t WHERE cxp_sol_dc.codemp=cxp_dc_scg.codemp " . "\t\t\tAND cxp_sol_dc.numsol=cxp_dc_scg.numsol " . "\t\t\tAND cxp_sol_dc.numrecdoc=cxp_dc_scg.numrecdoc " . "\t\t\tAND cxp_sol_dc.codtipdoc=cxp_dc_scg.codtipdoc " . "\t\t\tAND cxp_sol_dc.codope=cxp_dc_scg.codope " . "\t\t\tAND cxp_sol_dc.numdc=cxp_dc_scg.numdc " . "\t\t\tAND cxp_sol_dc.cod_pro=cxp_dc_scg.cod_pro" . "\t\t\tAND cxp_sol_dc.ced_bene=cxp_dc_scg.ced_bene) as rowscg" . " FROM cxp_sol_dc,rpc_proveedor,rpc_beneficiario " . " WHERE cxp_sol_dc.codemp='" . $ls_codemp . "'" . " AND cxp_sol_dc.fecope BETWEEN '" . $ad_fecregdes . "' AND '" . $ad_fecreghas . "' " . $ls_aux_sql . "" . " AND cxp_sol_dc.cod_pro=rpc_proveedor.cod_pro" . " AND cxp_sol_dc.ced_bene=rpc_beneficiario.ced_bene " . " AND cxp_sol_dc.codemp=rpc_proveedor.codemp" . " AND cxp_sol_dc.codemp=rpc_beneficiario.codemp" . " AND cxp_sol_dc.estapr='" . $as_tipooperacion . "' " . $as_tipo;
$rs_data = $io_aprobacion->io_sql->select($ls_sql);
$li_fila = 0;
if ($rs_data != false) {
while ($row = $io_aprobacion->io_sql->fetch_row($rs_data)) {
$lb_imprimir = true;
$ls_numsol = $row["numsol"];
$ls_numrecdoc = $row["numrecdoc"];
$ls_numncnd = $row["numdc"];
$ls_codope = $row["codope"];
$ls_codtipdoc = $row["codtipdoc"];
$ld_fecregsol = $io_funciones->uf_formatovalidofecha($row["fecope"]);
$ls_estsol = $row["estnotadc"];
$ls_estapro = $row["estapr"];
$li_rowspg = $row["rowspg"];
$li_rowscg = $row["rowscg"];
$ls_proben = utf8_encode($row["nombre"]);
$li_monto = number_format($row["monto"], 2, ',', '.');
if ($ls_estapro == 0) {
$ls_estatus = "No Aprobada";
} else {
$ls_estatus = "Aprobada";
}
if ($li_rowspg >= 1) {
$lb_valido = $io_cxp->uf_verificar_cierre_spg("../../", $ls_estciespg);
if ($ls_estciespg == "1") {
$lb_imprimir = false;
}
}
if ($li_rowscg >= 1) {
$lb_valido = $io_cxp->uf_verificar_cierre_scg("../../", $ls_estciescg);
if ($ls_estciescg == "1") {
$lb_imprimir = false;
}
}
if ($lb_imprimir) {
$li_fila = $li_fila + 1;
$lo_object[$li_fila][1] = "<input type=checkbox name=chkaprobacion" . $li_fila . ">";
$lo_object[$li_fila][2] = "<input type=text name=txtnumncnd" . $li_fila . " id=txtnumncnd" . $li_fila . " class=sin-borde style=text-align:center size=18 value='" . $ls_numncnd . "' readonly>";
$lo_object[$li_fila][3] = "<input type=text name=txtnumrecdoc" . $li_fila . " id=txtnumrecdoc" . $li_fila . " class=sin-borde style=text-align:center size=18 value='" . $ls_numrecdoc . "' readonly>";
$lo_object[$li_fila][4] = "<input type=text name=txtnumsol" . $li_fila . " id=txtnumsol" . $li_fila . " class=sin-borde style=text-align:center size=18 value='" . $ls_numsol . "' readonly>" . "<input type=hidden name=txtfecregsol" . $li_fila . " id=txtfecregsol" . $li_fila . " value='" . $ld_fecregsol . "'>" . "<input type=hidden name=txtcodope" . $li_fila . " id=txtcodope" . $li_fila . " value='" . $ls_codope . "'>" . "<input type=hidden name=txtcodtipdoc" . $li_fila . " id=txtcodtipdoc" . $li_fila . " value='" . $ls_codtipdoc . "' >";
$lo_object[$li_fila][5] = "<input type=text name=txtproben" . $li_fila . " id=txtproben" . $li_fila . " class=sin-borde style=text-align:left size=25 value='" . $ls_proben . "' readonly>";
$lo_object[$li_fila][6] = "<input type=text name=txtmonto" . $li_fila . " id=txtmonto" . $li_fila . " class=sin-borde style=text-align:right size=22 value='" . $li_monto . "' \t readonly>";
}
$li_total = $li_fila;
}
}
if ($li_fila == 0) {
$io_aprobacion->io_mensajes->message("No se encontraron resultados");
$li_fila = 1;
$lo_object[$li_fila][1] = "<input type=checkbox name=chkaprobacion" . $li_fila . ">";
$lo_object[$li_fila][2] = "<input type=text name=txtnumncnd" . $li_fila . " id=txtnumncnd" . $li_fila . " class=sin-borde style=text-align:center size=18 value='' readonly>";
$lo_object[$li_fila][3] = "<input type=text name=txtnumrecdoc" . $li_fila . " id=txtnumrecdoc" . $li_fila . " class=sin-borde style=text-align:center size=18 value='' readonly>";
$lo_object[$li_fila][4] = "<input type=text name=txtnumsol" . $li_fila . " id=txtnumsol" . $li_fila . " class=sin-borde style=text-align:center size=18 value='' readonly>" . "<input type=hidden name=txtfecregsol" . $li_fila . " id=txtfecregsol" . $li_fila . " value=''>" . "<input type=hidden name=txtcodope" . $li_fila . " id=txtcodope" . $li_fila . " value=''>" . "<input type=hidden name=txtcodtipdoc" . $li_fila . " id=txtcodtipdoc" . $li_fila . " value='' >";
$lo_object[$li_fila][5] = "<input type=text name=txtproben" . $li_fila . " id=txtproben" . $li_fila . " class=sin-borde style=text-align:left size=25 value='' readonly>";
$lo_object[$li_fila][6] = "<input type=text name=txtmonto" . $li_fila . " id=txtmonto" . $li_fila . " class=sin-borde style=text-align:right size=22 value='' \t readonly>";
$li_total = 0;
}
$io_grid->make_gridscroll($li_fila, $lo_title, $lo_object, 725, "Notas de Debito / Credito", "gridsolicitudes", 150);
print "<input name=totrow type=hidden id=totrow value={$li_total}>";
}
function uf_print_solicitudes($as_numsol, $ad_fecregdes, $ad_fecreghas, $as_tipproben, $as_proben, $as_tipooperacion)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_solicitudes
// Access: private
// Argument: as_numsol // Numero de la solicitud de orden de Pago
// ad_fecregdes // Fecha (Registro) de inicio de la Busqueda
// ad_fecreghas // Fecha (Registro) de fin de la Busqueda
// as_tipproben // Tipo proveedor/ beneficiario
// as_proben // Codigo de proveedor/ beneficiario
// as_tipooperacion // Codigo de la Unidad Ejecutora
// Description: Método que impirme el grid de las recepciones a ser aprobadas o para reversar la aprovaciòn
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 05/05/2007 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once "class_funciones_cxp.php";
$io_cxp = new class_funciones_cxp();
global $io_grid, $io_funciones_cxp, $io_funciones, $io_aprobacion, $io_mensajes;
// Titulos del Grid de Solicitudes
$lo_title[1] = "";
$lo_title[2] = "Numero de Recepcion";
$lo_title[3] = "Fecha Registro";
$lo_title[4] = "Proveedor / Beneficiario";
$lo_title[5] = "Estatus de Aprobacion";
$lo_title[6] = "Monto";
$ad_fecregdes = $io_funciones->uf_convertirdatetobd($ad_fecregdes);
$ad_fecreghas = $io_funciones->uf_convertirdatetobd($ad_fecreghas);
$as_numsol = "%" . $as_numsol . "%";
$as_proben = "%" . $as_proben . "%";
$rs_datasol = $io_aprobacion->uf_load_recepciones($as_numsol, $ad_fecregdes, $ad_fecreghas, $as_tipproben, $as_proben, $as_tipooperacion);
$li_fila = 0;
if ($rs_datasol != false) {
while ($row = $io_aprobacion->io_sql->fetch_row($rs_datasol)) {
$lb_imprimir = true;
$ls_numrecdoc = $row["numrecdoc"];
$ld_fecregdoc = date("Y-m-d", strtotime($row["fecregdoc"]));
$ls_estaprord = $row["estaprord"];
$ls_codtipdoc = $row["codtipdoc"];
$ls_codpro = $row["cod_pro"];
$ls_cedben = $row["ced_bene"];
$li_rowspg = $row["rowspg"];
$li_rowscg = $row["rowscg"];
$ls_proben = utf8_encode($row["nombre"]);
$li_montotdoc = number_format($row["montotdoc"], 2, ',', '.');
if ($ls_estaprord == 0) {
$ls_estatus = "No Aprobada";
} else {
$ls_estatus = "Aprobada";
}
if ($li_rowspg >= 1) {
$lb_valido = $io_cxp->uf_verificar_cierre_spg("../../", $ls_estciespg);
if ($ls_estciespg == "1") {
$lb_imprimir = false;
}
}
if ($li_rowscg >= 1) {
$lb_valido = $io_cxp->uf_verificar_cierre_scg("../../", $ls_estciescg);
if ($ls_estciescg == "1") {
$lb_imprimir = false;
}
}
$ld_fecregdoc = $io_funciones->uf_convertirfecmostrar($ld_fecregdoc);
if ($lb_imprimir) {
$li_fila = $li_fila + 1;
$lo_object[$li_fila][1] = "<input type=checkbox name=chkaprobacion" . $li_fila . ">";
$lo_object[$li_fila][2] = "<input type=text name=txtnumrecdoc" . $li_fila . " id=txtnumrecdoc" . $li_fila . " class=sin-borde style=text-align:center size=20 value='" . $ls_numrecdoc . "' readonly>";
$lo_object[$li_fila][3] = "<input type=text name=txtfecregdoc" . $li_fila . " id=txtfecregdoc" . $li_fila . " class=sin-borde style=text-align:left size=15 value='" . $ld_fecregdoc . "' readonly>";
$lo_object[$li_fila][4] = "<input type=text name=txtproben" . $li_fila . " id=txtproben" . $li_fila . " class=sin-borde style=text-align:left size=35 value='" . $ls_proben . "' readonly>";
$lo_object[$li_fila][5] = "<input type=text name=txtestapr" . $li_fila . " id=txtestapr" . $li_fila . " class=sin-borde style=text-align:left size=20 value='" . $ls_estatus . "' readonly>";
$lo_object[$li_fila][6] = "<input type=text name=txtmontotdoc" . $li_fila . " id=txtmontotdoc" . $li_fila . " class=sin-borde style=text-align:right size=20 value='" . $li_montotdoc . "' readonly>" . "<input type=hidden name=txtcodtipdoc" . $li_fila . " id=txtcodtipdoc" . $li_fila . " class=sin-borde style=text-align:right size=20 value='" . $ls_codtipdoc . "' readonly>" . "<input type=hidden name=txtcodpro" . $li_fila . " id=txtcodpro" . $li_fila . " class=sin-borde style=text-align:right size=20 value='" . $ls_codpro . "' readonly>" . "<input type=hidden name=txtcedben" . $li_fila . " id=txtcedben" . $li_fila . " class=sin-borde style=text-align:right size=20 value='" . $ls_cedben . "' readonly>";
}
}
}
/* if(($li_rowspg>1)&&($ls_estciespg=="1"))
{
$io_aprobacion->io_mensajes->message("Esta procesado el cierre presupuestario");
}
if(($li_rowscg>1)&&($ls_estciescg=="1"))
{
$io_aprobacion->io_mensajes->message("Esta procesado el cierre contable");
}
*/
if ($li_fila == 0) {
$io_aprobacion->io_mensajes->message("No se encontraron resultados");
$li_fila = 1;
$lo_object[$li_fila][1] = "<input type=checkbox name=chkaprobacion value=1 disabled/>";
$lo_object[$li_fila][2] = "<input type=text name=txtnumrecdoc" . $li_fila . " class=sin-borde style=text-align:center size=20 readonly>";
$lo_object[$li_fila][3] = "<input type=text name=txtfecregdoc" . $li_fila . " class=sin-borde style=text-align:left size=15 readonly>";
$lo_object[$li_fila][4] = "<input type=text name=txtproben" . $li_fila . " class=sin-borde style=text-align:left size=35 readonly>";
$lo_object[$li_fila][5] = "<input type=text name=txtestapr" . $li_fila . " class=sin-borde style=text-align:left size=20 readonly>";
$lo_object[$li_fila][6] = "<input type=text name=txtmontotdoc" . $li_fila . " class=sin-borde style=text-align:right size=20 readonly>";
"<input type=hidden name=txtcodtipdoc" . $li_fila . " class=sin-borde style=text-align:right size=20 readonly>" . "<input type=hidden name=txtcodpro" . $li_fila . " class=sin-borde style=text-align:right size=20 readonly>" . "<input type=hidden name=txtcedben" . $li_fila . " class=sin-borde style=text-align:right size=20 readonly>";
}
$io_grid->makegrid($li_fila, $lo_title, $lo_object, 700, "Recepciones de Documentos", "gridsolicitudes");
}
