AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

No mostrar entrega directa en econollantas

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-04-29 15:37:02 -07:00
parent a719d101cb
commit d32f25c4e9
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OC/OC.aspx
View File

@@ -606,7 +606,7 @@
<asp:ImageButton ID="ImgCambiaClienteVendedor" data-toggle="tooltip" title="Actualizar Cliente/Vendedor" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" /> <asp:ImageButton ID="ImgCambiaClienteVendedor" data-toggle="tooltip" title="Actualizar Cliente/Vendedor" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
</div> </div>
</div> </div>
<div class="col-md-2" style="max-width: 145px;"> <div id="DivEntregaDirecta" runat="server" visible="true" class="col-md-2" style="max-width: 145px;">
<asp:CheckBox ID="ChkEntregaDirecta" CssClass="md-checksd" AutoPostBack="true" OnCheckedChanged="ChkEntregaDirecta_CheckedChanged" Text="Entrega Directa" TextAlign="Right" runat="server" Checked="false" /> <asp:CheckBox ID="ChkEntregaDirecta" CssClass="md-checksd" AutoPostBack="true" OnCheckedChanged="ChkEntregaDirecta_CheckedChanged" Text="Entrega Directa" TextAlign="Right" runat="server" Checked="false" />
</div> </div>
<div runat="server" id="DivLugarEntregaDirecta1" visible="false" class="col-md-2" style="max-width: 120px;"> <div runat="server" id="DivLugarEntregaDirecta1" visible="false" class="col-md-2" style="max-width: 120px;">

8
OC/OC.aspx.vb
View File

@@ -795,6 +795,14 @@ Partial Class OC
PermisosPagina() PermisosPagina()
RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();") RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();")
'NO MOSTRAR LA OPCION DE ENTREGA DIRECTA (ECONOLLANTAS)
If UsuarioActual.CveEmpresa = 141 Then
DivEntregaDirecta.Visible = False
ChkEntregaDirecta.Enabled = False
ChkEntregaDirecta.Checked = False
End If
End If End If
Me.Form.DefaultButton = "" Me.Form.DefaultButton = ""
End Sub End Sub