-- si se manda el parametro de cveprepoliza, y no existe que tome el comportamiento como nueva prepoliza

Contabilidad/RegPrePolizaS.aspx.vb

@@ -284,10 +284,9 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
 
-                ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
                 CreaDT()
                 CreaDTEliminar()
-                CargaPrePoliza()
+                If CargaPrePoliza(Request("CvePrePoliza").ToEntero) Then
                     If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
                         GvPrePoliza.Columns(5).Visible = False
                         DivTG.Visible = False
@@ -296,9 +295,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     ValidaCrearAPartirDe()
                     DvPlantilla.Visible = False
 
-
                     If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
                         If Folio.ToEntero > 0 Then
                             BtnDescontabilizar.Visible = True
                             LnkFolioManual.Visible = False
@@ -310,6 +307,18 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
 
                     Exit Sub
+                Else
+                    BtnEliminar.Visible = False
+                    LnkExcel.Visible = True
+                    LnkImprimirPDF.Visible = False
+                    DvPlantilla.Visible = True
+
+                    TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
+                    TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy")
+                    TxtConcepto.Enabled = True
+                    TxtUsuarioElaboro.Text = UsuarioActual.Usuario
+                End If
+
 
             ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
 
@@ -334,10 +343,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy")
                 TxtConcepto.Enabled = True
                 TxtUsuarioElaboro.Text = UsuarioActual.Usuario
-                DvPlantilla.Visible = True
-                'LnkAddConcepto.Visible = False
-
-                'UpPrePoliza.Visible = False
 
             End If
 
@@ -366,8 +371,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 GvMov.Columns(5).Visible = False
             End If
 
-
-
         End If
 
     End Sub
@@ -437,14 +440,18 @@ Partial Class ContabilidadC_RegPrePolizaS
         End With
         DtMovimientosEliminar.AcceptChanges()
     End Sub
-    Private Sub CargaPrePoliza()
+    Private Function CargaPrePoliza(tCvePrePoliza As Integer) As Boolean
+        Dim retorno As Boolean = False
+        Dim ObjContabilidad As New ClsContabilidad
+        If ObjContabilidad.GetPrePoliza(tCvePrePoliza, UsuarioActual.CveEmpresa) Then
+
+            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                retorno = True
                 BtnEliminar.Visible = True
                 LblEncabezado.Text = "Edición de Póliza"
 
-        Dim ObjContabilidad As New ClsContabilidad
+                ViewState("CvePrePoliza") = tCvePrePoliza
-        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
-            If dr IsNot Nothing Then
                 DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
                 TxtFechaDocumento.Text = dr("Fecha")
                 TxtConcepto.Text = dr("Concepto")
@@ -544,7 +551,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         ObjContabilidad.Dispose()
         UpPoliza.Update()
-    End Sub
+        Return retorno
+    End Function
 
     Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound
 
@@ -1274,7 +1282,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
         ObjContabilidad.Dispose()
-        CargaPrePoliza()
+        CargaPrePoliza(CvePrePoliza)
 
         If Not OcurrioError Then
             If IdPoliza > 0 AndAlso contador Then