asgianción de valor nothing, para evitar warning

2021-02-22 11:08:20 -07:00
parent bd6c491a4e
commit 3797695bea
1 changed files with 1 additions and 1 deletions
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -381,7 +381,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
        If UsuarioActual.Empresa.TipoContabilizacion = 0 Then
            'busco en la cuenta contable, lo que tenga asignado 
            Dim Con As New ClsContabilidad
-            Dim dtt As DataTable
+            Dim dtt As DataTable = Nothing
            If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
                dtt = Con.DtResultados
            End If