campo-sirio/ce/ce3900.uml

#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 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 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

ENDPAGE

ENDMASK