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

SMS - Entrega almacén. con lotes

Browse Source
This commit is contained in:
rakcsle
2024-05-16 18:01:31 -07:00
parent 4bf36aaf59
commit 2b6e0233d7
6 changed files with 331 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
CargaGvDatos()
End Sub
Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1)
Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
If DtDatos IsNot Nothing Then
@@ -1054,10 +1054,10 @@ Partial Class Inventarios_EntregaAlmacen
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then
GvDatos.Columns(10).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
End If
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
'SugerirFecha()
If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
'SugerirFecha()
If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
If CargaBitacora Then
@@ -4182,8 +4182,13 @@ Partial Class Inventarios_EntregaAlmacen
Next
DtDatos.AcceptChanges()
CargaGvDatos()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
CargaGvDatos(False)
Else
CargaGvDatos(True)
End If
index2 = 0
For Each Row As DataRow In DtDatos.Rows
GvDatos.Rows(index2).FCCheckBox("cbInv").Checked = CBool(Row("Seleccionado"))
@@ -4328,8 +4333,8 @@ Partial Class Inventarios_EntregaAlmacen
End Sub
Private Sub RecargaporAlmacenes()
If DdlAlmacen.SelectedValue <> "-1" Then
CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
CargaGvDatos()
End If
End Sub

6
Inventarios/RepExistenciasCostos.aspx
View File

@@ -146,9 +146,13 @@
<asp:GridView ID="GvM" runat="server" ShowHeader="True" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
<Columns>
<asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
<asp:BoundField HeaderText="Almacen" DataField="Almacen" />
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
<asp:BoundField HeaderText="Concepto" DataField="Concepto" />
<asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
<asp:BoundField HeaderText="Folio Doc." DataField="FolioDocto" />
<asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>

188
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -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