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

-- validar si el movto de almacen, corresponde a la OC, junto con la prepóliza

Browse Source
This commit is contained in:
rrene
2024-09-26 17:35:16 -07:00
parent 4e47fade7f
commit 095f07d71d
1 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
OC/OC.aspx.vb
View File

@@ -81,6 +81,15 @@ Partial Class OC_OC
ViewState("CveOrdenCompra") = value ViewState("CveOrdenCompra") = value
End Set End Set
End Property End Property
Private Property InventarioPrePoliza176 As Integer
Get
InventarioPrePoliza176 = ViewState("InventarioPrePoliza176").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("InventarioPrePoliza176") = value
End Set
End Property
Private Property CveIEAnticipo As Integer Private Property CveIEAnticipo As Integer
Get Get
CveIEAnticipo = ViewState("CveIEAnticipo").ToString.ToEntero CveIEAnticipo = ViewState("CveIEAnticipo").ToString.ToEntero
@@ -631,11 +640,6 @@ Partial Class OC_OC
End Set End Set
End Property End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -644,6 +648,7 @@ Partial Class OC_OC
GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
CargaDatosAgregarPS() CargaDatosAgregarPS()
CveProveedorOriginal = -1 CveProveedorOriginal = -1
InventarioPrePoliza176 = 0
'EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx") 'EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx")
'EnviarNotificacionWhatsApp("526621430964", "", "hello_world") 'EnviarNotificacionWhatsApp("526621430964", "", "hello_world")
'MODALIDAD MULTIEMPRESA 'MODALIDAD MULTIEMPRESA
@@ -1034,7 +1039,7 @@ Partial Class OC_OC
Private Sub ValidaCancelacionConAlamcen() Private Sub ValidaCancelacionConAlamcen()
If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And InventarioPrePoliza176 > 0 Then
'BtnCancelarPrevio.Attributes.Remove("onclick") 'BtnCancelarPrevio.Attributes.Remove("onclick")
BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip") BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.") BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
@@ -7405,16 +7410,17 @@ Partial Class OC_OC
GVInv.DataSource = ObjInventarios.DtResultados GVInv.DataSource = ObjInventarios.DtResultados
If ObjInventarios.DtResultados.Rows.Count > 0 Then If ObjInventarios.DtResultados.Rows.Count > 0 Then
DdlMoneda.Enabled = False DdlMoneda.Enabled = False
InventarioPrePoliza176 = ObjInventarios.DtResultados.MAX("PrePoliza176").ToEntero
Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue)) Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue))
If TipoEstatusTerminado = "3" Then If TipoEstatusTerminado = "3" Then
LnkCambiarMoneda.Visible = True LnkCambiarMoneda.Visible = True
End If End If
End If End If
End If End If
GVInv.DataBind()
End If End If
ObjInventarios.Dispose() ObjInventarios.Dispose()
GVInv.DataBind()
UpAlmacen.Update() UpAlmacen.Update()
UpAcciones.Update() UpAcciones.Update()
End If End If