Serie lote en poliza virtual

Ventas/Ventas.aspx.vb

@@ -18244,9 +18244,11 @@ Partial Class Ventas
                     Exit Sub
                 End If
                 If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
-                    Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                    'sb.Append("<b>No encontrado</b> <br/>")
+                    If Not String.IsNullOrEmpty(FolioFiscal) Then
+                        Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                    sb.Append("<b>No encontrado</b> <br/>")
                 Else
                     sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                 End If
@@ -23859,8 +23861,8 @@ Partial Class Ventas
                 obj.sale_id = String.Format("{0}{1}{2}", ObjFactura.Serie, ObjFactura.Folio, ObjFactura.CveVenta)
 
                 'DATOS DEL PRODUCTO
-                obj.product_code = Row("Code17").ToString()
-                obj.product_unique_code = "" 'se indique el código único de la batería. 
+                obj.product_code = Row("IdProductoPolizaVirtual").ToString()
+                obj.product_unique_code = Row("SerieLote").ToString() 'se indique el código único de la batería. (SERIE LOTE)
                 obj.product_sale_type = "01 " 'VENTA
 
                 Dim FechaUsado As DateTime = Row("FechaAjuste").ToString().ToDateTime()