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

Ajustes Formato traslado angeles SMS

Browse Source
This commit is contained in:
rakcsle
2024-06-10 11:47:18 -07:00
parent 271948adec
commit 4413e28341
2 changed files with 124 additions and 843 deletions
Download Patch File Download Diff File Expand all files Collapse all files

945
Empresas/186/Formatos/TrasladoAngeles.rdlc
View File

File diff suppressed because it is too large Load Diff

22
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2098,18 +2098,22 @@ Partial Class Inventarios_EntregaAlmacen
Dim ValidaSalidaCompleta As Boolean = Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped")) Dim ValidaSalidaCompleta As Boolean = Not (EsDevolucionVenta = 1 And TipoDocto.Contiene("Rem", "Ped"))
'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR 'LIMITAR EL NUMERO DE PARTIDAS QUE SE PUEDEN ENTREGAR
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5 'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5
If CveCliente = 819998 And Not EsDevolucionVenta = 1 Then If Not EsDevolucionVenta = 1 Then
If NumRegistros > 5 Then If CveCliente = 819998 Then
Alert("Solo se pueden recibir máximo 5 partidas.", TipoMensaje.MsgAdvertencia) If NumRegistros > 9 Then
Exit Sub Alert("Solo se pueden recibir máximo 8 partidas.", TipoMensaje.MsgAdvertencia)
End If Exit Sub
Else End If
If NumRegistros > 10 Then Else
Alert("Solo se pueden recibir máximo 10 partidas.", TipoMensaje.MsgAdvertencia) If NumRegistros > 10 Then
Exit Sub Alert("Solo se pueden recibir máximo 10 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If End If
End If End If
ValidaSalidaCompleta = False ValidaSalidaCompleta = False
End If End If