HMGforum.com

Posted: **Tue Mar 23, 2010 3:14 pm**

Hola Gente

Tengo un formulario donde tengo 2 textbox numericos y cuando ejecuto un boton
para mostrar el resultado en un label no aparece nada, en caso contrario si en un texbox.
Estare haciendo algo mal?
Adjunto el ejemplo.

#include "hmg.ch"
declare window ventana3
Function ventana3_button_1_action
wcal := ventana3.text_3.value + ventana3.text_4.value
ventana3.text_5.value := wcal
ventana3.label_5.value := wcal
Return Nil

* HMG-IDE Form Designer Generated Code
* (c) Roberto Lopez - http://harbourminigui.googlepages.com

DEFINE WINDOW TEMPLATE AT 163 , 316 WIDTH 665 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "ventana 3" ICON NIL CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

DEFINE LABEL Label_1
ROW 10
COL 280
WIDTH 120
HEIGHT 24
VALUE "VENTANA 3"
FONTNAME "Times"
FONTSIZE 14
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL

DEFINE TEXTBOX Text_1
ROW 70
COL 180
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK Nil
FORMAT Nil
VALUE ""
END TEXTBOX

DEFINE TEXTBOX Text_2
ROW 110
COL 180
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "99/99/9999"
FORMAT Nil
DATE .T.
VALUE Nil
END TEXTBOX

DEFINE TEXTBOX Text_3
ROW 150
COL 180
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "999.99"
FORMAT Nil
NUMERIC .T.
VALUE Nil
END TEXTBOX

DEFINE LABEL Label_2
ROW 70
COL 90
WIDTH 70
HEIGHT 20
VALUE "caracter"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL

DEFINE LABEL Label_3
ROW 110
COL 90
WIDTH 70
HEIGHT 20
VALUE "fecha"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL

DEFINE LABEL Label_4
ROW 150
COL 90
WIDTH 70
HEIGHT 20
VALUE "numerico"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL

DEFINE TEXTBOX Text_4
ROW 150
COL 330
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "999.99"
FORMAT Nil
NUMERIC .T.
VALUE Nil
END TEXTBOX

DEFINE BUTTON Button_1
ROW 190
COL 340
WIDTH 100
HEIGHT 28
ACTION ventana3_button_1_action()
CAPTION "Calcular cuenta"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON

DEFINE TEXTBOX Text_5
ROW 190
COL 460
WIDTH 120
HEIGHT 24
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONENTER Nil
HELPID Nil
TABSTOP .T.
VISIBLE .T.
READONLY .F.
RIGHTALIGN .F.
BACKCOLOR NIL
FONTCOLOR NIL
INPUTMASK "9999.99"
FORMAT Nil
NUMERIC .T.
VALUE Nil
END TEXTBOX

DEFINE LABEL Label_5
ROW 150
COL 480
WIDTH 120
HEIGHT 24
VALUE "Label_5"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR NIL
FONTCOLOR NIL
END LABEL

END WINDOW

Posted: **Tue Mar 23, 2010 4:51 pm**

Hi my friend,

Please try convert the value of text box to character.

Per example:

Code: Select all

Main.Label_1.Value := Alltrim(Str(Main.Text_2.Value))

I hope that help you.

My best regards,

Posted: **Wed Mar 24, 2010 9:16 pm**

Hi. Take a look here:

Code: Select all

Function button_1_action() 

  str1:= Main.text_1.value
  str2:= Main.text_2.value

  wcal_1 := ALLTRIM(str1 + str2) 
  Main.text_3.value  := wcal_1 
  Main.label_1.value := wcal_1

  wcal_2 := ALLTRIM( str(  val(str1) + val(str2)  )) 
  Main.text_4.value  := wcal_2 
  Main.label_2.value := wcal_2   
 
Return Nil

The complete example zipped below.

Posted: **Fri Mar 26, 2010 11:30 am**

Hola

Muchas gracias lo voy a probar
les agradezco su ayuda

Claudio

HMGforum.com

Consulta por control Label

Consulta por control Label

Re: Consulta por control Label

Re: Consulta por control Label

Re: Consulta por control Label