";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$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","sigesp_scb_p_movcol.php",$ls_permisos,$la_seguridad,$la_permisos);
?>
Entrada de Comprobante de Gastos
uf_conectar();
$fun = new class_funciones();
$SQL = new class_sql($con);
$io_seguridad = new sigesp_c_seguridad();
$in_classmovcol = new sigesp_scb_c_movcol($la_seguridad);
if (array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
$ls_codope= $_POST["mov_operacion"];
$ls_cuenta_scg=$_POST["cuenta_scg"];
$ls_codban=$_POST["codban"];
$ls_ctaban=$_POST["ctaban"];
$ld_fecha=$_POST["fecha"];
$ls_mov_colocacion=$_POST["numdoc"];
$ls_numcol=$_POST["txtdoccol"];
$ls_descripcion=$_POST["txtdescripcion"];
$ldec_tasa=$_POST["tasa"];
$li_cobrapaga= $_POST["cobrapaga"];
$ls_opener =$_POST["opener"];
$ls_mov_colocacion=$_POST["numdoc"];
$ls_mov_procede=$_POST["txtprocedencia"];
$ls_mov_descripcion=$_POST["descripcion"];
$ldec_monto_mov=$_POST["monto"];
}
else
{
$ls_operacion="";
$ls_cuentaplan = "";
$ls_documento = $_GET["numdoc"];
$ls_procedencia= $_GET["txtprocedencia"];
$ls_descripcion= $_GET["descripcion"];
$ls_denominacion="";
$ld_fecha = "";
$ldec_monto = "";
$ls_mov_colocacion=$_GET["numdoc"];
$li_cobrapaga=$_GET["cobrapaga"];
$ls_numcol=$_GET["txtdoccol"];
$ls_mov_procede=$_GET["procede"];
$ld_fecha=$_GET["fecha"];
$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"];
$li_cobrapaga=$_GET["cobrapaga"];
$ls_codconmov=$_GET["codconmov"];
$ldec_tasa=$_GET["tasa"];
$ls_opener =$_GET["opener"];
}
if($ls_operacion=="GUARDARPRE")
{
$ldec_monto=$_POST["txtmonto"];
$ldec_monto_mov=$_POST["monto"];
$ls_estcol="N";
$ls_esttransf = 0;
$in_classmovcol->SQL->begin_transaction();
$lb_valido=$in_classmovcol->uf_guardar_automatico($ls_codban,$ls_ctaban,$ls_mov_colocacion,$ls_numcol,$ls_codope,$ld_fecha,$ls_descripcion,$ldec_monto_mov,$ldec_tasa,'N',$li_cobrapaga,$ls_esttransf);
$arr_col["codban"]=$ls_codban;
$arr_col["ctaban"]=$ls_ctaban;
$arr_col["estcol"]=$ls_estcol;
$arr_col["mov_colocacion"]=$ls_mov_colocacion;
$arr_col["numcol"]=$ls_numcol;
$arr_col["codope"]=$ls_codope;
$arr_col["fecmovcol"]=$ld_fecha;
$arr_col["conmov"]=$ls_descripcion;
$arr_col["monmovcol"]=$ldec_monto_mov;
$arr_col["tasmovcol"]=$ldec_tasa;
if($lb_valido)
{
if(($ls_codope=="ND"))
{
$ls_operacioncon="H";
}
else
{
$ls_operacioncon="D";
}
$lb_valido=$in_classmovcol->uf_procesar_dt_contable($arr_col, $ls_cuenta_scg,$ls_operacioncon,'00000' ,$ls_descripcion, $ldec_monto_mov,true);
$ls_cuenta = $_POST["txtcuentascg"];
$ls_documento = $_POST["txtdocumento"];
$ls_denominacion= $_POST["txtdescripcion"];
$ls_procede = $_POST["txtprocedencia"];
$ls_operacioncon= "D";
$ld_monto = $_POST["txtmonto"];
$ldec_monto=str_replace(".","",$ld_monto);
$ldec_monto=str_replace(",",".",$ldec_monto);
if($lb_valido)
{
$lb_valido=$in_classmovcol->uf_procesar_dt_contable($arr_col, $ls_cuenta,$ls_operacioncon,'00000', $ls_denominacion, $ldec_monto,false);
$ls_spgcuenta = $_POST["txtcuenta"];
$ls_est1 = $_POST["codestpro1"];
$ls_est2 = $_POST["codestpro2"];
$ls_est3 = $_POST["codestpro3"];
$ls_programa = $ls_est1.$ls_est2.$ls_est3."0000";
$ls_documento = $_POST["txtdocumento"];
$ls_desmov = $_POST["txtdescripcion"];
$ls_procededoc= $_POST["txtprocedencia"];
$ls_operacion = $_POST["txtoperacion"];
$ldec_monto = $_POST["txtmonto"];
$ldec_monto=str_replace(".","",$ldec_monto);
$ldec_monto=str_replace(",",".",$ldec_monto);
$lb_valido=$in_classmovcol-> uf_procesar_dt_gasto($ls_codban,$ls_ctaban,$ls_mov_colocacion,$ls_codope,$ls_numcol,$ls_programa,$ls_spgcuenta,$ls_desmov,$ldec_monto,$ls_operacion,$ls_estcol);
if($lb_valido)
{
$in_classmovcol->SQL->commit();
?>
SQL->rollback();
$msg->message($in_classmovcol->is_msg_error);
}
}
else
{
$msg->message($in_classmovcol->is_msg_error);
$in_classmovcol->SQL->rollback();
}
}
else
{
$msg->message($in_classmovcol->is_msg_error);
$in_classmovcol->SQL->rollback();
}
}
switch ($ls_operacion) {
case 'AAP':
$ls_apertura="selected";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'AU':
$ls_apertura="";
$ls_aumento="selected";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'DI':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="selected";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'PC':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="selected";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'CS':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="selected";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'CG':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="selected";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'GC':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="selected";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'CP':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="selected";
$ls_pago="";
$ls_compromisocausasopago="";
break;
case 'PG':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="selected";
$ls_compromisocausasopago="";
break;
case 'CCP':
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="selected";
break;
default:
$ls_apertura="";
$ls_aumento="";
$ls_disminucion="";
$ls_precompromiso="";
$ls_compromiso="";
$ls_compromisogastocausado="selected";
$ls_gastocausado="";
$ls_causadopago="";
$ls_pago="";
$ls_compromisocausasopago="";
break;
}
?>