Files correlati : ba7.exe Ricompilazione Demo : [ ] Commento : Aggiornamento maschere all 10.0 ( nuove toolbar modulo contabilta analitica git-svn-id: svn://10.65.10.50/trunk@16498 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			97 lines
		
	
	
		
			1.5 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			97 lines
		
	
	
		
			1.5 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "ca0500a.h"
 | |
| 
 | |
| TOOLBAR "topbar" 0 0 0 2
 | |
| 
 | |
| #include <relapbar.h>
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Centri di Costo" 0 0 0 2
 | |
| 
 | |
| GROUPBOX DLG_NULL 78 6
 | |
| BEGIN
 | |
|   PROMPT 2 0 "@bCodici"
 | |
| END
 | |
| 
 | |
| MEMO F_CDC_DESCRAGG 78 6
 | |
| BEGIN
 | |
|   PROMPT 2 8 "Descrizione aggiuntiva"
 | |
|   FIELD DESCRAGG
 | |
| END
 | |
| 
 | |
| STRING F_CDC_ADDETTI 5
 | |
| BEGIN
 | |
|   PROMPT 2 15 "Addetti "
 | |
|   FIELD ADDETTI
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CDC_GESTFASI
 | |
| BEGIN
 | |
|   PROMPT 2 16 "Gestione fasi"
 | |
|   FIELD GESTFASI
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CDC_APPOGGIO
 | |
| BEGIN
 | |
|   PROMPT 2 17 "Centro di costo di appoggio"
 | |
|   FIELD APPOGGIO
 | |
| END
 | |
| 
 | |
| STRING F_CDC_MAG 3
 | |
| BEGIN
 | |
|   FLAGS "U"
 | |
|   PROMPT 2 18 "Magazzino            "
 | |
|   FIELD CODMAG[1,3]
 | |
|   USE MAG SELECT CODTAB[4,5]==""
 | |
|   INPUT CODTAB F_CDC_MAG
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Descrizione@50" S0
 | |
|   OUTPUT F_CDC_MAG CODTAB
 | |
|   OUTPUT F_CDC_DESCMAG S0
 | |
|   OUTPUT H_CDC_MAG B0
 | |
|   MESSAGE EMPTY CLEAR,F_CDC_DEP 
 | |
|   MESSAGE ENABLE,F_CDC_DEP
 | |
|   CHECKTYPE NORMAL
 | |
| 	GROUP 1
 | |
| END
 | |
| 
 | |
| STRING F_CDC_DESCMAG 70 45
 | |
| BEGIN
 | |
|   FLAGS "D"
 | |
|   PROMPT 32 18 ""
 | |
| END
 | |
| 
 | |
| BOOL H_CDC_MAG
 | |
| BEGIN
 | |
|   FLAGS "HG"
 | |
|   PROMPT 2 18 "divisione in dep"
 | |
|   MESSAGE FALSE CLEAR,F_CDC_DEP 
 | |
|   MESSAGE TRUE ENABLE,F_CDC_DEP
 | |
| END
 | |
| 
 | |
| STRING F_CDC_DEP 2
 | |
| BEGIN
 | |
|   FLAGS "U"
 | |
|   PROMPT 2 19 "Deposito             "
 | |
|   FIELD CODMAG[4,5]
 | |
|   USE MAG SELECT CODTAB[4,5]!=""
 | |
|   INPUT CODTAB[1,3] F_CDC_MAG SELECT 
 | |
|   INPUT CODTAB[4,5] F_CDC_DEP
 | |
|   DISPLAY "Codice" CODTAB
 | |
|   DISPLAY "Descrizione@50" S0
 | |
|   OUTPUT F_CDC_MAG CODTAB[1,3]
 | |
|   OUTPUT F_CDC_DEP CODTAB[4,5]
 | |
|   OUTPUT F_CDC_DESCDEP S0
 | |
| 	GROUP 1
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| STRING F_CDC_DESCDEP 70 45
 | |
| BEGIN
 | |
|   FLAGS "D"
 | |
|   PROMPT 32 19 ""
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| ENDMASK |