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

Solicitudes Ingreso ajustes, OC num remision, rep ventas detalle

Browse Source
This commit is contained in:
rakcsle
2022-08-02 09:33:47 -07:00
parent 35be01025e
commit d6a349e5e2
7 changed files with 693 additions and 457 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OC/OC.aspx
View File

@@ -343,7 +343,7 @@
</asp:UpdatePanel>
</div>
<div class="col-md-2" runat="server" id="DvNumRemision1" visible="false"><b>Número Remisión</b></div>
<div class="col-md-2" runat="server" id="DvNumRemision1" visible="false"><b>Núm. Remisión</b></div>
<div class="col-md-2" runat="server" id="DvNumRemision2" visible="false">
<asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="100%" onblur="ValidaNumRemision()"></asp:TextBox>
<asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click" Style="display: none;" runat="server" />

9
OC/OC.aspx.vb
View File

@@ -829,8 +829,11 @@ Partial Class OC
DdlCultivosCuadro.DataBind()
DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DvNumRemision1.Visible = True
DvNumRemision2.Visible = True
If UsuarioActual.CveRol = 1 Then
DvNumRemision1.Visible = True
DvNumRemision2.Visible = True
End If
End If
@@ -8731,7 +8734,7 @@ Partial Class OC
If NumRemision.Trim.Length > 0 Then
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 AndAlso UsuarioActual.CveRol = 1 Then
Dim ObjOC As ClsOC