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

Entradas Salidas opción inventario fisico carga Excel ajuste se valida y lista códigos no encontrados

Browse Source
This commit is contained in:
rakcsle
2024-12-19 11:20:07 -07:00
parent 03ee32ff87
commit 99326ca7b3
1 changed files with 23 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -6089,21 +6089,36 @@ Partial Class Inventarios_EntradasSalidas
dt.TableName = "Datos"
Dim TieneError As Boolean = False
Dim TieneErrorCodigos As Boolean = False
Try
If DdlAlmacenInventarioFisico.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPS.SelectedText = "" : Exit Sub
Dim sbNoencontrados As New StringBuilder
For Each row As DataRow In dt.Rows
Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, Codigo:=row("Codigo").ToString(), Estatus:=-1).FiltroPrimero("")
Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero()
If row("EntradaSalida").ToString() = "1" Then
AddPSEntrada(CvePS, row("Diferencia").ToString().ToDecimal(), row("Costo").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
If DrPS IsNot Nothing Then
Dim CvePS As Integer = DrPS("CvePS").ToString().ToEntero()
If row("EntradaSalida").ToString() = "1" Then
AddPSEntrada(CvePS, row("Diferencia").ToString().ToDecimal(), row("Costo").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
Else
AddPSSalida(CvePS, row("Diferencia").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
End If
Else
AddPSSalida(CvePS, row("Diferencia").ToString().ToDecimal(), Sonido:=False, CargaGV:=False)
TieneError = True
TieneErrorCodigos = True
sbNoencontrados.Append($"{row("Codigo").ToString}<br>")
End If
Next
If sbNoencontrados.Length > 0 Then
Alert($"No se encontraron los siguientes códigos. <br> {sbNoencontrados.ToString}", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
CargaGvSalidas(DtMovimientosSalidaInvFisico)
CargaGvEntradas(DtMovimientosEntradaInvFisico)
Catch ex As Exception
@@ -6122,7 +6137,10 @@ Partial Class Inventarios_EntradasSalidas
CargaGvSalidas(DtMovimientosSalidaInvFisico)
CargaGvEntradas(DtMovimientosEntradaInvFisico)
Alert("Ocurrió un error al cargar los datos", TipoMensaje.MsgError)
If Not TieneErrorCodigos Then
Alert("Ocurrió un error al cargar los datos", TipoMensaje.MsgError)
End If
Else
If DtMovimientosEntradaInvFisico.Rows.Count <> dt.FiltraParametros("EntradaSalida = 1").Rows.Count Then
Alert("No se cargaron todas las entradas.", TipoMensaje.MsgAdvertencia)