From 2191b4db7959622eefae42b9c246350cd088288c Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 7 Mar 2022 16:13:47 -0700 Subject: [PATCH] =?UTF-8?q?--=20descripci=C3=B3n=20de=20registro=20de=20p?= =?UTF-8?q?=C3=B3liza=20virtual?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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()