";
print "close();";
print "opener.document.form1.submit();";
print "";
}
?>
Catálogo Deducciones
uf_conectar();
$io_msg=new class_mensajes();
require_once("../shared/class_folder/class_sql.php");
$io_sql=new class_sql($con);
$io_ds=new class_datastore();
require_once("../shared/class_folder/class_funciones.php");
$io_fun=new class_funciones();
require_once("../shared/class_folder/grid_param.php");
$grid=new grid_param();
require_once("../shared/class_folder/evaluate_formula.php");
$io_evaluate=new evaluate_formula();
$la_emp=$_SESSION["la_empresa"];
if(array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
$li_fila =$_POST["total"];
$ldec_objret=$_POST["objret"];
$ldec_monto_mov=$_POST["monto"];
$ldec_objret=$_POST["objret"];
$ldec_retenido=$_POST["retenido"];
$ls_municipal=$_POST["municipal"];
$ls_fila=$_POST["fila"];
}
else
{
$ls_operacion="";
$ls_documento=$_GET["txtdocumento"];
$ldec_monto_mov=$_GET["monto"];
$ldec_objret=$_GET["objret"];
$ls_fila=$_GET["fila"];
if(array_key_exists("origen",$_GET))
$ls_municipal=$_GET["origen"];
else
$ls_municipal="0";
}
$ldec_objret=str_replace(".","",$ldec_objret);
$ldec_objret=str_replace(",",".",$ldec_objret);
$ldec_monto_mov=str_replace(".","",$ldec_monto_mov);
$ldec_monto_mov=str_replace(",",".",$ldec_monto_mov);
$title[1]="Check"; $title[2]="Documento"; /*$title[3]="Código";*/ $title[3]="Denominación"; /*$title[5]="Porcentaje";*/ $title[4]="Monto Obj.Ret."; $title[5]="Monto Ret."; $title[6]="Monto Deducible"; $title[7]="ISLR";
$grid1="grid";
$totrow=0;
$ldec_totret=0;
if($ls_operacion=="")
{
$ls_codemp=$la_emp["codemp"];
if($ls_municipal=="0")
$ls_sql=" SELECT * FROM sigesp_deducciones ";
else
$ls_sql=" SELECT * FROM sigesp_deducciones where estretmun = '1' ";
$rs=$io_sql->select($ls_sql);
if($rs==false)
{
$io_msg->message($fun->uf_convertirmsg($io_sql->message));
}
else
{
$data=$rs;
if($row=$io_sql->fetch_row($rs))
{
$data=$io_sql->obtener_datos($rs);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$io_ds->data=$data;
$totrow=$io_ds->getRowCount("codded");
if($totrow>0)
{
for($z=1;$z<=$totrow;$z++)
{
$ls_codded=$data["codded"][$z];
$ls_dended=$data["dended"][$z];
//$ld_porcar=$data["PorDed"][$z];
$ls_formula=$data["formula"][$z];
$li_status_islr=$data["islr"][$z];
$li_status_iva=$data["iva"][$z];
$li_status_retmun=$data["estretmun"][$z];
$ldec_monded=$data["monded"][$z];
$ls_cuenta=$data["sc_cuenta"][$z];
$ls_porded=$data["porded"][$z];
if($li_status_islr==1)
{
$chk_islr="checked";
}
else
{
$chk_islr="";
}
if(array_key_exists("la_deducciones",$_SESSION))
{
$la_deducciones=$_SESSION["la_deducciones"];
if(array_key_exists("Codded",$la_deducciones))
{
$ls_codded=$la_deducciones["Codded"][$z];
if($ls_codded!="")
{
$lb_chk="checked";
$lb_bool=true;
$ldec_montoret=$io_evaluate->uf_evaluar($ls_formula,$ldec_objret,$lb_bool);
if($li_status_islr==1)
{
$ldec_montoret=$ldec_montoret-$ldec_monded;
}
$lb_sel="checked";
$ldec_totret=$ldec_totret+$ldec_montoret;
}
else
{
$lb_chk="";
$ldec_montoret=0;
}
}
else
{
$lb_chk="";
$ldec_montoret=0;
}
}
else
{
$lb_chk="";
$ldec_montoret=0;
}
$object[$z][1]=" ";
$object[$z][2]="";
$object[$z][3]="";
$object[$z][4]="";
$object[$z][5]="";
$object[$z][6]="";
$object[$z][7]="";
}
}
else
{
$z=1;
$object[$z][1]=" ";
$object[$z][2]="";
$object[$z][3]="";
$object[$z][4]="";
$object[$z][5]="";
$object[$z][6]="";
$object[$z][7]="";
$totrow=1;
}
}
else
{
$io_msg->message( "No se han creado Cargos");
$z=1;
$chk_islr="";
$object[$z][1]=" ";
$object[$z][2]="";
$object[$z][3]="";
$object[$z][4]="";
$object[$z][5]="";
$object[$z][6]="";
$object[$z][7]="";
$totrow=0;
}
}
}
elseif($ls_operacion=="EVALUAR")
{
$totrow=$_POST["total"];
for($z=1;$z<=$totrow;$z++)
{
$ls_codded=$_POST["txtcodded".$z];
$ls_dended=$_POST["txtdended".$z];
$ls_formula=$_POST["formula".$z];
$ls_documento=$_POST["txtdoc".$z];
$ldec_objret=$_POST["txtmonobjret".$z];
$ldec_objret=str_replace('.','',$ldec_objret);
$ldec_objret=str_replace(',','.',$ldec_objret);
$ldec_monded=$_POST["txtmonded".$z];
$ldec_monded=str_replace('.','',$ldec_monded);
$ldec_monded=str_replace(',','.',$ldec_monded);
$ls_cuenta=$_POST["txtcuenta".$z];
$ls_porded=$_POST["txtporded".$z];
if(array_key_exists("chkislr".$z,$_POST))
{
$chk_islr="checked";
$li_status_islr=1;
}
else
{
$chk_islr="";
$li_status_islr=0;
}
if(array_key_exists("chk".$z,$_POST))
{
$lb_bool=true;
$ldec_montoret=$io_evaluate->uf_evaluar($ls_formula,$ldec_objret,$lb_bool);
if($li_status_islr==1)
{
$ldec_montoret=$ldec_montoret-$ldec_monded;
}
$lb_sel="checked";
$ldec_totret=$ldec_totret+$ldec_montoret;
}
else
{
$ldec_montoret=0;
$lb_sel="";
}
$object[$z][1]=" ";
$object[$z][2]="";
$object[$z][3]="";
$object[$z][4]="";
$object[$z][5]="";
$object[$z][6]="";
$object[$z][7]="";
}
}
if($ls_operacion=="PROCESAR")
{
$totrow=$_POST["total"];
$la_deducciones="";
for($z=1;$z<=$totrow;$z++)
{
$ls_codded=$_POST["txtcodded".$z];
$ls_dended=$_POST["txtdended".$z];
$ldec_objret=$_POST["txtmonobjret".$z];
$ldec_objret=str_replace('.','',$ldec_objret);
$ldec_objret=str_replace(',','.',$ldec_objret);
$ldec_monded=$_POST["txtmonded".$z];
$ldec_monded=str_replace('.','',$ldec_monded);
$ldec_monded=str_replace(',','.',$ldec_monded);
$ls_formula=$_POST["formula".$z];
$lb_bool=true;
$ldec_montoret=$io_evaluate->uf_evaluar($ls_formula,$ldec_objret,$lb_bool);
$ls_cuenta=$_POST["txtcuenta".$z];
if(array_key_exists("chkislr".$z,$_POST))
{
$chk_islr="checked";
$li_status_islr=1;
}
else
{
$chk_islr="";
$li_status_islr=0;
}
if($li_status_islr==1)
{
$ldec_montoret=$ldec_montoret-$ldec_monded;
}
$ldec_totret=$ldec_totret+$ldec_montoret;
if(array_key_exists("chk".$z,$_POST))
{
$la_deducciones["Codded"][$z]=$ls_codded;
$la_deducciones["MonObjRet"][$z]=$ldec_objret;
$la_deducciones["MonRet"][$z]=$ldec_montoret;
$la_deducciones["Dended"][$z]=$ls_dended;
$la_deducciones["SC_Cuenta"][$z]=$ls_cuenta;
}
else
{
$la_deducciones["Codded"][$z]='';
$la_deducciones["MonObjRet"][$z]=0;
$la_deducciones["MonRet"][$z]=0;
$la_deducciones["Dended"][$z]='';
$la_deducciones["SC_Cuenta"][$z]='';
}
}
if($la_deducciones!="")
{
//$_SESSION["la_deducciones"]=$la_deducciones;
}
else
{
if(array_key_exists("la_deducciones",$_SESSION))
{
unset($_SESSION["la_deducciones"]);
}
}
print "";
}
?>