Corretto prompt e resi obbligatori i campi chiave
git-svn-id: svn://10.65.10.50/trunk@2114 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
		
							parent
							
								
									c7264b933e
								
							
						
					
					
						commit
						ce263d99db
					
				@ -10,7 +10,7 @@ PAGE "Ulteriore classificazione" -1 -1 78 13
 | 
			
		||||
 | 
			
		||||
GROUPBOX DLG_NULL 75 7
 | 
			
		||||
BEGIN
 | 
			
		||||
 PROMPT 1 0 "Ulterire classificazione"
 | 
			
		||||
 PROMPT 1 0 "Ulteriore classificazione"
 | 
			
		||||
 FLAGS "R"
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
@ -32,15 +32,13 @@ BEGIN
 | 
			
		||||
  ITEM "8|Rapporti Interbancari Diretti"           
 | 
			
		||||
  ITEM "9|Bonifici"                        
 | 
			
		||||
  KEY 1
 | 
			
		||||
  CHECKTYPE NORMAL
 | 
			
		||||
  VALIDATE AUTOEXIT_FUNC 1 F_CODICERATA
 | 
			
		||||
  CHECKTYPE REQUIRED
 | 
			
		||||
END 
 | 
			
		||||
 | 
			
		||||
STRING F_CODICEALFA 1
 | 
			
		||||
BEGIN
 | 
			
		||||
  PROMPT 20 2 "Classificazione "
 | 
			
		||||
  FIELD CODTAB[2,2]
 | 
			
		||||
  KEY 1
 | 
			
		||||
  USE %CLR
 | 
			
		||||
  INPUT CODTAB[1,1] F_CODICERATA 
 | 
			
		||||
  INPUT CODTAB[2,2] F_CODICEALFA
 | 
			
		||||
@ -50,15 +48,14 @@ BEGIN
 | 
			
		||||
  OUTPUT F_CODICERATA CODTAB[1,1]
 | 
			
		||||
  OUTPUT F_CODICEALFA CODTAB[2,2]
 | 
			
		||||
  OUTPUT F_DESCR S0
 | 
			
		||||
  CHECKTYPE NORMAL
 | 
			
		||||
  VALIDATE AUTOEXIT_FUNC 1 F_CODICERATA
 | 
			
		||||
  KEY 1
 | 
			
		||||
  CHECKTYPE REQUIRED
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
STRING F_DESCR 50
 | 
			
		||||
BEGIN
 | 
			
		||||
  PROMPT 2 4 "Descrizione "
 | 
			
		||||
  FIELD S0
 | 
			
		||||
  KEY 2
 | 
			
		||||
  USE %CLR KEY 2
 | 
			
		||||
  INPUT S0 F_DESCR
 | 
			
		||||
  DISPLAY "Descrizione@50" S0
 | 
			
		||||
@ -67,6 +64,7 @@ BEGIN
 | 
			
		||||
  OUTPUT F_CODICERATA CODTAB[1,1]
 | 
			
		||||
  OUTPUT F_CODICEALFA CODTAB[2,2]
 | 
			
		||||
  OUTPUT F_DESCR S0          
 | 
			
		||||
  KEY 2
 | 
			
		||||
  CHECKTYPE REQUIRED
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user