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