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

-- mejora en recorrido de excel

Browse Source
This commit is contained in:
rrene
2024-05-17 15:25:13 -07:00
parent b4c056c58e
commit 8aac3d3451
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -590,7 +590,7 @@ Partial Class Ventas_ActualizarPrecios
'ObjPS.IniciaTransacSQL() 'ObjPS.IniciaTransacSQL()
Try Try
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
For Each row As DataRow In dt.Rows For Each row As DataRow In dt.FiltraParametros("Código <> ''").Rows
Dim Correcto As Boolean = False Dim Correcto As Boolean = False
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}'", row(0).ToString())).ToEntero Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}'", row(0).ToString())).ToEntero