para quitar warning, asignación de nothing

2021-07-12 17:09:18 -07:00
parent efb084b482
commit f179ea2db2
1 changed files with 1 additions and 1 deletions
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9732,7 +9732,7 @@ Partial Class Compras_Compras
        Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
        Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL)
        Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL)
-        Dim ObjContaAC As ClsContPAQi  '= New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjContaAC As ClsContPAQi = Nothing '= New ClsContPAQi(UsuarioActual.Empresa)

        Dim Retorno As Boolean = True
        Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero