diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index beeb7be43..cbefbde0b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -32615,13 +32615,13 @@ Partial Class Ventas
                     If resp(0)("Codigo").ToString().Contiene("500", "501", "502", "503", "504", "505", "506", "507", "508", "510") Then
                         Retorno = True
                         Dim ObjAcum As New ClsAcumuladores
-                        If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, True, Now, obj.product_unique_code) Then
+                        If ObjAcum.UpdateEnvioPolizaVirtual(CvePolizaVirtual, True, Now, obj.product_unique_code, resp(0)("Descripcion").ToString()) Then
                             Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
                         End If
                         ObjAcum.Dispose()
                     Else
                         Dim ObjAcum As New ClsAcumuladores
-                        If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, False, Now, obj.product_unique_code) Then
+                        If ObjAcum.UpdateEnvioPolizaVirtual(CvePolizaVirtual, False, Now, obj.product_unique_code, resp(0)("Descripcion").ToString()) Then
                             Alert(Msg.ToString(), TipoMensaje.MsgAdvertencia)
                         End If
                         ObjAcum.Dispose()