campo-sirio/ce/cestccb.uml

//definizione  maschera per stampa tabella CCB
#include "cestccb.h"

PAGE "Stampa Esercizi/Gruppi/Specie" -1 -1 78 12

NUMBER F_INIZIO 4
BEGIN
   PROMPT 2 2 "Da esercizio     "
   FLAGS "Z"
   FIELD CODTAB[1,4]
   USE CCB
   INPUT CODTAB[1,4] F_INIZIO
   INPUT CODTAB[5,6] F_INIZIO2
   INPUT CODTAB[7,10] F_INIZIO3
   DISPLAY "Esercizio" CODTAB[1,4]
   DISPLAY "Gruppo" CODTAB[5,6]
   DISPLAY "Specie" CODTAB[7,10]
   OUTPUT F_INIZIO  CODTAB[1,4]
   OUTPUT F_INIZIO2 CODTAB[5,6]
   OUTPUT F_INIZIO3 CODTAB[7,10]
   GROUP 1
END

NUMBER F_INIZIO2 2
BEGIN
   PROMPT 2 3 "   codice gruppo "
   FLAGS "Z"
   FIELD CODTAB[5,6]
   USE CCB
   JOIN %CGR ALIAS 105 INTO CODTAB==CODTAB[5,6]
   INPUT CODTAB[1,4] F_INIZIO
   INPUT CODTAB[5,6] F_INIZIO2
   INPUT CODTAB[7,10] F_INIZIO3
   COPY DISPLAY F_INIZIO
   OUTPUT F_INIZIO  CODTAB[1,4]
   OUTPUT F_INIZIO2 CODTAB[5,6]
   OUTPUT F_INIZIO3 CODTAB[7,10]
   OUTPUT F_D_INIZIO2 105@->S0
   GROUP 1
   CHECKTYPE NORMAL
END

STRING F_D_INIZIO2 60 45
BEGIN
   PROMPT 30 3 ""
   FLAGS "D"
END

STRING F_INIZIO3 4
BEGIN
   PROMPT 2 4 "          specie "
   FLAGS "U_"
   FIELD CODTAB[7,10]
   USE CCB
   JOIN %CAT ALIAS 106 INTO CODTAB==CODTAB[7,10]
   INPUT CODTAB[1,4] F_INIZIO
   INPUT CODTAB[5,6] F_INIZIO2
   INPUT CODTAB[7,10] F_INIZIO3
   COPY DISPLAY F_INIZIO
   OUTPUT F_INIZIO  CODTAB[1,4]
   OUTPUT F_INIZIO2 CODTAB[5,6]
   OUTPUT F_INIZIO3 CODTAB[7,10]
   OUTPUT F_D_INIZIO3 106@->S0
   GROUP 1
   CHECKTYPE NORMAL
END

STRING F_D_INIZIO3 60 45
BEGIN
   PROMPT 30 4 ""
   FLAGS "D"
END

NUMBER F_FINE 4
BEGIN
   PROMPT 2 6 " a esercizio     "
   FLAGS "Z"
   FIELD CODTAB[1,4]
   USE CCB
   INPUT CODTAB[1,4] F_FINE
   INPUT CODTAB[5,6] F_FINE2
   INPUT CODTAB[7,10] F_FINE3
   DISPLAY "Esercizio" CODTAB[1,4]
   DISPLAY "Gruppo" CODTAB[5,6]
   DISPLAY "Specie" CODTAB[7,10]
   OUTPUT F_FINE  CODTAB[1,4]
   OUTPUT F_FINE2 CODTAB[5,6]
   OUTPUT F_FINE3 CODTAB[7,10]
   GROUP 2
END

NUMBER F_FINE2 2
BEGIN
   PROMPT 2 7 "   codice gruppo "
   FLAGS "Z"
   FIELD CODTAB[5,6]
   USE CCB
   JOIN %CGR ALIAS 105 INTO CODTAB==CODTAB[5,6]
   INPUT CODTAB[1,4] F_FINE
   INPUT CODTAB[5,6] F_FINE2
   INPUT CODTAB[7,10] F_FINE3
   COPY DISPLAY F_FINE
   OUTPUT F_FINE  CODTAB[1,4]
   OUTPUT F_FINE2 CODTAB[5,6]
   OUTPUT F_FINE3 CODTAB[7,10]
   OUTPUT F_D_INIZIO2 105@->S0
   GROUP 2
   CHECKTYPE NORMAL
END

STRING F_D_FINE2 60 45
BEGIN
   PROMPT 30 7 ""
   FLAGS "D"
END

STRING F_FINE3 4
BEGIN
   PROMPT 2 8 "          specie "
   FLAGS "U_"
   FIELD CODTAB[7,10]
   USE CCB
   JOIN %CAT ALIAS 106 INTO CODTAB==CODTAB[7,10]
   INPUT CODTAB[1,4] F_FINE
   INPUT CODTAB[5,6] F_FINE2
   INPUT CODTAB[7,10] F_FINE3
   COPY DISPLAY F_FINE
   OUTPUT F_FINE  CODTAB[1,4]
   OUTPUT F_FINE2 CODTAB[5,6]
   OUTPUT F_FINE3 CODTAB[7,10]
   OUTPUT F_D_INIZIO3 106@->S0
   GROUP 2
   CHECKTYPE NORMAL
END

STRING F_D_FINE3 60 45
BEGIN
   PROMPT 30 8 ""
   FLAGS "D"
END

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

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

ENDPAGE
ENDMASK