Files correlati : Ricompilazione Demo : [ ] Commento : Revisione Maschere modulo vd git-svn-id: svn://10.65.10.50/trunk@16685 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			99 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			99 lines
		
	
	
		
			1.2 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "vd1600.h"
 | |
| 
 | |
| TOOLBAR "" 0 0 0 2
 | |
| 
 | |
| BUTTON DLG_PRINT 10 2
 | |
| BEGIN
 | |
|   PROMPT -14 -11 ""
 | |
|   MESSAGE EXIT,K_ENTER
 | |
| END
 | |
| 
 | |
| BUTTON DLG_INFO 10 2
 | |
| BEGIN
 | |
|   PROMPT -24 -11 ""
 | |
| END
 | |
| 
 | |
| BUTTON DLG_HELP 10 2
 | |
| BEGIN
 | |
|   PROMPT -34 -11 ""
 | |
| END
 | |
| 
 | |
| BUTTON DLG_QUIT 11 2
 | |
| BEGIN
 | |
|   PROMPT -44 -11 ""
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Parametri stampa"  0 0 0 0
 | |
| 
 | |
| STRING F_CODCASSA 3
 | |
| BEGIN
 | |
|   PROMPT 2 2 "Cassa "
 | |
|   USE CAS
 | |
|   INPUT CODTAB F_CODCASSA
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Descrizione @50" S0
 | |
|   OUTPUT F_CODCASSA CODTAB
 | |
|   OUTPUT F_CASSA_DESCR S0
 | |
|   FIELD CODCASSA
 | |
|   CHECKTYPE REQUIRED
 | |
|   FLAGS "UZ"
 | |
| END
 | |
| 
 | |
| STRING F_CASSA_DESCR 50
 | |
| BEGIN
 | |
|   PROMPT 15 2 ""
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| DATE F_DADATA
 | |
| BEGIN
 | |
|   PROMPT 2 3 "Dalla data   "
 | |
|   FLAGS "A"
 | |
|   FIELD DADATA
 | |
|   CHECKTYPE REQUIRED
 | |
| END
 | |
| 
 | |
| DATE F_ADATA
 | |
| BEGIN
 | |
|   PROMPT 30 3 "Alla data   "
 | |
|   FLAGS "A"
 | |
|   FIELD ADATA
 | |
|   CHECKTYPE REQUIRED
 | |
| END
 | |
| 
 | |
| STRING F_CODNUM 4
 | |
| BEGIN
 | |
|   PROMPT 2 4 "Numerazione scontrini "
 | |
|   FLAGS "DG"
 | |
|   USE %NUM
 | |
|   INPUT CODTAB F_CODNUM
 | |
|   OUTPUT F_DESNUM S0
 | |
|   FIELD CODNUM
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| STRING F_DESNUM 50 35
 | |
| BEGIN
 | |
|   PROMPT 30 4 ""
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| NUMBER F_ANNO 4
 | |
| BEGIN
 | |
|   PROMPT 2 6 ""
 | |
|   FLAGD "HDGA"
 | |
|   FIELD ANNO
 | |
| END
 | |
| 
 | |
| STRING F_REPORT 256 56
 | |
| BEGIN
 | |
|   PROMPT 2 8 "Report       "
 | |
|   FLAGS "B"
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| ENDMASK
 |