Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/Compras.aspx.vb

@@ -1548,8 +1548,8 @@ Partial Class Compras_Compras
 
         End If
 
-        'SE OCUPAN AFUERA DEL POSTBACK ??
-        cargaddlVinculacionServcios()
+            'SE OCUPAN AFUERA DEL POSTBACK ??
+            cargaddlVinculacionServcios()
         If UsuarioActual.TienePermisoProceso(117) Then
 
             HplAddClasificacion.Visible = False
@@ -1574,9 +1574,30 @@ Partial Class Compras_Compras
 
         End If
 
+
+
+        MostrarOcultarColumnaIEPS()
+
+
     End Sub
 
 #Region "C A R G A S"
+
+    Private Sub MostrarOcultarColumnaIEPS()
+
+
+        If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then
+            GvPS.Columns(9).Visible = True
+            TD_Gvps_IEPS.Visible = True
+        Else
+            GvPS.Columns(9).Visible = False
+            TD_Gvps_IEPS.Visible = False
+        End If
+        UpPS.Update()
+
+    End Sub
+
+
     Private Sub CargaOrdenCorte()
         Dim ObjCGame As New ClsCGame()
         If ObjCGame.GetOrdenCorte(UsuarioActual.CveEmpresa) Then
@@ -4361,8 +4382,6 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-
-
         '------------------TERMINA VALIDACIONES------------------
 
         'si hay necesidad de actualizar el globaldtps
@@ -8643,6 +8662,16 @@ Partial Class Compras_Compras
             End If
 
 
+            For Each dRow As DataRow In TmpDT.Rows
+
+                If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
+                    dRow("IEPSPSPorcentaje") = 0
+                End If
+
+            Next
+
+            TmpDT.AcceptChanges()
+
         End If
 
 
@@ -13591,7 +13620,7 @@ Partial Class Compras_Compras
 
         If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
             If Filename <> "" Then
-                Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
+                Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
             End If
 
             GvEB.DataSource = ObjEventoBitacora.DtResultados
@@ -18273,7 +18302,11 @@ Partial Class Compras_Compras
         End If
 
         UpPS.Update()
-                CargaGvPersonal()
+        CargaGvPersonal()
+
+        MostrarOcultarColumnaIEPS()
+
+
     End Sub
     ''' <summary>
     ''' Regresa el INDEX del row que acaba de agregar en el TMPDT
@@ -19789,6 +19822,9 @@ Partial Class Compras_Compras
             Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
         End If
 
+
+        MostrarOcultarColumnaIEPS()
+
     End Sub
 #End Region