campo-sirio/src/ve/vetbtip.uml

#include "vetbtip.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <filebar.h>

BUTTON DLG_NULL 2 2
BEGIN
END

BUTTON DLG_CONFIG 2 2
BEGIN
  PROMPT -12 -1 "~Handlers"
  PICTURE TOOL_CONFIG
END

#include <cancelbar.h>

ENDPAGE

PAGE "Tipi documento" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

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

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

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

LIST F_TIPO 24
BEGIN
  PROMPT 2 4 "Tipo documento "
  FIELD I1
  ITEM "0|Altro" MESSAGE ENABLE,2@|ENABLE,F_LORDO|DISABLE,F_QUADRO
  ITEM "1|Bolla" MESSAGE CLEAR,2@|ENABLE,F_LORDO|DISABLE,F_QUADRO
  ITEM "2|Fattura" MESSAGE ENABLE,2@|ENABLE,F_LORDO|DISABLE,F_QUADRO
  ITEM "3|Ordine" MESSAGE CLEAR,2@|ENABLE,F_LORDO|ENABLE,F_QUADRO
  ITEM "4|Scontrino" MESSAGE ENABLE,2@|DISABLE,F_LORDO|"X",F_LORDO|DISABLE,F_QUADRO
  ITEM "5|Conferimento soci" MESSAGE CLEAR,2@|DISABLE,F_QUADRO
  ITEM "6|Prestazioni ai soci" MESSAGE ENABLE,2@|DISABLE,F_QUADRO
END

STRING F_PROFILO 8
BEGIN
  PROMPT 45 4 "Profilo d'inserimento "
  FIELD S4[1,8]
  CHECKTYPE REQUIRED
END

LIST F_TIPO_SDI_TIP 40
BEGIN
  PROMPT 2 5 "Tipo documento SDI "
  FIELD S3[37,40]
  ITEM "|"
  ITEM "TD01|TD01 Fattura" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD02|TD02 Acconto/Anticipo su fattura" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD03|TD03 Acconto/Anticipo su parcella" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD04|TD04 Nota di credito" MESSAGE ENABLE,F_NOTACREDDEB|"X"
  ITEM "TD05|TD05 Nota di debito" MESSAGE ENABLE,F_NOTACREDDEB|"X"
  ITEM "TD06|TD06 Parcella" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD16|TD16 Integraz. fatt. rev.ch. interno" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD17|TD17 Integ./autof. acq. servizi estero" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD18|TD18 Integ. acq. beni intracomunitari" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD19|TD19 Integ./autof. acq. beni ex art. 17" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD20|TD20 Autofattura" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD21|TD21 Autofattura per splafonamento" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD22|TD22 Estrazione beni da Deposito IVA" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD23|TD23 Estr. beni Deposito IVA vers. IVA" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD24|TD24 Fatt. differita art.21 c.4 lett. a" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD25|TD25 Fatt. differita art. 21 c.4 per.3 b" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD26|TD26 Cess. beni ammort./passaggi interni" MESSAGE ENABLE,F_NOTACREDDEB|""
  ITEM "TD27|TD27 Fatt. autoconsumo/cessioni gratuite" MESSAGE ENABLE,F_NOTACREDDEB|""
END

BOOLEAN F_ESPORTA_FP
BEGIN
  PROMPT 65 5 "Invio XML"
  FIELD B13
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 6 "@bProfili di stampa"
END

STRING F_PSTAMPA 8
BEGIN
  PROMPT 2 7 "Profilo stampa principale "
  FIELD S5[1,8]
  MESSAGE EMPTY CLEAR,4@
  MESSAGE ENABLE,4@
END

NUMBER FT_NCOPIE 3
BEGIN
  PROMPT 42 7 "Numero di copie "
  FIELD I0
  FLAGS "U"
END

STRING F_PMAIL 8
BEGIN
  PROMPT 2 8 "Profilo per invio e-mail  "
  FIELD S5[17,24]
END

STRING F_PSTAMPA2 8
BEGIN
  PROMPT 2 9 "Profilo stampa aggiuntivo "
  FIELD S5[9,16]
	GROUP 4
END

NUMBER F_NCOPIE2 3
BEGIN
  PROMPT 42 9 "Numero di copie "
  FIELD I2
  FLAGS "U"
  WARNING "Il numero di copie deve essere positivo"
	GROUP 4
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 2 11 "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
  ADD RUN CG0 -4
END

STRING F_DESCAUS 50
BEGIN
  PROMPT 26 11 ""
  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 "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 26 12 ""
  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_NOTACREDDEB
BEGIN
  PROMPT 2 13 "Nota di cred/deb"
  FIELD B7
END

LIST F_REG_FISC 40
BEGIN
  PROMPT 23 13 "Regime Fisc. "
  FIELD S3[41,44]
  ITEM "|"
  ITEM "RF01|RF01 Ordinario"
  ITEM "RF02|RF02 Contribuenti minimi"
  ITEM "RF04|RF04 Agricoltura, connesse e pesca"
  ITEM "RF05|RF05 Vendita sali e tabacchi"
  ITEM "RF06|RF06 Commercio fiammiferi"
  ITEM "RF07|RF07 Editoria"
  ITEM "RF08|RF08 Gestione servizi tel. pubblica"
  ITEM "RF09|RF09 Rivendita DdT pubblico e di sosta"
  ITEM "RF10|RF10 Intr., giochi e altre attivit<69>"
  ITEM "RF11|RF11 Agenzie viaggi e turismo"
  ITEM "RF12|RF12 Agriturismo"
  ITEM "RF13|RF13 Vendite a domicilio"
  ITEM "RF14|RF14 Rivendita usato, arte, ant. o col."
  ITEM "RF15|RF15 Asta d<>arte, ant. o da col."
  ITEM "RF16|RF16 IVA per cassa P.A."
  ITEM "RF17|RF17 IVA per cassa"
  ITEM "RF18|RF18 Altro"
  ITEM "RF19|RF19 Regime forfettario"
END

BOOLEAN F_SPESEAUT
BEGIN
  PROMPT 2 14 "Add.auto spese cliente"
  FIELD B0
END

BOOLEAN F_FATCOM
BEGIN
  PROMPT 30 14 "Calc.fatt.commerciale"
  FIELD B9
END

BOOLEAN F_LORDO
BEGIN
  PROMPT 55 14 "Calc.importi al lordo"
  FIELD B8
  MESSAGE TRUE CLEAR,F_FATCOM
  MESSAGE FALSE ENABLE,F_FATCOM
END

BOOLEAN F_MOVMAG
BEGIN
  PROMPT 2 15 "Mov. magazzino"
  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 24 15 "dallo stato "
  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 15 "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 15 "Scarica il residuo"
  FIELD B4 
  GROUP 1
END

STRING F_CAUS_MAG 5
BEGIN
  PROMPT 2 16 "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 48
BEGIN
  PROMPT 28 16 ""
  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 17 "Attivo per le statistiche di vendita"
  FIELD B2
END

BOOLEAN F_CLIFO_OPT
BEGIN
  PROMPT 44 17 "Cliente/Fornitore non obbligatorio"
  FIELD B5
END

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

STRING F_STATO_PROVV 1
BEGIN
  PROMPT 44 18 "Stato "
  FIELD S3[1,1]
  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

BOOLEAN F_CONAI
BEGIN
  PROMPT 2 19 "Addebito CONAI"
  FIELD B6
END

BOOLEAN F_QUADRO
BEGIN
  PROMPT 44 19 "Ordine quadro"
  FIELD B12
END

ENDPAGE

PAGE "Stati validi" 0 2 0 0

STRING F_STATOF_INS 1
BEGIN
  PROMPT 1 1 "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

STRING F_STATOF_ST 1
BEGIN
  PROMPT 22 1 "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

STRING F_STATOBLC 1
BEGIN
  PROMPT 45 1 "Bloccato "
  FIELD S2[3,3]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOBLC
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOBLC CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato assente"
END

STRING F_STATOCHI 1
BEGIN
  PROMPT 62 1 "Chiuso "
  FIELD S2[4,4]
  COPY USE F_STATOF_INS
  INPUT CODTAB F_STATOBLC
  COPY DISPLAY F_STATOF_INS
  OUTPUT F_STATOCHI CODTAB
  CHECKYTPE NORMAL
  FLAGS "U"
  WARNING "Stato assente"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 2 "Stati 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 assente"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 8 "Stati 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 assente"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 14 "Stati 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 assente"
END

STRING F_STATOI_ST_20 1
BEGIN
  PROMPT 62 18 "20 "
  FIELD S2[69,69]
  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 assente"
END

ENDPAGE


PAGE "Cod.IVA / Configurazioni" 0 2 0 0

GROUPBOX DLG_NULL 32 7
BEGIN
  PROMPT 1 1 "@bCodici iva ammessi"
EN

BOOLEAN F_IVA_NO
BEGIN
  PROMPT 2 2 "Regime Normale"
  FIELD S11[1,1]
END

BOOLEAN F_IVA_RV
BEGIN
  PROMPT 2 3 "Ricavi da ventilare"
  FIELD S11[2,2]
END

BOOLEAN F_IVA_ES
BEGIN
  PROMPT 2 4 "Operazioni esenti"
  FIELD S11[3,3]
END

BOOLEAN F_IVA_NI
BEGIN
  PROMPT 2 5 "Non imponibili"
  FIELD S11[4,4]
END

BOOLEAN F_IVA_NS
BEGIN
  PROMPT 2 6 "Non soggetti"
  FIELD S11[5,5]
END

GROUPBOX DLG_NULL 45 3
BEGIN
  PROMPT 38 1 "@bIntra"
END

STRING F_NATURA 1
BEGIN
  PROMPT 39 2 "Natura transazione "
  FLAGS "U"
  USE %INT
  INPUT CODTAB F_NATURA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NATURA CODTAB
  FIELD S3[4,4]
END

GROUPBOX DLG_NULL 45 3
BEGIN
  PROMPT 38 5 "@bPersonalizzazioni FP"
END

STRING F_CODCUSTFP 10
BEGIN
  PROMPT 39 6 "Codice pers. FP "
  FIELD S13[1,10]
  USE FPCUST
  INPUT CODICE F_CODCUSTFP
  DISPLAY "Codice" CODICE
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODCUSTFP CODICE
  HELP "Codice della personalizzazione FP da applicare al tipo documento"
  MODULE FP
END

GROUPBOX DLG_NULL 62 4
BEGIN
  PROMPT 1 8 "@bStampa documenti avanzata"
END

BOOLEAN FT_GOLEM
BEGIN
  PROMPT 2 9 "Allega documenti specificati in anagrafica articoli"
  FIELD B10
END

BOOLEAN F_ESPONIDIC
BEGIN
	PROMPT 2 10 "Non esporre dicitura fattura di cortesia per FP"
  FIELD B14
END

BOOLEAN F_ADDROW
BEGIN
  PROMPT 38 4 "Crea 10 righe vuote in inserimento"
  FIELD B11
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 12 "@bElaborazioni automatiche"
END

STRING F_CODELAB 8
BEGIN
   PROMPT 2 13 "Salva      "
   FLAG "U"
   FIELD S3[5,12]
   CHECKTYPE NORMAL
	 USE %ELD
   INPUT CODTAB F_CODELAB
   DISPLAY "Codice@10" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODELAB CODTAB
   OUTPUT F_DESCELAB S0
   HELP "Codice dell'elaborazione differita da eseguire"
END

STRING F_DESCELAB 50
BEGIN
  PROMPT 26 13 ""
  CHECKTYPE SEARCH
  WARNING "E' necessario specificare un valore"
  USE %ELD KEY 2
  INPUT S0 F_DESCELAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODELAB
END

STRING F_CODELABS 8
BEGIN
   PROMPT 2 14 "Stampa     "
   FLAG "U"
   FIELD S3[13,20]
   CHECKTYPE NORMAL
	 COPY USE F_CODELAB
   INPUT CODTAB F_CODELABS
   COPY DISPLAY F_CODELAB
   OUTPUT F_CODELABS CODTAB
   OUTPUT F_DESCELABS S0
   HELP "Codice dell'elaborazione differita da eseguire"
END

STRING F_DESCELABS 50
BEGIN
  PROMPT 26 14 ""
  COPY USE F_DESCELAB
  INPUT S0 F_DESCELABS
  COPY DISPLAY F_DESCELAB
  COPY OUTPUT F_CODELABS
  CHECKTYPE NORMAL
END

STRING F_CODELABD 8
BEGIN
   PROMPT 2 15 "Definitivo "
   FLAG "U"
   FIELD S3[21,28]
   CHECKTYPE NORMAL
	 COPY USE F_CODELAB
   INPUT CODTAB F_CODELABD
   COPY DISPLAY F_CODELAB
   OUTPUT F_CODELABD CODTAB
   OUTPUT F_DESCELABD S0
   HELP "Codice dell'elaborazione differita da eseguire"
END

STRING F_DESCELABD 50
BEGIN
  PROMPT 26 15 ""
  COPY USE F_DESCELAB
  INPUT S0 F_DESCELABD
  COPY DISPLAY F_DESCELAB
  COPY OUTPUT F_CODELABD
  CHECKTYPE NORMAL
END

STRING F_CODELABK 8
BEGIN
   PROMPT 2 16 "Speciale   "
   FLAG "U"
   FIELD S3[29,36]
   CHECKTYPE NORMAL
	 COPY USE F_CODELAB
   INPUT CODTAB F_CODELABD
   COPY DISPLAY F_CODELAB
   OUTPUT F_CODELABK CODTAB
   OUTPUT F_DESCELABK S0
   HELP "Codice dell'elaborazione differita da eseguire"
END

STRING F_DESCELABK 50
BEGIN
  PROMPT 26 16 ""
  COPY USE F_DESCELAB
  INPUT S0 F_DESCELABD
  COPY DISPLAY F_DESCELAB
  COPY OUTPUT F_CODELABK
  CHECKTYPE NORMAL
END

LIST F_CMSCHECK 1 13
BEGIN
  PROMPT 2 18 "Controllo commesse "
  FIELD I3
  ITEM "0|Bloccante"
  ITEM "1|Non Bloccante"
  ITEM "2|Nessuno"
END

BOOLEAN F_AUTOCLOSE
BEGIN
  PROMPT 2 20 "Chiusura automatica documenti"
  MESSAGE FALSE CLEAR,F_AUTOELAB
  MESSAGE TRUE ENABLE,F_AUTOELAB
  FIELD B15
END

STRING F_AUTOELAB 4
BEGIN
  PROMPT 2 22 "Elaborazione di chiusura automatica "
  FIELD S12
  USE %ELD SELECT I0=1 
  INPUT CODTAB F_AUTOELAB
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" I0
  OUTPUT F_AUTOELAB CODTAB
END
ENDPAGE

ENDMASK