$ls_sc_cuenta="";
if ($ls_tipo=="B")
{ $ls_fuente = $ls_bene; }
else
{
if ($ls_tipo=="P")
{
$ls_fuente = $ls_prov;
}
else
{
$ls_fuente = "----------";
}
}
if(!$io_int_spi->uf_spi_select_cuenta($la_emp["codemp"],$ls_cuenta,&$ls_status,&$ls_denominacion,&$ls_sc_cuenta,
$codestpro1,$codestpro2,$codestpro3,$codestpro4,$codestpro5,$estcla))
{
return false;
}
$lb_valido=$in_classcmp->uf_int_spi_delete_movimiento($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha,$ls_tipo,$ls_fuente,$ls_prov,$ls_bene,
$ls_cuenta,$ls_procede_doc,$ls_documento,$ls_descripcion,$ls_mensaje,$li_tipo_comp,
$ldec_monto_anterior,$ldec_monto_actual,$ls_sc_cuenta,
$codestpro1,$codestpro2,$codestpro3,$codestpro4,$codestpro5,$estcla);
if($lb_valido)
{
///////////////////////////////// SEGURIDAD /////////////////////////////
$ls_evento="DELETE";
$ls_desc_event="Elimino el movimiento presupuestario ".$ls_documento." con operacion".$ls_operacion." por un monto de ".$ldec_monto_anterior." para la cuenta ".$ls_cuenta."; para el comprobante ".$ls_comprobante." de fecha ".$ld_fecha;
$io_fun_ingreso->uf_log_transacion_seguridad("SPI","sigesp_spi_p_aumento.php",$ls_desc_event,$ls_evento);
//$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event);
//////////////////////////////// SEGURIDAD //////////////////////////////
$ls_sc_cuenta="";
if ($ls_tipo=="B")
{ $ls_fuente = $ls_bene; }
else
{
if ($ls_tipo=="P")
{
$ls_fuente = $ls_prov;
}
else
{
$ls_fuente = "----------";
}
}
if(!$io_int_spi->uf_spi_select_cuenta($la_emp["codemp"],$ls_cuenta,&$ls_status,&$ls_denominacion,&$ls_sc_cuenta))
{
return false;
}
if($li_estpreing==1)
{
$ls_codest1 = substr($ls_estructura,0,25);
$ls_codest2 = substr($ls_estructura,25,25);
$ls_codest3 = substr($ls_estructura,50,25);
$ls_codest4 = substr($ls_estructura,75,25);
$ls_codest5 = substr($ls_estructura,100,25);
$ls_estcla6 = substr($ls_estructura,125,1);
}
else
{
$ls_codest1 = '-------------------------';
