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 algunos caso 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()
#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
