antonio:
Este es el codigo mas simplificado, porqu茅 me sigue apareciendo el "warning ambiguous" que te muestro a continuaci贸n del c贸digo
saludos y gracias
include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
Request DBFNTX
RDDSetDefault("DBFNTX")
SET _3DLOOK OFF
DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
TITLE "Sofnut Analisis Encuestas Alimentarias" ;
MENU BuildMenu()
SET MESSAGE OF oWnd TO "FiveWin - The xBase revolution" CENTERED ;
CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd MAXIMIZED
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
LOCAL oMenu
LOCAL lSalida
Public ALFA :="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Public LLAVE:=.F.
MENU oMenu
MENUITEM "&Tablas"
MENU
MENUITEM "&Mantenci贸n Alimentos" ACTION MSGINFO("ALIMENTOS"," ");
RESOURCE "MANZANA" ;
MESSAGE "Agrega, Modifica y/o Elimina Alimentos"
SEPARATOR
MENUITEM "&Salir" ACTION oWnd:End() ;
RESOURCE "SALIR_16_16" ;
MESSAGE oemtoansi("Abandonar el sistema ")
ENDMENU
MENUITEM "&Encuesta"
MENU
MENUITEM "&Encuesta Recordatorio 24 Hrs." ACTION (.t.) ;
RESOURCE "Reloj";
MESSAGE OemToAnsi("Encuesta Recordatorio 24 Horas")
SEPARATOR
MENUITEM "&Encuesta Frecuencia Consumo" ACTION(.t.);
RESOURCE "DOFI" ;
MESSAGE oemtoansi("Encuesta Frecuencia Consumo")
ENDMENU
MENUITEM oemtoansi("&Informes")
MENU
MENUITEM oemtoansi("&Informe Resumen encuesta 24 horas") ACTION (.t.);
RESOURCE "informe_hoja" ;
MESSAGE "Informe Resumen encuesta recordatorio 24 horas"
ENDMENU
MENUITEM oemtoansi("&Utiles")
MENU
MENUITEM oemtoansi("&Impresora") ACTION PrinterSetup() ;
RESOURCE "Impresora_16_16" ;
MESSAGE "Selecciona impresora ..."
SEPARATOR
MENUITEM "Calculadora ..." ACTION WinExec( "Calc") ;
RESOURCE "Calculadora_16x16" ;
MESSAGE "Llamar a la calculadora."
SEPARATOR
MENUITEM oemtoansi("Reindexa") ;
RESOURCE "INDICE" ;
MESSAGE "Regenera indices"
MENUITEM oemtoansi("Acerca de Sofnut") ;
ACTION MsgAbout( "FiveWin Tutorial", FWCOPYRIGHT ) ;
MESSAGE "Regenera indices"
ENDMENU
ENDMENU
return oMenu
脷脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛驴
鲁 FiveWin for Harbour 2.7 - November 2005 Harbour development power 鲁脺
鲁 (c) FiveTech, 1993-2005 for Microsoft Windows 95/98/NT/2000/ME and XP 鲁脹
脌脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脛脵脹
每 脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽脽
Compiling...
Harbour Compiler Alpha build 45.0 (Flex)
Copyright 1999-2005, http://www.harbour-project.org/
Compiling 'sofnutr.prg' and generating preprocessed output to 'sofnutr.ppo'...
sofnutr.prg(28) Warning W0001 Ambiguous reference: 'ALFA'
sofnutr.prg(29) Warning W0001 Ambiguous reference: 'LLAVE'
Lines 92, Functions/Procedures 2
Generating C source output to 'sofnutr.c'... Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
sofnutr.c:
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
* Application successfully built