#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
$( ".selector" ).dialog({ closeOnEscape: false });
#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 )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 112 guests