campo-sirio/ce/ce2200a.uml

#include "ce2200a.h"

PAGE "Apertura esercizio" -1 -1 62 7

GROUPBOX DLG_NULL 60 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 2 1 ""
  FLAGS "DFG"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 9 1 ""
  FLAGS "D"
END 

NUMBER F_OLDES 4
BEGIN
  PROMPT 2 3 "Esercizio corrente "
  FLAGS "Z"
  USE CCE
  JOIN ESC ALIAS 2 INTO CODTAB==CODTAB
  INPUT CODTAB F_OLDES
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" 2@->D0
  DISPLAY "Data fine esercizio" 2@->D1
  OUTPUT F_OLDES CODTAB
  OUTPUT F_OLDINIZIO 2@->D0
  OUTPUT F_OLDFINE 2@->D1
  CHECKTYPE REQUIRED
  FLAGS "Z"
  WARNING "Inserire un esercizio valido"
END

DATE F_OLDINIZIO
BEGIN
  PROMPT 35 3 ""
  FLAGS "D"
END

DATE F_OLDFINE
BEGIN
  PROMPT 49 3 ""
  FLAGS "D"
END

NUMBER F_NEWES 4
BEGIN
  PROMPT 2 4 "Nuovo esercizio    "
  FLAGS "Z"
  USE ESC
  INPUT CODTAB F_OLDES
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_NEWES CODTAB
  OUTPUT F_NEWINIZIO D0
  OUTPUT F_NEWFINE D1
  CHECKTYPE REQUIRED
  FLAGS "Z"
  GROUP 2
END

DATE F_NEWINIZIO
BEGIN
  PROMPT 35 4 ""
  CHECKTYPE REQUIRED
  GROUP 2
  VALIDATE DATE_CMP_FUNC > F_OLDFINE
  WARNING "La data di inizio esercizio deve essere successiva alla fine dell'esercizio precedente"
END

DATE F_NEWFINE
BEGIN
  PROMPT 49 4 ""
  CHECKTYPE REQUIRED
  GROUP 2 
  VALIDATE DATE_CMP_FUNC > F_NEWINIZIO
  WARNING "La data di fine esercizio deve essere successiva a quella di inizio"
END

BUTTON DLG_OK 12 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 12 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK