campo-sirio/ce/cestclm.uml

#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