campo-sirio/ce/ce1101b.uml

#include "ce1101b.h"

TOOLBAR "Toolbar" 0 -2 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -13 -1 ""
  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

ENDPAGE

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

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 "DAZ"
  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
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"
////  GROUP 1
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
////  GROUP 1
END

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

NUMBER F_IDCESPITE 10
BEGIN
  PROMPT 1 5 "Cespite "
  FLAGS "DZ"
  USE LF_CESPI SELECT (CODCGRA=#F_GRUPPO)&&(CODSPA=#F_SPECIE)
  INPUT IDCESPITE F_IDCESPITE
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_DESC DESC
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  KEY 1
////  GROUP 1
END

STRING F_DESC 50
BEGIN
  PROMPT 24 5 ""
  FLAGS "D"
  USE LF_CESPI KEY 2 SELECT (CODCGRA=#F_GRUPPO)&&(CODSPA=#F_SPECIE)
  INPUT DESC F_DESC
  COPY OUTPUT F_IDCESPITE
  CHECKTYPE REQUIRED
  FIELD DESC
  KEY 2
////  GROUP 1
END

NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 6 "Categoria "
  FLAGS "DBZ"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
  FIELD CODCAT
END

STRING F_DESC_CAT 60 58
BEGIN
  PROMPT 16 6 ""
  FLAGS "DB"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
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"
    MESSAGE SHOW,1@
  ITEM "C|Civilistica"
    MESSAGE HIDE,1@
END

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

RADIOBUTTON F_FORZATURA 1 75
BEGIN
  PROMPT 1 11 ""
  FLAGS "Z"
  ITEM "N|Nessuna"
//    MESSAGE SHOW,1@|HIDE,2@
  ITEM "Q|Quote"
//    MESSAGE SHOW,2@|HIDE,1@
  ITEM "P|Percentuali"
//    MESSAGE SHOW,2@|HIDE,1@
END

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

CURRENCY F_AMMNOR 15
BEGIN
  PROMPT 1 15 "Normale         "
END

CURRENCY F_AMMACC 15
BEGIN
  PROMPT 1 16 "Accelerato      "
END

CURRENCY F_AMMANT 15
BEGIN
  PROMPT 1 17 "Anticipato      "
END

NUMBER F_QUOTE_PERSE 15
BEGIN
  PROMPT 1 18 "Quote perse     "
  GROUP 1
END

NUMBER F_PRIVATO 15
BEGIN
  PROMPT 1 19 "Privato         "
  GROUP 1
END

NUMBER F_QUOTE_PRIV 15
BEGIN
  PROMPT 1 20 "Quote per priv. "
  GROUP 1
END

NUMBER F_P_AMMNOR 6 2
BEGIN
  PROMPT 35 15 ""
END

TEXT -1
BEGIN
  PROMPT 42 15 "%"
END

NUMBER F_P_AMMACC 6 2
BEGIN
  PROMPT 35 16 ""
END

TEXT -1
BEGIN
  PROMPT 42 16 "%"
END

NUMBER F_P_AMMANT 6 2
BEGIN
  PROMPT 35 17 ""
END

TEXT -1
BEGIN
  PROMPT 42 17 "%"
END

CURRENCY F_RIS_AMMNOR 15
BEGIN
  PROMPT 55 15 ""
END

CURRENCY F_RIS_AMMACC 15
BEGIN
  PROMPT 55 16 ""
END

CURRENCY F_RIS_AMMANT 15
BEGIN
  PROMPT 55 17 ""
END

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

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

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

CURRENCY F_RESIDUO 15
BEGIN
  PROMPT 45 21 "Residuo   "
END

ENDPAGE

ENDMASK