From fc8f04001a3fd1a2e65afdfe397f1fcd9650f1c7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 6 May 2023 13:32:39 -0700
Subject: [PATCH] --mostrar que falta personal, al agregar prepolizadetalle

---
 App_Code/ClsContabilidad.vb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 522115cf8..f210359db 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1032,6 +1032,9 @@ Public Class ClsContabilidad
                         If dr("AplicaProveedor").ToString = "True" Then
                             StrMsg = StrMsg + " - Proveedor: " + ClsPaginas.GlobalDTCompProveedores(tCveEmp, CveProveedor:=CveProveedor).FiltroPrimeroValor("NombreComercial", "")
                         End If
+                        If dr("AplicaPersonal").ToString = "True" Then
+                            StrMsg = StrMsg + " - Personal: " + ClsPaginas.GlobalDTRHPersonal(tCveEmp, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto", "")
+                        End If
                     End If
                 End If
                 OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", StrMsg), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)