Error al guardar prepoliza

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