From c30ff59853d69d93e87d52b54bc6a5c3499afa97 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 29 Nov 2021 16:43:18 -0700
Subject: [PATCH] Error al guardar prepoliza

---
 Contabilidad/RegPrePolizaS.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index c24a32347..6439c3dc0 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1045,8 +1045,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Else
                     MsgError = "No se pudo insertar la póliza"
                 End If
-            Catch ex As Exception
-                MsgError = "Error"
+            Catch ex As Exception
+                MsgError = "Ocurrió un error al guardar la póliza"
+                OnError("Ocurrió un error al guardar la póliza.", ex)
             End Try
 
             If MsgError = "" Then
@@ -1351,6 +1352,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Dim dr As DataRow = DtMovimientos.NewRow
                 dr("IdCtaContable") = IdCtaContable
                 dr("CveCuenta") = DdlCuentaContableE.SelectedValue
+                'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+                dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text