Inventarios/EntradasSalidas.aspx.vb

@@ -588,8 +588,8 @@ Partial Class Inventarios_EntradasSalidas
             If DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero > 0 Then
                 HplPrePoliza.Visible = True
                 HplPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", DtMov.Rows(0)("CvePrePoliza"))
-                CvePrePoliza = DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero
-            Else
+                CvePrePoliza = DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero
+            Else
                 If UsuarioActual.CveRol = 1 Then
                     BtnGeneraPrepoliza.Visible = True
                 End If
@@ -874,7 +874,18 @@ Partial Class Inventarios_EntradasSalidas
             TxtFecha.Enabled = True
             ImgFecha.Enabled = True
             TxtObservaciones.Enabled = True
-        End If
+        End If
+
+        Dim ObjContabilidad As New ClsContabilidad
+        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                If dr("IdPoliza").ToString.ToEntero > 0 Then
+                    BtnEliminar.Visible = False
+                End If
+            End If
+        End If
+        ObjContabilidad.Dispose()
 
         'SI TIENE PREPOLIZA NO SE DEBE PODER EDITAR
         If Mov.TienePrePoliza > 0 Then
@@ -1513,6 +1524,7 @@ Partial Class Inventarios_EntradasSalidas
 
                             Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & DdlConcepto.SelectedValue).ToEntero
                             If OrigenMov = 1 Then TipoMovtoAlmacen = False Else TipoMovtoAlmacen = True
+                            TipoMovtoOtro = Not TipoMovtoAlmacen
 
                             Dim CveConceptoContable As Integer = 78
                             Dim CveClasificacion As Integer = -1
@@ -1527,6 +1539,7 @@ Partial Class Inventarios_EntradasSalidas
 
                                 Case 30
                                     CveConceptoContable = 181
+                                    TipoMovtoOtro = False
                                     If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
                                         IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                     End If