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

Mejoras Manejo Lote/Caducidad

Browse Source
This commit is contained in:
rrene
2021-03-03 18:35:44 -07:00
parent 54601da4d0
commit 1c74a7f11c
2 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/AjustesSeccionAlmacen.aspx
View File

@@ -135,7 +135,7 @@
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<asp:Button ID="BtnCambiarSeccion" runat="server" Text="Cambiar Sección" CssClass="btn btn-primary" /> <asp:Button ID="BtnCambiarSeccion" runat="server" Text="Aplicar Cambios" CssClass="btn btn-primary" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<div id="DivCargaExcel" class="modal ADS fade" role="dialog"> <div id="DivCargaExcel" class="modal ADS fade" role="dialog">

22
Inventarios/AjustesSeccionAlmacen.aspx.vb
View File

@@ -177,11 +177,14 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If End If
'actualizamos el PS, para que tenga el aplica seccion 'actualizamos el PS, para que tenga el aplica seccion
If Lista.ContainsKey(CvePS) Then If CveSeccionAlmacen > 0 Then
ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True) If Lista.ContainsKey(CvePS) Then
End If ObjPS.UpdateAplicaSeccionAlmacen(Row("CvePS").ToString().ToEntero(), UsuarioActual.CveEmpresa, True)
If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then End If
ErrorMovInv = True If Not ObjInventario.AddProductosServiciosAlmacenSeccion(CvePS, CveAlmacen, CveSeccionAlmacen) Then
ErrorMovInv = True
End If
End If End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
@@ -388,6 +391,8 @@ Partial Class Inventarios_AjustesSeccionAlmacen
dtSecciones.CaseSensitive = False dtSecciones.CaseSensitive = False
Dim resultado As DataTable = Nothing Dim resultado As DataTable = Nothing
DtExcel = DtExcel.FiltraParametros("Código <> ''")
For Each RowExcel As DataRow In DtExcel.Rows For Each RowExcel As DataRow In DtExcel.Rows
Dim Codigo As String = RowExcel("Código").ToString.Trim() Dim Codigo As String = RowExcel("Código").ToString.Trim()
@@ -395,7 +400,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo='{Codigo}'") Dim DrPS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo='{Codigo}'")
If DrPS IsNot Nothing Then If Codigo <> "" AndAlso DrPS IsNot Nothing Then
If Not ErrorMovInv Then If Not ErrorMovInv Then
Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal() Dim CantidadEntrada As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
@@ -478,7 +483,10 @@ Partial Class Inventarios_AjustesSeccionAlmacen
End If End If
If RowExistencia Is Nothing Then If RowExistencia Is Nothing Then
ExistenciasNoEncontradas.AppendFormat("{0} - S:{1}<br/>", Codigo, Serie) Dim str As String = ""
If Serie <> "" Then Serie = String.Format(" - Serie:{0} ")
ExistenciasNoEncontradas.AppendFormat("{0} {1}<br/>", Codigo, str)
ErrorMovInv = True ErrorMovInv = True
End If End If