Clipper/FiveWin - DBUGGER EN HARBOUR

HE COMPILADO USANDO /D PERO ME HE DADO CUENTA QUE EL DEBUGGER ES EXTRAÑO POR EJEMPLO NO DEJA SEGUIR MIRANDO EL PASO A PASO EN CODIGO MUY SIMPLE , ADEMAS AL IR AVANZANDO CON F8 AVECES NO AVANZA COMO CORRESPONDE . ACASO HAY QUE USAR UN DEBUGGER ESPECIAL ?? QUE VENGA CON ESTE TIPO DE COSAS SOLUCIONADAS ??

Jamas use el debugger, ni siquiera el de clipper. En esto no te puedo ayudar.

Marcelo

use tu codigo ma sbien la llamada ala funcion pero no pasa nada mira reviza tu mismo

#include "minigui.ch"
#include "common.ch"

FUNCTION MAIN

SET CENTURY ON
SET DATE BRIT
SET DELETE ON
SET NAVIGATION EXTENDED
DEFINE WINDOW Form_2 ;
AT 0,0 ;
WIDTH 700 HEIGHT 590 ;
TITLE ' xxxxxxxxxxxxxxxxxxxxxx' ;
MAIN NOMAXIMIZE
DEFINE STATUSBAR
STATUSITEM "Modal 1" WIDTH 100 ACTION MsgInfo('Click! 1')
STATUSITEM "Modal 2" WIDTH 100 ACTION MsgInfo('Click! 2')
CLOCK
DATE
END STATUSBAR

@ 200,130 LABEL Labelcantidad VALUE "Cantidad" WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,120 TEXTBOX TextBoxcantidad ;
NUMERIC INPUTMASK "9,999,999.9"


@ 200,330 LABEL LabelPrecio VALUE "Precio" WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,300 TEXTBOX TextBoxPrecio ;
NUMERIC INPUTMASK "$9,999,999.99"

ON ENTER fAsignValue()

@ 220,300 TEXTBOX TextBoxPrecio
@ 200,430 LABEL Labeltotal VALUE "Total " WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,420 TEXTBOX TextBoxtotal
END WINDOW

Form_2.TextBoxcantidad.Enabled := .t.
Form_2.TextboxPrecio.Enabled := .t.
Form_2.TextboxTotal.Enabled := .t.
Form_2.textBoxcantidad.SetFocus

CENTER WINDOW Form_2
ACTIVATE WINDOW Form_2

Return Nil

Function fAsignValue()
*-----------------------------------------
local nValor := Form_2.TextBoxCantidad.value + Form_2.TextBoxPrecio.value

Form_2.TextBoxTotal.Value := nValor
Form_2.TextBoxTotal.SetFocus

Return

si puedes compilar y revizar seria geniall !!!!!!!!!!!!!!!

#include "minigui.ch"
#include "common.ch"

FUNCTION MAIN

SET CENTURY ON
SET DATE BRIT
SET DELETE ON
SET NAVIGATION EXTENDED
DEFINE WINDOW Form_2 ;
AT 0,0 ;
WIDTH 700 HEIGHT 590 ;
TITLE ' xxxxxxxxxxxxxxxxxxxxxx' ;
MAIN NOMAXIMIZE
DEFINE STATUSBAR
STATUSITEM "Modal 1" WIDTH 100 ACTION MsgInfo('Click! 1')
STATUSITEM "Modal 2" WIDTH 100 ACTION MsgInfo('Click! 2')
CLOCK
DATE
END STATUSBAR

@ 200,130 LABEL Labelcantidad VALUE "Cantidad" WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,120 TEXTBOX TextBoxcantidad ;
NUMERIC INPUTMASK "9,999,999.9"

El ON ENTER () va dentro de la definicion del control. Ademas, fijate de usar el mismo formato para los textbox que van a interacturar (numeric)
Fijate de compilar esto:

@ 200,330 LABEL LabelPrecio VALUE "Precio" WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,300 TEXTBOX TextBoxPrecio ;
NUMERIC INPUTMASK "$9,999,999.99";
ON ENTER fAsignValue()

@ 200,430 LABEL Labeltotal VALUE "Total " WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,420 TEXTBOX TextBoxtotal Numeric
END WINDOW

Form_2.TextBoxcantidad.Enabled := .t.
Form_2.TextboxPrecio.Enabled := .t.
Form_2.TextboxTotal.Enabled := .t.
Form_2.textBoxcantidad.SetFocus

CENTER WINDOW Form_2
ACTIVATE WINDOW Form_2

Return Nil

Function fAsignValue()
*-----------------------------------------
local nValor := Form_2.TextBoxCantidad.value * Form_2.TextBoxPrecio.value

Form_2.TextBoxTotal.Value := nValor
Form_2.TextBoxcantidad.setfocus

Return