Files correlati : Ricompilazione Demo : [ ] Commento :eliminato quell'aborto di ve7; trasformato in ps0077 tanto per non perdere i programmi git-svn-id: svn://10.65.10.50/trunk@18345 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			142 lines
		
	
	
		
			1.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			142 lines
		
	
	
		
			1.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
| #include "ps0077700a.h"
 | |
| 
 | |
| TOOLBAR "" 0 0 0 2
 | |
| 
 | |
| #include <elabar.h>
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Trasferimento da Galileo Cantieri" 0 2 0 0
 | |
| 
 | |
| GROUPBOX DLG_NULL 78 3
 | |
| BEGIN
 | |
|   PROMPT 1 1 "@bDitta"
 | |
| END
 | |
| 
 | |
| NUMBER F_FIRM 5
 | |
| BEGIN
 | |
|   PROMPT 2 2 ""
 | |
|   USE LF_NDITTE
 | |
|   INPUT CODDITTA F_FIRM
 | |
|   OUTPUT F_RAGSOC RAGSOC
 | |
|   CHECKTYPE REQUIRED
 | |
|   FLAGS "DF"
 | |
| END
 | |
| 
 | |
| STRING F_RAGSOC 60
 | |
| BEGIN
 | |
|   PROMPT 17 2 ""
 | |
|   FLAGS "D"
 | |
| END
 | |
| 
 | |
| GROUPBOX DLG_NULL 58 4
 | |
| BEGIN
 | |
|   PROMPT 1 4 "@bTabelle"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_CLIFO
 | |
| BEGIN
 | |
|   PROMPT 2 5 "Clienti/Fornitori"
 | |
| END
 | |
| 
 | |
| BOOLEAN F_ARTICOLI
 | |
| BEGIN
 | |
|   PROMPT 2 6 "Articoli"
 | |
| END
 | |
| 
 | |
| DATE F_DATA
 | |
| BEGIN
 | |
|   PROMPT 2 8 "Record modificati dal "
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| PAGE "Configurazione" -1 -1 78 18
 | |
| 
 | |
| GROUPBOX DLG_NULL 48 5
 | |
| BEGIN
 | |
|   PROMPT 1 1 "@bParametri database per clienti/fornitori"
 | |
| END
 | |
| 
 | |
| STRING F_DSN1 30
 | |
| BEGIN
 | |
|   PROMPT 2 2 "DSN      "
 | |
| END
 | |
| 
 | |
| STRING F_USR1 16
 | |
| BEGIN
 | |
|   PROMPT 2 3 "User     "
 | |
| END
 | |
| 
 | |
| STRING F_PWD1 16
 | |
| BEGIN
 | |
|   PROMPT 2 4 "Password "
 | |
|   FLAGS "*"
 | |
| END
 | |
| 
 | |
| GROUPBOX DLG_NULL 48 5
 | |
| BEGIN
 | |
|   PROMPT 1 6 "@bParametri database per articoli"
 | |
| END
 | |
| 
 | |
| STRING F_DSN2 30
 | |
| BEGIN
 | |
|   PROMPT 2 7 "DSN      "
 | |
| END
 | |
| 
 | |
| STRING F_USR2 16
 | |
| BEGIN
 | |
|   PROMPT 2 8 "User     "
 | |
| END
 | |
| 
 | |
| STRING F_PWD2 16
 | |
| BEGIN
 | |
|   PROMPT 2 9 "Password "
 | |
|   FLAGS "*"
 | |
| END
 | |
| 
 | |
| GROUPBOX DLG_NULL 48 5
 | |
| BEGIN
 | |
|   PROMPT 1 11 "@bParametri database per costi"
 | |
| END
 | |
| 
 | |
| STRING F_DSN3 30
 | |
| BEGIN
 | |
|   PROMPT 2 12 "DSN      "
 | |
| END
 | |
| 
 | |
| STRING F_USR3 16
 | |
| BEGIN
 | |
|   PROMPT 2 13 "User     "
 | |
| END
 | |
| 
 | |
| STRING F_PWD3 16
 | |
| BEGIN
 | |
|   PROMPT 2 14 "Password "
 | |
|   FLAGS "*"
 | |
| END
 | |
| 
 | |
| STRING F_PATH 256 35
 | |
| BEGIN
 | |
|   PROMPT 2 16 "Percorso file da importare/esportare "
 | |
| END
 | |
| 
 | |
| STRING F_DITTA 3
 | |
| BEGIN
 | |
|   PROMPT 2 17 "Codice ditta Galileo    "
 | |
| END
 | |
| 
 | |
| STRING F_CMS 4
 | |
| BEGIN
 | |
|   PROMPT 2 18 "Codice commessa Galileo "
 | |
| END
 | |
| 
 | |
| STRING F_CANT 10
 | |
| BEGIN
 | |
|   PROMPT 2 19 "Codice cantiere Galileo "
 | |
| END
 | |
| 
 | |
| ENDPAGE
 | |
| 
 | |
| ENDMASK
 |