Files correlati : tc1.exe Ricompilazione Demo : [ ] Commento : RIcodifica clienti e fornitori per invio a zucchetti git-svn-id: svn://10.65.10.50/branches/R_10_00@21981 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			112 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			112 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "tc1100a.h"
 | |
| 
 | |
| TOOLBAR "topbar" 0 0 0 2
 | |
| 
 | |
| BUTTON DLG_ELABORA 10 2
 | |
| BEGIN
 | |
|   PROMPT -12 -11 "~Elabora"
 | |
|   PICTURE BMP_ELABORA
 | |
|   MESSAGE EXIT,K_ENTER
 | |
| END
 | |
| 
 | |
| #include <helpbar.h>
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Invio dati contabilita' a Zucchetti" 0 2 0 0
 | |
| 
 | |
| GROUPBOX DLG_NULL 76 3
 | |
| BEGIN
 | |
|   PROMPT 2 1 "@bDitta corrente"
 | |
| END
 | |
| 
 | |
| NUMBER F_CODDITTA 5
 | |
| BEGIN
 | |
|   PROMPT 3 2 "Codice      "
 | |
|   FLAGS "FD"
 | |
|   USE LF_NDITTE
 | |
|   INPUT CODDITTA F_CODDITTA
 | |
|   OUTPUT F_RAGSOC RAGSOC
 | |
|   CHECKTYPE REQUIRED
 | |
| END
 | |
| 
 | |
| STRING F_RAGSOC 50
 | |
| BEGIN
 | |
|   PROMPT 23 2 ""
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| GROUPBOX DLG_NULL 76 7
 | |
| BEGIN
 | |
|   PROMPT 2 4 "Dati da inviare"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CAUSALI
 | |
| BEGIN
 | |
|   PROMPT 3 5 "Causali"
 | |
| 	FIELD CAUSALI
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CONTI
 | |
| BEGIN
 | |
|   PROMPT 3 6 "Conti"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CLIFOR
 | |
| BEGIN
 | |
|   PROMPT 3 7 "Clienti/Fornitori"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_MOVCONT
 | |
| BEGIN
 | |
|   PROMPT 3 8 "Movimenti contabili"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_MOVIVA
 | |
| BEGIN
 | |
|   PROMPT 40 5 "Movimenti IVA"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CORRISP
 | |
| BEGIN
 | |
|   PROMPT 40 6 "Corrispettivi"
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_SALDACONTO
 | |
| BEGIN
 | |
|   PROMPT 40 7 "Saldaconto"
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| STRING F_PATH 256 39
 | |
| BEGIN
 | |
|   PROMPT 2 12 "Cartella    "
 | |
|   DSELECT
 | |
| END
 | |
| 
 | |
| STRING F_FILE 18
 | |
| BEGIN
 | |
|   PROMPT 2 14 "File        "
 | |
| END
 | |
| 
 | |
| NUMBER F_NUMEROINVIO 2
 | |
| BEGIN
 | |
|   PROMPT 2 16 "Numero invio "
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| DATE F_DATAINI
 | |
| BEGIN
 | |
|   PROMPT 2 18 "Data iniz. "
 | |
| END
 | |
| 
 | |
| DATE F_DATAFIN
 | |
| BEGIN
 | |
|   PROMPT 42 18 "Data fin. "
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| ENDMASK
 |