$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 = '-------------------------';
$ls_codest2 = '-------------------------';
$ls_codest3 = '-------------------------';
$ls_codest4 = '-------------------------';
$ls_codest5 = '-------------------------';
$ls_estcla6 = '-';
}
$lb_valido=$io_int_spi->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,$ls_codban,$ls_ctaban,$ls_codest1,$ls_codest2,$ls_codest3,
$ls_codest4,$ls_codest5,$ls_estcla6);
if($lb_valido)
{
$io_int_spi->io_sql->commit();
///////////////////////////////// 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;
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event);
//////////////////////////////// SEGURIDAD //////////////////////////////
}
else
{
$io_int_spi->io_sql->rollback();
}
uf_cargar_dt($la_emp["codemp"],$ls_proccomp,$ls_comprobante,$ld_fecha);
