51 lines
		
	
	
		
			833 B
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			51 lines
		
	
	
		
			833 B
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
#include "cg4900a.h"
 | 
						|
 
 | 
						|
PAGE "Visualizzazione liquidazione acconti" -1 -1 70 6
 | 
						|
 | 
						|
NUMBER F_CODDITTA 5
 | 
						|
BEGIN
 | 
						|
  PROMPT 1 1 "Codice ditta "
 | 
						|
  HELP "Codice della ditta da attivare"
 | 
						|
END
 | 
						|
 | 
						|
BUTTON F_SELECT 2 1  
 | 
						|
BEGIN                    
 | 
						|
  PROMPT  20 1 "*" 
 | 
						|
  PICTURE 109 
 | 
						|
  MESSAGE EXIT,DLG_SELECT     
 | 
						|
END
 | 
						|
 | 
						|
STRING F_RAGSOC 50 30
 | 
						|
BEGIN
 | 
						|
  PROMPT 25 1 "Rag. soc. "
 | 
						|
  HELP "Ragione sociale della ditta da selezionare"
 | 
						|
END
 | 
						|
 | 
						|
BUTTON F_SELECT 2 1  
 | 
						|
BEGIN                    
 | 
						|
  PROMPT  66 1 "*" 
 | 
						|
  PICTURE 109      
 | 
						|
  MESSAGE EXIT,DLG_SELECT     
 | 
						|
END                      
 | 
						|
     
 | 
						|
NUMBER F_YEAR 4
 | 
						|
BEGIN
 | 
						|
   PROMPT 1 2 "Anno liquidazione "
 | 
						|
   FLAGS "A"             
 | 
						|
   VALIDATE FIXLEN_FUNC 4
 | 
						|
   CHECKTYPE REQUIRED
 | 
						|
END
 | 
						|
                
 | 
						|
BUTTON DLG_OK 9 2
 | 
						|
BEGIN
 | 
						|
    PROMPT -12 -1 ""
 | 
						|
END
 | 
						|
 | 
						|
BUTTON DLG_CANCEL 9 2
 | 
						|
BEGIN
 | 
						|
    PROMPT -22 -1 ""
 | 
						|
END
 | 
						|
 | 
						|
ENDPAGE
 | 
						|
ENDMASK
 |