";
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_1x1000=$_POST["1x1000"];
}
else
{
$ls_operacion="";
$ls_documento=$_GET["txtdocumento"];
$ldec_monto_mov=$_GET["monto"];
$ldec_objret=$_GET["objret"];
if(array_key_exists("origen",$_GET))
$ls_municipal=$_GET["origen"];
else
$ls_municipal="0";
if(array_key_exists("origen1x1000",$_GET))
$ls_1x1000=$_GET["origen1x1000"];
else
$ls_1x1000="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]="Denominación"; $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"];
$ls_sqlaux = "";
if ($ls_municipal!="0")
{
$ls_sqlaux = " WHERE estretmun='1'";
}
if ($ls_1x1000!="0")
{
if ($ls_municipal!="0")
{
$ls_sqlaux = $ls_sqlaux." OR estretmil='1'";
}
else
{
$ls_sqlaux = "WHERE estretmil='1'";
}
}
$ls_sql = "SELECT codded,dended,formula,islr,estretmun,iva,monded,trim(sc_cuenta) as sc_cuenta
FROM sigesp_deducciones $ls_sqlaux";
$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];
$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];
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 Deducciones !!!");
$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];
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++)
{
$lb_bool = true;
$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];
$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;
$la_deducciones["formula"][$z] = $ls_formula;
}
else
{
$la_deducciones["Codded"][$z] = '';
$la_deducciones["MonObjRet"][$z] = 0;
$la_deducciones["MonRet"][$z] = 0;
$la_deducciones["Dended"][$z] = '';
$la_deducciones["SC_Cuenta"][$z] = '';
$la_deducciones["formula"][$z] = '';
}
}
if ($la_deducciones!="")
{
$_SESSION["la_deducciones"] = $la_deducciones;
}
else
{
if (array_key_exists("la_deducciones",$_SESSION))
{
unset($_SESSION["la_deducciones"]);
}
}
print "";
}
?>