";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
?>
Catálogo Deducciones
uf_conectar();
require_once("../shared/class_folder/class_mensajes.php");
$io_msg=new class_mensajes();
require_once("../shared/class_folder/class_datastore.php");
$io_ds=new class_datastore();
require_once("../shared/class_folder/class_sql.php");
$io_sql=new class_sql($con);
require_once("../shared/class_folder/class_funciones.php");
$fun=new class_funciones();
require_once("../shared/class_folder/grid_param.php");
$grid=new grid_param();
$la_emp=$_SESSION["la_empresa"];
if(array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
$ls_opener =$_POST["opener"];
$li_fila =$_POST["total"];
$ldec_objret=$_POST["objret"];
$ls_procede=$_POST["txtprocede"];
$ls_mov_document=$_POST["mov_document"];
$ls_mov_procede=$_POST["procede"];
$ld_fecha=$_POST["fecha"];
$ls_provbene=$_POST["provbene"];
$ls_tipo=$_POST["tipo"];
$ls_mov_descripcion=$_POST["descripcion"];
$ls_codban=$_POST["codban"];
$ls_ctaban=$_POST["ctaban"];
$ls_cuenta_scg=$_POST["cuenta_scg"];
$ls_codope=$_POST["mov_operacion"];
$ldec_monto_mov=$_POST["monto"];
$ldec_objret=$_POST["objret"];
$ldec_retenido=$_POST["txttotal"];
$ldec_retenido=str_replace(".","",$ldec_retenido);
$ldec_retenido=str_replace(",",".",$ldec_retenido);
$ldec_antret=$_POST["retenido"];
$ls_chevau=$_POST["chevau"];
$li_estint=$_POST["estint"];
$li_estcob=$_POST["estcob"];
$li_cobrapaga=$_POST["cobrapaga"];
$ls_nomproben=$_POST["txtnomproben"];
$ls_estbpd=$_POST["estbpd"];
$ls_estmov=$_POST["estmov"];
$ls_codconmov=$_POST["codconmov"];
$ls_estreglib=$_POST["tip_mov"];
$ls_estdoc =$_POST["estdoc"];
$ls_codfuefin =$_POST["codfuefin"];
$ls_codtipfon = $_POST["hidcodtipfon"];
$ls_numordpagmin = $_POST["hidnumordpagmin"];
$ls_numconint = $_POST["numconint"];
}
else
{
$ls_operacion="";
$ls_documento=$_GET["txtdocumento"];
$ls_procede=$_GET["txtprocede"];
$ls_opener =$_GET["opener"];
$ls_mov_document=$_GET["mov_document"];
$ls_mov_procede=$_GET["procede"];
$ld_fecha=$_GET["fecha"];
$ls_provbene=$_GET["provbene"];
$ls_tipo=$_GET["tipo"];
$ls_mov_descripcion=$_GET["descripcion"];
$ls_codban=$_GET["codban"];
$ls_ctaban=$_GET["ctaban"];
$ls_cuenta_scg=$_GET["cuenta_scg"];
$ls_codope=$_GET["mov_operacion"];
$ldec_monto_mov=$_GET["monto"];
$ldec_objret=$_GET["objret"];
$ldec_retenido=0;
$ldec_antret=$_GET["retenido"];
$ls_chevau=$_GET["chevau"];
$li_estint=$_GET["estint"];
$li_estcob=$_GET["estcob"];
$li_cobrapaga=$_GET["cobrapaga"];
$ls_estbpd=$_GET["estbpd"];
$ls_nomproben=$_GET["txtnomproben"];
$ls_estmov=$_GET["estmov"];
$ls_codconmov=$_GET["codconmov"];
$ls_estreglib=$_GET["tip_mov"];
$ls_estdoc =$_GET["estdoc"];
$ls_codfuefin =$_GET["codfuefin"];
$ls_codtipfon = $_GET["codtipfon"];
$ls_numordpagmin = $_GET["numordpagmin"];
$ls_numconint = $_GET["numconint"];
}
if($ls_codfuefin=="")
{
$ls_codfuefin="--";
}
$ls_empresa=$la_emp["codemp"];
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_banco.php");
$io_fun_banco= new class_funciones_banco();
$io_fun_banco->uf_load_seguridad("SCB",$ls_opener,$ls_permisos,$la_seguridad,$la_permisos);
$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_sql=" SELECT * FROM sigesp_deducciones";
$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="";
}
$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 Retenciones Municipales");
$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")
{
require_once("../shared/class_folder/evaluate_formula.php");
$io_evaluate=new evaluate_formula();
$totrow=$_POST["total"];
$li_retacum=0;
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);
$ldec_montoret=number_format($ldec_montoret,2,'.','');
if($li_status_islr==1)
{
$ldec_montoret=$ldec_montoret-$ldec_monded;
$ldec_montoret=number_format($ldec_montoret,2,'.','');
}
$lb_sel="checked";
$ldec_totret=$ldec_totret+$ldec_antret+number_format($ldec_montoret,2,'.','');
}
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=="GUARDARRET")
{
require_once("sigesp_scb_c_movbanco.php");
$in_classmovbanco=new sigesp_scb_c_movbanco($la_seguridad);
$totrow=$_POST["total"];
$ldec_totret=$ldec_retenido;
$ls_estmov="N";
if($ls_tipo=="P")
{
$ls_codpro =$ls_provbene;
$ls_cedbene="----------";
}
else
{
$ls_cedbene=$ls_provbene;
$ls_codpro ="----------";
}
$ls_nomproben=$_POST["txtnomproben"];
$in_classmovbanco->io_sql->begin_transaction();
$lb_valido=$in_classmovbanco->uf_guardar_automatico($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ld_fecha,$ls_mov_descripcion,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_nomproben,$ldec_monto_mov,$ldec_objret,$ldec_totret,$ls_chevau,$ls_estmov,$li_estint,$li_cobrapaga,$ls_estbpd,$ls_mov_procede,$ls_estreglib,$ls_estdoc,$ls_tipo,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon,$li_estcob,$ls_numconint);
$arr_movbco["codban"]=$ls_codban;
$arr_movbco["ctaban"]=$ls_ctaban;
$arr_movbco["mov_document"]=$ls_mov_document;
$ld_fecdb=$fun->uf_convertirdatetobd($ld_fecha);
$arr_movbco["codope"]=$ls_codope;
$arr_movbco["fecha"]=$ld_fecha;
$arr_movbco["codpro"]=$ls_codpro;
$arr_movbco["cedbene"]=$ls_cedbene;
$arr_movbco["estmov"]=$ls_estmov;
$arr_movbco["monto_mov"]=$ldec_monto_mov;
$arr_movbco["objret"] =$ldec_objret;
$arr_movbco["retenido"] =$ldec_totret;
$ls_codded="00000";
if($lb_valido)
{
if(($ls_codope=="ND")||($ls_codope=="RE")||($ls_codope=="CH"))
{
$ls_operacioncon="H";
}
else
{
$ls_operacioncon="D";
}
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta_scg,$ls_mov_procede,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,$ldec_monto_mov,$ldec_objret,true,$ls_codded);
if($lb_valido)
{
$ldec_monto_aux=$ldec_monto_mov-$ldec_totret;
for($z=1;$z<=$totrow && $lb_valido ;$z++)
{
if(array_key_exists("chkislr".$z,$_POST))
{
$chk_islr="checked";
$li_status_islr=1;
}
else
{
$chk_islr="";
$li_status_islr=0;
}
$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];
$ldec_monto=$_POST["txtmonret".$z];
$ldec_monto=str_replace('.','',$ldec_monto);
$ldec_monto=str_replace(',','.',$ldec_monto);
if(array_key_exists("chk".$z,$_POST))
{
$lb_sel="checked";
$lb_valido=$in_classmovbanco->uf_procesar_dt_contable($arr_movbco,$ls_cuenta,$ls_procede,$ls_dended,$ls_mov_document,'H',$ldec_monto,$ldec_objret,false,$ls_codded);
}
else
{
$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_codded!="00000")
{
$lb_valido=$in_classmovbanco->uf_update_monto_mov($arr_movbco,$ls_cuenta_scg,$ls_procede,$ls_mov_descripcion,$ls_mov_document,$ls_operacioncon,$ldec_monto_aux,$ldec_objret,'00000');
}
if(!$lb_valido)
{
$in_classmovbanco->io_sql->rollback();
$io_msg->message($in_classmovbanco->is_msg_error);
}
else
{
$in_classmovbanco->io_sql->commit();
$ls_estdoc='C';
$ldec_totretaux=number_format($ldec_totret,2,",",".");
print "";
}
}
else
{
$in_classmovbanco->io_sql->rollback();
$io_msg->message($in_classmovbanco->is_msg_error);
}
}
else
{
$in_classmovbanco->io_sql->rollback();
$io_msg->message($in_classmovbanco->is_msg_error);
}
}
?>