campo-sirio/ve/batbtip.uml

#include "batbtip.h"

TOOLBAR "" 0 20 60 2

#include "toolbar.h"

ENDPAGE

PAGE "Tabella tipi di documento" -1 -1 60 14

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 1 ""
  FLAG "R"
END

STRING F_CODTAB 4
BEGIN
  PROMPT 2 2 "Codice      "
  FIELD CODTAB
  USE %TIP
  CHECKTYPE REQUIRED
  INPUT CODTAB F_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODTAB CODTAB
  OUTPUT F_DESNUM S0
  KEY 1
  FLAG "UZ"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FIELD S0
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  CHECKTYPE REQUIRED
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODTAB
  KEY 2
END

STRING F_RIFERIMENTO 50
BEGIN
  PROMPT 2 5 "Riferimento              "
  FIELD S1
  CHECKTYPE NORMAL
END

STRING F_PROFILO 8
BEGIN
  PROMPT 2 6 "Profilo documento        "
  FIELD S4
  CHECKTYPE REQUIRED
END

STRING F_PSTAMPA 8
BEGIN
  PROMPT 2 7 "Profilo stampa documento "
  FIELD S5
  CHECKTYPE REQUIRED
END

NUMBER F_NCOPIE 3
BEGIN
  PROMPT 2 8 "Numero di copie          "
  FIELD I0
  NUM_EXPR {(#THIS_FIELD >= 0)}
  WARNING "Il numero di copie deve essere positivo"
END

LIST F_TIPO 24
BEGIN
  PROMPT 2 9 "Tipo del documento       "
  FIELD I1
  ITEM "0|Altro" MESSAGE ENABLE,2@
  ITEM "1|Bolla" MESSAGE CLEAR,2@
  ITEM "2|Fattura" MESSAGE ENABLE,2@
  ITEM "3|Ordine" MESSAGE CLEAR,2@
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 2 10 "Codice causale contabile "
  FIELD S6
  USE LF_CAUSALI
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCAUS DESCR
  CHECKTYPE NORMAL
  FLAG "U"
  GROUP 2
END

STRING F_DESCAUS 50
BEGIN
  PROMPT 2 11 "Descrizione              "
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  OUTPUT F_DESCAUS DESCR
  OUTPUT F_CODCAUS CODCAUS
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_CODCAUSANT 3
BEGIN
  PROMPT 2 12 "Codice causale  anticipo "
  FIELD S10
  USE LF_CAUSALI SELECT REG ==""
  INPUT CODCAUS F_CODCAUSANT
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCAUSANT CODCAUS
  OUTPUT F_DESCAUSANT DESCR
  CHECKTYPE NORMAL
  FLAG "U"
  GROUP 2
END

STRING F_DESCAUSANT 50
BEGIN
  PROMPT 2 13 "Descrizione              "
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCAUSANT
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  OUTPUT F_DESCAUSANT DESCR
  OUTPUT F_CODCAUSANT CODCAUS
  CHECKTYPE NORMAL
  GROUP 2
END

BOOLEAN F_SPESEAUT
BEGIN
  PROMPT 2 15 "Addebito automatico spese cliente"
  FIELD B0
END

BOOLEAN F_MOVMAG
BEGIN
  PROMPT 2 16 "Mov. di mag. a partire dallo stato "
  FIELD B1
  MESSAGE FALSE CLEAR,1@
  MESSAGE TRUE ENABLE,1@
  MESSAGE FALSE CLEAR,1@
  MESSAGE TRUE ENABLE,1@
END

STRING F_STATO_MOV_I 1
BEGIN
  PROMPT 40 16 ""
  FIELD S7
  USE %STD
  INPUT CODTAB F_STATO_MOV_I
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_MOV_I CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  GROUP 1
  WARNING "Stato finale impossibile"
END

STRING F_STATO_MOV_F 1
BEGIN
  PROMPT 42 16 "allo stato "
  FIELD S8
  COPY USE F_STATO_MOV_I
  INPUT CODTAB F_STATO_MOV_F
  COPY DISPLAY F_STATO_MOV_I
  OUTPUT F_STATO_MOV_F CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  GROUP 1
  STR_EXPR {(#THIS_FIELD=="") || (#THIS_FIELD >= #F_STATO_MOV_I)}
  WARNING "Stato finale impossibile"
END

BOOLEAN F_SCARES
BEGIN
  PROMPT 58 16 "Scarica il residuo"
  FIELD B4 
  GROUP 1
END

STRING F_CAUS_MAG 5
BEGIN
  PROMPT 2 17 "Codice causale magazzino "
  FIELD S9
  USE %CAU
  INPUT CODTAB F_CAUS_MAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUS_MAG CODTAB
  OUTPUT F_DESCAUS_MAG S0
  CHECKYTPE REQUIRED
  FLAGS "U"
  ADD RUN mg0 -0 %CAU
  GROUP 1
END

STRING F_DESCAUS_MAG 50
BEGIN
  PROMPT 2 18 "Descrizione              "
  USE %CAU KEY 2
  INPUT S0 F_DESCAUS_MAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CAUS_MAG
  ADD RUN mg0 -0 %CAU
  CHECKTYPE NORMAL
  GROUP 1
END

BOOLEAN F_STATV
BEGIN
  PROMPT 2 19 "Attivo per le statistiche di vendita"
  FIELD B2
END

BOOLEAN F_PROVV
BEGIN
  PROMPT 2 20 "Attivo per le provvigioni"
  FIELD B3
  MESSAGE FALSE CLEAR,3@
  MESSAGE TRUE ENABLE,3@
END

STRING F_STATO_PROVV 1
BEGIN
  PROMPT 44 20 "Stato "
  FIELD S3
  USE %STD
  INPUT CODTAB F_STATO_PROVV
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_PROVV CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  GROUP 3
  WARNING "Stato impossibile"
END

ENDPAGE

PAGE "Stati validi" -1 -1 60 14

STRING F_STATOF_INS 1
BEGIN
  PROMPT 2 1 "Stato finale dopo l'inserimento "
  FIELD S2[1,1]
  USE %STD
  INPUT CODTAB F_STATOF_INS
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOF_INS CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 2 "Stati iniziali validi per la modifica"
END

STRING F_STATOI_MOD_1 1
BEGIN
  PROMPT 2 3 "1  "
  FIELD S2[10,10]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_1
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_1 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_2 1
BEGIN
  PROMPT 17 3 "2  "
  FIELD S2[11,11]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_2
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_2 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_3 1
BEGIN
  PROMPT 32 3 "3  "
  FIELD S2[12,12]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_3
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_3 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_4 1
BEGIN
  PROMPT 47 3 "4  "
  FIELD S2[13,13]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_4
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_4 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_5 1
BEGIN
  PROMPT 62 3 "5  "
  FIELD S2[14,14]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_5
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_5 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_6 1
BEGIN
  PROMPT 2 4 "6  "
  FIELD S2[15,15]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_6
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_6 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_7 1
BEGIN
  PROMPT 17 4 "7  "
  FIELD S2[16,16]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_7
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_7 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_8 1
BEGIN
  PROMPT 32 4 "8  "
  FIELD S2[17,17]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_8
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_8 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_9 1
BEGIN
  PROMPT 47 4 "9  "
  FIELD S2[18,18]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_9
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_9 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_10 1
BEGIN
  PROMPT 62 4 "10 "
  FIELD S2[19,19]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_10
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_10 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_11 1
BEGIN
  PROMPT 2 5 "11 "
  FIELD S2[20,20]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_11
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_11 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_12 1
BEGIN
  PROMPT 17 5 "12 "
  FIELD S2[21,21]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_12
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_12 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_13 1
BEGIN
  PROMPT 32 5 "13 "
  FIELD S2[22,22]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_13
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_13 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_14 1
BEGIN
  PROMPT 47 5 "14 "
  FIELD S2[23,23]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_14
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_14 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_15 1
BEGIN
  PROMPT 62 5 "15 "
  FIELD S2[24,24]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_15
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_15 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_16 1
BEGIN
  PROMPT 2 6 "16 "
  FIELD S2[25,25]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_16
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_16 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_17 1
BEGIN
  PROMPT 17 6 "17 "
  FIELD S2[26,26]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_17
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_17 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_18 1
BEGIN
  PROMPT 32 6 "18 "
  FIELD S2[27,27]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_18
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_18 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_19 1
BEGIN
  PROMPT 47 6 "19 "
  FIELD S2[28,28]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_19
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_19 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_MOD_20 1
BEGIN
  PROMPT 62 6 "20 "
  FIELD S2[29,29]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_MOD_20
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_MOD_20 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 8 "Stati iniziali validi per la cancellazione"
END

STRING F_STATOI_CANC_1 1
BEGIN
  PROMPT 2 9 "1  "
  FIELD S2[30,30]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_1
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_1 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_2 1
BEGIN
  PROMPT 17 9 "2  "
  FIELD S2[31,31]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_2
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_2 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_3 1
BEGIN
  PROMPT 32 9 "3  "
  FIELD S2[32,32]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_3
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_3 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_4 1
BEGIN
  PROMPT 47 9 "4  "
  FIELD S2[33,33]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_4
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_4 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_5 1
BEGIN
  PROMPT 62 9 "5  "
  FIELD S2[34,34]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_5
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_5 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_6 1
BEGIN
  PROMPT 2 10 "6  "
  FIELD S2[35,35]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_6
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_6 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_7 1
BEGIN
  PROMPT 17 10 "7  "
  FIELD S2[36,36]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_7
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_7 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_8 1
BEGIN
  PROMPT 32 10 "8  "
  FIELD S2[37,37]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_8
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_8 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_9 1
BEGIN
  PROMPT 47 10 "9  "
  FIELD S2[38,38]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_9
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_9 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_10 1
BEGIN
  PROMPT 62 10 "10 "
  FIELD S2[39,39]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_10
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_10 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_11 1
BEGIN
  PROMPT 2 11 "11 "
  FIELD S2[40,40]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_11
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_11 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_12 1
BEGIN
  PROMPT 17 11 "12 "
  FIELD S2[41,41]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_12
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_12 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_13 1
BEGIN
  PROMPT 32 11 "13 "
  FIELD S2[42,42]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_13
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_13 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_14 1
BEGIN
  PROMPT 47 11 "14 "
  FIELD S2[43,43]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_14
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_14 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_15 1
BEGIN
  PROMPT 62 11 "15 "
  FIELD S2[44,44]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_15
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_15 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_16 1
BEGIN
  PROMPT 2 12 "16 "
  FIELD S2[45,45]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_16
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_16 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_17 1
BEGIN
  PROMPT 17 12 "17 "
  FIELD S2[46,46]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_17
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_17 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_18 1
BEGIN
  PROMPT 32 12 "18 "
  FIELD S2[47,47]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_18
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_18 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_19 1
BEGIN
  PROMPT 47 12 "19 "
  FIELD S2[48,48]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_19
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_19 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_CANC_20 1
BEGIN
  PROMPT 62 12 "20 "
  FIELD S2[49,49]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_CANC_20
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_CANC_20 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 14 "Stati iniziali validi per la stampa"
END

STRING F_STATOI_ST_1 1
BEGIN
  PROMPT 2 15 "1  "
  FIELD S2[50,50]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_1
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_1 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_2 1
BEGIN
  PROMPT 17 15 "2  "
  FIELD S2[51,51]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_2
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_2 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_3 1
BEGIN
  PROMPT 32 15 "3  "
  FIELD S2[52,52]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_3
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_3 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_4 1
BEGIN
  PROMPT 47 15 "4  "
  FIELD S2[53,53]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_4
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_4 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_5 1
BEGIN
  PROMPT 62 15 "5  "
  FIELD S2[54,54]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_5
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_5 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_6 1
BEGIN
  PROMPT 2 16 "6  "
  FIELD S2[55,55]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_6
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_6 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_7 1
BEGIN
  PROMPT 17 16 "7  "
  FIELD S2[56,56]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_7
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_7 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_8 1
BEGIN
  PROMPT 32 16 "8  "
  FIELD S2[57,57]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_8
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_8 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_9 1
BEGIN
  PROMPT 47 16 "9  "
  FIELD S2[58,58]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_9
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_9 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_10 1
BEGIN
  PROMPT 62 16 "10 "
  FIELD S2[59,59]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_10
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_10 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_11 1
BEGIN
  PROMPT 2 17 "11 "
  FIELD S2[60,60]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_11
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_11 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_12 1
BEGIN
  PROMPT 17 17 "12 "
  FIELD S2[61,61]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_12
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_12 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_13 1
BEGIN
  PROMPT 32 17 "13 "
  FIELD S2[62,62]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_13
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_13 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_14 1
BEGIN
  PROMPT 47 17 "14 "
  FIELD S2[63,63]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_14
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_14 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_15 1
BEGIN
  PROMPT 62 17 "15 "
  FIELD S2[64,64]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_15
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_15 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_16 1
BEGIN
  PROMPT 2 18 "16 "
  FIELD S2[65,65]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_16
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_16 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_17 1
BEGIN
  PROMPT 17 18 "17 "
  FIELD S2[66,66]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_17
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_17 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_18 1
BEGIN
  PROMPT 32 18 "18 "
  FIELD S2[67,67]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_18
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_18 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_19 1
BEGIN
  PROMPT 47 18 "19 "
  FIELD S2[68,68]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_19
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_19 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOI_ST_20 1
BEGIN
  PROMPT 62 18 "20 "
  FIELD S2[49,49]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOI_ST_20
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOI_ST_20 CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

STRING F_STATOF_ST 1
BEGIN
  PROMPT 2 20 "Stato finale dopo la stampa definitiva "
  FIELD S2[2,2]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOF_ST
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOF_ST CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato finale assente"
END

ENDPAGE
ENDMASK