campo-sirio/ce/ce1201b.uml

#include "ce1201a.h"

TOOLBAR "Toolbar" 0 -2 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_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

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

ENDPAGE

PAGE "Forzatura ammortamento sul movimento" -1 -1 78 18

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 0 1 "@bParametri movimento selezionato"
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

NUMBER F_IDCESPITE 10
BEGIN
  PROMPT 1 5 "Cespite "
  FLAGS "DZ"
  FIELD IDCESPITE
  KEY 1
END

STRING F_DESC_CES 53
BEGIN
  PROMPT 23 5 ""
  FLAGS "D"
  USE LF_CESPI
  INPUT IDCESPITE F_IDCESPITE
  OUTPUT F_DESC_CES DESC
  CHECKTYPE REQUIRED
END

DATE F_DTMOV
BEGIN
  PROMPT 1 6 "Data Movimento "
  FLAGS "D"
  FIELD DTMOV
END

NUMBER F_IDMOV 11
BEGIN
  PROMPT 33 6 "N. Mov. "
  FLAGS "DZ"
  FIELD IDMOV
END

STRING F_CODMOV 1
BEGIN
  PROMPT 58 6 "Cod. Tipo "
  FLAGS "D"
  FIELD CODMOV
END

STRING F_DESC_MOV 63
BEGIN
  PROMPT 1 7 "Descrizione "
  FLAGS "D"
  FIELD DESC
END

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

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

TEXT DLG_NULL
BEGIN
  PROMPT 0 9 "@bSituazione"
END

RADIOBUTTON F_SITUAZIONE 1 75
BEGIN
  PROMPT 16 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

TEXT DLG_NULL
BEGIN
  PROMPT 0 10 "@bForzatura"
END

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

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

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

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

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

CURRENCY F_AMMNOR_F 15
BEGIN
  PROMPT 1 12 "Normale         "
  FIELD 69@->QNOR
  GROUP 1
  GROUP 3
END

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

CURRENCY F_AMMACC_F 15
BEGIN
  PROMPT 1 13 "Accelerato      "
  FIELD 69@->QACC
  GROUP 1
  GROUP 3
END

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

CURRENCY F_AMMANT_F 15
BEGIN
  PROMPT 1 14 "Anticipato      "
  FIELD 69@->QANT
  GROUP 1
  GROUP 3
END

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

CURRENCY F_QUOTE_PERSE 15
BEGIN
  PROMPT 1 15 "Quote perse     "
  FIELD 69@->QPERSE
  GROUP 1
  GROUP 3
END

CURRENCY F_PRIVATO 15
BEGIN
  PROMPT 1 16 "Privato         "
  FIELD 69@->FPRIVATO
  GROUP 1
  GROUP 3
END

CURRENCY F_QUOTE_PRIV 15
BEGIN
  PROMPT 1 17 "Quote per priv. "
  FIELD 69@->QPPRIVATE
  GROUP 1
  GROUP 3
END

NUMBER F_P_AMMNOR_F 6 2
BEGIN
  PROMPT 35 12 ""
  FIELD 69@->PNOR
  GROUP 1
  GROUP 4
END

NUMBER F_P_AMMNOR_C 6 2
BEGIN
  PROMPT 35 12 ""
  FIELD 77@->PNOR
  GROUP 2
  GROUP 6
END

TEXT -1
BEGIN
  PROMPT 42 12 "%"
END

NUMBER F_P_AMMACC_F 6 2
BEGIN
  PROMPT 35 13 ""
  FIELD 69@->PACC
  GROUP 1
  GROUP 4
END

NUMBER F_P_AMMACC_C 6 2
BEGIN
  PROMPT 35 13 ""
  FIELD 77@->PACC
  GROUP 2
  GROUP 6
END

TEXT -1
BEGIN
  PROMPT 42 13 "%"
END

NUMBER F_P_AMMANT_F 6 2
BEGIN
  PROMPT 35 14 ""
  FIELD 69@->PANT
  GROUP 1
  GROUP 4
END

NUMBER F_P_AMMANT_C 6 2
BEGIN
  PROMPT 35 14 ""
  FIELD 77@->PANT
  GROUP 2
  GROUP 6
END

TEXT -1
BEGIN
  PROMPT 42 14 "%"
END

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

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

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

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

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

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

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

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

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

CURRENCY F_RESIDUO_F 15
BEGIN
  FLAGS "D"
  PROMPT 31 19 "Residuo parti eliminate "
  GROUP 1
END

CURRENCY F_RESIDUO_C 15
BEGIN
  FLAGS "D"
  PROMPT 31 19 "Residuo parti eliminate "
  GROUP 2
END

CURRENCY F_PLUSMINUS_F 15
BEGIN
  FLAGS "D"
  PROMPT 31 20 "Plusval./Minus. patrim. "
  GROUP 1
END

CURRENCY F_PLUSMINUS_C 15
BEGIN
  FLAGS "D"
  PROMPT 31 20 "Plusval./Minus. patrim. "
  GROUP 2
END

ENDPAGE

ENDMASK