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

Actualizar precios mediante globaldtsimplificado

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-06-23 11:24:51 -07:00
parent 4af5b728da
commit c8ec977ee3
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -559,7 +559,7 @@ Partial Class Ventas_ActualizarPrecios
For Each Franquicia In Franquicias For Each Franquicia In Franquicias
Dim CveFranquicia As Integer = Franquicia.ToEntero Dim CveFranquicia As Integer = Franquicia.ToEntero
Dim CvePS As Integer = GlobalDTPS(CveFranquicia, Codigo:=Codigo.ToUpper).FiltroPrimeroValor("CvePS", "").ToEntero Dim CvePS As Integer = GlobalDTPSSimplificado(CveFranquicia, Codigo:=Codigo).FiltroPrimeroValor("CvePS", "").ToEntero
Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", PrecioLista)).ToEntero Dim CvePrecioLisa As Integer = GlobalDTPrecioListas(CveFranquicia).FiltroPrimeroValor("CvePrecioLista", String.Format("PrecioLista = '{0}'", PrecioLista)).ToEntero
If CvePS <= 0 Then If CvePS <= 0 Then

3
Ventas/ProductosServicios.aspx.vb
View File

@@ -2944,7 +2944,10 @@ Partial Class ProductosyServicios
Return True Return True
End If End If
End If End If
GlobalDTPSSimplificado(CveEmpresaFranquicia) = Nothing
Next Next
Return False Return False
End Function End Function