campo-sirio/ce/ce3300a.uml

#include "ce3300a.h"

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

PAGE "Selezione stampa prospetto cespiti" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bParametri ditta"
  FLAGS "R"
END

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

STRING F_DESCRDITTA 60
BEGIN
  PROMPT 18 2 ""
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 2 3 "Esercizio "
  FLAGS "Z"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_INIZIO_ES D0
  OUTPUT F_FINE_ES D1
  OUTPUT F_ESERCIZIO CODTAB
  CHECKTYPE REQUIRED 
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 2 4 "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 REQUIRED
END

STRING F_D_GRUPPO 60 58
BEGIN
  PROMPT 20 4 ""
  FLAGS "D"
END

STRING F_SPECIE 4
BEGIN
  PROMPT 2 5 "Specie    "
  FLAGS "_"
  USE CCB KEY 1
  JOIN %CAT ALIAS 400 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@50" 400@->S0
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_D_SPECIE 400@->S0      
  CHECKTYPE REQUIRED
END

STRING F_D_SPECIE 60 58
BEGIN
  PROMPT 20 5 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 7 "@bSituazione"
END

BOOLEAN F_SITFISC
BEGIN
  PROMPT 2 8 "Fiscale"   
END

BOOLEAN F_SITCIV
BEGIN
  PROMPT 22 8 "Civilistica"
END

BOOLEAN F_SITGEST
BEGIN
  PROMPT 42 8 "Gestionale"
END

RADIOBUTTON F_ORDINA 78
BEGIN
  PROMPT 1 10 "@bOrdinamento"
  ITEM "0|Ordinato per Categoria"
  ITEM "1|Ordinato per Impianto"
  FLAGS "Z"  
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 13 "@bEsclusioni"
END

BOOLEAN F_EXCLUDE_ALIENS
BEGIN
  PROMPT 2 14 "Cespiti alienati"
END

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

STRING F_CODCDC 20
BEGIN
  PROMPT 2 17 "C.d.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
  FLAGS "U"
  FIELD CODCDC
  GROUP 1
END

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

STRING F_CODCMS 20
BEGIN
  PROMPT 2 18 "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
  FLAGS "U"
  GROUP 1
  FIELD CODCMS
END

STRING F_DESCMS 50 39
BEGIN
  PROMPT 35 18 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ F_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
  GROUP 1
END

STRING F_CODFASE 10
BEGIN
  PROMPT 2 19 "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
  FLAGS "U"
  GROUP 1
  FIELD CODFASE
END

STRING F_DESFASE 50 39
BEGIN
  PROMPT 35 19 ""
  FLAGS "D"
  GROUP 1
END*/

ENDPAGE
ENDMASK