Correzione errori cancellazione movimenti provvisori (che pero' non funzionano ancora) Aggiunta classe TBill da cui deriva TConto git-svn-id: svn://10.65.10.50/trunk@278 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			66 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			66 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "cg2200.h"
 | |
| 
 | |
| PAGE "Eliminazione Movimenti Provvisori" -1 -1 42 9
 | |
| 
 | |
| GROUPBOX DLG_NULL 40 3
 | |
| BEGIN
 | |
|   PROMPT 1 1 "Dal movimento"
 | |
| END
 | |
| 
 | |
| DATE F_FROMDATE
 | |
| BEGIN
 | |
|   PROMPT 2 2 "Data "
 | |
|   USE LF_MOV KEY 2 SELECT PROVVIS="P"
 | |
|   INPUT DATAREG F_FROMDATE
 | |
|   INPUT NUMREG F_FROMREG
 | |
|   DISPLAY "Data@10" DATAREG
 | |
|   DISPLAY "Numero@6" NUMREG
 | |
|   DISPLAY "Causale" CODCAUS
 | |
|   DISPLAY "Documento" NUMDOC
 | |
|   DISPLAY "Descrizione@50" DESCR
 | |
|   OUTPUT F_FROMDATE DATAREG
 | |
|   OUTPUT F_FROMREG NUMREG
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| NUMBER F_FROMREG 5
 | |
| BEGIN
 | |
|   PROMPT 22 2 "Operazione "
 | |
|   FLAGS "DR"
 | |
| END
 | |
| 
 | |
| GROUPBOX DLG_NULL 40 3
 | |
| BEGIN
 | |
|   PROMPT 1 4 "Al movimento"
 | |
| END
 | |
| 
 | |
| DATE F_TODATE
 | |
| BEGIN
 | |
|   PROMPT 2 5 "Data "
 | |
|   COPY USE F_FROMDATE
 | |
|   INPUT DATAREG F_TODATE
 | |
|   INPUT NUMREG F_TOREG
 | |
|   COPY DISPLAY F_FROMDATE
 | |
|   OUTPUT F_TODATE DATAREG 
 | |
|   OUTPUT F_TOREG NUMREG 
 | |
|   CHECKTYPE NORMAL
 | |
| END
 | |
| 
 | |
| NUMBER F_TOREG 5
 | |
| BEGIN
 | |
|   PROMPT 22 5 "Operazione "
 | |
|   FLAGS "DR"
 | |
| END
 | |
| 
 | |
| BUTTON DLG_OK 10 2
 | |
| BEGIN 
 | |
|   PROMPT -12 -1 ""
 | |
| END  
 | |
| 
 | |
| BUTTON DLG_QUIT 10 2
 | |
| BEGIN 
 | |
|   PROMPT -22 -1 ""
 | |
| END  
 | |
| 
 | |
| ENDPAGE
 |