From e186f81dc9be6972c2d87092d9db107033dcfeb0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 4 May 2023 18:20:13 -0700
Subject: [PATCH] -- mejora de validacion de errores

---
 App_Code/ClsBancos.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 8b1f062b8..ca61f5bd1 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -4807,7 +4807,7 @@ Public Class ClsBancos
             strBody.AppendFormat("                            <td>Cuenta:</td>")
             strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", NumCuenta)
             strBody.AppendFormat("                        </tr>")
-            If CuentaDepositado.ToString <> "" Then
+            If CuentaDepositado IsNot Nothing AndAlso CuentaDepositado.ToString <> "" Then
                 strBody.AppendFormat("                        <tr class='Texto'>")
                 strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
                 strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", CuentaDepositado)