campo-sirio/ab/ab3100a.uml

#include "ab3100a.h"

TOOLBAR "" 0 19 0 2
#include <toolbar.h>
ENDPAGE
  

PAGE "Tabella di analisi" 0 -1 0 19

STRING F_CODICE_ANALISI 2 2
BEGIN
  PROMPT 1 3 "Codice:      "
  USE LF_ANALISI KEY 1
  INPUT CODAN F_CODICE_ANALISI
  DISPLAY "Codice" CODAN
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODICE_ANALISI CODAN
  OUTPUT F_DESCRIZIONE_ANALISI DESCRIZ
  FIELD CODAN
  CHECKTYPE REQUIRED
  KEY 1
  FLAGS "U"
END

STRING F_DESCRIZIONE_ANALISI 80 60
BEGIN
  PROMPT 1 5 "Descrizione: "
  FIELD DESCRIZ
  CHECKTYPE NORMAL
  KEY 2
  FLAGS "U"
END

ENDPAGE


PAGE "Gestione dati" 0 -1 0 19

TREE F_TREE 0 6
BEGIN
  PROMPT 0 1 ""
END

SPREADSHEET F_VISTA 0 9
BEGIN
  PROMPT 0 10 ""
  ITEM "Id@9"
  ITEM "Tipo"
  ITEM "Codice voce@12"
  ITEM "Comp"
  ITEM "Voce Incid."
  ITEM "Descrizione@80"
  ITEM "Usa caradd"
  ITEM "Cod. voce ass."
  ITEM "Id caradd"
  ITEM "Id coll. dich"
  ITEM "Coll. dich."
END

ENDPAGE

ENDMASK
    



TOOLBAR "" 0 19 0 3

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -3 -11 ""
END   

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -11 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -13 -11 ""
END

ENDPAGE

    
PAGE "" 0 -1 0 19
      
STRING F_ID 10
BEGIN
  PROMPT 1 4 "Identificatore:    "
  FLAGS "D"
END

STRING F_TIPO 1
BEGIN
  PROMPT 1 5 "Tipo cod:          "
  FLAGS "D"
END

STRING F_CODICE 10
BEGIN      
  PROMPT 1 6 "Codice voce padre: "
  FLAGS "_RD"
  CHECKTYPE NORMAL
END

STRING F_COMP 6
BEGIN
  PROMPT 1 7 "Num. comp.:        "
  FLAGS "D"
END

NUMBER F_VOCE_INC 12 0
BEGIN
  PROMPT 1 9 "Voce di incidenza: "
  FLAGS "Z"
END

STRING F_DESCR 80 50
BEGIN                            
  PROMPT 1 8 "Descrizione:       "
END

BOOLEAN F_USA_CARADD
BEGIN
  PROMPT 1 15 "Usa caratteristiche addizionali"
END

STRING F_COMPONENTE 12 12
BEGIN             
  PROMPT 1 10 "Codice voce:       "
  INPUT LF_VOCI F_COMPONENTE
  USE LF_RELVOCI KEY 1
  JOIN LF_VOCI TO LF_RELVOCI INTO CODVC=COMP
  INPUT LF_RELVOCI->TIPOCOD F_TIPO
  INPUT LF_RELVOCI->CODVC F_CODICE
  INPUT LF_RELVOCI->IDCOMP F_COMP
  DISPLAY "Codice@10" LF_VOCI->CODVC
  DISPLAY "Descrizione@40" LF_VOCI->DESCRIZ
  OUTPUT F_COMPONENTE LF_VOCI->CODVC
//  FLAGS "G"
END

NUMBER F_IDCARADD 12 0
BEGIN
  PROMPT 1 12 "Id delle carattestiche addizionali  "
  USE LF_CARADD KEY 1
  INPUT ID F_IDCARADD
  OUTPUT F_STAMPA_DETT STD
  OUTPUT F_COL_STM_IMP CLI
  OUTPUT F_CAR_SOPRA SPI
  OUTPUT F_CAR_SOTTO STI
  OUTPUT F_DESCR_TOT DST
  OUTPUT F_COL_STM_TOT CLT
  OUTPUT F_CAR_SOPRA_TOT SPT
  OUTPUT F_CAR_SOTTO_TOT STT
  OUTPUT F_STAMPA_IMP_TOT SVT
  OUTPUT F_LIV_STR LST
  OUTPUT F_FLAG_DA ODA
  OUTPUT F_LINEA_SALTA_SMP SKI
  OUTPUT F_LINEA_SALTA_TOT SKT
  OUTPUT F_NON_DSR_VOC_COM NDV
  OUTPUT F_RIGA_GRASS RII
  OUTPUT F_RIGA_TOT_VC_CMP RIT
  OUTPUT F_TVL TVL
  CHECKTYPE NORMAL
  FLAGS "D"
END

NUMBER F_ID_COLL 6 0
BEGIN
  PROMPT 1 13 "Identificatore del collegamento:    "
  FLAGS "D"
END

BOOLEAN F_USA_COLL
BEGIN
  PROMTP 1 16 "Utilizzo collegamento a dichiarazioni"
END



TEXT F_TESTO_GENERALE
BEGIN
  PROMPT 1 1 "@B Dati generali"
END

ENDPAGE


PAGE "Car. add." 0 -1 0 19

TEXT F_TESTO_CARADD
BEGIN
  PROMPT 1 1 "@B Caratteristiche addizionali"
END

NUMBER F_COL_STM_IMP 1 0
BEGIN
  PROMPT 1 3 "Colonna di stampa importo            "
END

NUMBER F_COL_STM_TOT 1 0
BEGIN
  PROMPT 1 4 "Colonna di stampa totale             "
END

STRING F_CAR_SOPRA 1 1
BEGIN
  PROMTP 1 5 "Carattere di sopralineatura          "
END

STRING F_CAR_SOTTO 1 1
BEGIN
  PROMPT 1 6 "Carattere di sottolineatura          "
END

STRING F_CAR_SOPRA_TOT 1 1
BEGIN
  PROMTP 1 7 "Carattere di sopralineatura totale   "
END
       
STRING F_CAR_SOTTO_TOT 1 1
BEGIN
  PROMTP 1 8 "Carattere di sottolineatura totale   "
END

NUMBER F_LIV_STR 1 0
BEGIN
  PROMPT 1 9 "Livello di struttura                 "
END

STRING F_FLAG_DA 1 1
BEGIN
  PROMPT 1 10 "Segno Dare/Avere per conti d'ordine  "
END

STRING F_TVL 1 1
BEGIN
  PROMPT 1 11 "Tipo valore                          "
END

NUMBER F_LINEA_SALTA_SMP 2 0
BEGIN
  PROMPT 1 12 "Linee di stampa da saltare (0-72)    "
END

NUMBER F_LINEA_SALTA_TOT 2 0
BEGIN
  PROMPT 1 13 "Linee di stampa da saltare per tot.  "
END


STRING F_DESCR_TOT 80 50
BEGIN
  PROMPT 1 15 "Descrizione totale "
END

BOOLEAN F_STAMPA_DETT
BEGIN
  PROMPT 1 16 " Stampa dettaglio"
END

BOOLEAN F_STAMPA_IMP_TOT
BEGIN
  PROMTP 1 17 " Stampa importo totale su riga voci"
END

BOOLEAN F_NON_DSR_VOC_COM
BEGIN 
  PROMPT 1 18 " Non stampare la descrizione di voce complessa"
END

BOOLEAN F_RIGA_GRASS
BEGIN
  PROMPT 45 16 " Riga voce grassetto"
END

BOOLEAN F_RIGA_TOT_VC_CMP
BEGIN
  PROMPT 45 17 " Riga tot. voce c. grass."
END

ENDPAGE


PAGE "Coll. dich." 0 -1 0 19

TEXT F_TESTO_COLLDICH
BEGIN
  PROMPT 1 1 "@B Collegamento a dichiarazione redditi"
END

NUMBER F_F4A 3 0
BEGIN
  PROMPT 1 5 "Rif. riga mod. 740/f:     "
END

STRING F_F4B 1 1
BEGIN
  PROMTP 1 6 "Riga bis 740/f:           "
END                                           

NUMBER F_P4A 3 0
BEGIN
  PROMPT 1 7 "Rif. pros. bil. mod. 740: "
END

STRING F_P4B 1 1
BEGIN
  PROMPT 1 8 "Riga bis pros. mod. 740:  "
END

NUMBER F_A5A 3 0
BEGIN
  PROMPT 1 9 "Rif. riga mod. 750/a:     "
END

STRING F_A5B 1 0
BEGIN
  PROMTP 1 10 "Riga bis mod 750/a:       "
END

NUMBER F_P5A 3 0
BEGIN
  PROMPT 1 11 "Rif. pros. bil. mod. 750: "
END

STRING F_P5B 1 1
BEGIN
  PROMPT 1 12 "Riga bis pros. mod. 750:  "
END

NUMBER F_A6A 3 0
BEGIN
  PROMPT 1 13 "Rif. riga mod. 760/a:     "
END

STRING F_A6B 1 0
BEGIN
  PROMPT 1 14 "Riga bis mod. 760/a:      "
END

NUMBER F_X4A 3 0
BEGIN
  PROMPT 1 15 "Rif. pros. cred. mod. 740:" 
END

STRING F_X4B 1 1
BEGIN
  PROMPT 1 16 "Riga bis cred. mod. 740:  "
END

NUMBER F_X5A 3 0
BEGIN
  PROMTP 1 17 "Rif. pros. cred. mod. 750:"
END

STRING F_X5B 1 1
BEGIN
  PROMPT 1 18 "Riga bis cred. mod. 750:  "
END

NUMBER F_X6A 3 0
BEGIN
  PROMTP 40 5 "Rif. pros. cred. mod. 760:"
END

STRING F_X6B 1 1
BEGIN
  PROMTP 40 6 "Riga bis cred. mod. 760:  "
END

NUMBER F_P6A 3 0
BEGIN
  PROMPT 40 7 "Rif. pros. bil. mod. 760: "
END

STRING F_P6B 1 1
BEGIN
  PROMPT 40 8 "Riga bis bil. mod. 760:   "
END     

NUMBER F_K4A 3 0
BEGIN                                    
  PROMTP 40 9 "Rif. mod. 740/k:          "
END

NUMBER F_K5A 3 0
BEGIN
  PROMPT 40 10 "Rif. mod. 750/k:          "
END

NUMBER F_K6A 3 0
BEGIN
  PROMTP 40 11 "Rif. mod. 760/k:          "
END


ENDPAGE

ENDMASK