Ajustes Formato General OC

This commit is contained in:
rakcsle
2024-06-13 16:33:42 -07:00
parent aa5678c6f5
commit b0df315e00
4 changed files with 41 additions and 15 deletions

View File

@@ -2100,11 +2100,12 @@ Partial Class Inventarios_EntregaAlmacen
'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
'SoloNumeros entrega
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 9
If Not EsDevolucionVenta = 1 Then
If CveCliente = 819998 Then
If NumRegistros > 9 Then
Alert("Solo se pueden recibir máximo 8 partidas.", TipoMensaje.MsgAdvertencia)
Alert("Solo se pueden recibir máximo 9 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Else