WEBVIEW2 una observación
Posted: Fri Jan 24, 2025 4:29 pm
saludos he agregado una función en mi proyecto que lee una pagina web que sirve para notificar el vencimiento del periodo de servicio dentro de un window pero al cerrar dicha venta debería continuar la carga de pero abandona el sistema en _ sin dar alerta y en otro como que no encuentra el recurso a cargar, por el momento he creado ese proceso en una aplicacion aparte y la cargo con waitrun()
Code: Select all | Expand
#include "fivewin.ch"
Function Main(importe,vencimiento)
local oWnd,oWebView
local cUrl := "https://casoftsystemweb.com/service-notice.html?deuda="+importe+"&vencimiento="+vencimiento
DEFINE WINDOW oWnd FROM 0,0 TO 50,60 TITLE "AVISO DE VENCIMIENTO DE SERVICIOS" STYLE nOr(WS_SYSMENU)
oWnd:Show()
oWebView = TWebView2():New( oWnd )
oWebView:Navigate( cUrl )
oWebView:SetUserAgent( "Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.5060.53 Mobile Safari/537.36" )
ACTIVATE WINDOW oWnd CENTER ;
ON RESIZE oWebView:SetSize( nWidth, nHeight-50 )
oWebView:End()
Return