";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$dat=$_SESSION["la_empresa"];
?>
Modificación de Comprobante de Retención
uf_sss_select_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventanas);
}
//Inclusión de la clase de seguridad.
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
include("sigesp_scb_c_cmp_ret.php");
$io_cmpret=new sigesp_scb_c_cmp_ret($la_security);
if( array_key_exists("operacion",$_POST))//Cuando aplicamos alguna operacion
{
$ls_operacion= $_POST["operacion"];
$ls_numcom = $_POST["txtcomprobante"];
$ls_codret = $_POST["txtcodret"];
$ls_codsujret = $_POST["txtcodigo"];
$ls_nomsujret = $_POST["txtnombre"];
$ls_dirsujret = $_POST["txtdireccion"];
$ls_rifsujret = $_POST["txtrif"];
$ls_mes = $_POST["mes"];
$ls_agno = $_POST["agno"];
}
else//Caso de apertura de la pagina o carga inicial
{
$ls_operacion= "NUEVO" ;
$array_fecha=getdate();
$ls_mes=$array_fecha["mon"];
$ls_agno=$array_fecha["year"];
$ls_numcom = "";
$ls_codret = "";
$ls_codsujret = "";
$ls_nomsujret = "";
$ls_dirsujret = "";
$ls_rifsujret = "";
$li_i = 1;
$li_total = 1;
$object[$li_i][1] = "";
$object[$li_i][2] = "";
$object[$li_i][3] = "";
$object[$li_i][4] = number_format(0,2,",",".");
$object[$li_i][5] = number_format(0,2,",",".");
$object[$li_i][6] = number_format(0,2,",",".");
$object[$li_i][7] = number_format(0,2,",",".");
$object[$li_i][8] = number_format(0,2,",",".");
$object[$li_i][9] = number_format(0,2,",",".");
$object[$li_i][10]= "";
$object[$li_i][11]= "
";
}
//Declaración de parametros del grid.
$titleProg[1]="Nº Operación";
$titleProg[2]="Factura";
$titleProg[3]="Fecha";
$titleProg[4]="Total sin IVA";
$titleProg[5]="Total con IVA";
$titleProg[6]="Base Imponible";
$titleProg[7]="Porcentaje Impuesto";
$titleProg[8]="Total Impuesto";
$titleProg[9]="IVA Retenido";
$titleProg[10]="Nº Documento";
$titleProg[11]="Edición";
$gridProg="grid_prog";
if($ls_operacion=="ELIMINAR")
{
$io_cmpret->SQL->begin_transaction();
$lb_valido=$io_cmpret->uf_delete_cmp_ret($ls_codret,$ls_numcom);
if($lb_valido)
{
$io_cmpret->SQL->commit();
$msg->message("Comprobante Eliminado");
$ls_numcom = "";
$ls_codret = "";
$ls_codsujret = "";
$ls_nomsujret = "";
$ls_dirsujret = "";
$ls_rifsujret = "";
}
else
{
$io_cmpret->SQL->rollback();
$msg->message("".$io_cmpret->is_msg_error);
}
$ls_operacion="CARGAR_DT";
}
if($ls_operacion=="GUARDAR")
{
$lb_valido=$io_cmpret->uf_update_cmp_ret($ls_codret,$ls_numcom,$ls_codsujret,$ls_nomsujret,$ls_rifsujret,$ls_dirsujret);
$ls_operacion="CARGAR_DT";
}
if($ls_operacion=="DELETE_DT")
{
$ls_numope= $_POST["numope"];
$ls_numfac= $_POST["numfac"];
$io_cmpret->SQL->begin_transaction();
$lb_valido=$io_cmpret->uf_delete_dt_cmp_ret($ls_codret,$ls_numcom,$ls_numope,$ls_numfac);
if($lb_valido)
{
$io_cmpret->SQL->commit();
$msg->message("Registro Eliminado");
}
else
{
$io_cmpret->SQL->rollback();
$msg->message("".$io_cmpret->is_msg_error);
}
$ls_operacion="CARGAR_DT";
}
if($ls_operacion=="CARGAR_DT")
{
$io_cmpret->uf_select_cmp_ret($ls_numcom,$ls_codret,$object,$li_total);
}
?>