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

-- si es SMS-angeles, con 5 partidas, que se pueda surtir

Browse Source
This commit is contained in:
rrene
2024-05-17 18:16:03 -07:00
parent 1e7651bec9
commit 076398d103
1 changed files with 21 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2052,21 +2052,7 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
Next Next
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 Then
If NumRegistros > 5 Then
Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Else
If NumRegistros > 10 Then
Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
End If
'ValidaSeccion = False 'ValidaSeccion = False
'ValidaCaducidad = False 'ValidaCaducidad = False
@@ -2103,7 +2089,25 @@ Partial Class Inventarios_EntregaAlmacen
End If End If
If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then
If Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped")) Then ' condicion si hay una devolucion de remision, no verifique la totalidad surtido Dim ValidaSalidaCompleta As Boolean = Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped"))
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 Then
If NumRegistros > 5 Then
Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Else
If NumRegistros > 10 Then
Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
ValidaSalidaCompleta = False
End If
If ValidaSalidaCompleta Then ' condicion si hay una devolucion de remision, no verifique la totalidad surtido
For Each Gvr As GridViewRow In GvDatos.Rows For Each Gvr As GridViewRow In GvDatos.Rows
If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString().ToDecimal) Then If Not Gvr.FCCheckBox("cbInv").Checked Or (Gvr.FCCheckBox("cbInv").Checked AndAlso Gvr.FCTextBox("TbCantidadF").Text.ToDecimal <> Gvr.DataKey("CantidadC").ToString().ToDecimal) Then
Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("Es necesario surtir todos los productos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)