Files correlati : Ricompilazione Demo : [ ] Commento : RIportata la verione 3.2 1167 git-svn-id: svn://10.65.10.50/trunk@16716 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			106 lines
		
	
	
		
			1.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			106 lines
		
	
	
		
			1.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "batbtrb.h"
 | |
| 
 | |
| TOOLBAR "topbar" 0 0 0 2
 | |
| #include <relapbar.h>
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Tabella Codici Tributo" -1 -1 78 8
 | |
| 
 | |
| GROUPBOX DLG_NULL 75 6
 | |
| BEGIN 
 | |
|  PROMPT 1 0 ""
 | |
|  FLAGS "R"
 | |
| END 
 | |
| 
 | |
| STRING F_CODICE 4
 | |
| BEGIN
 | |
|   PROMPT 4 2 "Codice      "
 | |
|   FIELD CODTAB
 | |
|   KEY 1
 | |
|   USE %TRB
 | |
|   INPUT CODTAB F_CODICE
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Descrizione@50" S0
 | |
|   DISPLAY "Sezione" S6
 | |
|   OUTPUT F_CODICE CODTAB
 | |
|   OUTPUT F_DESCR S0
 | |
|   FLAGS "U"
 | |
|   CHECKTYPE REQUIRED
 | |
| END
 | |
| 
 | |
| STRING F_DESCR 70 50
 | |
| BEGIN
 | |
|   PROMPT 4 4 "Descrizione "
 | |
|   FIELD S0
 | |
|   KEY 2
 | |
|   USE %TRB KEY 2
 | |
|   INPUT S0 F_DESCR
 | |
|   DISPLAY "Descrizione@50" S0
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Sezione" S6
 | |
|   COPY OUTPUT F_CODICE
 | |
|   CHECKTYPE REQUIRED
 | |
| END
 | |
| 
 | |
| LIST F_SEZIONE 1 50
 | |
| BEGIN
 | |
|   PROMPT 4 6 "Sezione     "
 | |
|   ITEM "E|Erario"
 | |
|   ITEM "I|INPS"
 | |
|   ITEM "R|Regioni"
 | |
|   ITEM "L|ICI ed altri tributi locali"
 | |
|   ITEM "N|INAIL"
 | |
|   ITEM "P|Altri enti previdenziali ed assicurativi"
 | |
|   FIELD S6
 | |
| END
 | |
| 
 | |
| NUMBER F_GRUPPO 3
 | |
| BEGIN
 | |
|   PROMPT 4 8 "Conto       "
 | |
|   FIELD I0
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| NUMBER F_CONTO 3
 | |
| BEGIN
 | |
|   PROMPT  23 8 ""
 | |
|   FIELD I1
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| NUMBER F_SOTTOC 6
 | |
| BEGIN
 | |
|   PROMPT  30 8 ""
 | |
|   FIELD I2
 | |
|   USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
 | |
|   INPUT GRUPPO F_GRUPPO
 | |
|   INPUT CONTO F_CONTO
 | |
|   INPUT SOTTOCONTO F_SOTTOC
 | |
|   DISPLAY "Gruppo" GRUPPO
 | |
|   DISPLAY "Conto"  CONTO
 | |
|   DISPLAY "Sottoconto" SOTTOCONTO
 | |
|   DISPLAY "Descrizione@50" DESCR
 | |
|   OUTPUT F_GRUPPO GRUPPO
 | |
|   OUTPUT F_CONTO CONTO
 | |
|   OUTPUT F_SOTTOC SOTTOCONTO
 | |
|   OUTPUT F_DESCRC DESCR
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| STRING F_DESCRC 50
 | |
| BEGIN
 | |
|   PROMPT 4 9 "Descrizione "
 | |
|   USE LF_PCON KEY 2
 | |
|   INPUT DESCR F_DESCRC
 | |
|   DISPLAY "Descrizione@50" DESCR
 | |
|   DISPLAY "Gruppo" GRUPPO
 | |
|   DISPLAY "Conto"  CONTO
 | |
|   DISPLAY "Sottoconto" SOTTOCONTO
 | |
|   COPY OUTPUT F_SOTTOC
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| ENDMASK
 |