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

Contabilidad/RegPrePolizaS.aspx.vb

@@ -284,32 +284,41 @@ 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
+                    If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                    GvPrePoliza.Columns(5).Visible = False
+                        GvPrePoliza.Columns(5).Visible = False
-                    DivTG.Visible = False
+                        DivTG.Visible = False
-                    GvMov.Columns(5).Visible = False
+                        GvMov.Columns(5).Visible = False
-                End If
+                    End If
-                ValidaCrearAPartirDe()
+                    ValidaCrearAPartirDe()
-                DvPlantilla.Visible = False
+                    DvPlantilla.Visible = False
 
+                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                        If Folio.ToEntero > 0 Then
+                            BtnDescontabilizar.Visible = True
+                            LnkFolioManual.Visible = False
+                        Else
+                            BtnDescontabilizar.Visible = False
+                            LnkFolioManual.Visible = True
+                        End If
 
-                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
-                    If Folio.ToEntero > 0 Then
-                        BtnDescontabilizar.Visible = True
-                        LnkFolioManual.Visible = False
-                    Else
-                        BtnDescontabilizar.Visible = False
-                        LnkFolioManual.Visible = True
                     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
 
-                Exit Sub
 
             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
-        BtnEliminar.Visible = True
+        Dim retorno As Boolean = False
-        LblEncabezado.Text = "Edición de Póliza"
-
         Dim ObjContabilidad As New ClsContabilidad
-        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+        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"
+
+                ViewState("CvePrePoliza") = tCvePrePoliza
                 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