--producto alterno en vista previa

Ventas/Ventas.aspx.vb

@@ -2664,7 +2664,8 @@ Partial Class Ventas
                         TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
                         TmpDT.Columns("NumTurnos").DefaultValue = 0D
                         TmpDT.Columns.Add("NumeroPedimento", GetType(String))
-
+                        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+                        TmpDT.Columns.Add("PSAlterno", GetType(String))
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -2713,7 +2714,8 @@ Partial Class Ventas
                         TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
                         TmpDT.Columns("NumTurnos").DefaultValue = 0D
                         TmpDT.Columns.Add("NumeroPedimento", GetType(String))
-
+                        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+                        TmpDT.Columns.Add("PSAlterno", GetType(String))
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -4583,6 +4585,8 @@ Partial Class Ventas
                         TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
                         TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal))
                         TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
+                        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+                        TmpDT.Columns.Add("PSAlterno", GetType(String))
                     End If
 
                     CargaAFVenta()
@@ -18515,6 +18519,9 @@ Partial Class Ventas
 
             Row("NumTurnos") = NumTurnos
 
+            Row("CodigoAlterno") = DrPS("CodigoAlterno")
+            Row("PSAlterno") = DrPS("PSAlterno")
+
             If UsuarioActual.CveEmpresa.Contiene(119, 13, 83) Then
                 If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
 
@@ -18759,6 +18766,9 @@ Partial Class Ventas
         TmpDT.Columns("NumTurnos").DefaultValue = 0
         TmpDT.Columns.Add("NumeroPedimento", GetType(String))
 
+        TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+        TmpDT.Columns.Add("PSAlterno", GetType(String))
+
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable
@@ -28975,6 +28985,8 @@ Partial Class Ventas
             'TmpDT.Columns.Add("CveActivoFijo", GetType(Integer))
             TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal))
             TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
+            TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+            TmpDT.Columns.Add("PSAlterno", GetType(String))
         End If
         Dim FechaFactura As DateTime = NowADS()
 
@@ -34129,6 +34141,8 @@ Partial Class Ventas
             TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
             TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal))
             TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
+            TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+            TmpDT.Columns.Add("PSAlterno", GetType(String))
         End If
 
         If ObjVentas.GetVenta(CveVentaNC, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then