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

10
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2098,10 +2098,12 @@ 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
Alert("Solo se pueden recibir máximo 8 partidas.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Else Else
@@ -2110,6 +2112,8 @@ Partial Class Inventarios_EntregaAlmacen
Exit Sub Exit Sub
End If End If
End If End If
End If
ValidaSalidaCompleta = False ValidaSalidaCompleta = False
End If End If