SMS - Entrega almacén. con lotes
This commit is contained in:
rakcsle
@@ -85,9 +85,12 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
End Sub
|
||||
Private Sub CargaPermisos()
|
||||
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
|
||||
GvM.Columns(6).Visible = TienePermisoImportes
|
||||
'GvM.Columns(6).Visible = TienePermisoImportes
|
||||
'GvM.Columns(8).Visible = TienePermisoImportes
|
||||
'GvM.Columns(10).Visible = TienePermisoImportes
|
||||
GvM.Columns(8).Visible = TienePermisoImportes
|
||||
GvM.Columns(10).Visible = TienePermisoImportes
|
||||
GvM.Columns(11).Visible = TienePermisoImportes
|
||||
|
||||
End Sub
|
||||
Public Sub CargaCombos()
|
||||
@@ -214,9 +217,9 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
|
||||
e.Row.Cells(6).Visible = TienePermisoImportes
|
||||
e.Row.Cells(8).Visible = TienePermisoImportes
|
||||
e.Row.Cells(10).Visible = TienePermisoImportes
|
||||
e.Row.Cells(12).Visible = TienePermisoImportes
|
||||
|
||||
Select Case e.Row.DBCampo("Orden").ToEntero
|
||||
Case 10
|
||||
@@ -226,18 +229,19 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(0).ColumnSpan = 3
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).Visible = False
|
||||
|
||||
e.Row.Cells(5).Text = ""
|
||||
e.Row.Cells(6).Text = ""
|
||||
e.Row.Cells(3).Visible = False
|
||||
|
||||
e.Row.Cells(7).Text = ""
|
||||
e.Row.Cells(8).Text = ""
|
||||
e.Row.Cells(9).Text = ""
|
||||
e.Row.Cells(10).Text = ""
|
||||
e.Row.Cells(11).Text = ""
|
||||
e.Row.Cells(12).Text = ""
|
||||
Case 15
|
||||
If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
|
||||
e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
|
||||
e.Row.Cells(2).Text = ""
|
||||
e.Row.Cells(3).Text = ""
|
||||
End If
|
||||
Case 20
|
||||
e.Row.CssClass = "SubTotales"
|
||||
@@ -246,18 +250,18 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(0).ColumnSpan = 3
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).Visible = False
|
||||
e.Row.Cells(3).Visible = False
|
||||
|
||||
e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
|
||||
e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
|
||||
e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
|
||||
e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
|
||||
GvM.Columns(3).Visible = ChkActivoFijo.Checked
|
||||
GvM.Columns(4).Visible = ChkSubProyecto.Checked
|
||||
GvM.Columns(5).Visible = ChkActivoFijo.Checked
|
||||
GvM.Columns(6).Visible = ChkSubProyecto.Checked
|
||||
UPPEquiv.Update()
|
||||
End Sub
|
||||
|
||||
@@ -308,169 +312,7 @@ Partial Class Inventarios_RepExistenciasCostos
|
||||
#End Region
|
||||
|
||||
|
||||
'#Region "UNIFICAR PS"
|
||||
' Protected Sub BtnCargaPS_Click(sender As Object, e As EventArgs)
|
||||
' CargaPS()
|
||||
' End Sub
|
||||
' Private Sub CargaPS()
|
||||
' Dim DtPS As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
|
||||
|
||||
' DdlPSPrimario.Items.Clear()
|
||||
' DdlPSUnificado.Items.Clear()
|
||||
' DdlPSPrimario.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlPSUnificado.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
' DdlPSPrimario.DataSource = DtPS
|
||||
' DdlPSUnificado.DataSource = DtPS
|
||||
' DdlPSPrimario.DataBind()
|
||||
' DdlPSUnificado.DataBind()
|
||||
' DtPS.Dispose()
|
||||
' End Sub
|
||||
' Protected Sub BtnUnificarPS_Click(sender As Object, e As EventArgs)
|
||||
' If DdlPSPrimario.SelectedValue = DdlPSUnificado.SelectedValue Then
|
||||
' Alert("El Producto/Servicio a unificar no puede ser el mismo al primario. Por favor verifique y vuelva a intetar.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' 'Dim ObjPS As New ClsProductosServicios()
|
||||
|
||||
' 'If ObjPS.UnificarPS(DdlPSPrimario.SelectedValue.ToEntero, DdlPSUnificado.SelectedValue.ToEntero) Then
|
||||
' ' Alert("El Producto/Servicio Fue unificado correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
' ' RegistraScript("$get('DivUnificarPS').style.display='none';")
|
||||
' ' DdlPSPrimario.SelectedValue = "-1"
|
||||
' ' DdlPSUnificado.SelectedValue = "-1"
|
||||
' ' 'CargaPS()
|
||||
' 'Else
|
||||
' ' Alert("Ocurrió un error al unificar el Producto/Servicio. Por favor vuelta a intentar.", TipoMensaje.MsgError)
|
||||
' 'End If
|
||||
|
||||
' 'ObjPS.Dispose()
|
||||
|
||||
' Dim CveMovimientoSalida = 0
|
||||
' Dim CveMovimientoEntrada = 0
|
||||
' Dim Existencia As Double
|
||||
|
||||
' Dim IDPoliza As Integer = 0
|
||||
' Dim Folio = 0
|
||||
' Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
|
||||
|
||||
' Dim TieneError = False
|
||||
' Dim TextoError = ""
|
||||
' Dim ObjInventario As New ClsInventarios
|
||||
' ObjInventario.IniciaTransacSQL()
|
||||
|
||||
' Dim DtAlmacenes As New DataTable
|
||||
|
||||
' If ObjInventario.GetAlmacenes() Then
|
||||
' DtAlmacenes = ObjInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
|
||||
' Else
|
||||
' TieneError = True
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
' If Not TieneError Then
|
||||
' Dim CvePSPrimario = 0
|
||||
' Dim CveUMPrimario = 0
|
||||
' Dim CvePSUnificado = 0
|
||||
' Dim CveUMUnificado = 0
|
||||
' Dim DTPS1 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSPrimario.SelectedValue.ToEntero))
|
||||
' Dim DTPS2 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSUnificado.SelectedValue.ToEntero))
|
||||
|
||||
' For Each dr As DataRow In DtAlmacenes.Rows
|
||||
' CvePSPrimario = DTPS1.Rows(0)("CvePS").ToString.ToEntero
|
||||
' CveUMPrimario = DTPS1.Rows(0)("CveUM").ToString.ToEntero
|
||||
' CvePSUnificado = DTPS2.Rows(0)("CvePS").ToString.ToEntero
|
||||
' CveUMUnificado = DTPS2.Rows(0)("CveUM").ToString.ToEntero
|
||||
|
||||
|
||||
' 'VALIDA LA EXISTENCIA
|
||||
' Existencia = ObjInventario.GetExistenciasPS(CvePSUnificado, CveUMUnificado, UsuarioActual.CveEmpresa, dr("CveAlmacen").ToString.ToEntero)
|
||||
|
||||
|
||||
' 'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
|
||||
' If Existencia > 0 Then
|
||||
|
||||
' 'AGREGAMOS LA SALIDA
|
||||
' Folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
|
||||
' CveMovimientoSalida = ObjInventario.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
|
||||
|
||||
' If CveMovimientoSalida > 0 Then
|
||||
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Existencia, CveUMUnificado, CvePSUnificado, 0, -1) Then
|
||||
' TieneError = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de salida"
|
||||
' Exit For
|
||||
' End If
|
||||
' Else
|
||||
' TieneError = True
|
||||
' TextoError = "No se pudo generar el movimiento de salida correctamente"
|
||||
' Exit For
|
||||
' End If
|
||||
|
||||
|
||||
' 'AGREGAMOS LA ENTRADA
|
||||
' Folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
|
||||
' CveMovimientoEntrada = ObjInventario.AddMovimiento(1, 2, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
|
||||
|
||||
' If CveMovimientoEntrada > 0 Then
|
||||
|
||||
' If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
' For Each dr2 As DataRow In ObjInventario.DtResultados.Rows
|
||||
' If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr2("Cantidad").ToString.ToDouble, dr2("CveUM").ToString.ToEntero, CvePSPrimario, dr2("PU").ToString.ToDouble, -1) Then
|
||||
' TieneError = True
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' If TieneError Then Exit For
|
||||
' Else
|
||||
' Exit For
|
||||
' TextoError = "Ocurrió un error al guardar los movimientos de entrada"
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' TieneError = True
|
||||
' TextoError = "No se pudo generar el movimiento de entrada correctamente"
|
||||
' Exit For
|
||||
' End If
|
||||
|
||||
' End If
|
||||
|
||||
' Next
|
||||
' DTPS1.Dispose()
|
||||
' DTPS2.Dispose()
|
||||
' End If
|
||||
|
||||
|
||||
' If Not TieneError Then
|
||||
' ObjInventario.Commit()
|
||||
' Alert("El producto se ha unificado correctamente.", TipoMensaje.MsgInformacion)
|
||||
' CargaPS()
|
||||
' Else
|
||||
' ObjInventario.RollBack()
|
||||
' Alert(TextoError, TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' ObjInventario.Dispose()
|
||||
' End Sub
|
||||
|
||||
' Private Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
|
||||
' If DdlClasificacion.SelectedValue = "-1" Then
|
||||
' ddlProducto.DataSource = TmpPS
|
||||
' Else
|
||||
' If isWhitFamily() Then
|
||||
' ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue), "PS")
|
||||
' Else
|
||||
' ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "PS")
|
||||
' End If
|
||||
' End If
|
||||
' ddlProducto.Items.Clear()
|
||||
' ddlProducto.DataBind()
|
||||
' ddlProducto.Items.Insert(0, New ListItem("----", "-1"))
|
||||
' End Sub
|
||||
' #End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user