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

-

Browse Source
This commit is contained in:
rrene
2023-12-08 08:29:39 -07:00
parent 805962d88e
commit 5520068c26
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Ventas.aspx.vb
View File

@@ -21596,8 +21596,8 @@ Partial Class Ventas
'BUSCA POR CODIGO DE BARRAS 'BUSCA POR CODIGO DE BARRAS
If Not CvePS > 0 AndAlso TxtCodigoBarras.Text.Trim() <> "" Then If Not CvePS > 0 AndAlso TxtCodigoBarras.Text.Trim() <> "" Then
CodigoBarras = TxtCodigoBarras.Text.Trim()
DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}'") DrProducto = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text.Trim()}'")
If DrProducto IsNot Nothing Then If DrProducto IsNot Nothing Then
If DrProducto("Inv_CveMetodoInventario").ToString() = "5" OrElse DrProducto("AplicaSerie").ToString = "True" Then 'si es serie If DrProducto("Inv_CveMetodoInventario").ToString() = "5" OrElse DrProducto("AplicaSerie").ToString = "True" Then 'si es serie
TxtCodigoSerie.Focus() TxtCodigoSerie.Focus()