Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@18932 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			190 lines
		
	
	
		
			3.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			190 lines
		
	
	
		
			3.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
#include "at4300a.h"
 | 
						|
 | 
						|
TOOLBAR "" 0 0 0 2
 | 
						|
 | 
						|
BUTTON F_ELENCOCON 2 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 1 "Convocati"
 | 
						|
  MESSAGE EXIT,F_ELENCOCON
 | 
						|
  PICTURE TOOL_PRINT
 | 
						|
END
 | 
						|
 | 
						|
BUTTON F_ELENCORIT 2 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 1 "Ritardatari"
 | 
						|
  MESSAGE EXIT,F_ELENCORIT
 | 
						|
  PICTURE TOOL_PRINT
 | 
						|
END
 | 
						|
 | 
						|
BUTTON F_ETICHETTE 2 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 3 1 "Etichette"
 | 
						|
  MESSAGE EXIT,F_ETICHETTE
 | 
						|
  PICTURE TOOL_PRINTETICH
 | 
						|
END
 | 
						|
 | 
						|
BUTTON F_CARTOLINE 2 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 4 1 "Cartoline"
 | 
						|
  MESSAGE EXIT,F_CARTOLINE
 | 
						|
  PICTURE TOOL_PRINTSCHEDE
 | 
						|
END
 | 
						|
 | 
						|
#include <helpbar.h>
 | 
						|
 | 
						|
ENDPAGE
 | 
						|
 | 
						|
PAGE "Stampa convocazioni per sezione (Parma)" 0 2 0 0
 | 
						|
 | 
						|
GROUPBOX DLG_NULL 77 4
 | 
						|
BEGIN
 | 
						|
   PROMPT 1 0 "Scelta sezioni/sottogruppi"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_SEZINI  2
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 1 "Da "
 | 
						|
  FLAGS "U"
 | 
						|
  USE LF_SEZIONI
 | 
						|
  INPUT CODSEZ F_SEZINI
 | 
						|
  INPUT CODSOT F_SOTINI
 | 
						|
  DISPLAY "Cod.sez" CODSEZ
 | 
						|
  DISPLAY "Cod.sot." CODSOT
 | 
						|
  DISPLAY "Sezione@25" DENSEZ
 | 
						|
  DISPLAY "Sottogruppo@25" DENSOT
 | 
						|
  OUTPUT F_SEZINI CODSEZ
 | 
						|
  OUTPUT F_D_SEZINI DENSEZ
 | 
						|
  OUTPUT F_SOTINI CODSOT
 | 
						|
  OUTPUT F_D_SOTINI DENSOT
 | 
						|
  CHECKTYPE SEARCH
 | 
						|
  HELP "Codice sezione da cui partire"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_D_SEZINI 25
 | 
						|
BEGIN
 | 
						|
  PROMPT 11 1 ""
 | 
						|
  FLAGS "U"
 | 
						|
  USE LF_SEZIONI KEY 2
 | 
						|
  INPUT DENSEZ F_D_SEZINI
 | 
						|
  DISPLAY "Sezione@25" DENSEZ
 | 
						|
  DISPLAY "Sottogruppo@25" DENSOT
 | 
						|
  DISPLAY "Cod.sez" CODSEZ
 | 
						|
  DISPLAY "Cod.sot." CODSOT
 | 
						|
  COPY OUTPUT F_SEZINI
 | 
						|
  CHECKTYPE NORMAL
 | 
						|
  HELP "Sezione da cui partire"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_SOTINI 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 2 "   "
 | 
						|
  COPY ALL F_SEZINI
 | 
						|
  CHECKTYPE SEARCH
 | 
						|
  HELP "Codice sottogruppo da cui partire"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_D_SOTINI 25
 | 
						|
BEGIN
 | 
						|
  PROMPT 11 2 ""
 | 
						|
  FLAGS "U"
 | 
						|
  COPY USE F_D_SEZINI
 | 
						|
  INPUT DENSEZ F_D_SEZINI
 | 
						|
  INPUT DENSOT F_D_SOTINI
 | 
						|
  COPY DISPLAY F_D_SEZINI
 | 
						|
  COPY OUTPUT F_D_SEZINI
 | 
						|
  CHECKTYPE NORMAL
 | 
						|
  HELP "Sottogruppo da cui partire"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_SEZFIN  2
 | 
						|
BEGIN
 | 
						|
  PROMPT 41 1 "A "
 | 
						|
  FLAGS "U"
 | 
						|
  USE LF_SEZIONI
 | 
						|
  INPUT CODSEZ F_SEZFIN
 | 
						|
  INPUT CODSOT F_SOTFIN
 | 
						|
  DISPLAY "Cod.sez" CODSEZ
 | 
						|
  DISPLAY "Cod.sot." CODSOT
 | 
						|
  DISPLAY "Sezione@25" DENSEZ
 | 
						|
  DISPLAY "Sottogruppo@25" DENSOT
 | 
						|
  OUTPUT F_SEZFIN CODSEZ
 | 
						|
  OUTPUT F_D_SEZFIN DENSEZ
 | 
						|
  OUTPUT F_SOTFIN CODSOT
 | 
						|
  OUTPUT F_D_SOTFIN DENSOT
 | 
						|
  CHECKTYPE SEARCH
 | 
						|
  HELP "Codice sezione finale"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_D_SEZFIN 25
 | 
						|
BEGIN
 | 
						|
  PROMPT 49 1 ""
 | 
						|
  FLAGS "U"
 | 
						|
  USE LF_SEZIONI KEY 2
 | 
						|
  INPUT DENSEZ F_D_SEZFIN
 | 
						|
  DISPLAY "Sezione@25" DENSEZ
 | 
						|
  DISPLAY "Sottogruppo@25" DENSOT
 | 
						|
  DISPLAY "Cod.sez" CODSEZ
 | 
						|
  DISPLAY "Cod.sot." CODSOT
 | 
						|
  COPY OUTPUT F_SEZFIN
 | 
						|
  CHECKTYPE NORMAL
 | 
						|
  HELP "Sezione finale"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_SOTFIN 2
 | 
						|
BEGIN
 | 
						|
  PROMPT 41 2 "  "
 | 
						|
  COPY ALL F_SEZFIN
 | 
						|
  CHECKTYPE SEARCH
 | 
						|
  HELP "Codice sottogruppo finale"
 | 
						|
END
 | 
						|
 | 
						|
STRING F_D_SOTFIN 25
 | 
						|
BEGIN
 | 
						|
  PROMPT 49 2 ""
 | 
						|
  FLAGS "U"
 | 
						|
  COPY USE F_D_SEZFIN
 | 
						|
  INPUT DENSEZ F_D_SEZFIN
 | 
						|
  INPUT DENSOT F_D_SOTFIN
 | 
						|
  COPY DISPLAY F_D_SEZFIN
 | 
						|
  COPY OUTPUT F_D_SEZFIN
 | 
						|
  CHECKTYPE NORMAL
 | 
						|
  HELP "Sottogruppo finale"
 | 
						|
END
 | 
						|
 | 
						|
GROUPBOX DLG_NULL 77 7
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 4 "Opzioni di convocazione"
 | 
						|
END
 | 
						|
 | 
						|
 | 
						|
DATE F_DATACONV
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 5 "Data elaborazione         "
 | 
						|
  HELP "Data elaborazione"
 | 
						|
  VALIDATE NOT_EMPTY_FUNC
 | 
						|
END
 | 
						|
 | 
						|
NUMBER F_INTMIN 4
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 6 "Intervallo minimo avvisi  "
 | 
						|
END
 | 
						|
 | 
						|
NUMBER F_INTMAX 4
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 7 "Intervallo massimo avvisi "
 | 
						|
END
 | 
						|
 | 
						|
NUMBER F_INTMINCON 4
 | 
						|
BEGIN
 | 
						|
  PROMPT 2 8 "Intervallo minimo convoc. "
 | 
						|
END
 | 
						|
 | 
						|
BOOLEAN F_DEFINITIVA
 | 
						|
BEGIN
 | 
						|
   PROMPT 2 9 "Registra stampa convocazione su archivio soggetti"
 | 
						|
END
 | 
						|
 | 
						|
 | 
						|
ENDPAGE
 | 
						|
ENDMASK
 |