#include "ce3900.h"

TOOLBAR "topbar" 0 0 0 2

#define EXPORT_EXCEL

#include <aprintbar.h>
ENDPAGE

PAGE "Registro cespiti sintetico" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 ""
END

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

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

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 2 3 "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 3 "Data inizio "
  FLAGS "D"
END

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

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 2 4 "Gruppo    "
  FLAGS "Z"
END

STRING F_SPECIE 4
BEGIN
  PROMPT 17 4 "Specie "
  FLAGS "_"
  USE CCB 
  JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@50" 400@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  CHECKTYPE FORCED
  GROUP 1
END

STRING F_DESC_GRSP 60 44
BEGIN
  PROMPT 31 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 78 3
BEGIN 
  PROMPT 0 13 "@bOrdinamento per"
END

BOOLEAN F_SORTCAT
BEGIN
 PROMPT 1 14 "Categoria"
 MESSAGE TRUE ENABLE,F_TOTCAT|"X",F_TOTCAT
 MESSAGE FALSE CLEAR,F_TOTCAT
END

BOOLEAN F_SORTIMP
BEGIN
 PROMPT 14 14 "Impianto"
 MESSAGE TRUE ENABLE,F_TOTIMP|"X",F_TOTIMP
 MESSAGE FALSE CLEAR,F_TOTIMP
 END

BOOLEAN F_SORTLOC
BEGIN
 PROMPT 28 14 "Località"
 MESSAGE TRUE ENABLE,F_TOTLOC|"X",F_TOTLOC
 MESSAGE FALSE CLEAR,F_TOTLOC
END

BOOLEAN F_SORTCOMP
BEGIN
 PROMPT 42 14 "Completamento"
END

GROUPBOX DLG_NULL 40 3
BEGIN
  PROMPT 0 16 "@bTotali per"
END

BOOLEAN F_TOTCAT
BEGIN
  PROMPT 1 17 "Categoria"
END

BOOLEAN F_TOTIMP
BEGIN
  PROMPT 14 17 "Impianto"
END

BOOLEAN F_TOTLOC
BEGIN
  PROMPT 28 17 "Località"
END

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

BOOLEAN F_EXCLUDE_ALIENS
BEGIN
  PROMPT 42 17 "Cespiti alienati"
END

BOOLEAN F_CALCOLO
BEGIN
  PROMPT 2 19 "Esegui calcolo ammortamenti prima di stampare"
END

BOOLEAN F_BREAK
BEGIN
  PROMPT 2 20 "@bSalto pagina per categoria"
  FLAGS "Z"
END

ENDPAGE
ENDMASK