#define GR_SEARCH 29
#include "cetbccb.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Attivita' Cespiti" 0 2 0 0

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODESER_CCB 4
BEGIN
  PROMPT 2 1 "Codice esercizio  "
  FLAGS "PZ"
  KEY 1
  USE CCE                           
  JOIN ESC ALIAS 105 INTO CODTAB==CODTAB 
  FIELD CODTAB[1,4]
  INPUT CODTAB F_CODESER_CCB
  DISPLAY "Codice esercizio" CODTAB 
  DISPLAY "Data inizio esercizio" 105@->D0
  DISPLAY "Data fine esercizio" 105@->D1
  OUTPUT F_CODESER_CCB CODTAB
  OUTPUT F_DATAINI_CCB 105@->D0
  OUTPUT F_DATAFINE_CCB 105@->D1
  CHECKTYPE REQUIRED
END

DATE F_DATAINI_CCB
BEGIN
  PROMPT 29 1 "Data inizio "
  FLAGS "DP"               //il flag P serve perché la data rimanga visibile quando la maschera viene chiamata da cetbcce
END

DATE F_DATAFINE_CCB
BEGIN
  PROMPT 54 1 "Data fine "
  FLAGS "DP"
END

NUMBER F_CODGR_CCB 2
BEGIN
  PROMPT 2 2 "Gruppo "
  FIELD CODTAB[5,6]
  FLAGS "Z"
  KEY 1                      
  CHECKTYPE REQUIRED
END

STRING F_CODSP_CCB 4            //campo per l'inserimento di una specie esistente
BEGIN
  PROMPT 15 2 "Specie "
  FIELD CODTAB[7,10]
  FLAGS "_"
  KEY 1
  USE CCB
  JOIN %CAT ALIAS 106 INTO CODTAB[1,2]==CODTAB[5,6] CODTAB[3,6]==CODTAB[7,10]
  INPUT CODTAB[1,4] F_CODESER_CCB SELECT
  INPUT CODTAB[5,6] F_CODGR_CCB
  INPUT CODTAB[7,10] F_CODSP_CCB
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@50" 106@->S0
  OUTPUT F_CODGR_CCB CODTAB[5,6]
  OUTPUT F_CODSP_CCB CODTAB[7,10]
  OUTPUT F_DESCRSP_CCB 106@->S0
  CHECKTYPE FORCED
  GROUP GR_SEARCH
END

STRING F_CODATT_CCB 4            //campo per l'inserimento di una nuova specie da attivitá giá esistenti
BEGIN
  PROMPT 15 2 "Specie "
  FLAGS "H_"
  KEY 1
  USE %CAT
  INPUT CODTAB[1,2] F_CODGR_CCB
  INPUT CODTAB[3,6] F_CODATT_CCB
  DISPLAY "Gruppo" CODTAB[1,2]
  DISPLAY "Specie" CODTAB[3,6]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODGR_CCB CODTAB[1,2]
  OUTPUT F_CODATT_CCB CODTAB[3,6]
  OUTPUT F_DESCRSP_CCB S0
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODSP_CCB
  GROUP GR_SEARCH
END

STRING F_DESCRSP_CCB 60
BEGIN
  PROMPT 2 3 "Descrizione "
  FLAGS "D"
END

BOOLEAN F_LEASING
BEGIN
  PROMPT 2 5 "Attivita' di leasing"
  FIELD B0
END

BOOLEAN F_BOLLATO
BEGIN
  PROMPT 2 6 "Bollato stampato"
  FLAGS "D"
  FIELD B1
END

NUMBER F_ANNOREG 4
BEGIN
  PROMT 65 6 ""
  FLAGS "DGZ"
  DRIVENBY F_CODESER_CCB
  NUM_CALC MID(#F_DATAFINE_CCB,0,4)
END

STRING F_CODREG 3
BEGIN
  PROMPT 42 6 "Codice registro "
  USE REG SELECT I0=7
  INPUT CODTAB[1,4] F_ANNOREG SELECT
  INPUT CODTAB[5,7] F_CODREG
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODREG CODTAB[5,7]
  CHECKTYPE REQUIRED
  FIELD S6
END

BOOLEAN F_MOV_GEN
BEGIN
  PROMPT 2 7 "Movimenti contabili gia' generati"
  FLAGS "D"
  FIELD B3
END

BOOLEAN F_CHIUSO
BEGIN
  PROMPT 2 8 "Esercizio chiuso"
  FLAGS "D"
  FIELD B2
END
ENDPAGE
ENDMASK