campo-sirio/ri/ritbper.uml
alex db19dfd129 Patch level : 10,0 nopatch
Files correlati     : ci0.exe ci2.exe
Ricompilazione Demo : [ ]
Commento            :


Riclassificazioni cnti  da non compilare ora


git-svn-id: svn://10.65.10.50/branches/R_10_00@20780 c028cbd2-c16b-5b4b-a496-9718f37d4682
2010-08-11 00:46:50 +00:00

88 lines
1.6 KiB
Plaintext
Executable File

#include "ritbper.h"
TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella periodi di bilancio" 0 2 0 0
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODTAB 2
BEGIN
PROMPT 2 2 "Codice periodo "
HELP "Inserire il codice identificativo del periodo prescelto"
FLAS "UZ"
FIELD CODTAB
KEY 1
USE &PER KEY 1
INPUT CODTAB F_CODTAB
DISPLAY "Codice@3" CODTAB
DISPLAY "Descrizione@40" S0
DISPLAY "Giorni" I0
DISPLAY "Settimane" I1
DISPLAY "Mesi" I2
DISPLAY "Anni" I3
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 70 40
BEGIN
PROMPT 2 4 "Descrizione "
HELP "Descrizione del codice tabella periodi di bilancio"
FIELD S0
KEY 2
USE &PER KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
DISPLAY "Giorni" I0
DISPLAY "Settimane" I1
DISPLAY "Mesi" I2
DISPLAY "Anni" I3
COPY OUTPUT F_CODTAB
CHECKTYPE REQUIRED
END
NUMBER F_LUNGH_GG 2
BEGIN
PROMPT 2 8 "Lunghezza : giorni "
HELP "Inserire la durata in giorni"
FIELD I0
MESSAGE CLEAR,F_LUNGH_SET
MESSAGE EMPTY ENABLE,F_LUNGH_SET
END
NUMBER F_LUNGH_SET 1
BEGIN
PROMPT 2 9 " : settimane "
HELP "Inserire la durata in settimane"
FIELD I1
MESSAGE CLEAR,F_LUNGH_GG
MESSAGE EMPTY ENABLE,F_LUNGH_GG
END
NUMBER F_LUNGH_MESI 2
BEGIN
PROMPT 2 10 " : mesi "
HELP "Inserire la durata in mesi"
FIELD I2
END
NUMBER F_LUNGH_ANNI 2
BEGIN
PROMPT 2 11 " : anni "
HELP "Inserire la durata in anni"
FIELD I3
END
ENDPAGE
ENDMASK