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

- mejoras en lote/cad

Browse Source
This commit is contained in:
rrene
2021-06-09 07:44:25 -07:00
parent 7d4cd44558
commit 0a95c596e2
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1331,7 +1331,7 @@ Partial Class Inventarios_EntradasSalidas
tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
End If End If
If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.Contiene(10276) Then If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
FechaCaducidadVal = MinFecha FechaCaducidadVal = MinFecha
FechaCaducidad = MinFecha FechaCaducidad = MinFecha
Lote = "" Lote = ""
@@ -3845,16 +3845,16 @@ Partial Class Inventarios_EntradasSalidas
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim CveUM As Integer Dim CveUM As Integer
Dim Mensaje As String = "" Dim Mensaje As String = ""
Dim FechaCaducidad As Date 'Dim FechaCaducidad As Date
Dim lote As String 'Dim lote As String
If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
If ObjProductosServicios.DtResultados.Rows.Count > 0 Then If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
End If End If
End If End If
FechaCaducidad = If(ObjProductosServicios.AplicaCaducidad, TxtCaducidadSalida.Text.ToDate, MinFecha) Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
lote = If(ObjProductosServicios.AplicaLote, TxtLoteSalida.Text.ToString, "-1") Dim FechaCaducidad As Date = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text).ToDate
If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=lote, FechaCaducidad:=FechaCaducidad) >= TxtCantidadSalidaInv.Text.ToDouble Then If ObjInventario.GetExistenciasPS(DdlPSSalida.SelectedValue.ToEntero, CveUM, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=lote, FechaCaducidad:=FechaCaducidad) >= TxtCantidadSalidaInv.Text.ToDouble Then
If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then If Not DdlPSSalida.SelectedValue.ToEntero > 0 Then