campo-sirio/ce/ce1101b.uml

#include "ce1101b.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -13 -1 "~Registra" 
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 10 ""
  FLAGS "D"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

PAGE "Forzatura ammortamento sul cespite" 0 2 0 0 

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 0 1 "@bParametri ditta"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 2 ""
  FLAGS "D"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "DGZ"
  USE CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->D1
  CHECKTYPE REQUIRED
  KEY 1
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 1 4 "Gruppo    "
  FLAGS "DZ"
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "_D"
    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
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0

  CHECKTYPE NORMAL
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 5 "Cespite "
  FLAGS "DUZ"
  FIELD IDCESPITE
  KEY 1
END

STRING F_DESC 50
BEGIN
  PROMPT 24 5 ""
  FLAGS "D"
  USE LF_CESPI
  INPUT IDCESPITE F_IDCESPITE
  OUTPUT F_DESC DESC
  CHECKTYPE REQUIRED
END

NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 6 "Categoria "
  FLAGS "DBZG"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
  FIELD LF_CESPI->CODCAT
END

STRING F_DESC_CAT 60 58
BEGIN
  PROMPT 16 6 ""
  FLAGS "DB"
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 90 ""
  FLAGS "D"
  ITEM "2|2"
  FIELD TPSALDO
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 91 ""
  FLAGS "D"
  ITEM "2|2"
  FIELD 69@->TPSALDO
  GROUP 2
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 92 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD TPAMM
  GROUP 1
END

LIST DLG_NULL 1
BEGIN
  PROMPT 1 93 ""
  FLAGS "D"
  ITEM "2|2"
  FIELD 69@->TPAMM
  GROUP 2
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 8 "@bSituazione"
END

RADIOBUTTON F_SITUAZIONE 1 75
BEGIN
  PROMPT 1 8 ""
  FLAGS "Z"
  ITEM "F|Fiscale"               //group1 <20> quello fiscale, il group 2 quello civilistico
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "C|Civilistica"
    MESSAGE HIDE,1@|SHOW,2@
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 11 "@bForzatura"
END

BOOLEAN F_FORZATURA_Q_F
BEGIN
  PROMPT 17 12 "Quote "
  FLAGS "G"
  MESSAGE FALSE DISABLE,3@
  MESSAGE TRUE ENABLE,3@|DISABLE,4@
  FIELD FZQUO
  GROUP 1
END

BOOLEAN F_FORZATURA_P_F
BEGIN
  PROMPT 35 12 "Percentuale "
  FLAGS "G"
  MESSAGE FALSE DISABLE,4@
  MESSAGE TRUE ENABLE,4@|DISABLE,3@ 
  FIELD FZPER
  GROUP 1
END

BOOLEAN F_FORZATURA_Q_C
BEGIN
  PROMPT 17 12 "Quote "
  FLAGS "G"
  MESSAGE FALSE DISABLE,5@
  MESSAGE TRUE ENABLE,5@|DISABLE,6@ 
  FIELD 69@->FZQUO
  GROUP 2
END

BOOLEAN F_FORZATURA_P_C
BEGIN
  PROMPT 35 12 "Percentuale "
  FLAGS "G"
  MESSAGE FALSE DISABLE,6@
  MESSAGE TRUE ENABLE,6@|DISABLE,5@
  FIELD 69@->FZPER
  GROUP 2
END

GROUPBOX DLG_NULL 78 9
BEGIN
  PROMPT 0 14 "@b                    Valori Forzati             Valori Risultanti"
END

CURRENCY F_AMMNOR_F 15
BEGIN
  PROMPT 1 15 "Normale         "
  FIELD QNOR
  GROUP 1
  GROUP 3
END

CURRENCY F_AMMNOR_C 15
BEGIN
  PROMPT 1 15 "Normale         "
  FIELD 69@->QNOR
  GROUP 2
  GROUP 5
END

CURRENCY F_AMMACC_F 15
BEGIN
  PROMPT 1 16 "Accelerato      "
  FIELD QACC
  GROUP 1
  GROUP 3
END

CURRENCY F_AMMACC_C 15
BEGIN
  PROMPT 1 16 "Accelerato      "
  FIELD 69@->QACC
  GROUP 2
  GROUP 5
END

CURRENCY F_AMMANT_F 15
BEGIN
  PROMPT 1 17 "Anticipato      "
  FIELD QANT
  GROUP 1
  GROUP 3
END

CURRENCY F_AMMANT_C 15
BEGIN
  PROMPT 1 17 "Anticipato      "
  FIELD 69@->QANT
  GROUP 2
  GROUP 5
END

CURRENCY F_QUOTE_PERSE 15
BEGIN
  PROMPT 1 18 "Quote perse     "
  FIELD QPERSE
  GROUP 1
  GROUP 3
END

CURRENCY F_PRIVATO 15
BEGIN
  PROMPT 1 19 "Privato         "
  FIELD FPRIVATO
  GROUP 1
  GROUP 3
END

CURRENCY F_QUOTE_PRIV 15
BEGIN
  PROMPT 1 20 "Quote per priv. "
  FIELD QPPRIVATE
  GROUP 1
  GROUP 3
END

CURRENCY F_FRINGEBEN 15
BEGIN
  PROMPT 1 21 "Fringe benefit  "
  FIELD FRINGEBEN
  FLAGS "D"
  GROUP 1
END

NUMBER F_P_AMMNOR_F 6 2
BEGIN
  PROMPT 35 15 ""
  FIELD PNOR
  GROUP 1
  GROUP 4
END

NUMBER F_P_AMMNOR_C 6 2
BEGIN
  PROMPT 35 15 ""
  FIELD 69@->PNOR
  GROUP 2
  GROUP 6
END

TEXT -1
BEGIN
  PROMPT 42 15 "%"
END

NUMBER F_P_AMMACC_F 6 2
BEGIN
  PROMPT 35 16 ""
  FIELD PACC
  GROUP 1
  GROUP 4
END

NUMBER F_P_AMMACC_C 6 2
BEGIN
  PROMPT 35 16 ""
  FIELD 69@->PACC
  GROUP 2
  GROUP 6
END

TEXT -1
BEGIN
  PROMPT 42 16 "%"
END

NUMBER F_P_AMMANT_F 6 2
BEGIN
  PROMPT 35 17 ""
  FIELD PANT
  GROUP 1
  GROUP 4
END

NUMBER F_P_AMMANT_C 6 2
BEGIN
  PROMPT 35 17 ""
  FIELD 69@->PANT
  GROUP 2
  GROUP 6
END

TEXT -1
BEGIN
  PROMPT 42 17 "%"
END

CURRENCY F_RIS_AMMNOR_F 15
BEGIN
  FLAGS "D"
  PROMPT 55 15 ""
  GROUP 1
END

CURRENCY F_RIS_AMMNOR_C 15
BEGIN
  FLAGS "D"
  PROMPT 55 15 ""
  GROUP 2
END

CURRENCY F_RIS_AMMACC_F 15
BEGIN
  FLAGS "D"
  PROMPT 55 16 ""
  GROUP 1
END

CURRENCY F_RIS_AMMACC_C 15
BEGIN
  FLAGS "D"
  PROMPT 55 16 ""
  GROUP 2
END

CURRENCY F_RIS_AMMANT_F 15
BEGIN
  FLAGS "D"
  PROMPT 55 17 ""
  GROUP 1
END

CURRENCY F_RIS_AMMANT_C 15
BEGIN
  FLAGS "D"
  PROMPT 55 17 ""
  GROUP 2
END

CURRENCY F_RIS_QUOTE_PERSE 15
BEGIN
  FLAGS "D"
  PROMPT 55 18 ""
  GROUP 1
END

CURRENCY F_RIS_PRIVATO 15
BEGIN
  FLAGS "D"
  PROMPT 55 19 ""
  GROUP 1
END

CURRENCY F_RIS_QUOTE_PRIV 15
BEGIN
  FLAGS "D"
  PROMPT 55 20 ""
  GROUP 1
END

CURRENCY F_RESIDUO_F 15
BEGIN
  FLAGS "D"
  PROMPT 45 21 "Residuo   "
  GROUP 1
END

CURRENCY F_RESIDUO_C 15
BEGIN
  FLAGS "D"
  PROMPT 45 21 "Residuo   "
  GROUP 2
END

ENDPAGE

ENDMASK