HMGforum.com

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