-- costos jam/2019
This commit is contained in:
rrene
@@ -8,8 +8,8 @@ Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Inventarios_EntregaAlmacen
|
||||
Inherits ClsPaginas
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
Private Property CveVentaAD As Integer
|
||||
Get
|
||||
@@ -243,10 +243,10 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
Set(value As Boolean)
|
||||
ViewState("EsDevolucionDirecta") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
@@ -254,9 +254,9 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
CargaParametrosAD()
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#Region " INICIALIZA VALORES "
|
||||
Private Sub InicializaValores()
|
||||
TipoEstatus = -1
|
||||
@@ -324,11 +324,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
|
||||
LimpiaCampos()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CARGA PARAMETROS - EXCLUSIVO USO AD "
|
||||
Private Sub CargaParametrosAD()
|
||||
|
||||
@@ -346,9 +346,9 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
BtnGuardar.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CARGA PENDIENTES POR SURTIR "
|
||||
Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaFolios()
|
||||
@@ -466,11 +466,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End Select
|
||||
UpPendientes.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CARGA VENTA POR SURTIR "
|
||||
Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -923,14 +923,14 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End If
|
||||
objInv.Dispose()
|
||||
GvDocs.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " AGREGAR "
|
||||
|
||||
|
||||
Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
|
||||
@@ -957,10 +957,10 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
UpLoteBatch.Update()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " AGREGA POR SERIE/LOTE "
|
||||
|
||||
|
||||
Private Sub CreaDtDetalle()
|
||||
If DtDatosDetalle Is Nothing Then
|
||||
DtDatosDetalle = New DataTable
|
||||
@@ -1165,11 +1165,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
DtDatosDetalle.AcceptChanges()
|
||||
CargaSerie()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AGREGA CON LOTE BATCH "
|
||||
|
||||
|
||||
Private Sub CreaDtDetalleLote()
|
||||
If DtDatosDetalleLote Is Nothing Then
|
||||
DtDatosDetalleLote = New DataTable
|
||||
@@ -1357,9 +1357,9 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End Try
|
||||
DtDatosDetalleLote.AcceptChanges()
|
||||
CargaLote()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AGREGA CON TXT | CODIGO - SERIE "
|
||||
Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -1493,12 +1493,12 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
End If
|
||||
|
||||
TxtCantidadEspecialDiv.Text = "1"
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " GUARDAR "
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -1917,7 +1917,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(CveAlmacenExA, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
|
||||
Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
|
||||
Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
|
||||
Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/GSC22")
|
||||
FolioEntrada = ObjInventario.Folio
|
||||
|
||||
If Not CveMovimientoEntradaApartado > 0 Then
|
||||
@@ -2214,7 +2214,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
Dim CveMovimientoDevolucionSinCosto = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
|
||||
Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, CveMovimientoRelacionado:=CveMovimientoSalida,
|
||||
Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4")
|
||||
Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/GSC4")
|
||||
Dim FolioDevSinCosto = ObjInventario.Folio
|
||||
|
||||
If Not CveMovimientoDevolucionSinCosto > 0 Then
|
||||
@@ -3229,160 +3229,160 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
TimmerRefresh.Enabled = True
|
||||
UpGenerales.Update()
|
||||
CargaGvDatos()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " TRASPASO - TRANSITORIO "
|
||||
Protected Sub ChkTransitorio_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
TxtResponsable.Text = ""
|
||||
DivTransitorio2.Visible = ChkTransitorio.Checked
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "SECCION ALMACEN"
|
||||
'Private Sub CreaDtSeccionAlmacen()
|
||||
' DtSeccionAlmacen = New DataTable
|
||||
' DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
|
||||
' DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
|
||||
' DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer))
|
||||
' DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
|
||||
' DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String))
|
||||
' DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
|
||||
'End Sub
|
||||
'Private Sub CargaDdlAlmacen()
|
||||
' DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
|
||||
' DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlSeccionAlmacen.DataBind()
|
||||
'End Sub
|
||||
'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
|
||||
' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
|
||||
' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
|
||||
' Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal
|
||||
' IndexSeccionAlmacen = gvRow.RowIndex
|
||||
' CvePS = gvRow.DataKey("CvePS").ToEntero
|
||||
' CargaSeccionAlmacen()
|
||||
' RegistraScript("$('#DModalSeccionAlmacen').modal()")
|
||||
'End Sub
|
||||
|
||||
'Private Sub CargaSeccionAlmacen()
|
||||
' Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
|
||||
' GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}")
|
||||
' GvSeccion.DataBind()
|
||||
|
||||
' TxtCantidadSeccion.Text = ""
|
||||
' DdlSeccionAlmacen.SelectedIndex = 0
|
||||
' Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
|
||||
' If CantidadRestante = 0 Then
|
||||
' RVTxtCantidad.MaximumValue = "1"
|
||||
' TxtCantidadSeccion.Enabled = False
|
||||
' Else
|
||||
' RVTxtCantidad.MaximumValue = CantidadRestante.ToString
|
||||
' TxtCantidadSeccion.Enabled = True
|
||||
' End If
|
||||
|
||||
' If CantidadTotalSeccion > 0 Then
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen"
|
||||
|
||||
' Else
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = ""
|
||||
|
||||
' End If
|
||||
|
||||
' If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
|
||||
' DdlAlmacen.Enabled = False
|
||||
' DdlAlmacen.ToolTip = "Cuenta con sección almacen"
|
||||
' Else
|
||||
' DdlAlmacen.Enabled = True
|
||||
' DdlAlmacen.ToolTip = ""
|
||||
' End If
|
||||
|
||||
' UpModalSeccionAlmacen.Update()
|
||||
' UpDatos.Update()
|
||||
' UpGenerales.Update()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
|
||||
|
||||
' Dim ObjInv As New ClsInventarios
|
||||
' Dim CantidadDisponible As Decimal = 0
|
||||
' If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
|
||||
' CvePS, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjInv.DtResultados.Rows.Count > 0 Then
|
||||
' CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
|
||||
' End If
|
||||
' End If
|
||||
' ObjInv.Dispose()
|
||||
|
||||
' CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen")
|
||||
|
||||
' If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
|
||||
' Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' Dim Row As DataRow = Nothing
|
||||
' DtSeccionAlmacen.AcceptChanges()
|
||||
' Row = DtSeccionAlmacen.NewRow
|
||||
' Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
|
||||
' Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
|
||||
' Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero
|
||||
' Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text
|
||||
' Row("CvePS") = CvePS
|
||||
' Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
|
||||
' DtSeccionAlmacen.Rows.Add(Row)
|
||||
' DtSeccionAlmacen.AcceptChanges()
|
||||
' CargaSeccionAlmacen()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
|
||||
' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
' Dim Index As Integer = 0
|
||||
' For Each Dr As DataRow In DtSeccionAlmacen.Rows
|
||||
' If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
|
||||
' Exit For
|
||||
' End If
|
||||
' Index += 1
|
||||
' Next
|
||||
' DtSeccionAlmacen.Rows.RemoveAt(Index)
|
||||
' DtSeccionAlmacen.AcceptChanges()
|
||||
' CargaSeccionAlmacen()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
|
||||
' If Not CveVentaSurtir > 0 Then
|
||||
' Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
|
||||
' Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' Dim ObjInv As New ClsInventarios
|
||||
' If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
' GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
|
||||
' End If
|
||||
' ObjInv.Dispose()
|
||||
' GvVerSeccionesAlmacen.DataBind()
|
||||
' UpVerSeccionesAlmacen.Update()
|
||||
' RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
|
||||
'End Sub
|
||||
|
||||
'Private Sub CreaDtSeccionAlmacen()
|
||||
' DtSeccionAlmacen = New DataTable
|
||||
' DtSeccionAlmacen.Columns.Add("CantidadSeccionAlmacen", GetType(Decimal))
|
||||
' DtSeccionAlmacen.Columns.Add("IndexSeccionAlmacen", GetType(Integer))
|
||||
' DtSeccionAlmacen.Columns.Add("CveSeccionAlmacen", GetType(Integer))
|
||||
' DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
|
||||
' DtSeccionAlmacen.Columns.Add("SeccionAlmacen", GetType(String))
|
||||
' DtSeccionAlmacen.Columns.Add("Consec", GetType(Integer))
|
||||
'End Sub
|
||||
'Private Sub CargaDdlAlmacen()
|
||||
' DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
|
||||
' DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlSeccionAlmacen.DataBind()
|
||||
'End Sub
|
||||
'Protected Sub LnkSeccionAlmacen_Click(sender As Object, e As EventArgs)
|
||||
' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
|
||||
' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
|
||||
' Alert("Tiene que tener seleccionado un almacen para registrar seccion almacen.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' CantidadTotal = gvRow.FCTextBox("TbCantidadF").Text.ToDecimal
|
||||
' IndexSeccionAlmacen = gvRow.RowIndex
|
||||
' CvePS = gvRow.DataKey("CvePS").ToEntero
|
||||
' CargaSeccionAlmacen()
|
||||
' RegistraScript("$('#DModalSeccionAlmacen').modal()")
|
||||
'End Sub
|
||||
|
||||
'Private Sub CargaSeccionAlmacen()
|
||||
' Dim CantidadTotalSeccion As Decimal = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}").SUMD("CantidadSeccionAlmacen")
|
||||
' GvSeccion.DataSource = DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {IndexSeccionAlmacen}")
|
||||
' GvSeccion.DataBind()
|
||||
|
||||
' TxtCantidadSeccion.Text = ""
|
||||
' DdlSeccionAlmacen.SelectedIndex = 0
|
||||
' Dim CantidadRestante As Decimal = CantidadTotal - CantidadTotalSeccion
|
||||
' If CantidadRestante = 0 Then
|
||||
' RVTxtCantidad.MaximumValue = "1"
|
||||
' TxtCantidadSeccion.Enabled = False
|
||||
' Else
|
||||
' RVTxtCantidad.MaximumValue = CantidadRestante.ToString
|
||||
' TxtCantidadSeccion.Enabled = True
|
||||
' End If
|
||||
|
||||
' If CantidadTotalSeccion > 0 Then
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = False
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = "Cuenta con sección almacen"
|
||||
|
||||
' Else
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").Enabled = True
|
||||
' GvDatos.Rows(IndexSeccionAlmacen).FCTextBox("TbCantidadF").ToolTip = ""
|
||||
|
||||
' End If
|
||||
|
||||
' If DtSeccionAlmacen.SUMD("CantidadSeccionAlmacen") > 0 Then
|
||||
' DdlAlmacen.Enabled = False
|
||||
' DdlAlmacen.ToolTip = "Cuenta con sección almacen"
|
||||
' Else
|
||||
' DdlAlmacen.Enabled = True
|
||||
' DdlAlmacen.ToolTip = ""
|
||||
' End If
|
||||
|
||||
' UpModalSeccionAlmacen.Update()
|
||||
' UpDatos.Update()
|
||||
' UpGenerales.Update()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
|
||||
|
||||
' Dim ObjInv As New ClsInventarios
|
||||
' Dim CantidadDisponible As Decimal = 0
|
||||
' If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlSeccionAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
|
||||
' CvePS, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjInv.DtResultados.Rows.Count > 0 Then
|
||||
' CantidadDisponible = ObjInv.DtResultados.Rows(0)("CantidadRestante").ToString.ToDecimal
|
||||
' End If
|
||||
' End If
|
||||
' ObjInv.Dispose()
|
||||
|
||||
' CantidadDisponible -= DtSeccionAlmacen.FiltraParametros($"CvePS = {CvePS} AND CveSeccionAlmacen = {DdlSeccionAlmacen.SelectedValue}").SUMD("CantidadSeccionAlmacen")
|
||||
|
||||
' If TxtCantidadSeccion.Text.ToDecimal > CantidadDisponible Then
|
||||
' Alert($"No tiene cantidad de producto suficiente en esta seccion de almacen, su cantidad restante es: <b>{CantidadDisponible}</b>", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' Dim Row As DataRow = Nothing
|
||||
' DtSeccionAlmacen.AcceptChanges()
|
||||
' Row = DtSeccionAlmacen.NewRow
|
||||
' Row("CantidadSeccionAlmacen") = TxtCantidadSeccion.Text.ToDecimal
|
||||
' Row("IndexSeccionAlmacen") = IndexSeccionAlmacen
|
||||
' Row("CveSeccionAlmacen") = DdlSeccionAlmacen.SelectedValue.ToEntero
|
||||
' Row("SeccionAlmacen") = DdlSeccionAlmacen.SelectedItem.Text
|
||||
' Row("CvePS") = CvePS
|
||||
' Row("Consec") = DtSeccionAlmacen.Rows.Count + 1
|
||||
' DtSeccionAlmacen.Rows.Add(Row)
|
||||
' DtSeccionAlmacen.AcceptChanges()
|
||||
' CargaSeccionAlmacen()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkEliminarSeccion_Click(sender As Object, e As EventArgs)
|
||||
' Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
' Dim Index As Integer = 0
|
||||
' For Each Dr As DataRow In DtSeccionAlmacen.Rows
|
||||
' If Dr("Consec").ToString.ToEntero = gvRow.DataKey("Consec").ToEntero() Then
|
||||
' Exit For
|
||||
' End If
|
||||
' Index += 1
|
||||
' Next
|
||||
' DtSeccionAlmacen.Rows.RemoveAt(Index)
|
||||
' DtSeccionAlmacen.AcceptChanges()
|
||||
' CargaSeccionAlmacen()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LnkVerSecciones_Click(sender As Object, e As EventArgs)
|
||||
' If Not CveVentaSurtir > 0 Then
|
||||
' Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' If Not DdlAlmacen.SelectedValue.ToEntero > 0 Then
|
||||
' Alert("Tiene que seleccionar el almacen", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' Dim ObjInv As New ClsInventarios
|
||||
' If ObjInv.GetExistenciaSeccionAlmacen(CveVentaSurtir, DdlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
' GvVerSeccionesAlmacen.DataSource = ObjInv.DtResultados
|
||||
' End If
|
||||
' ObjInv.Dispose()
|
||||
' GvVerSeccionesAlmacen.DataBind()
|
||||
' UpVerSeccionesAlmacen.Update()
|
||||
' RegistraScript("$('#ModalVerSeccionesAlmacen').modal()")
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "DIVIDIR"
|
||||
|
||||
|
||||
Protected Sub Dividir(sender As Object, e As EventArgs)
|
||||
Dim index2 As Integer = 0
|
||||
|
||||
@@ -3463,11 +3463,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
index2 += 1
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " GUIAS - SABE QUE ES PORQUE NO VEO QUE SE UTILIZE EN ALGUNA PARTE - EN MIRAS DE ELIMINAR - IPP 24 AGOSTO 2017 "
|
||||
Private Sub BtnNumeroGuia_Click(sender As Object, e As EventArgs) Handles BtnNumeroGuia.Click
|
||||
Dim Objeto As New ClsInventarios
|
||||
@@ -3501,11 +3501,11 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "SUGERENCIAS"
|
||||
|
||||
|
||||
Protected Sub BtnVerSugerencias_Click(sender As Object, e As EventArgs)
|
||||
If Not CveVentaSurtir > 0 Then
|
||||
Alert("Tiene que seleccionar la venta a surtir", TipoMensaje.MsgAdvertencia)
|
||||
@@ -3605,12 +3605,12 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepEntregaAlmacenSugerencia.rdlc", DtDatosSugerencias, params, "Equipo GPS")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TipoEntrega"
|
||||
|
||||
|
||||
Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
|
||||
If RbEntregaExterna.Checked Then
|
||||
RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
|
||||
@@ -3630,8 +3630,8 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
TxtNoCajas.Text = ""
|
||||
TxtObservacionesPaqInterna.Text = ""
|
||||
UpPaqInterna.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user