--fix clase venta adjunto
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user