i have some trobles with Harbour Mini Gui

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

User avatar
Rathinagiri
Posts: 5324
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 200 times
Been thanked: 210 times
Contact:

Re: i have some trobles with Harbour Mini Gui

Post by Rathinagiri »

You can define the window as CHILD also, provided, there are no modal windows activated.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.

rpiccioli
Posts: 17
Joined: Sun Dec 21, 2008 8:43 am
Location: Roma - Italy

Post by rpiccioli »

Hi to you all!

It seems to work now.

Thank you Rathinagiri, Mol, Esgici, Raumi75!

Next step will be to add a new record on a DBF file. But maybe tomorrow i'll begin to work on it. It's late now and i'm tired.

I have to say, this compiler is great... But it seems to begin newly to learn as a new language..

have a nice day (or night)
--
Riccardo Piccioli

rpiccioli
Posts: 17
Joined: Sun Dec 21, 2008 8:43 am
Location: Roma - Italy

Post by rpiccioli »

Hiya! Here is another problem.

This is my addcouse.prg

Code: Select all

Function f_Addcorsi
	public l_codcorso    := ""
	public tb_codcorso   := ""
	public l_descrizion  := ""
	public tb_descrizion := ""
	public tb_tipologia  := ""
	public L_costo_sc1   := 0
	public L_costo_sc2   := 0
	public L_costo_sc3   := 0
	public L_costo_sc4   := 0
	public L_costo_sc5   := 0

DEFINE WINDOW Aggiungicorsi ;
	AT      70, 575  ;
	WIDTH   620 ;
	HEIGHT  370 ;
	TITLE "Aggiungi Corso" ;
	MODAL

	DEFINE STATUSBAR
			STATUSITEM '1000 Bolle Blu - Aggiungi Corsi'
	END STATUSBAR

	@  30, 20 FRAME Frame_corsi CAPTION "&Inserimento Dati del corso:"; 
         WIDTH  580 HEIGHT 256 FONT "Arial" SIZE 9 BACKCOLOR NIL FONTCOLOR NIL OPAQUE

	@  56, 30 LABEL L_codcorso VALUE "&Codice Corso:"; 
         ACTION Nil WIDTH  120 HEIGHT 12 FONT "Arial" SIZE 9
	@  52, 120 TEXTBOX tb_codcorso HEIGHT 24 VALUE "" WIDTH  55;
         FONT "Arial" SIZE 9 TOOLTIP "Inserire il codice del corso con la desinenza appropriata" MAXLENGTH 5 ON LOSTFOCUS Nil
	@  83,30 Label des01 value "Desinenze:" FONT "Arial" SIZE 7
	@  93,40 Label des02 value "EXP - Esperienza;" FONT "Arial" SIZE 7 
	@ 103,40 Label des03 value "REK - Ricreativo;" FONT "Arial" SIZE 7
	@ 113,40 Label des04 value "PRO - Professionale;" FONT "Arial" SIZE 7
	@ 123,40 Label des05 value "EFR - Sanitario;" FONT "Arial" SIZE 7
	@ 133,40 Label des06 value "SPE - Specialità;" FONT "Arial" SIZE 7
	@ 143,40 Label des07 value "TEK - Tecnico;" FONT "Arial" SIZE 7

	@ 52,220 COMBOBOX combo_tipologia ;
			ITEMS { 'Esperienza' , 'Ricreativo' , 'Professionale' , 'Sanitario' , 'Specialità Ricreativo' , 'Tecnico' , 'Specialità Tecnico' , 'Specialità Istruttore' } ;
			VALUE 1 ;
			DISPLAYEDIT ;
			ON DISPLAYCHANGE PlayBeep() 
	tb_tipologia := MsgInfo( alltrim(AggiungiCorsi.Combo_tipologia.DisplayValue ))

	@  86, 200 LABEL L_descrizion VALUE "&Descrizione:"; 
         ACTION Nil WIDTH  190 HEIGHT 12 FONT "Arial" SIZE 9
	@  82, 280 TEXTBOX tb_descrizion HEIGHT 24 VALUE "" WIDTH  300;
         FONT "Arial" SIZE 9 TOOLTIP "Inserire la descrizione del corso" MAXLENGTH 40 ON LOSTFOCUS Nil

	@  116, 200 LABEL L_costo_sc1 VALUE "&Costo corso Individuale:" WIDTH  300
	@  112, 390 TEXTBOX tb_costo_sc1 Value "####.##" WIDTH  110 HEIGHT 24 FONT "Arial" SIZE 9

	@  146, 200 LABEL L_costo_sc2 VALUE "&Costo corso Collettivo:" WIDTH  300
	@  142, 390 TEXTBOX tb_costo_sc2 Value "####.##" WIDTH  110 HEIGHT 24 FONT "Arial" SIZE 9

	@  176, 200 LABEL L_costo_sc3 VALUE "&Costo corso Sconto Fascia 1:" WIDTH  300
	@  172, 390 TEXTBOX tb_costo_sc3 Value "####.##" WIDTH  110 HEIGHT 24 FONT "Arial" SIZE 9

	@  206, 200 LABEL L_costo_sc4 VALUE "&Costo corso Sconto Fascia 2:" WIDTH  300
	@  202, 390 TEXTBOX tb_costo_sc4 Value "####.##" WIDTH  110 HEIGHT 24 FONT "Arial" SIZE 9
	
	@  236, 200 LABEL L_costo_sc5 VALUE "&Costo corso Sconto Fascia 3:" WIDTH  300
	@  232, 390 TEXTBOX tb_costo_sc5 Value "####.##" WIDTH  110 HEIGHT 24 FONT "Arial" SIZE 9

DEFINE BUTTON conferma 
        ROW 260 
        Col 250 
        WIDTH  150 
        HEIGHT 30
        ACTION conferma_addcorsi()
        CAPTION "Conferma Inserimento"
	TOOLTIP "Cliccare qui per confermare l'inserimento del nuovo corso"
      END BUTTON

  END WINDOW
  AggiungiCorsi.Center
  AggiungiCorsi.Activate

Return Nil

***********************************************
** Inserimento dati nell'archivio CORSI.DBF ***
***********************************************

Procedure conferma_addcorsi()

	local l_codcorso
	local tb_codcorso

	Use corsi shared new

	append blank

	** Test content variables   <--- The variables are empty 
	msginfo(l_codcorso)
	msginfo(tb_codcorso)

	corsi->codcorso := tb_codcorso

	Use

Return Nil

If I check the value of the variables, i see they are empty.
Iused only one variable, tb_codcorso...
--
Riccardo Piccioli

Post Reply