Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@18930 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			148 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			148 lines
		
	
	
		
			2.6 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "at3800a.h"
 | |
| 
 | |
| TOOLBAR "" 0 0 0 2
 | |
| #include <printbar.h>
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Riepilogo donazioni per tipo e punto" 0 2 0 0
 | |
| 
 | |
| GROUPBOX DLG_NULL 77 4
 | |
| BEGIN
 | |
|   PROMPT 1 1 "Scelta sezioni/sottogruppi"
 | |
| END
 | |
| 
 | |
| STRING F_SEZINI  2
 | |
| BEGIN
 | |
|   PROMPT 2 2 "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 2 ""
 | |
|   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 3 "   "
 | |
|   COPY ALL F_SEZINI
 | |
|   CHECKTYPE SEARCH
 | |
|   HELP "Codice sottogruppo da cui partire"
 | |
| END
 | |
| 
 | |
| STRING F_D_SOTINI 25
 | |
| BEGIN        	
 | |
|   PROMPT 11 3 ""
 | |
|   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 2 "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 2 ""
 | |
|   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 3 "  "
 | |
|   COPY ALL F_SEZFIN
 | |
|   CHECKTYPE SEARCH
 | |
|   HELP "Codice sottogruppo finale"
 | |
| END
 | |
| 
 | |
| STRING F_D_SOTFIN 25
 | |
| BEGIN        	
 | |
|   PROMPT 49 3 ""
 | |
|   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 4
 | |
| BEGIN
 | |
|   PROMPT 1 5 "Opzioni per il riepilogo"
 | |
| END
 | |
| 
 | |
| DATE F_DATAINI
 | |
| BEGIN
 | |
|   PROMPT 2 6 "Donazioni effettuate dal "
 | |
|   HELP "Data iniziale"
 | |
| END
 | |
| 
 | |
| DATE F_DATAFIN
 | |
| BEGIN
 | |
|   PROMPT 40 6 "al "
 | |
|   HELP "Data finale"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_SOLOTOT
 | |
| BEGIN
 | |
|    PROMPT 2 7 "Stampa solo totale finale (non stampa il dettaglio per sezione)"
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| ENDMASK
 |