asgianción de valor nothing, para evitar warning

This commit is contained in:
2021-02-22 11:08:20 -07:00
parent bd6c491a4e
commit 3797695bea

View File

@@ -381,7 +381,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
If UsuarioActual.Empresa.TipoContabilizacion = 0 Then If UsuarioActual.Empresa.TipoContabilizacion = 0 Then
'busco en la cuenta contable, lo que tenga asignado 'busco en la cuenta contable, lo que tenga asignado
Dim Con As New ClsContabilidad Dim Con As New ClsContabilidad
Dim dtt As DataTable Dim dtt As DataTable = Nothing
If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
dtt = Con.DtResultados dtt = Con.DtResultados
End If End If