La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  60084 - EJECUTAR FORMULARIO VFP DESDE INTERNET
Autor:  Daniel Perez
Un Saludos a Todos, mi consulta es esta ya que recien empiezo con VFP9, tengo un programa (formularios, consultas en forma local y la tabla principal en un servidor con Windows 2003).
Como puedo lograr que solo se ejecute el formulario de consulta desde un browser, para que todos los usuarios no tengan que cargar el programa completo si solo van a consultar.

Desde ya muchas gracias.
Saludos a Todos
  Respuesta:  Guadalupe Leija
Hola, primero que nada para hacer esto debes tener preparado ya tu servidor web ¿lo tienes?
ok entonces ahora solo falta interactuar codigo Visual FoxPro con el etiquetador HTML quedando mas o menos de la siguiente manera (oops! ¿ya mencione que con tu nueva version tienes un archivo magico llamado FOXISAPI.DLL?: 
<%

* Tablas de Ventas

set date to british

lc_catavtaf = "h:localserv2000catavtaf.dbf"

lc_usuarios = "h:localserv2000usuarios.dbf"

lc_cataclie = "h:localserv2000cataclie.dbf"

lc_catavtas = "h:localserv2000catavtas.dbf"

store 0 to fila



*Encabezado de la PAgina HTML

?'<head><title>Ventas</title>'

?'<meta name="Microsoft Border" content="none">'

?'</head>'



?'<html>'

?'<Body>'



* Ver si estan o no abiertas las tablas

if not used("catavtaf")

	use (lc_catavtaf) in 0 SHARED

endif

if not used("usuarios")

	use (lc_usuarios) in 0 order tag clave SHARED

endif

if not used("cataclie")

	use (lc_cataclie) in 0 order tag clave SHARED

endif

if not used("catavtas")

	use (lc_catavtas) in 0 order tag clave SHARED

endif



msoy=val(substr(Request.QueryString("Idfolio"),1,2))

mfolio = val(substr(Request.QueryString("Idfolio"),3))



* Veo si traigo variables de entrada

select catavtaf

IF msoy>0 and mfolio>0

	?'Detalle de Venta Sucursal: '+ALLTRIM(str(msoy))+" Folio: "+ALLTRIM(str(mfolio))

	* Producto

	? [<table width="900" border="1"><tbody><tr>]

	?[<th width="50">Numero</th>]

	?[<th width="100">Fecha</th>]

	?[<th width="100">Clave</th>]

	?[<th width="200">Familia</th>]

	?[<th width="300">Descripcion</th>]

	?[<th width="50">Cantidad</th>]

	?[<th width="100">Precio</th>]

	?[</tr>]

	fila = 0

	SELECT catavtas

	SCAN for catavtas.soy=msoy and catavtas.folio=mfolio

		fila = fila + 1

		? "<tr>"

......continuará........según lo estudies.
Saludos!