Clipper/FiveWin - FORMULAS EN HARBOUR Y ALGO MAS !!

YA HE AVANZADO EN VARIOS PRG A HARBOUR Y TENGO UNA DUDA .


CANTIDAD PRECIO TOTAL

YA TENGO DEFINIDAS LAS CAJAS DE TEXTO INGRESO LOS VALORES EN CANTIDAD LUEGO PASA A PRECIO PERO COMO LE HAGO PARA HACER UNA FORMULA QUE SIMPLEMENTE ME MULTIPLIQUE CANTIDAD POR PRECIO Y EL TOTAL LO DEJE EN UNA
CAJA DE TEXTO "TOTAL" ?????

PROGRAME LO SIGUIENTE !!!!!!!!!!!!!
@ 200,020 LABEL Labelcodigo VALUE "Codigo" WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,010 TEXTBOX TextBoxCodigo ;
VALUE "" ;
WIDTH 100 HEIGHT 25 ;
FONT "ARIAL" SIZE 09

@ 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,240 LABEL LabelMoneda VALUE "Moneda" WIDTH 60 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,250 TEXTBOX TextBoxMoneda ;
VALUE "" ;
WIDTH 30 HEIGHT 25 ;
FONT "ARIAL" SIZE 09

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

@ 200,430 LABEL Labeltotal VALUE "Total " WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
textboxtotal := val(TextBoxcantidad) + val(TextBoxPrecio )
@ 220,420 TEXTBOX TextBoxtotal // ;
// NUMERIC INPUTMASK "$9,999,999.99"
NO FUNCIONA USE TAMBIEN UN FUNCION QUE ME CAPTURA EL VALOR DE
POR EJEMPLO ( FORM1.TEXTBOXCANTIDAD.VALUE ) O ALGO ASI PERO NADA

LO QUE PIDO ES BASICO PERO REVICE LOS EJEMPLOS DE MINIGUI Y NADA PARECIDO ...... GRRRRRRRRRRRRR

Me imagino que esto es Minigui. Tenes un par de opciones para diseñar esto, pero te paso una:

Function main()
*---------------------------------

Define Window Form_1.....etc. (no se el nombre de tu ventana)

@ 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,240 LABEL LabelMoneda VALUE "Moneda" WIDTH 60 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,250 TEXTBOX TextBoxMoneda ;
VALUE "" ;
WIDTH 30 HEIGHT 25 ;
FONT "ARIAL" SIZE 09

@ 200,300 LABEL LabelPrecio VALUE "Precio" WIDTH 90 HEIGHT 25 FONT "ARIAL" SIZE 09
@ 220,290 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 INPUTMASK "$9,999,999.99"

Return

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

Form_1.TextBoxTotal.Value := nValor
Form_1.TextBoxTotal.SetFocus

Return