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

-- validación de remisión,, que aplique para todos, no solo rol 1

Browse Source
This commit is contained in:
rrene
2022-09-26 13:04:16 -07:00
parent 18aa60448d
commit 4375bd2a8b
2 changed files with 9 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OC/OC.aspx
View File

@@ -338,7 +338,7 @@
<div class="col-md-3" runat="server" id="DvNumRemision2" visible="false"> <div class="col-md-3" runat="server" id="DvNumRemision2" visible="false">
<asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="80%" onblur="ValidaNumRemision()"></asp:TextBox> <asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="80%" onblur="ValidaNumRemision()"></asp:TextBox>
<asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click" Style="display: none;" runat="server" /> <asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click" Style="display: none;" runat="server" />
<asp:LinkButton runat="server" Visible="false" ID="LnkActualziarNumRemision" OnClick="LnkActualziarNumRemision_Click" <asp:LinkButton runat="server" Visible="false" ID="LnkActualizarNumRemision" OnClick="LnkActualizarNumRemision_Click"
data-toggle="confirmation" data-popout="true" data-original-title="Actualizar número remisión" data-toggle="confirmation" data-popout="true" data-original-title="Actualizar número remisión"
data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs"
ToolTip="¿Está seguro que desea actualizar el número de remisión?" /> ToolTip="¿Está seguro que desea actualizar el número de remisión?" />

29
OC/OC.aspx.vb
View File

@@ -844,11 +844,8 @@ Partial Class OC_OC
DdlCultivosCuadro.DataBind() DdlCultivosCuadro.DataBind()
DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
If UsuarioActual.CveRol = 1 Then DvNumRemision1.Visible = True
DvNumRemision1.Visible = True DvNumRemision2.Visible = True
DvNumRemision2.Visible = True
End If
End If End If
@@ -2637,7 +2634,7 @@ Partial Class OC_OC
If GeneraReq Then If GeneraReq Then
If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then If TxtNumRemision.Text.Trim() <> "" AndAlso Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "REQ", CveProveedor, OC.IniciaTransacSQL) Then
TieneError = True TieneError = True
End If End If
@@ -8762,15 +8759,12 @@ Partial Class OC_OC
Return Retorno Return Retorno
End Function End Function
Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTransaccion As SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTransaccion As SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean
Dim NumRemisionValida As Boolean = False Dim NumRemisionValida As Boolean = False
LnkActualziarNumRemision.Visible = False LnkActualizarNumRemision.Visible = False
If NumRemision.Trim.Length > 0 Then If NumRemision.Trim.Length > 0 Then
If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso UsuarioActual.CveRol = 1 Then If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
Dim ObjOC As New ClsOC(OcTransaccion) Dim ObjOC As New ClsOC(OcTransaccion)
If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
@@ -8786,12 +8780,10 @@ Partial Class OC_OC
Else Else
NumRemisionValida = True NumRemisionValida = True
End If End If
If NumRemisionValida Then If NumRemisionValida Then
If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
LnkActualziarNumRemision.Visible = True LnkActualizarNumRemision.Visible = True
End If End If
End If End If
@@ -8808,13 +8800,9 @@ Partial Class OC_OC
End Sub End Sub
Protected Sub LnkActualziarNumRemision_Click(sender As Object, e As EventArgs) Protected Sub LnkActualizarNumRemision_Click(sender As Object, e As EventArgs)
If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then Exit Sub
If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then
Exit Sub
End If
If ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) Then If ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) Then
@@ -8845,6 +8833,5 @@ Partial Class OC_OC
Alert("El número de remisión no es valido.") Alert("El número de remisión no es valido.")
End If End If
End Sub End Sub
End Class End Class