--Agregar productos similares o complementarios en ventas

2024-06-05 14:05:46 -07:00
parent 8fdf1c8c15
commit 52a976d9ba
10 changed files with 229 additions and 9 deletions
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -333,7 +333,7 @@ Partial Class CatPS
                End If

                If Opcion = 1 Then
-                    If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, Cantidad) Then
+                    If Not ObjPS.AddPSAdicionales(CvePSPagina, CvePSAdicional, Cantidad, 1) Then
                        Return String.Format("No se registró el producto adicional:{0} no existe en la franquicia: '{1}'", CodigoPS, GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa"))
                    End If
                End If