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

-- validación adicional cuando es de una solo sucursal la OC

Browse Source
This commit is contained in:
rrene
2024-12-09 10:05:50 -07:00
parent 7195c8834b
commit 4c4fdd75d4
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
OC/OC.aspx.vb
View File

@@ -2748,6 +2748,13 @@ Partial Class OC_OC
TieneError = True TieneError = True
End If End If
If ModalidadSubProyectoGeneral Then
Dim t As Integer = DtDetalle.COUNT("CvePS", $"CveSubProyecto <> {DdlSubProyectoGral.SelectedValue}")
If t > 0 Then
Alert("Se tienen partidas de diferentes Sucursales.", TipoMensaje.MsgAdvertencia)
Return True
End If
End If
'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR 'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
@@ -4054,12 +4061,10 @@ Partial Class OC_OC
e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle")) e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle"))
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try
If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then