25713ad656
Files correlati : tc2.exe Ricompilazione Demo : [ ] Commento : Trasferimento IPSOA git-svn-id: svn://10.65.10.50/branches/R_10_00@21148 c028cbd2-c16b-5b4b-a496-9718f37d4682
148 lines
2.0 KiB
Plaintext
Executable File
148 lines
2.0 KiB
Plaintext
Executable File
#include "ipconf.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione ditta per invio a IPSOA" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 76 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FLAGS "FD"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 22 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_RICLNAZ
|
|
BEGIN
|
|
PROMPT 2 6 "Trascodifica Nazioni"
|
|
FIELD IPRNAZ
|
|
END
|
|
|
|
BOOLEAN F_RICLIVA
|
|
BEGIN
|
|
PROMPT 42 6 "Trascodifica Codici IVA"
|
|
FIELD IPRIVA
|
|
END
|
|
|
|
BOOLEAN F_RICLATT
|
|
BEGIN
|
|
PROMPT 2 8 "Trascodifica Codici Attività"
|
|
FIELD IPATT
|
|
END
|
|
|
|
BOOLEAN F_RICLCDP
|
|
BEGIN
|
|
PROMPT 42 8 "Trascodifica Condizioni di Pagamento"
|
|
FIELD IPRCDP
|
|
END
|
|
|
|
BOOLEAN F_RICLREG
|
|
BEGIN
|
|
PROMPT 2 10 "Trascodifica Registri"
|
|
FIELD IPRREG
|
|
END
|
|
|
|
BOOLEAN F_RICLCONTI
|
|
BEGIN
|
|
PROMPT 42 10 "Trascodifica Piano dei conti"
|
|
FIELD IPRCONTI
|
|
END
|
|
|
|
BOOLEAN F_RICLCAU
|
|
BEGIN
|
|
PROMPT 2 12 "Trascodifica Causali"
|
|
FIELD IPRCAU
|
|
END
|
|
|
|
//???
|
|
NUMBER F_EMCAU 3
|
|
BEGIN
|
|
PROMPT 42 12 "Caus.TS movim.senza causale "
|
|
USE &ICA
|
|
INPUT CODTAB F_EMCAU
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@60" S0
|
|
OUTPUT F_EMCAU CODTAB
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "Z"
|
|
FIELD IPREMCAU
|
|
END
|
|
|
|
BOOLEAN F_RICLVALUTE
|
|
BEGIN
|
|
PROMPT 2 14 "Trascodifica valute"
|
|
FIELD IPRVAL
|
|
END
|
|
|
|
NUMBER F_LIVPC1 2
|
|
BEGIN
|
|
PROMPT 2 16 "Lunghezza livelli piano dei conti : 1 "
|
|
FIELD IPLIVPC[1]
|
|
END
|
|
|
|
NUMBER F_LIVPC2 2
|
|
BEGIN
|
|
PROMPT 46 16 "2 "
|
|
FIELD IPLIVPC[2]
|
|
END
|
|
|
|
NUMBER F_LIVPC3 2
|
|
BEGIN
|
|
PROMPT 52 16 "3 "
|
|
FIELD IPLIVPC[3]
|
|
END
|
|
|
|
NUMBER F_LIVPC3 2
|
|
BEGIN
|
|
PROMPT 58 16 "4 "
|
|
FIELD IPLIVPC[4]
|
|
END
|
|
|
|
NUMBER F_LIVPC5 2
|
|
BEGIN
|
|
PROMPT 64 16 "5 "
|
|
FIELD IPLIVPC[5]
|
|
END
|
|
|
|
NUMBER F_LIVPC6 2
|
|
BEGIN
|
|
PROMPT 70 16 "6 "
|
|
FIELD IPLIVPC[6]
|
|
END
|
|
|
|
BOOLEAN F_RIPRISTINO
|
|
BEGIN
|
|
PROMPT 2 18 "Ripristina alla data"
|
|
MESSAGE FALSE DISABLE,F_ULTINVIO
|
|
MESSAGE TRUE ENABLE,F_ULTINVIO
|
|
END
|
|
|
|
DATE F_ULTINVIO
|
|
BEGIN
|
|
PROMPT 42 18 "Data ultimo invio "
|
|
FIELD TSULTINV
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|