25c451a60b
Files correlati : ri0.exe ri1.exe Ricompilazione Demo : [ ] Commento : Aggiunto il flag per avere o no i progressivi nella riclassificazione saldi. Nella esportazione testo i codici di campo sono zerofilled ora git-svn-id: svn://10.65.10.50/branches/R_10_00@21743 c028cbd2-c16b-5b4b-a496-9718f37d4682
158 lines
2.6 KiB
Plaintext
Executable File
158 lines
2.6 KiB
Plaintext
Executable File
#include "ri0400a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
TOOLBAR "bottombar" 0 -1 0 1
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 1 -1 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Riclassificazione" 0 2 0 0
|
|
|
|
LIST F_TIPORICL 2 17
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo "
|
|
ITEM "RI|Riclassificazione" MESSAGE ENABLE,F_RICL|"",F_RICL
|
|
ITEM "TS|TeamSystem" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
|
|
ITEM "ZU|Zucchetti" MESSAGE DISABLE,F_RICL|"CONTI",F_RICL
|
|
FIELD TRICL
|
|
END
|
|
|
|
STRING F_RICL 7
|
|
BEGIN
|
|
PROMPT 2 3 "Codice "
|
|
USE &RIC
|
|
INPUT CODTAB F_RICL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_RICL CODTAB
|
|
OUTPUT F_DESCRR S0
|
|
CHECKTYPE NORMAL
|
|
FIELD RICL
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_DESCRR 50
|
|
BEGIN
|
|
PROMPT 29 3 ""
|
|
USE &RCO KEY 2
|
|
INPUT S0 F_DESCRR
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_RICL
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_ESER 4
|
|
BEGIN
|
|
PROMPT 2 4 "Esercizio "
|
|
HELP "Codice d'esercizio da assegnare"
|
|
FLAGS "ZR"
|
|
USE ESC
|
|
INPUT CODTAB F_ESER
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio" D1
|
|
DISPLAY "Data di scarico" D2
|
|
DISPLAY "Data chiusura esercizio" D3
|
|
OUTPUT F_ESER CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_PER 2
|
|
BEGIN
|
|
PROMPT 2 5 "Codice periodo"
|
|
HELP "Codice della tabella periodi"
|
|
FLAGS "UZ"
|
|
USE &PER
|
|
INPUT CODTAB F_PER
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
DISPLAY "Giorni" I0
|
|
DISPLAY "Settimane" I1
|
|
DISPLAY "Mesi" I2
|
|
DISPLAY "Anni" I3
|
|
OUTPUT F_PER CODTAB
|
|
OUTPUT F_DESCRP S0
|
|
CHECKTYPE NORMAL
|
|
FIELD PER
|
|
END
|
|
|
|
STRING F_DESCRP 70 50
|
|
BEGIN
|
|
PROMPT 29 5 ""
|
|
HELP "Descrizione del codice tabella periodi di bilancio"
|
|
USE &PER KEY 2
|
|
INPUT S0 F_DESCRP
|
|
DISPLAY "Descrizione@40" S0
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Giorni" I0
|
|
DISPLAY "Settimane" I1
|
|
DISPLAY "Mesi" I2
|
|
DISPLAY "Anni" I3
|
|
COPY OUTPUT F_PER
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_NPER 2
|
|
BEGIN
|
|
PROMPT 2 6 "Numero periodi"
|
|
FIELD NPER
|
|
END
|
|
|
|
DATE F_DAL
|
|
BEGIN
|
|
PROMPT 2 7 "Dal "
|
|
FIELD DAL
|
|
END
|
|
|
|
DATE F_AL
|
|
BEGIN
|
|
PROMPT 29 7 "Al "
|
|
FLAGS "D"
|
|
WARNING "La data finale deve essere maggiore alla data iniziale"
|
|
END
|
|
|
|
BOOLEAN F_STRUCT
|
|
BEGIN
|
|
PROMPT 2 8 "Intera struttura"
|
|
FIELD ALL
|
|
END
|
|
|
|
BOOLEAN F_PROVV
|
|
BEGIN
|
|
PROMPT 29 8 "Anche i movimenti provvisori"
|
|
FIELD PROVV
|
|
END
|
|
|
|
BOOLEAN F_PROG
|
|
BEGIN
|
|
PROMPT 2 9 "Progessivi"
|
|
FIELD PROG
|
|
END
|
|
|
|
LIST F_TIPOCOL 2 14
|
|
BEGIN
|
|
PROMPT 2 10 "Esporta "
|
|
ITEM "0|Saldi"
|
|
ITEM "1|Tutti i valori"
|
|
FIELD COLTYPE
|
|
END
|
|
|
|
STRING F_OUTPUT 50 30
|
|
BEGIN
|
|
PROMPT 2 12 "Output "
|
|
CHECKTYPE REQUIRED
|
|
FSELECT ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|