campo-sirio/ce/cestclm.uml

89 lines
1.4 KiB
Plaintext
Raw Normal View History

#include "cestclm.h"
PAGE "Stampa Limiti cespiti" -1 -1 78 8
NUMBER F_GIORNOI 2
BEGIN
PROMPT 2 2 "Da giorno "
FLAGS "Z"
FIELD CODTAB[7,8]
USE %CLM
INPUT CODTAB[1,4] F_ANNOI
INPUT CODTAB[5,6] F_MESEI
INPUT CODTAB[7,8] F_GIORNOI
DISPLAY "Giorno@20" CODTAB[7,8]
DISPLAY "Mese@20" CODTAB[5,6]
DISPLAY "Anno@20 " CODTAB[1,4]
OUTPUT F_ANNOI CODTAB[1,4]
OUTPUT F_MESEI CODTAB[5,6]
OUTPUT F_GIORNOI CODTAB[7,8]
GROUP 1
END
NUMBER F_MESEI 2
BEGIN
PROMPT 18 2 "Mese "
FLAGS "Z"
FIELD CODTAB[5,6]
COPY ALL F_GIORNOI
GROUP 1
END
NUMBER F_ANNOI 4
BEGIN
PROMPT 29 2 "Anno "
FLAGS "Z"
FIELD CODTAB[1,4]
COPY ALL F_GIORNOI
GROUP 1
END
NUMBER F_GIORNOF 2
BEGIN
PROMPT 2 4 " a giorno "
FLAGS "Z"
FIELD CODTAB[7,8]
USE %CLM
INPUT CODTAB[1,4] F_ANNOF
INPUT CODTAB[5,6] F_MESEF
INPUT CODTAB[7,8] F_GIORNOF
DISPLAY "Giorno@20" CODTAB[7,8]
DISPLAY "Mese@20" CODTAB[5,6]
DISPLAY "Anno@20 " CODTAB[1,4]
OUTPUT F_ANNOF CODTAB[1,4]
OUTPUT F_MESEF CODTAB[5,6]
OUTPUT F_GIORNOF CODTAB[7,8]
GROUP 2
END
NUMBER F_MESEF 2
BEGIN
PROMPT 18 4 "Mese "
FLAGS "Z"
FIELD CODTAB[5,6]
COPY ALL F_GIORNOF
GROUP 2
END
NUMBER F_ANNOF 4
BEGIN
PROMPT 29 4 "Anno "
FLAGS "Z"
FIELD CODTAB[1,4]
COPY ALL F_GIORNOF
GROUP 2
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK