"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } $ls_logusr=$_SESSION["la_logusr"]; require_once("class_funciones_banco.php"); $io_fun_scb=new class_funciones_banco(); $io_fun_scb->uf_load_seguridad("SCB","sigesp_scb_p_modcmpret.php",$ls_permisos,$la_seguridad,$la_permisos); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// //-------------------------------------------------------------------------------------------------------------- function uf_limpiarvariables() { ////////////////////////////////////////////////////////////////////////////// // Function: uf_limpiarvariables // Access: private // Description: Función que limpia todas las variables necesarias en la página // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Fecha Creación: 19/04/2007 Fecha Última Modificación : ////////////////////////////////////////////////////////////////////////////// global $ls_estatus,$ls_dirsujret,$ls_nomsujret,$ls_operacion,$ls_existe,$ls_mes,$ls_indice; global $ls_totrowrecepciones,$io_fun_scb,$ls_numcom,$ls_parametros,$ls_rif,$ls_ano,$ls_codigo; $ls_estatus="EMITIDO"; $ls_numcom=""; $ls_ano=""; $ls_mes=""; $ls_codigo=""; $ls_rif=""; $ls_nomsujret=""; $ls_dirsujret=""; $ls_indice=""; $ls_parametros=""; $ls_operacion=$io_fun_scb->uf_obteneroperacion(); $ls_existe=$io_fun_scb->uf_obtenerexiste(); $ls_totrowrecepciones=0; } //-------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------- function uf_load_variables() { ////////////////////////////////////////////////////////////////////////////// // Function: uf_load_variables // Access: private // Description: Función que carga todas las variables necesarias en la página // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Fecha Creación: 23/04/2007 Fecha Última Modificación : ////////////////////////////////////////////////////////////////////////////// global $ls_estsol,$ls_numcom,$ls_ano,$ls_mes,$ls_codigo,$ls_rif,$ls_nomsujret,$ls_dirsujret,$ls_probene; global $li_totrowrecepciones,$ls_indice; $ls_estsol = $_POST["txtestatus"]; $ls_numcom = $_POST["txtnumcom"]; $ls_mes = $_POST["cmbmes"]; $ls_ano = $_POST["txtano"]; $ls_codigo = $_POST["txtcodigo"]; $ls_rif = $_POST["txtrif"]; $ls_nomsujret = $_POST["txtnomsujret"]; $ls_dirsujret = $_POST["txtdirsujret"]; $ls_probene = $_POST["txtprobene"]; $ls_indice = $_POST["txtindice"]; $li_totrowrecepciones=$_POST["totrowrecepciones"]; } //-------------------------------------------------------------------------------------------------------------- //-------------------------------------------------------------------------------------------------------------- function uf_load_data(&$as_parametros) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_load_variables // Access: private // Description: Función que carga todas las variables necesarias en la página // Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang // Fecha Creación: 17/03/2007 Fecha Última Modificación : ////////////////////////////////////////////////////////////////////////////// global $li_totrowrecepciones,$io_fun_scb; for($li_i=1;$li_i<$li_totrowrecepciones;$li_i++) { $ls_codret=trim($io_fun_scb->uf_obtenervalor("txtcodret".$li_i,"")); $ls_numope=trim($io_fun_scb->uf_obtenervalor("txtnumope".$li_i,"")); $ls_fecfac=trim($io_fun_scb->uf_obtenervalor("txtfecfac".$li_i,"")); $ls_numfac=trim($io_fun_scb->uf_obtenervalor("txtnumfac".$li_i,"")); $ls_numcon=trim($io_fun_scb->uf_obtenervalor("txtnumcon".$li_i,"")); $ls_numnd=trim($io_fun_scb->uf_obtenervalor("txtnumnd".$li_i,"")); $ls_numnc=trim($io_fun_scb->uf_obtenervalor("txtnumnc".$li_i,"")); $ls_tiptrans=trim($io_fun_scb->uf_obtenervalor("txttiptrans".$li_i,"")); $ls_tot_cmp_sin_iva=trim($io_fun_scb->uf_obtenervalor("txttotsiniva".$li_i,"")); $ls_tot_cmp_con_iva=trim($io_fun_scb->uf_obtenervalor("txttotconiva".$li_i,"")); $ls_basimp=trim($io_fun_scb->uf_obtenervalor("txtbasimp".$li_i,"")); $ls_porimp=trim($io_fun_scb->uf_obtenervalor("txtporimp".$li_i,"")); $ls_totimp=trim($io_fun_scb->uf_obtenervalor("txttotimp".$li_i,"")); $ls_ivaret=trim($io_fun_scb->uf_obtenervalor("txtivaret".$li_i,"")); $ls_numsop=trim($io_fun_scb->uf_obtenervalor("txtnumsop".$li_i,"")); $ls_numdoc=trim($io_fun_scb->uf_obtenervalor("txtnumdoc".$li_i,"")); $as_parametros=$as_parametros."&txtcodret".$li_i."=".$ls_codret."&txtnumope".$li_i."=".$ls_numope."&txtfecfac".$li_i."=".$ls_fecfac."&txtnumfac".$li_i."=".$ls_numfac."&txtnumcon".$li_i."=".$ls_numcon."&txtnumnd".$li_i."=".$ls_numnd."&txtnumnc".$li_i."=".$ls_numnc."&txttiptrans".$li_i."=".$ls_tiptrans."&txttotsiniva".$li_i."=".$ls_tot_cmp_sin_iva."&txttotconiva".$li_i."=".$ls_tot_cmp_con_iva."&txtbasimp".$li_i."=".$ls_basimp."&txtporimp".$li_i."=".$ls_porimp."&txttotimp".$li_i."=".$ls_totimp."&txtivaret".$li_i."=".$ls_ivaret."&txtnumsop".$li_i."=".$ls_numsop."&txtnumdoc".$li_i."=".$ls_numdoc; } $as_parametros=$as_parametros."&totrowrecepciones=".$li_totrowrecepciones.""; } //-------------------------------------------------------------------------------------------------------------- $li_diasem = date('w'); switch ($li_diasem){ case '0': $ls_diasem='Domingo'; break; case '1': $ls_diasem='Lunes'; break; case '2': $ls_diasem='Martes'; break; case '3': $ls_diasem='Miércoles'; break; case '4': $ls_diasem='Jueves'; break; case '5': $ls_diasem='Viernes'; break; case '6': $ls_diasem='Sábado'; break; } ?> Comprobante de Retención uf_conectar(); $io_sql = new class_sql($ls_conect); uf_limpiarvariables(); switch($ls_operacion) { case "NEW": uf_load_variables(); $ls_ano=date('Y'); $ls_mes=date('m'); $io_cmpret->uf_get_nrocomprobante($ls_ano.$ls_mes,$ls_numcom); uf_load_data($ls_parametros); break; case "GUARDAR": uf_load_variables(); $io_sql->begin_transaction(); if($ls_existe=="FALSE") { $ls_fecha=date('Y-m-d'); $lb_flag=$io_cmpret->uf_crear_comprobante($ls_numcom,$ls_fecha,$ls_ano.$ls_mes,$ls_codigo,$ls_nomsujret,$ls_dirsujret,$ls_rif,$la_seguridad); } else { $lb_flag=true; } if($lb_flag) { $lb_flag=$io_modcmpret->uf_liberar_recepciones($ls_numcom,$ls_probene,$ls_codigo); } if($lb_flag) { $lb_flag=$io_modcmpret->uf_update_cmpret($ls_numcom,$li_totrowrecepciones,$ls_probene,$ls_codigo,$la_seguridad); } if($lb_flag) { $io_msg->message("El comprobante se procesó satisfactoriamente !!!"); $io_sql->commit(); } else { $io_msg->message("Ocurrio un error al procesar el comprobante !!!"); $io_sql->rollback(); } uf_load_data($ls_parametros); break; case "ELIMINAR": uf_load_variables(); $io_sql->begin_transaction(); $lb_ulitmo=$io_modcmpret->uf_buscar_ultimo($ls_numcom); if($lb_ulitmo){ $lb_flag=$io_modcmpret->uf_delete_cmpret($ls_numcom,$la_seguridad); if($lb_flag) { $lb_flag=$io_modcmpret->uf_liberar_rd($ls_probene,$ls_codigo,$li_totrowrecepciones); if ($lb_flag) { $io_msg->message("El comprobante fué eliminado físicamente, por ser el último registro!!"); $io_sql->commit(); uf_limpiarvariables(); } else { $io_msg->message("Se genero un problema al eliminar la retención !!!"); uf_limpiarvariables(); $io_sql->rollback(); } } } else{ $lb_anulado=$io_modcmpret->uf_anular_cmpret($ls_numcom,$la_seguridad); if($lb_anulado) { $io_msg->message("El comprobante fue anulado, ya que no es el ultimo registro!!"); uf_limpiarvariables(); $io_sql->commit(); } else { $io_msg->message("Se genero un problema al anular la retencion"); uf_limpiarvariables(); $io_sql->rollback(); } } uf_load_data($ls_parametros); break; } ?>
Caja y Banco
 
Nuevo
Guardar
Buscar
Eliminar
 Imprimir
Salir
 

 

uf_print_permisos($ls_permisos,$la_permisos,$ls_logusr,"location.href='sigespwindow_blank.php'"); unset($io_fun_scb); ////////////////////////////////////////////// SEGURIDAD ///////////////////////////////////////////// ?>

 

Comprobante de Retención
       
Periodo Estatus
Comprobante    
   
Sujeto Retención
 
Proveedor Beneficiario "; } ?> Código
RIF
Nombre
Dirección

"> ">


"; print " ue_reload();"; print ""; } if($ls_operacion=="NEW") { print ""; } ?>