function uf_procesar_cobranza($as_rutfil, $ai_totrows, $aa_seguridad) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_procesar_cobranza. // Access: private // Arguments: $aa_datos // Returns: Arreglo cargado con la cabecera para ser procesado el movimiento bancario. // Description: . // Creado Por: Ing. Néstor Falcón. // Fecha Creación: 07/07/2008. Fecha Última Modificación : 07/07/2008. ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// require_once "class_funciones_banco.php"; $io_funciones_scb = new class_funciones_banco(); $lb_valido = true; for ($li_i = 1; $li_i <= $ai_totrows; $li_i++) { if (array_key_exists("chk" . $li_i, $_POST)) { $this->io_sql->begin_transaction(); $ls_filnam = trim($io_funciones_scb->uf_obtenervalor("txtfilnam" . $li_i, "")); if (!empty($ls_filnam)) { $ls_rutori = $as_rutfil . '/' . $ls_filnam; //Ruta Completa de Ubicación del Archivo xml. $ls_rutdes = "../scc/cobranza/procesados/"; $la_datmov = $this->io_xml->uf_cargar_scb_movbco($ls_rutori, 'C'); $li_totdat = count($la_datmov); for ($li_z = 1; $li_z <= $li_totdat; $li_z++) { $ls_numdoc = $la_datmov[$li_z]["numdoc"]; $ls_codban = $la_datmov[$li_z]["codban"]; $lb_existe = $this->io_xml->uf_validar_banco($this->ls_codemp, $ls_codban); if (!$lb_existe) { $ls_errmsg = "{$ls_filnam}.- Codigo del Banco no encontrado !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } if ($lb_valido) { $ls_ctaban = $la_datmov[$li_z]["ctaban"]; $lb_existe = $this->io_xml->uf_validar_cuenta_bancaria($this->ls_codemp, $ls_codban, $ls_ctaban); if (!$lb_existe) { $ls_errmsg = "{$ls_filnam}.- Cuenta Bancaria no encontrada !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } } if ($lb_valido) { $ls_codope = $la_datmov[$li_z]["codope"]; if ($ls_codope != 'DP' && $ls_codope != 'NC') { $ls_errmsg = "{$ls_filnam}.- Error en Tipo de Operacion, solo estan permitidos DP=Depositos y NC=Notas de Credito !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } } $lb_existe = false; if ($lb_valido) { $lb_existe = $this->io_xml->uf_load_movimiento_bancario($this->ls_codemp, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope); } if (!$lb_existe && $lb_valido) { $lb_valido = $this->uf_insert_movimiento_banco($ls_filnam, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope, $la_datmov, $ls_errmsg, $aa_seguridad); if ($lb_valido) { $la_datscg = $this->io_xml->uf_cargar_scb_movbco_scg($ls_rutori); if (!empty($la_datscg)) { $lb_valido = $this->uf_insert_movimiento_banco_scg($ls_filnam, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope, $la_datscg, $ls_errmsg, $aa_seguridad); unset($la_datscg); } else { $ls_errmsg = "{$ls_filnam}.- Movimiento Bancario sin Detalle Contable !!!"; $this->io_msg->message($ls_errmsg); return false; } } if ($lb_valido) { $la_datspi = $this->io_xml->uf_cargar_scb_movbco_spi($ls_rutori); if (!empty($la_datspi)) { $lb_valido = $this->uf_insert_movimiento_banco_spi($ls_filnam, $ls_numdoc, $ls_codban, $ls_ctaban, $ls_codope, $la_datspi, $ls_errmsg, $aa_seguridad); unset($la_datspi); } } } elseif ($lb_existe) { $ls_errmsg = "{$ls_filnam}.- Movimiento Bancario ya esta registrado !!!"; $this->io_msg->message($ls_errmsg); return false; } unset($la_datmov); } if ($lb_valido) { $this->io_sql->commit(); $this->io_msg->message("Documento {$ls_filnam}, procesado con Éxito !!!"); } else { $this->io_sql->rollback(); $this->io_msg->message("Documento {$ls_filnam}, Registro No Incluido !!!"); } $lb_copval = $this->io_xml->uf_mover_xml($ls_filnam, $ls_rutori, $ls_rutdes); if ($lb_copval) { $this->io_xml->uf_update_xml_procesado($ls_filnam, $ls_rutdes, "SCB_MOVBCO", $lb_valido, $ls_errmsg); } } } } }
<?php session_start(); if (!array_key_exists("la_logusr",$_SESSION)) { print "<script language=JavaScript>"; print "close();"; print "opener.document.form1.submit();"; print "</script>"; } require_once ("class_funciones_banco.php"); $io_scb= new class_funciones_banco(); $ls_orden=$io_scb->uf_obtenervalor("orden","ASC"); $ls_campoorden=$io_scb->uf_obtenervalor("campoorden","codtipfon"); ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Catálogo de Tipos de Fondos</title> <link href="../shared/css/general.css" rel="stylesheet" type="text/css" /> <link href="../shared/css/tablas.css" rel="stylesheet" type="text/css" /> <link href="../shared/css/ventanas.css" rel="stylesheet" type="text/css" /> <script type="text/javascript" language="JavaScript1.2" src="js/funcion_scb.js"></script> <script type="text/javascript" language="JavaScript1.2" src="../shared/js/valida_tecla.js"></script> <style type="text/css"> <!-- a:link { color: #006699; } a:visited { color: #006699;
uf_print_beneficiario(); break; case "SOLICITUDPAGO": uf_print_solicitudespago(); break; case "OTROSCREDITOS": uf_print_otroscreditos(); break; case "DEDUCCIONES": uf_print_deducciones(); break; case "ORDENESMINISTERIO": uf_print_ordenespago($ls_origen); break; case "VERIFICAR_NUMORD": $ls_codtipfon = $io_funciones_scb->uf_obtenervalor("codtipfon", ""); $ls_numordpagmin = $io_funciones_scb->uf_obtenervalor("numordpagmin", ""); $lb_valido = uf_select_numero_orden_pago($ls_numordpagmin, $ls_codtipfon); if (!$lb_valido) { print "ERROR->Orden de Pago Ministerio ya existe para el Tipo de Fondo Especificado !!!"; } break; case "VERIFICAR_MES": $ls_fecmov = $io_funciones_scb->uf_obtenervalor("fecmov", ""); $lb_valido = uf_load_estatus_mes($ls_fecmov); if (!$lb_valido) { print utf8_encode("ERROR->Operación No puede ser procesada, El Més está Cerrado !!!"); } break; } //-----------------------------------------------------------------------------------------------------------------------------------
} }// fin de la funcion print if($ls_operacion=="NUEVO") { uf_print($totrow, $provbene, $tipproben); } if($ls_operacion=="GUARDAR") { require_once("../shared/class_folder/class_mensajes.php"); $io_msg = new class_mensajes(); require_once("sigesp_scb_c_emision_chq.php"); $io_emision = new sigesp_scb_c_emision_chq(); $ls_valido=true; $totrow=$io_scb->uf_obtenervalor("total",""); $ls_valido=true; //------informaciòn del cheque en emision de cheque----------------------------------------------- $provbene=$_GET["provbene"]; $tipproben=$_GET["tipproben"]; $ls_montochq=$_GET["montochq"];// monto del cheque $ls_montochq=str_replace(".","",$ls_montochq); $ls_montochq=str_replace(",",".",$ls_montochq); $cuenta_bco=$_GET["sc_cuenta"];// cuenta contable del banco $cta_banco=$_GET["ctaban"];//cuenta bancaria $codban=$_GET["codban"];//codigo del banco $documento=$_GET["docum"];// numero del documento $montret=$_GET["montret"]; // monto retenido $montret=str_replace(",",".",$montret); $ldec_monobjret=$_GET["montobjret"]; // monto objeto de retencion $ldec_monobjret=str_replace(".","",$ldec_monobjret);
function uf_load_detalles_spg($as_filnam, &$li_totdet, &$la_datscg, &$ld_totmonspg) { ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// // Function: uf_load_detalles_desembolso // Access: private // Arguments: $as_filnam = Nombre del archivo xml a procesar con toda su ruta de ubicación. // $la_object = Matriz cargada con la información de los detalles de la liquidación. // $li_totdet = Número total de filas de los detalles de la liquidación contenidos en el xml. // Returns: Arreglo cargado con los archivos xml ubicados en $as_rutfil para ser procesados. // Description: Carga los detalles de la liquidación a partir del archivo xml $as_filnam. // Creado Por: Ing. Nestor Falcón. // Fecha Creación: 07/07/2008. Fecha Última Modificación : 07/07/2008. ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// require_once "class_funciones_banco.php"; $io_funciones_scb = new class_funciones_banco(); $ld_montotmov = $io_funciones_scb->uf_obtenervalor("txtmonmov", 0); $ld_montotmov = str_replace(".", "", $ld_montotmov); $ld_montotmov = str_replace(",", ".", $ld_montotmov); $lb_valido = true; $li_totdet = $li_y = 0; $li_estmodest = $_SESSION["la_empresa"]["estmodest"]; $li_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"]; $li_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"]; $li_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"]; $li_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"]; $li_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"]; if (!empty($as_filnam)) { $la_datmov = $this->io_xml->uf_cargar_detalles_spg($as_filnam); if (!empty($la_datmov)) { $li_totdet = count($la_datmov); $la_datscg = array(); $ld_totmonspg = 0; //Acumulador para la sumatoria de los Detalles de la Liquidación. for ($li_i = 1; $li_i <= $li_totdet; $li_i++ && $lb_valido) { $ls_spgcta = $la_datmov[$li_i]['spgcta']; //Cuenta Presupuestaria. $ls_estcla = $la_datmov[$li_i]['estcla']; if ($ls_estcla == 'A') { $ls_denestcla = "Acción"; } elseif ($ls_estcla == 'P') { $ls_denestcla = "Proyecto"; } else { $ls_errmsg = "{$as_filnam}.- Modalidad Presupuestaria Invalida, P=Proyecto y A=Acción !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } $ls_denctaspg = ""; $ls_codestpro1 = $la_datmov[$li_i]['codestpro1']; $ls_codestpro2 = $la_datmov[$li_i]['codestpro2']; $ls_codestpro3 = $la_datmov[$li_i]['codestpro3']; $ls_codestpro4 = $la_datmov[$li_i]['codestpro4']; $ls_codestpro5 = $la_datmov[$li_i]['codestpro5']; $lb_valido = $this->uf_validar_presupuesto($ls_spgcta, $ls_codestpro1, $ls_codestpro2, $ls_codestpro3, $ls_codestpro4, $ls_codestpro5, $ls_estcla, $ls_denctaspg); if ($lb_valido) { $ls_denestpro1 = $this->uf_load_denestpro1($ls_codestpro1, $ls_estcla); $ls_scgcta = $this->uf_load_scgcta($ls_spgcta, $ls_codestpro1, $ls_codestpro2, $ls_codestpro3, $ls_codestpro4, $ls_codestpro5, $ls_estcla, $ls_denctascg); if (empty($ls_scgcta)) { $ls_errmsg = "{$as_filnam}.- Cuenta Contable no encontrada para {$ls_spgcta} !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } else { $li_y++; $ls_codestpre = $ls_codestpro1 . $ls_codestpro2 . $ls_codestpro3 . $ls_codestpro4 . $ls_codestpro5; $ls_codestpro1 = substr($ls_codestpro1, -$li_loncodestpro1); $ls_codestpro2 = substr($ls_codestpro2, -$li_loncodestpro2); $ls_codestpro3 = substr($ls_codestpro3, -$li_loncodestpro3); $ls_codestpro = $ls_codestpro1 . '-' . $ls_codestpro2 . '-' . $ls_codestpro3; if ($li_estmodest == 2) { $ls_codestpro4 = substr($ls_codestpro4, -$li_loncodestpro4); $ls_codestpro5 = substr($ls_codestpro5, -$li_loncodestpro5); $ls_codestpro = $ls_codestpro . '-' . $ls_codestpro4 . '-' . $ls_codestpro5; } $li_estmodest = $_SESSION["la_empresa"]["estmodest"]; $ld_mondetspg = $la_datmov[$li_i]['monto']; $la_datscg["scgcta"][$li_y] = $ls_scgcta; // Armado de la Información Contable $la_datscg["denctascg"][$li_y] = $ls_denctascg; // asociada a la Cuenta y Estructura $la_datscg["mondetscg"][$li_y] = $ld_mondetspg; // presupuestaria. $ld_totmonspg += $ld_mondetspg; $ld_mondetspg = number_format($ld_mondetspg, 2, ',', '.'); $la_object[$li_i][1] = "<input type=text name=txtspgcta" . $li_i . " id=txtspgcta" . $li_i . " value='" . $ls_spgcta . "' \t class=sin-borde readonly style=text-align:center size=15 maxlength=25>"; $la_object[$li_i][2] = "<input type=text name=txtdenctaspg" . $li_i . " id=txtdenctaspg" . $li_i . " value='" . $ls_denctaspg . "' class=sin-borde readonly style=text-align:left size=45 maxlength=500 title='" . $ls_denctaspg . "'>"; $la_object[$li_i][3] = "<input type=text name=txtcodestpro" . $li_i . " id=txtcodestpro" . $li_i . " value='" . $ls_codestpro . "' class=sin-borde readonly style=text-align:center size=30 maxlength=129 title='" . $ls_denestpro1 . "'>"; $la_object[$li_i][4] = "<input type=text name=txtcodtipest" . $li_i . " id=txtcodtipest" . $li_i . " value='" . $ls_denestcla . "' class=sin-borde readonly style=text-align:center size=10 maxlength=8>"; $la_object[$li_i][5] = "<input type=text name=txtmondetspg" . $li_i . " id=txtmondetspg" . $li_i . " value='" . $ld_mondetspg . "' class=sin-borde readonly style=text-align:right size=17 maxlength=24>\n\t\t\t\t\t\t\t\t\t\t\t\t\t <input type=hidden name=hidcodestpre" . $li_i . " id=hidcodestpre" . $li_i . " value='" . $ls_codestpre . "'>"; } } else { $li_totdet = 1; $la_object[$li_totdet][1] = "<input type=text name=txtspgcta" . $li_totdet . " id=txtspgcta" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=15 maxlength=25>"; $la_object[$li_totdet][2] = "<input type=text name=txtdenctaspg" . $li_totdet . " id=txtdenctaspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=45 maxlength=254>"; $la_object[$li_totdet][3] = "<input type=text name=txtcodestpro" . $li_totdet . " id=txtcodestpro" . $li_totdet . " value='' class=sin-borde readonly style=text-align:left size=30 maxlength=254>"; $la_object[$li_totdet][4] = "<input type=text name=txtcodtipest" . $li_totdet . " id=txtcodtipest" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=10 maxlength=254>"; $la_object[$li_totdet][5] = "<input type=text name=txtmondetspg" . $li_totdet . " id=txtmondetspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:right size=17 maxlength=23>\n\t\t\t\t\t\t\t\t\t\t\t\t\t <input type=hidden name=txtfilnam" . $li_totdet . " id=txtfilnam" . $li_totdet . " value=''>"; $la_datscg = ""; $ls_errmsg = "{$as_filnam}.- Error en datos de la Afectación Presupuestaria !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } } $ld_montotsep = $io_funciones_scb->uf_obtenervalor("txtmonmov", 0); $ld_montotsep = str_replace('.', '', $ld_montotsep); $ld_montotsep = str_replace(',', '.', $ld_montotsep); if ($ld_montotsep != $ld_totmonspg && $lb_valido) { $li_totdet = 1; $la_object[$li_totdet][1] = "<input type=text name=txtspgcta" . $li_totdet . " id=txtspgcta" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=15 maxlength=25>"; $la_object[$li_totdet][2] = "<input type=text name=txtdenctaspg" . $li_totdet . " id=txtdenctaspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=45 maxlength=254>"; $la_object[$li_totdet][3] = "<input type=text name=txtcodestpro" . $li_totdet . " id=txtcodestpro" . $li_totdet . " value='' class=sin-borde readonly style=text-align:left size=30 maxlength=254>"; $la_object[$li_totdet][4] = "<input type=text name=txtcodtipest" . $li_totdet . " id=txtcodtipest" . $li_totdet . " value='' class=sin-borde readonly style=text-align:center size=10 maxlength=254>"; $la_object[$li_totdet][5] = "<input type=text name=txtmondetspg" . $li_totdet . " id=txtmondetspg" . $li_totdet . " value='' class=sin-borde readonly style=text-align:right size=17 maxlength=23>\n\t\t\t\t\t\t\t\t\t\t\t <input type=hidden name=txtfilnam" . $li_totdet . " id=txtfilnam" . $li_totdet . " value=''>"; $la_datscg = ""; $ls_errmsg = "{$as_filnam}.- Descuadre entre el monto del Movimiento Bancario y su Detalle Presupuestario !!!"; $this->io_msg->message($ls_errmsg); $lb_valido = false; } if (!$lb_valido) { $ls_rutdes = "../scc/liquidacion/procesados/"; $ls_filnam = trim(substr($as_filnam, 30, 254)); $lb_copval = $this->io_xml->uf_mover_xml($ls_filnam, $as_filnam, $ls_rutdes); if ($lb_copval) { $this->io_xml->uf_update_xml_procesado($ls_filnam, $ls_rutdes, "SCB_MOVBCO", $lb_valido, $ls_errmsg); } } } if (isset($la_datmov)) { unset($la_datmov); } } return $la_object; }