campo-sirio/ce/ce3400a.uml

#include "ce3400a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -11 "~Stampa"
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Prospetto rivalutazioni" -1 -1 78 6

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@12" 105@->D0
   DISPLAY "Data fine@12" 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

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

RADIOBUTTON F_ORDINAMENTO 78
BEGIN
  PROMPT 1 12 "@bOrdinamento"
  ITEM "1|Per categoria"
    MESSAGE HIDE,2@|SHOW,1@
  ITEM "2|Per Impianto"
    MESSAGE HIDE,1@|SHOW,2@
END

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

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

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

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

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 16 "@bSelezione impianto"
  GROUP 2
END

NUMBER F_FROM_IMP 10
BEGIN
  PROMPT 2 17 "Dal "
  FLAGS "Z"
  USE CIM
  INPUT CODTAB F_FROM_IMP
  DISPLAY "Codice Impianto" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_FROM_IMP CODTAB
  OUTPUT F_D_FROM_IMP S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_D_FROM_IMP 50
BEGIN
  PROMPT 25 17 ""
  USE CIM KEY 2
  INPUT S0 F_D_FROM_IMP
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice Impianto" CODTAB
  COPY OUTPUT F_FROM_IMP
  CHECKTYPE NORMAL
  GROUP 2
END

NUMBER F_TO_IMP 10
BEGIN
  PROMPT 2 18 "Al  "
  FLAGS "Z"
  COPY USE F_FROM_IMP
  INPUT CODTAB F_TO_IMP
  COPY DISPLAY F_FROM_IMP
  OUTPUT F_TO_IMP CODTAB
  OUTPUT F_D_TO_IMP S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_D_TO_IMP 50
BEGIN
  PROMPT 25 18 ""
  COPY USE F_D_FROM_IMP
  INPUT S0 F_D_TO_IMP
  COPY DISPLAY F_D_FROM_IMP
  COPY OUTPUT F_TO_IMP
  CHECKTYPE NORMAL
  GROUP 2
END

ENDPAGE