iOS Question share on WeChat

[Paul Garcia]

weChat
data access error. It cannot be shared on WeChat.
I need to share through the wechat application and it shows me the following error, could you tell me if I lack any permission or library to allow me to share.

 

[Erel]

More information please. Post the relevant code and a screenshot with the message.

 

[Paul Garcia]

Good morning, I attach images of the error that it shows me when sharing by wechat on IOS device.

 

[Erel]

Now the relevant code. You are probably sharing something that is not supported by WeChat. You need to check their documentation.

 

[Paul Garcia]

Good morning, I am attaching code where I only share text, but in wechat it shows me the error.

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[Paul Garcia]

Sub icon_share_Click
    Dim index As Int
    Dim m As Map
    Dim text_compartir As String
    Select posicionTabScript
        Case WS_TODOS
            index= clv_todos.GetItemFromView(Sender)
            m=lista_embarques_todos.Get(index)
        Case WS_MARITIMOS
            index= clv_maritimo.GetItemFromView(Sender)
            m=lista_embarques_maritimo.Get(index)
        Case WS_AERERO
            index= clv_aereo.GetItemFromView(Sender)
            m= lista_embarques_aereo.Get(index)
        Case WS_WAREHOUSE
            index= clv_warehouse.GetItemFromView(Sender)
            m= lista_warehouse.Get(index)
    End Select
    If posicionTabScript= WS_WAREHOUSE Then
        If idioma_actual="ES" Then
            text_compartir="Agente: "&m.Get("nombreAgente")&CRLF&"Warehouse: "&m.Get("idWarehouse")&CRLF&"F. recep: "&m.Get("fechaRecepcion")
        Else
            text_compartir="Agent: "&m.Get("nombreAgente")&CRLF&"Warehouse: "&m.Get("idWarehouse")&CRLF&"Recep. Date: "&m.Get("fechaRecepcion")
        End If
        
    Else
        If idioma_actual="ES" Then
            text_compartir ="Pedido: "&m.Get("pedido")&CRLF&"Origen: "&m.Get("puertoEmbarque")&CRLF&"Destino: "&m.Get("puertoDestino")&CRLF&"Estado: "&m.Get("estadoEmbarque")&CRLF&"ETD: "&m.Get("fechaSalida")&CRLF&"ETA: "&m.Get("fechaLlegada")
        Else
            text_compartir ="Order: "&m.Get("pedido")&CRLF&"Origin: "&m.Get("puertoEmbarque")&CRLF&"Destination: "&m.Get("puertoDestino")&CRLF&"State: "&m.Get("estadoEmbarque")&CRLF&"ETD: "&m.Get("fechaSalida")&CRLF&"ETA: "&m.Get("fechaLlegada")
        End If
        
    End If
    Try
        Dim avc As ActivityViewController
        avc.Initialize("avc", Array(text_compartir,Null))
        avc.Show(Page1, Page1.RootPanel) 'Second parameter is relevant for iPad only. The arrow will point to the view.
    Catch
        Log(LastException)
    End Try
    
End Sub

 

[Erel]

Try it with:

avc.Initialize("avc", Array(text_compartir)) 'no Null
 avc.Show(Page1, a small view here) 'relevant to iPad only