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