--Agregar productos similares o complementarios en ventas

Compras/PopUpVerFactura.aspx.vb

@@ -346,7 +346,7 @@ Partial Class PopUpVerFactura
         Dim totalPallets As String = ""
         Dim totalBachas As String = ""
         Dim dfec As DateTime = fecha.ToDateTime()
-        Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0dd} DE {0:MMMM} DEL {0:yyyy}", dfec).ToUpper()
+        Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0:dd} DE {0:MMMM} DEL {0:yyyy}", dfec).ToUpper()
         Dim totalcajas As String = ""
         Dim TotalBins As String = ""
 
@@ -1589,6 +1589,16 @@ Partial Class PopUpVerFactura
         '    End If
         'End If
 
+        If DtCortesVentas.Rows.Count > 0 Then
+            Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
+
+            If RowInfo IsNot Nothing Then
+                Fecha = RowInfo("FechaInicial").ToString
+                Nombre = RowInfo("Nombre").ToString
+            End If
+
+        End If
+
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
             If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
                 DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("CveCorte > 0")