Estoy haciendo mis primeros pasos con FiveWeb , hasta ahora todo bien... Pero lo que estoy necesitando es llamar un programa EXE ( Harbourd - FiveWin ) desde el programa de fiveweb.
Este programa lo tengo que ejecutar para armar un reporte en FastReport debido a que no pude linkar el fast dentro de mi aplicaci贸n FiveWeb.
no me funcionaron
ShellExecute
WaitRun
WinExec
como deber铆a hacer ese llamado...
Desde ya muchas gracias..
Sdo
Hugo Theler
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
HB_FUNC( SHELLEXECUTE )
{
聽 聽hb_retnl( ( LONG ) ShellExecute( ( HWND ) hb_parnl( 1 ), hb_parc( 2 ),
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 hb_parc( 3 ), hb_parc( 4 ), hb_parc( 5 ),
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 hb_parnl( 6 ) ) );
}
#pragma ENDDUMP
Hola :
Gracias Antonio.. Funciono Perfecto..
Te comento que entre que hice la pregunta y contestaste reacomode la compilaci贸n del proyecto y pude incorporar la libreria fastreport dentro de este.
Es decir pude desde el sistema FiveWeb llamar a un reporte ( Fast ) y generar como salida un PDF, lo cree en la carpeta c:\xampp\htdocs\dashboard\
La pregunta seria como deber铆a llamar al archivo PDF, para que lo levante en otro folder del navegador..? Lo logre llamar en el mismo folder pero pierdo control del programa.
Sdos
Felicitaciones por este proyecto
Hola : Funciono !!!
Gracias Antonio...
Les dejo un ejemplo ( Funciona igual sin el parametro "_blank" ) :
AvisoReporte( "menuprofesional.exe?" , '../dashboard/'+AllTrim( aParams[2] )+'.pdf' )
function AvisoReporte ( cPrgRetorno , cNmbRep )
*====================
LOCAL oDlg
DEFINE DIALOG oDlg TITLE "Atenci贸n !!!!" SIZE 600 , 300
@ 60, 30 SAY 'Se genero el reporte : ' + cNmbRep SIZE 556, 40 OF oDlg
@ 150 , 80 BUTTON 'Ver Reporte' SIZE 200, 40 OF oDlg ACTION ( 'window.open( "' + cNmbRep + '" )' ) // , "_blank" ' )
@ 150 , 360 BUTTON 'Volver' SIZE 200 , 40 OF oDlg ACTION ( 'document.location = "' + cPrgRetorno + '"' )
ACTIVATE DIALOG oDlg NOWAIT
Return nil
Pregunta :
Como puedo eliminar la tecla escape...??, al tocala pierdo el control
Lo estoy usando con el motor de ADS
FWH 13.07
Borland 5.8.2
Sdos
Hugo
$( ".selector" ).dialog({ closeOnEscape: false });Hola : Se termino el encanto.. 
La funci贸n que me enviaste la intente sumar de distintas maneras y en distintos lugares sin 茅xitos... Intente modificar la clase dialog.. pero no consegui nada..
Tendr铆as alg煤n ejemplo de como llamarla..??
No conteste antes porque termine el soft y ya lo subimos a internet.. hasta ahora funciona bien, por ahora lo 煤nico que me quedo sin resolver es la tecla escape que al presionarla pierdo el control.
Gracias
Hugo
Hugo,
Lo puedo incorporar a FiveWeb. Quieres ese comportamiento para todos los di谩logos ? En tal caso deberiamos usar SetEscape( .F. )
Voy a implementarlo
Puedes publicar aqui algunos pantallazos de tu aplicaci贸n para que veamos como se ve ? 
Muchas gracias
Hola Antonio.
ah铆 va parte de mi experiencia en FiveWeb, espero le sea 煤til
https://dl.dropboxusercontent.com/u/496 ... veweb.docx
Sdos
Hugo
Hola : Para mi deber铆a ser un set a nivel general..
SetEscape( .F. )
Sdos
Hugo
#include "FiveWeb.ch"
function Main()
local oDlg
if conexion_Config()
DEFINE DIALOG oDlg TITLE "Tramites On Line" SIZE 563.8, 532.4
@ 20, 20 SAY VeoNombre( 'CONFIGRL' , '700' , 1 , 3 ) SIZE 540, 60 OF oDlg
[b] @ 70 , 110 BUTTON 'Comercios' SIZE 348, 40 OF oDlg ACTION document.location = "menucomercio.exe?ingreso"
@ 120 , 110 BUTTON 'Inmuebles Urbanos' SIZE 348, 40 OF oDlg ACTION document.location = "menuurbanos.exe?ingreso"
@ 170 , 110 BUTTON 'Inmuebles Rurales' SIZE 348, 40 OF oDlg ACTION document.location = "menururales.exe?ingreso"
@ 220 , 110 BUTTON 'Inmuebles Cementerio' SIZE 348, 40 OF oDlg ACTION document.location = "menucementerio.exe?ingreso"
@ 270 , 110 BUTTON 'Proveedores' SIZE 348, 40 OF oDlg ACTION document.location = "menuproveedor.exe?ingreso"
@ 320 , 110 BUTTON 'Profesionales' SIZE 348, 40 OF oDlg ACTION document.location = "menuprofesional.exe?ingreso"
@ 420, 450 BUTTON 'Salir' SIZE 100 , 40 OF oDlg action ( oDlg:End() )
[/b]
me da error
Error E0030 syntax error "Syntax error At '@'
Warking W0001 Ambiguos refeence 'LOCATION'
ACTIVATE DIALOG oDlg NOWAIT
Endif
return nil
function conexion_Config() //la conexi贸n con la BDD ( ADS )
//*=======================
local lVlrRet := .f. , CONF
RDDActual()
if AdsConnect60( "N:\ps-datos\xxxxxxxxx.add" , 7 , "ADSSYS" , "xxxx-yyy" )
lVlrRet := .t.
CONF := abro( 'CONFIGRL' )
Dbseek( '010' )
if AllTrim( (CONF)->Valor ) = 'N'
Dbseek( '810' ) ; SET BACKIMAGE TO AllTrim( Field->Valor )
Dbseek( '811' ) ; SetTheme( AllTrim( Field->Valor ) )
else
MsgInfo( 'Atencion !! Se estan haciendo tareas de mantenimiento, intente ingresar mas tarde.' )
lVlrRet := .f.
endif
(CONF)->( dbclosearea() )
endif
Return( lVlrRet )Gracias por tu indicacion.-
Hice lo que tu dices pero me da error en estas lineas
@ 70 , 110 BUTTON 'Comercios' SIZE 348, 40 OF oDlg ACTION document.location = "menucomercio.exe?ingreso"
@ 120 , 110 BUTTON 'Inmuebles Urbanos' SIZE 348, 40 OF oDlg ACTION document.location = "menuurbanos.exe?ingreso"
@ 170 , 110 BUTTON 'Inmuebles Rurales' SIZE 348, 40 OF oDlg ACTION document.location = "menururales.exe?ingreso"
@ 220 , 110 BUTTON 'Inmuebles Cementerio' SIZE 348, 40 OF oDlg ACTION document.location = "menucementerio.exe?ingreso"
@ 270 , 110 BUTTON 'Proveedores' SIZE 348, 40 OF oDlg ACTION document.location = "menuproveedor.exe?ingreso"
@ 320 , 110 BUTTON 'Profesionales' SIZE 348, 40 OF oDlg ACTION document.location = "menuprofesional.exe?ingreso"
@ 420, 450 BUTTON 'Salir' SIZE 100 , 40 OF oDlg action ( oDlg:End() )
el error es
Error E0030 Syntax error "Syntaxis error AT '@' "
es como que no reconociera la sintaxis @ .... ..
Sera la version de Fiveweb , pero baje la ultima.
estan instruccion document.location es propie de Fiveweb
Gracias
Ruben,
Aqui se compila bien con la versi贸n de FiveWeb m谩s reciente
Asegurate de que estas usando los ficheros de cabecera mas recientes
Gracias Antonio, Solucionado.
HAbia descargado la version fiveweb_1.3 y esta da error
Baje source-archive.zip con esta funciona bien, pienso que esta es la ultima
Gracias