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

option explciit

Browse Source
This commit is contained in:
rrene
2023-09-27 07:17:16 -07:00
parent b607b5aad7
commit cc84ef2e59
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -122,7 +122,7 @@ Partial Class Inventarios_Default
GV.DataSource = ObjInventarios.DtResultados
Else
GV.DataSource = Nothing
Dim Js = If(Tipo = 1, "", "window.setTimeout(Focus,200);")
Dim Js As String = If(Tipo = 1, "", "window.setTimeout(Focus,200);")
Alert("No se encontraron registros con los parámetros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
End If
End If
@@ -237,7 +237,7 @@ Partial Class Inventarios_Default
Exit Sub
End If
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
Dim DrPS As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
If DrPS Is Nothing Then
Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
TxtCodigoPS.Text = ""