diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 44944955e..bbb576de3 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1164,38 +1164,38 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 
             If MsgError = "" Then
-                    'MENSAJE IE
+                'MENSAJE IE
 
-                    'If CveIE Then
-                    '    Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
-                    'Else
-                    '    Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
-                    'End If
+                'If CveIE Then
+                '    Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
+                'Else
+                '    Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
+                'End If
 
-                    Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""")
+                Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""")
 
 
-                    ObjIE.Commit()
-                    If Conta IsNot Nothing Then Conta.Commit()
+                ObjIE.Commit()
+                If Conta IsNot Nothing Then Conta.Commit()
 
-                    UPPDocumento.Update()
+                UPPDocumento.Update()
 
-                    TxtConcepto.Text = ""
-                    'GvMov.DataBind()
-                    DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
+                TxtConcepto.Text = ""
+                'GvMov.DataBind()
+                DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
 
-                    TxtFechaDocumento.Text = ""
+                TxtFechaDocumento.Text = ""
 
-                Else
-                    Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
-                    ObjIE.RollBack()
-                    If Conta IsNot Nothing Then Conta.RollBack()
-                End If
-
-                ObjIE.Dispose()
-                ObjMov.Dispose()
-                If Conta IsNot Nothing Then Conta.Dispose()
+            Else
+                Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
+                ObjIE.RollBack()
+                If Conta IsNot Nothing Then Conta.RollBack()
             End If
+
+            ObjIE.Dispose()
+            ObjMov.Dispose()
+            If Conta IsNot Nothing Then Conta.Dispose()
+        End If
     End Sub
 
     Private Sub ActualizarPrePoliza()
@@ -1297,6 +1297,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDouble
         Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble
         Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero
+        Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero
 
         'CargaConceptosContablesE()
         'CargaModalConceptoCuentas()
@@ -1338,6 +1339,9 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
         DdlVentasE.SelectedValueExist(CveVenta)
 
+        If CveClasificacion > 0 Then
+            DdlClasificacionesE.SelectedValue = CveClasificacion
+        End If
         TxtConceptoE.Text = Concepto
         TxtReferenciaE.Text = Referencia