Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -7777,6 +7777,11 @@ Partial Class Ventas
                         e.Row.FCLiteral("LtCantidadFacturada").Text = e.Row.DBCampo("CantidadFacturadaPed2").ToDecimal.ToString("#,##0.##")
                 End Select
 
+                If EsCreaApartirDe Then
+                    e.Row.FCLinkButton("imgD").Visible = True
+                    e.Row.FCLinkButton("imgE").Visible = True
+                End If
+
                 'If GvInv.Rows.Count > 0 AndAlso ModalidadEdicion AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso e.Row.DataKey("CveVentaDetalle").ToString().ToEntero() > 0 Then
                 '    e.Row.FCLinkButton("imgE").Enabled = False
                 '    e.Row.FCLinkButton("imgE").ToolTip = "No se puede editar debido a que ya hay un movimiento de almacen."
@@ -33201,6 +33206,15 @@ Partial Class Ventas
             UpFacturar.Update()
         End If
         ObjVentas.Dispose()
+
+        'REGENERAR EL PDF
+        Try
+            Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port)
+            Dim Hilo As New System.Threading.Thread(Sub() RegenerarPDF(CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, strURLHOST))
+            Hilo.Start()
+        Catch ex As Exception
+            OnError("Ocurrió un error al regenerar el PDF", ex)
+        End Try
     End Sub
 
     Private Function DeshabilitarAplicarNotaDeCredito(RFC As String) As Boolean