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

Asignar unicamente la sucusal del contratro

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-08-23 16:04:49 -07:00
parent 2d0bf65aac
commit c3de42e793
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -291,17 +291,17 @@ Partial Class RepNotasSinAlmacen
If UsuarioActual.TienePermisoProceso(278) Then If UsuarioActual.TienePermisoProceso(278) Then
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle") Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle").ToEntero()
Dim CveCompra As Integer = GvRow.DataKey("CveCompra") Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
Dim CvePS As Integer = GvRow.DataKey("CveCompra") Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero()
Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}") Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
Dim ObjEventos As New ClsOIEventos Dim ObjEventos As New ClsOIEventos
If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibirlo", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
Alert("El producto se marcó como 'no recibirlo' correctamente.") Alert("El producto se marcó como 'no recibido' correctamente.")
End If End If
End If End If
ObjCompras.Dispose() ObjCompras.Dispose()

3
Ventas/Ventas.aspx.vb
View File

@@ -2781,6 +2781,9 @@ Partial Class Ventas
If DrContrato("CveSucursalCliente").ToString.ToEntero > 0 Then If DrContrato("CveSucursalCliente").ToString.ToEntero > 0 Then
DdlSucursalCliente.SelectedValueExist(DrContrato("CveSucursalCliente")) DdlSucursalCliente.SelectedValueExist(DrContrato("CveSucursalCliente"))
DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty)
DdlSucursalCliente.Enabled = False
DdlSucursalCliente.Attributes.Add("disabled", "")
End If End If
Dim CveAlmacenDestino As Integer = DrContrato("CveAlmacenDestino").ToString.ToEntero Dim CveAlmacenDestino As Integer = DrContrato("CveAlmacenDestino").ToString.ToEntero