8a05210c2d
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la version 1.7 patch 054 aga sul main trunk git-svn-id: svn://10.65.10.50/trunk@9655 c028cbd2-c16b-5b4b-a496-9718f37d4682
112 lines
1.8 KiB
Plaintext
Executable File
112 lines
1.8 KiB
Plaintext
Executable File
#include "ce0400a.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri Ditta" -1 -1 78 10
|
|
|
|
DATE F_DATACONS
|
|
BEGIN
|
|
PROMPT 1 1 "Data conseguimento primi ricavi "
|
|
FIELD CADTR
|
|
END
|
|
|
|
RADIOBUTTON F_ANNOTUIR 30
|
|
BEGIN
|
|
FLAGS "Z"
|
|
PROMPT 1 3 "Anno inizio applicazione TUIR"
|
|
ITEM "0|1988"
|
|
ITEM "1|1989"
|
|
FIELD CATSU
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 6 "Esercizio/Attivita' corrente"
|
|
FLAGS "R"
|
|
END
|
|
|
|
|
|
NUMBER F_ESERCORR 4
|
|
BEGIN
|
|
PROMPT 2 7 "Esercizio "
|
|
FIELD CODESCORR
|
|
FLAGS "Z"
|
|
USE CCE
|
|
JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCORR
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Data inizio" 105@->D0
|
|
DISPLAY "Data fine@10" 105@->D1
|
|
OUTPUT F_ESERCORR CODTAB
|
|
OUTPUT F_DATAINIZIO 105@->D0
|
|
OUTPUT F_DATAFINE 105@->D1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAINIZIO
|
|
BEGIN
|
|
PROMPT 20 7 "Data inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 45 7 "Data fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_GRUPPOCORR 2
|
|
BEGIN
|
|
PROMPT 2 8 "Gruppo "
|
|
FIELD GRUPPOCORR
|
|
FLAGS "Z"
|
|
USE CCB KEY 1
|
|
JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
|
|
JOIN %CAT ALIAS 107 INTO CODTAB==CODTAB[5,10]
|
|
INPUT CODTAB[1,4] F_ESERCORR SELECT
|
|
INPUT CODTAB[5,6] F_GRUPPOCORR
|
|
INPUT CODTAB[7,10] F_SPECIECORR
|
|
DISPLAY "Gruppo" CODTAB[5,6]
|
|
DISPLAY "Specie" CODTAB[7,10]
|
|
DISPLAY "Descrizione@60" 107@->S0
|
|
OUTPUT F_GRUPPOCORR CODTAB[5,6]
|
|
OUTPUT F_D_GRUPPOCORR 106@->S0
|
|
OUTPUT F_SPECIECORR CODTAB[7,10]
|
|
OUTPUT F_D_SPECIECORR 107@->S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_GRUPPOCORR 60 58
|
|
BEGIN
|
|
PROMPT 17 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_SPECIECORR 4
|
|
BEGIN
|
|
PROMPT 2 9 "Specie "
|
|
FIELD SPECIECORR
|
|
FLAGS "_"
|
|
COPY ALL F_GRUPPOCORR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_SPECIECORR 60 58
|
|
BEGIN
|
|
PROMPT 17 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|