diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 4596c2638..715520321 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -202,168 +202,193 @@ - -
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + - - - - +
Código: -
- -
-
Razón Social: -
- - - -
-
Nombre Comercial: -
- - - -
-
Nombre Corto: -
- -
-
Dirección: -
- -
-
Codigo Postal: -
- - -
-
RFC: -
- +
+
+ +
+
+
+ + +
+
+ +
+
+ + +
+
+
+ +
+
+
+ + + + +
+
+
+ +
+
+
+ + + + +
+
+
+ +
+
+
+ + +
+
+
+ +
+
+
+ + + +
+
+
+ +
+
+
+ - -
-
Teléfono Empresa: -
+ + +
+ + + + +
+
+
+ + + + + + + + +
+
+
+ + + +
+
+
- - <%-- --%> - <%-- --%> - -
-
Contacto: -
- -
-
Celular Contacto: -
- + + + +
+ + + +
+ +
+
+ + +
+
+ +
+
+ - - <%-- - --%> - - -
-
Clasificación Proveedor: - - -
Responsable: - + + + + + + + +
+
+
+ + + +
+
+
+
+ - -
Tipo de Proveedor: - - <%----%> + + + + + + +
+
+
+ -
Moneda Preferente: - -
Nivel de confianza al proveedor: - + + + + + + + +
+
+
+ + +
+
+
+ +
+
+
+ + -
Regimen Fiscal: - - - + - - -
Estatus SAT: @@ -371,7 +396,9 @@
-
+ + +
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 7ae3fd769..b542189c3 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -633,12 +633,17 @@ Partial Class Compras_Proveedores If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then TrConfianzaProveedor.Visible = True + CondiguraConfiazaProveedor() End If If UsuarioActual.TienePermisoProceso(273) Then GvA.Columns(5).Visible = True End If + + + + End If Dim script As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#CXPContador""", """badge-success""", """badge-danger""", If(CountCuentasxPagar > 0, """badge-danger""", """badge-success"""), CountCuentasxPagar.ToString) @@ -650,6 +655,19 @@ Partial Class Compras_Proveedores RegisterPostBackControl() End Sub + Private Sub CondiguraConfiazaProveedor() + + '1 Dedicado + '2 Proveedor que requiere Cotización + + If Not UsuarioActual.TienePermisoProceso(355) Then + If Not DdlConfianzaProveedor.SelectedValue.ToEntero = 1 Then + DdlConfianzaProveedor.Items.Remove(New ListItem("Proveedor dedicado", "1")) + End If + End If + + End Sub + Private Sub CargaRegimenFiscal() DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales DdlRegimenFiscal.DataBind()