--fix clase venta adjunto

This commit is contained in:
2024-08-01 15:40:00 -07:00
parent c720845ed2
commit 06584821bc

View File

@@ -36369,7 +36369,7 @@ Partial Class Ventas
File.Delete(Path) File.Delete(Path)
If Me.CveVenta > 0 Then If Me.CveVenta > 0 Then
Using ObjVta As New ClsVentasTemp Using ObjVta As New ClsVentas
If ObjVta.UpdateVentaAdjunto(Me.CveVenta, "", UsuarioActual.CveEmpresa) Then If ObjVta.UpdateVentaAdjunto(Me.CveVenta, "", UsuarioActual.CveEmpresa) Then
Alert("Documento eliminado", TipoMensaje.MsgInformacion) Alert("Documento eliminado", TipoMensaje.MsgInformacion)
End If End If