$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_antret+$ldec_montoret;
}
else
{
$ldec_montoret=0;
$lb_sel="";
}
$object[$z][1]="<input name=chk".$z." type=checkbox id=chk".$z." value=1 class=sin-borde onClick=javascript:uf_calcular_monret($z); ".$lb_sel."><input name=formula".$z." type=hidden id=formula".$z." value='".$ls_formula."'> ";
$object[$z][2]="<input type=text name=txtdoc".$z." value='".$ls_documento."' id=txtdoc".$z." class=sin-borde readonly style=text-align:right size=17 maxlength=15>";
$la_objectcuentas[$li_i][3]="<input name=txtnomcue".$li_i." type=text id=txtnomcue".$li_i." class=sin-borde style= text-align:left size=10 value='".$ls_nombre."' readonly >";
$la_objectcuentas[$li_i][4]="<input name=txtmoncue".$li_i." type=text id=txtmoncue".$li_i." class=sin-borde size=20 style= text-align:center value='".$ls_moncar."' onKeyPress=return(currencyFormat(this,'.',',',event)) onBlur=javascript:ue_validardispo()><input name=disponible".$li_i." type=hidden id=disponible".$li_i." value='".$ls_disponible."'>";
$la_objectcuentas[$li_i][5]="<a href=javascript:ue_removercuenta(".$li_i.");><img src=../shared/imagebank/tools15/eliminar.gif alt=Aceptar width=15 height=15 border=0 style= text-align:center></a>";
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$li_filascargos=$_POST["filascargos"];
$li_filascargos=$li_filascargos+1;
for($li_i=1;$li_i<$li_filascargos;$li_i++)
{
$ls_codigo=$_POST["txtcodcar".$li_i];
$ls_nombre=$_POST["txtnomcar".$li_i];
$ls_formula=$_POST["formula".$li_i];
$ls_prog=$_POST["prog".$li_i];
$ls_spgcuenta=$_POST["spgcuenta".$li_i];
$ld_result=$io_evalform->uf_evaluar($ls_formula,$ld_baseimpo,$lb_valido);
$ld_montotasi=$ld_montotasi+$ld_result;
$la_objectcargos[$li_i][1]="<input name=txtcodcar".$li_i." type=text id=txtcodcar".$li_i." class=sin-borde style= text-align:center size=5 value='".$ls_codigo."' readonly><input name=prog".$li_i." type=hidden id=prog".$li_i." value='".$ls_prog."'><input name=spgcuenta".$li_i." type=hidden id=spgcuenta".$li_i." value='".$ls_spgcuenta."'>";
$la_objectcargos[$li_i][2]="<input name=txtnomcar".$li_i." type=text id=txtnomcar".$li_i." class=sin-borde style= text-align:left size=60 value='".$ls_nombre."' readonly >";
$la_objectcargos[$li_i][3]="<input name=txtmoncar".$li_i." type=text id=txtmoncar".$li_i." class=sin-borde size=20 style= text-align:center value='".$io_funcsob->uf_convertir_numerocadena($ld_result)."' readonly><input name=formula".$li_i." type=hidden id=formula".$li_i." value='".$ls_formula."'>";
$la_objectcargos[$li_i][4]="<a href=javascript:ue_removercargo(".$li_i.");><img src=../shared/imagebank/tools15/eliminar.gif alt=Aceptar width=15 height=15 border=0 style= text-align:center></a>";
}
$la_objectcargos[$li_filascargos][1]="<input name=txtcodcar".$li_filascargos." type=text id=txtcodcar".$li_filascargos." class=sin-borde style= text-align:center size=5 ><input name=prog".$li_filascargos." type=hidden id=prog".$li_filascargos."><input name=spgcuenta".$li_filascargos." type=hidden id=spgcuenta".$li_filascargos.">";
$la_objectcargos[$li_filascargos][2]="<input name=txtnomcar".$li_filascargos." type=text id=txtnomcar".$li_filascargos." class=sin-borde style= text-align:left size=50 >";
$la_objectcargos[$li_filascargos][3]="<input name=txtmoncar".$li_filascargos." type=text id=txtmoncar".$li_filascargos." class=sin-borde size=20 style= text-align:center><input name=formula".$li_filascargos." type=hidden id=formula".$li_filascargos.">";
$la_objectcargos[$li_filascargos][4]="<input name=txtvacio".$li_filascargos." type=text id=txtvacio class=sin-borde style= text-align:center size=5 readonly>";
//////////////////////////////////////////////////////////CARLOS/////////////////////////////////////////////////////////////////////////
$li_filasretenciones=$li_filasretenciones+1;
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$ls_codigo=$_POST["txtcodret".$li_i];
$ls_descripcion=$_POST["txtdesret".$li_i];
$ls_cuenta=$_POST["txtcueret".$li_i];
$ls_deduccion=$_POST["txtdedret".$li_i];
$ls_monret=$_POST["txtmonret".$li_i];
$ls_totret=$_POST["txttotret".$li_i];
$ls_formula=$_POST["formula".$li_i];
$li_iva=$io_valuacion->uf_select_tipodeduccion($ls_codigo);
$ls_readonly="";
if($li_iva==1)
{
$ls_monret=$ld_subtot;
$ls_totret=$io_evalform->uf_evaluar($ls_formula,$ls_monret,$lb_valido);
$ls_monret=number_format($ls_monret,2,',','.');
$ls_totret=number_format($ls_totret,2,',','.');
$ls_readonly="readonly";
}
else
{
$ls_monret=$io_funcsob->uf_convertir_cadenanumero($ls_basimpval);
$ls_totret=$io_evalform->uf_evaluar($ls_formula,$ls_monret,$lb_valido);
$ls_monret=number_format($ls_monret,2,',','.');
$ls_totret=number_format($ls_totret,2,',','.');
}
$la_objectretenciones[$li_i][1]="<input name=txtcodret".$li_i." type=text id=txtcodret".$li_i." class=sin-borde value='".$ls_codigo."' style= text-align:center size=5 readonly>";
$la_objectretenciones[$li_i][2]="<input name=txtdesret".$li_i." type=text id=txtdesret".$li_i." class=sin-borde value='".$ls_descripcion."' style= text-align:left size=30 readonly>";
$la_objectretenciones[$li_i][3]="<input name=txtcueret".$li_i." type=text id=txtcueret".$li_i." class=sin-borde value='".$ls_cuenta."' style= text-align:center size=20 readonly>";
$la_objectretenciones[$li_i][4]="<input name=txtdedret".$li_i." type=text id=txtdedret".$li_i." class=sin-borde value='".$ls_deduccion."' style= text-align:center size=15 readonly><input name=formula".$li_i." type=hidden id=formula".$li_i." value='".$ls_formula."'>";
if($ls_operacion=="ue_calcretencion")
{
$ls_subtot=$_POST["txtmonto"];
$ld_subtot=$io_funsob->uf_convertir_cadenanumero($ls_subtot);
$ld_acum=0;
for($li_i=1;$li_i<$li_filasretenciones;$li_i++)
{
$ls_codigo=$_POST["txtcodret".$li_i];
$ls_descripcion=$_POST["txtdesret".$li_i];
$ls_cuenta=$_POST["txtcueret".$li_i];
$ls_deduccion=$_POST["txtdedret".$li_i];
$ls_monret=$_POST["txtmonret".$li_i];
$ls_formula=$_POST["formula".$li_i];
$ld_monret=$io_funsob->uf_convertir_cadenanumero($ls_monret);
$ld_result=$io_formula->uf_evaluar($ls_formula,$ld_monret,$lb_valido);
$ld_acum=$ld_acum+$ld_result;
$ls_totret=$io_funsob->uf_convertir_numerocadena($ld_result);
$la_objectretenciones[$li_i][1]="<input name=txtcodret".$li_i." type=text id=txtcodret".$li_i." class=sin-borde value='".$ls_codigo."' style= text-align:center size=5 readonly>";
$la_objectretenciones[$li_i][2]="<input name=txtdesret".$li_i." type=text id=txtdesret".$li_i." class=sin-borde value='".$ls_descripcion."' style= text-align:left size=30 readonly>";
$la_objectretenciones[$li_i][3]="<input name=txtcueret".$li_i." type=text id=txtcueret".$li_i." class=sin-borde value='".$ls_cuenta."' style= text-align:center size=20 readonly>";
$la_objectretenciones[$li_i][4]="<input name=txtdedret".$li_i." type=text id=txtdedret".$li_i." class=sin-borde value='".$ls_deduccion."' style= text-align:center size=15 readonly><input name=formula".$li_i." type=hidden id=formula".$li_i." value='".$ls_formula."'>";
$la_objectretenciones[$li_i][5]="<input name=txtmonret".$li_i." type=text id=txtmonret".$li_i." class=sin-borde value='".$ls_monret."' style= text-align:center size=15 onKeyPress=return(validaCajas(this,'d',event,21)) onBlur=ue_calcretencion(this);>";
$la_objectretenciones[$li_i][6]="<input name=txttotret".$li_i." type=text id=txttotret".$li_i." class=sin-borde value='".$ls_totret."' style= text-align:center size=15 readonly>";
$la_objectretenciones[$li_i][7]="<div align=center><a href=javascript:ue_removerretenciones(".$li_i.");><img src=../shared/imagebank/tools15/eliminar.gif alt=Aceptar width=15 height=15 border=0 style= text-align:center></a></div>";
}
$la_objectretenciones[$li_filasretenciones][1]="<input name=txtcodret".$li_filasretenciones." type=text id=txtcodret".$li_filasretenciones." class=sin-borde style= text-align:center size=5 readonly>";
$la_objectretenciones[$li_filasretenciones][2]="<input name=txtdesret".$li_filasretenciones." type=text id=txtdesret".$li_filasretenciones." class=sin-borde style= text-align:left size=30 readonly>";
$la_objectretenciones[$li_filasretenciones][3]="<input name=txtcueret".$li_filasretenciones." type=text id=txtcueret".$li_filasretenciones." class=sin-borde style= text-align:center size=20 readonly><input name=formula".$li_filasretenciones." type=hidden id=formula".$li_filasretenciones.">";
$la_objectretenciones[$li_filasretenciones][4]="<input name=txtdedret".$li_filasretenciones." type=text id=txtdedret".$li_filasretenciones." class=sin-borde style= text-align:center size=15 readonly>";
$la_objectretenciones[$li_filasretenciones][5]="<input name=txtmonret".$li_filasretenciones." type=text id=txtmonret".$li_filasretenciones." class=sin-borde style= text-align:left size=15 readonly>";
$ld_fecfac =$_POST["txtfecfac".$li_filacalcular];
$ld_siniva =$_POST["txtsiniva".$li_filacalcular];
$ld_coniva =$_POST["txtconiva".$li_filacalcular];
$ld_basimp =$_POST["txtbasimp".$li_filacalcular];
$ld_totimp =$_POST["txttotimp".$li_filacalcular];
$ld_ivaret =$_POST["txtivaret".$li_filacalcular];
$ls_numdoc =$_POST["txtnumdoc".$li_filacalcular];
$ls_formula =$_POST["hidforcar".$li_filacalcular];
if( ($ld_poriva!="0,00") && ($ld_poriva!="0") && ($ld_poriva!="0,0") && ($ld_poriva!="0") && ($ld_poriva!="") )
{
if( ($ld_basimp!="0,00") && ($ld_basimp!="0") && ($ld_basimp!="0,0") && ($ld_basimp!="0") && ($ld_basimp!="") )
{
$ld_basimp =str_replace(".","",$ld_basimp);
$ld_basimp =str_replace(",",".",$ld_basimp);
$lb_formula =true;
$ld_totimp =$io_formula->uf_evaluar($ls_formula,$ld_basimp,$lb_formula);
$ld_basimp=number_format($ld_basimp,2,",",".");
if( ($ls_codded!="0,00") && ($ls_codded!="0") && ($ls_codded!="0,0") && ($ls_codded!="0") && ($ls_codded!="") )
{
if( ($ld_basimp!="0,00") && ($ld_basimp!="0") && ($ld_basimp!="0,0") && ($ld_basimp!="0") && ($ld_basimp!="") )
{
$lb_formula =true;
$ld_ivaret =$io_formula->uf_evaluar($ls_forded,$ld_totimp,$lb_formula);
$ld_ivaret=number_format($ld_ivaret,2,",",".");
}
else
{
$ld_totimp ="0";
}
}
}
} elseif ("EVALUAR") {
require_once "class_foldervaluate_formula.php";
$io_evaluate = new evaluate_formula();
$totrow = $_POST["total"];
for ($z = 1; $z <= $totrow; $z++) {
$ls_codcar = $_POST["txtcodcar" . $z];
$ls_dencar = $_POST["txtdencar" . $z];
$ld_porcar = $_POST["txtporcar" . $z];
$ls_formula = $_POST["formula" . $z];
$ls_documento = $_POST["txtdoc" . $z];
$ldec_montoobjret = $_POST["txtmonobjret" . $z];
$ldec_montoobjret = str_replace('.', '', $ldec_montoobjret);
$ldec_montoobjret = str_replace(',', '.', $ldec_montoobjret);
if (array_key_exists("chk" . $z, $_POST)) {
$ldec_montoret = $io_evaluate->uf_evaluar($ls_formula, $ldec_montoobjret);
$lb_sel = "checked";
} else {
$ldec_montoret = 0;
$lb_sel = "";
}
$object[$z][1] = "<input name=chk" . $z . " type=checkbox id=chk" . $z . " value=1 class=sin-borde onClick=javascript:uf_calcular_monobjret({$z}); " . $lb_sel . "><input name=formula" . $z . " type=hidden id=formula" . $z . " value=" . $ls_formula . "> ";
$object[$z][2] = "<input type=text name=txtdoc" . $z . " value='" . $ls_documento . "' id=txtdoc" . $z . " class=sin-borde readonly style=text-align:right size=17 maxlength=15>";
$object[$z][3] = "<input type=text name=txtcodcar" . $z . " value='" . $ls_codcar . "' id=txtcodcar" . $z . " class=sin-borde readonly style=text-align:center size=15 maxlength=10 >";
$object[$z][4] = "<input type=text name=txtdencar" . $z . " value='" . $ls_dencar . "' id=txtdencar" . $z . " class=sin-borde readonly style=text-align:left size=25 maxlength=254>";
$object[$z][5] = "<input type=text name=txtporcar" . $z . " value='" . $ld_porcar . "' id=txtporcar" . $z . " class=sin-borde readonly style=text-align:right size=10 maxlength=20>";
$object[$z][6] = "<input type=text name=txtmonobjret" . $z . " value='" . number_format($ldec_montoobjret, 2, ',', '.') . "' id=txtmonobjret" . $z . " class=sin-borde readonly style=text-align:right size=10 maxlength=20 onBlur=javascript:uf_calcular_monret({$z});>";
$object[$z][7] = "<input type=text name=txtmonret" . $z . " value='" . number_format($ldec_montoret, 2, ',', '.') . "' id=txtmonret" . $z . " class=sin-borde readonly style=text-align:right size=10 maxlength=20>";
}
}
$grid->makegrid($totrow, $title, $object, 520, 'Catalogo de Retenciones', $grid1);
function uf_siv_load_cargosarticulo($as_codemp,$as_codart,$as_numordcom,$ai_preuniart,$ai_pendiente,$ai_unidad,&$aa_moncar,&$aa_spgcuenta,
&$ai_i)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_siv_load_cargosarticulo
// Access: public
// Argumento: $as_codemp // codigo de empresa
// $as_codart // codigo de articulo
// $ai_preuniart // precio unitario del articulo
// $ai_pendiente // cantidad de articulos que no se entregaron en el almacen
// $ai_unidad // cantidad de articulos por unidad
// $aa_moncar // arreglo de montos de los cargos por articulo
// $aa_spgcuenta // arreglo de cuentas presupuestarias de los cargos
// $ai_i // cantidad de cargos por articulos
// Returns: Retorna un Booleano
// Description: Funcion que obtiene los cargos asociados al determinado articulo
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/09/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$lb_valido=true;
require_once("../shared/class_folder/evaluate_formula.php");
$io_evaluate= new evaluate_formula();
$ls_sql="SELECT codcar,formula,".
" (SELECT spg_cuenta FROM sigesp_cargos".
" WHERE soc_dta_cargos.codemp = sigesp_cargos.codemp".
" AND soc_dta_cargos.codcar = sigesp_cargos.codcar) AS spg_cuenta".
" FROM soc_dta_cargos".
" WHERE codemp='".$as_codemp."'".
" AND numordcom='".$as_numordcom."'".
" AND codart='".$as_codart."'";
/*$ls_sql = "SELECT codcar,".
" (SELECT spg_cuenta FROM sigesp_cargos".
" WHERE siv_cargosarticulo.codemp = sigesp_cargos.codemp".
" AND siv_cargosarticulo.codcar = sigesp_cargos.codcar) AS spg_cuenta,".
" (SELECT porcar FROM sigesp_cargos".
" WHERE siv_cargosarticulo.codemp = sigesp_cargos.codemp".
" AND siv_cargosarticulo.codcar = sigesp_cargos.codcar) AS porcar".
" FROM siv_cargosarticulo".
" WHERE siv_cargosarticulo.codemp='".$as_codemp."'".
" AND siv_cargosarticulo.codart='".$as_codart."'";*/
$rs_data=$this->io_sql->select($ls_sql);
if($rs_data===false)
{
$this->io_msg->message("CLASE->cerrar_oc MÉTODO->uf_siv_load_cargosarticulo ERROR->".$this->io_funcion->uf_convertirmsg($this->io_sql->message));
$lb_valido=false;
}
else
{
if($row=$this->io_sql->fetch_row($rs_data))
{
$ai_formula=$row["formula"];
$ls_spgcuenta= $row["spg_cuenta"];
$li_moncarart=$io_evaluate->uf_evaluar($ai_formula,$ai_preuniart,$lb_valido);
$li_moncar=($ai_pendiente * $li_moncarart);
$this->ds->insertRow("spg_cuenta",$ls_spgcuenta);
$this->ds->insertRow("moncar",$li_moncar);
$this->io_sql->free_result($rs_data);
}
}
return $lb_valido;
} // end function uf_siv_load_cargosarticulo
$io_formula = new evaluate_formula();
$lb_formulavalida = false;
if (array_key_exists("operacion", $_POST)) {
$ls_operacion = $_POST["operacion"];
$ls_formula = "";
} else {
$ls_formula = $_GET["txtformula"];
$ls_operacion = "";
}
if ($ls_operacion == "VERIFICAR") {
$ls_formula = $_POST["txtformula"];
$ldec_monto = $_POST["txtmonto"];
$ldec_monto = str_replace('.', '', $ldec_monto);
$ldec_monto = str_replace(',', '.', $ldec_monto);
$lb_valido = false;
$ld_monto = $io_formula->uf_evaluar($ls_formula, $ldec_monto, $lb_valido);
if ($lb_valido) {
$io_msg->message("Fórmula Válida. Total Monto de Prueba =" . number_format($ld_monto, 2, ',', '.'));
$lb_formulavalida = true;
} else {
$io_msg->message("Fórmula Invalida !!!");
$ld_monto = 0;
$lb_formulavalida = false;
}
$ld_monto = number_format($ld_monto, 2, ',', '.');
}
?>
<form name="form1" method="post" action="">
<input name="operacion" type="hidden" id="operacion" value="<?php
print $ls_operacion;
?>
