#include "ce3900.h"

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

PAGE "Registro cespiti sintetico" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta     "
  FLAGS "DF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 55
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 2 2 "Esercizio "
  FLAGS "Z"
  USE CCE
  JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB 
  DISPLAY "Data inizio@15" 105@->D0
  DISPLAY "Data fine@15" 105@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_DATAINIZIO 105@->D0
  OUTPUT F_DATAFINE 105@->D1
  CHECKTYPE REQUIRED
END

DATE F_DATAINIZIO 
BEGIN
  PROMPT 20 2 "Data inizio "
  FLAGS "D"
END

DATE F_DATAFINE
BEGIN
  PROMPT 45 2 "Data fine " 
  FLAGS "D"
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 2 3 "Gruppo    "
  FLAGS "Z"
  USE CCB KEY 1
  JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Codice" CODTAB[5,6]
  DISPLAY "Descrizione@60" 106@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_D_GRUPPO 106@->S0
  CHECKTYPE NORMAL
END

STRING F_SPECIE 4
BEGIN
  PROMPT 2 4 "Specie    "
  FLAGS "_"         
  USE CCB KEY 1
  JOIN %CAT ALIAS 107 INTO CODTAB[1,2]==CODTAB[5,6] CODTAB[3,6]==CODTAB[7,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO SELECT
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@60" 107@->S0
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_D_SPECIE 107@->S0
  CHECKTYPE NORMAL
END

STRING F_D_GRUPPO 60 55
BEGIN
  PROMPT 20 3 ""
  FLAGS "D"
END

STRING F_D_SPECIE 60 55
BEGIN
  PROMPT 20 4 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 6 "@bSelezione categoria"
  GROUP 1
END

NUMBER F_FROM_CAT 2
BEGIN
  PROMPT 2 7 "Dalla "
  FLAGS "BZ"
  GROUP 1
END

STRING F_D_FROM_CAT 60 50
BEGIN
  PROMPT 25 7 ""
  FLAGS "B"
  GROUP 1
END

NUMBER F_TO_CAT 2
BEGIN
  PROMPT 2 8 "Alla  "
  FLAGS "BZ"
  GROUP 1
END

STRING F_D_TO_CAT 60 50
BEGIN
  PROMPT 25 8 ""
  FLAGS "B"
  GROUP 1
END

RADIOBUTTON F_SITUAZIONE 78
BEGIN
  PROMPT 1 10 "@bSituazione"
  ITEM "1|Fiscale"
  ITEM "2|Civilistica"
  ITEM "3|Gestionale"
  FLAGS "Z"
END

GROUPBOX DLG_NULL 39 3
BEGIN
  PROMPT 1 13 "@bRaggruppamenti"
END

BOOLEAN F_GROUP_CODIMP
BEGIN
  PROMPT 2 14 "Per impianto "
  MESSAGE FALSE CLEAR,F_GROUP_CODLOC
  MESSAGE TRUE ENABLE,F_GROUP_CODLOC
END

BOOLEAN F_GROUP_CODLOC
BEGIN
  PROMPT 20 14 "Per localita' "
END

GROUPBOX DLG_NULL 38 3
BEGIN
  PROMPT 41 13 "@bEsclusioni"
END

BOOLEAN F_EXCLUDE_ALIENS
BEGIN
  PROMPT 42 14 "Escludere i cespiti alienati"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 16 "@bAnalitica"
  GROUP 2
END

STRING F_CODCMS 20
BEGIN
  PROMPT 2 17 "Commessa "
  USE LF_COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCMS DESCRIZ
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESCMS 50 39
BEGIN
  PROMPT 36 17 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ F_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_CODFASE 10
BEGIN
  PROMPT 2 18 "Fase     "
  USE LF_FASI
  INPUT CODCMSFAS F_CODCMS SELECT
  INPUT CODFASE F_CODFASE
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODFASE CODFASE
  OUTPUT F_DESFASE DESCRIZ
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESFASE 50 39
BEGIN
  PROMPT 36 18 ""
  FLAGS "D"
  GROUP 2
END

STRING F_CODCDC 20
BEGIN
  PROMPT 2 19 "C. costo "
  USE LF_CDC
  INPUT CODCOSTO F_CODCDC
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCDC CODCOSTO
  OUTPUT F_DESCDC DESCRIZ
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESCDC 50 39
BEGIN
  PROMPT 36 19 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ F_DESCDC
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT F_CODCDC
  GROUP 2
END

ENDPAGE