"; print "location.href='../sigesp_inicio_sesion.php'"; print ""; } $ls_logusr=$_SESSION["la_logusr"]; require_once("class_folder/class_funciones_cxp.php"); $io_fun_cxp=new class_funciones_cxp(); $io_fun_cxp->uf_load_seguridad("CXP","sigesp_cxp_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_codret,$ls_mes,$ls_indice; global $ls_totrowrecepciones,$io_fun_cxp,$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_codret=""; $ls_indice=""; $ls_parametros=""; $ls_operacion=$io_fun_cxp->uf_obteneroperacion(); $ls_existe=$io_fun_cxp->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_codret,$ls_probene; global $io_fun_cxp,$li_totrowrecepciones,$ls_indice; $ls_estsol=$_POST["txtestatus"]; $ls_numcom=$_POST["txtnumcom"]; $ls_mes=$_POST["txtmes"]; $ls_ano=$_POST["txtano"]; $ls_codigo=$_POST["txtcodigo"]; $ls_rif=$_POST["txtrif"]; $ls_nomsujret=$_POST["txtnomsujret"]; $ls_dirsujret=$_POST["txtdirsujret"]; $ls_codret=$_POST["cmbtipo"]; $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_cxp; for($li_i=1;$li_i<$li_totrowrecepciones;$li_i++) { $ls_codret=trim($io_fun_cxp->uf_obtenervalor("txtcodret".$li_i,"")); $ls_numope=trim($io_fun_cxp->uf_obtenervalor("txtnumope".$li_i,"")); $ls_fecfac=trim($io_fun_cxp->uf_obtenervalor("txtfecfac".$li_i,"")); $ls_numfac=trim($io_fun_cxp->uf_obtenervalor("txtnumfac".$li_i,"")); $ls_numcon=trim($io_fun_cxp->uf_obtenervalor("txtnumcon".$li_i,"")); $ls_numnd=trim($io_fun_cxp->uf_obtenervalor("txtnumnd".$li_i,"")); $ls_numnc=trim($io_fun_cxp->uf_obtenervalor("txtnumnc".$li_i,"")); $ls_tiptrans=trim($io_fun_cxp->uf_obtenervalor("txttiptrans".$li_i,"")); $ls_tot_cmp_sin_iva=trim($io_fun_cxp->uf_obtenervalor("txttotsiniva".$li_i,"")); $ls_tot_cmp_con_iva=trim($io_fun_cxp->uf_obtenervalor("txttotconiva".$li_i,"")); $ls_basimp=trim($io_fun_cxp->uf_obtenervalor("txtbasimp".$li_i,"")); $ls_porimp=trim($io_fun_cxp->uf_obtenervalor("txtporimp".$li_i,"")); $ls_totimp=trim($io_fun_cxp->uf_obtenervalor("txttotimp".$li_i,"")); $ls_ivaret=trim($io_fun_cxp->uf_obtenervalor("txtivaret".$li_i,"")); $ls_numsop=trim($io_fun_cxp->uf_obtenervalor("txtnumsop".$li_i,"")); $ls_numdoc=trim($io_fun_cxp->uf_obtenervalor("txtnumdoc".$li_i,"")); $codded=trim($io_fun_cxp->uf_obtenervalor("txtcodded".$li_i,"")); $cmp_porcret=trim($io_fun_cxp->uf_obtenervalor("txtcmp_porcret".$li_i,"")); $porret=trim($io_fun_cxp->uf_obtenervalor("txtporret".$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."&txtcodded".$li_i."=".$codded."&txtcmp_porcret".$li_i."=".$cmp_porcret."&txtporret".$li_i."=".$porret; } $as_parametros=$as_parametros."&totrowrecepciones=".$li_totrowrecepciones.""; } //-------------------------------------------------------------------------------------------------------------- ?> Comprobante de Retencion uf_conectar(); require_once("../shared/class_folder/class_sql.php"); $io_sql= new class_sql($con); $ls_basdatcmp=$_SESSION["la_empresa"]["basdatcmp"]; if($ls_basdatcmp!="") { $io_modcmpret->io_sqlaux=$io_cmpret->io_sqlaux; $io_sqlaux=$io_cmpret->io_sqlaux; } uf_limpiarvariables(); $ls_basdatcmp=$_SESSION["la_empresa"]["basdatcmp"]; switch($ls_operacion) { case "NEW": uf_load_variables(); $ls_ano=date('Y'); $ls_mes=date('m'); $io_cmpret->uf_get_nrocomprobante($ls_codret,$ls_ano.$ls_mes,$ls_numcom); uf_load_data($ls_parametros); break; case "GUARDAR": uf_load_variables(); $io_sql->begin_transaction(); $lb_flag=true; if($ls_existe=="FALSE") { $io_cmpret->cmp_cedbene = $ls_probene=='B'?$ls_codigo:'----------'; $io_cmpret->cmp_codpro = $ls_probene=='P'?$ls_codigo:'----------'; $io_cmpret->cmp_tipproben = $ls_probene; $ls_fecha=date($ls_ano.'-'.$ls_mes.'-d'); if($ls_basdatcmp!="") { $lb_flag=$io_cmpret->uf_crear_comprobante_consolida($ls_codret,$ls_numcom,$ls_fecha,$ls_ano.$ls_mes,$ls_codigo, $ls_nomsujret,$ls_dirsujret,$ls_rif,"","1",$ls_logusr,"", "M",$la_seguridad); } $lb_flag=$io_cmpret->uf_crear_comprobante($ls_codret,$ls_numcom,$ls_fecha,$ls_ano.$ls_mes,$ls_codigo,$ls_nomsujret, $ls_dirsujret,$ls_rif,"","1",$ls_logusr,"","M",$la_seguridad); } if($lb_flag) { // $lb_flag=$io_modcmpret->uf_liberar_rd($ls_codret,$ls_probene,$ls_codigo,$li_totrowrecepciones); $lb_flag=$io_modcmpret->uf_liberar_recepciones($ls_codret,$ls_numcom,$ls_probene,$ls_codigo); } if($lb_flag) { $lb_flag=$io_modcmpret->uf_update_cmpret($ls_numcom,$ls_codret, $li_totrowrecepciones,$ls_probene,$ls_codigo, $la_seguridad); } // $lb_flag=false; if($lb_flag) { $io_msg->message("El comprobante se proceso satisfactoriamente"); $io_sql->commit(); //$io_sql->rollback(); } 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(); $ls_bdorigen=$io_modcmpret->uf_obtener_bdorigen($ls_numcom,$ls_codret); $lb_ulitmo=$io_modcmpret->uf_buscar_ultimo($ls_numcom,$ls_codret); if(($lb_ulitmo)&&($ls_bdorigen=="")) { $lb_flag=$io_modcmpret->uf_delete_cmpret($ls_numcom,$ls_codret,$la_seguridad); if($lb_flag) { $lb_flag=$io_modcmpret->uf_liberar_rd($ls_codret,$ls_probene,$ls_codigo,$li_totrowrecepciones); if($lb_flag) { $io_msg->message("El comprobante fue eliminado fisicamente, por ser el último registro!!"); $io_sql->commit(); uf_limpiarvariables(); } else { $io_msg->message("Se genero un problema al eliminar la retencion"); uf_limpiarvariables(); $io_sql->rollback(); } } } else { $lb_valido=$io_modcmpret->uf_anular_cmpret($ls_numcom,$la_seguridad); if(($lb_valido)&&($ls_bdorigen!="")) { $lb_valido=$io_modcmpret->uf_anular_cmpret_consolida($ls_codret,$ls_numcom,$ls_probene,$ls_codigo); } if($lb_valido) { $lb_valido=$io_modcmpret->uf_liberar_rd($ls_codret,$ls_probene,$ls_codigo,$li_totrowrecepciones); } if($lb_valido) { $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; } ?>
Cuentas por Pagar
 
Nuevo
Grabar
Buscar
Eliminar
 Salir
Ayuda
 

 

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

 

Comprobante de Retención
       
Periodo
Estatus
Comprobante Tipo
   
Sujeto Retención
Proveedor Beneficiario "; } ?>
Codigo
Rif
Nombre
Direccion
 

"> ">


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