-- mejora

Compras/Compras.aspx.vb

@@ -1701,7 +1701,7 @@ Partial Class Compras_Compras
                             If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
                                 Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
                                 Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-                                BtnGuardar.Enabled = False
+                                If UsuarioActual.CveEmpresa.Contiene(119, 158) Then BtnGuardar.Enabled = False
                                 BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."
                             End If
 
@@ -4843,7 +4843,8 @@ Partial Class Compras_Compras
                                                         End If
 
                                                         If ContadorInventario > 0 Then
-                                                            CuentaMatrizAlmacen = CtaAlmacen
+
+                                                            ' CuentaMatrizAlmacen = CtaAlmacen
                                                         ElseIf grp.CveActivoFijo > 0 Then
 
                                                             Dim CtaAF = -1

Compras/Proveedores.aspx.vb

@@ -1849,14 +1849,9 @@ Partial Class Compras_Proveedores
                         DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
                         DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
                         CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
-                'CargaDatos()
 
-
-                If tIdContaProveedor > 0 AndAlso CreoCuenta Then ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, tIdContaProveedor)
-
-                'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                 GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
-                'End If
+
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
                 'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO