$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; ?>