campo-sirio/ha/ha0200a.uml

#include "ha0200a.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

//----------------------------
PAGE "Contratti e NAC" 0 2 0 0

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 0 "@bTipi documento per fatture"
END

STRING F_CODTIPO_FAT 4
BEGIN
  PROMPT 2 1 "Immediate "
  USE %TIP
  INPUT CODTAB F_CODTIPO_FAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODTIPO_FAT CODTAB
  OUTPUT F_DESCRTIPO_FAT S0
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TipoFatt
END

STRING F_DESCRTIPO_FAT 50
BEGIN
  PROMPT 20 1 ""
  USE %TIP KEY 2
  INPUT S0 F_DESCRTIPO_FAT
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODTIPO_FAT
  CHECKTYPE NORMAL
END

STRING F_CODTIPO_FAT2 4
BEGIN
  PROMPT 2 2 "Differite "
  COPY USE F_CODTIPO_FAT
  INPUT CODTAB F_CODTIPO_FAT2
  COPY DISPLAY F_CODTIPO_FAT
  OUTPUT F_CODTIPO_FAT2 CODTAB
  OUTPUT F_DESCRTIPO_FAT2 S0
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TipoFatt2
END

STRING F_DESCRTIPO_FAT2 50
BEGIN
  PROMPT 20 2 ""
  COPY USE F_DESCRTIPO_FAT
  INPUT S0 F_DESCRTIPO_FAT2
  COPY DISPLAY F_DESCRTIPO_FAT
  COPY OUTPUT F_CODTIPO_FAT2
  CHECKTYPE NORMAL
END

STRING F_STATO_INI_FAT 1
BEGIN
  PROMPT 2 3 "Stato iniziale "
  USE %STD
  INPUT CODTAB F_STATO_INI_FAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_INI_FAT CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD StatoIniFatt
END

STRING F_STATO_FIN_FAT 1
BEGIN
  PROMPT 41 3 "Stato finale "
  USE %STD
  INPUT CODTAB F_STATO_FIN_FAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_FIN_FAT CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD StatoFinFatt
END

STRING F_CODPAG_FAT 4
BEGIN
  PROMPT 2 4 "Condizione pagamento Fatture "
  USE %CPG
  INPUT CODTAB F_CODPAG_FAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG_FAT CODTAB
  CHECKTYPE REQUIRED
  FIELD CodPagFat
END

STRING F_CODPAG_NAC 4
BEGIN
  PROMPT 41 4 "Condizione pagamento NAC "
  COPY USE F_CODPAG_FAT
  INPUT CODTAB F_CODPAG_NAC
  COPY DISPLAY F_CODPAG_FAT
  OUTPUT F_CODPAG_NAC CODTAB
  CHECKTYPE NORMAL
  FIELD CodPagNac
END

//--Anticipi-------------

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 6 "@bAnticipi"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "@bContratti premi"
END

STRING F_CO_ANT_NUM 4
BEGIN
  PROMPT 20 7 "Num. "
  USE %NUM
  INPUT CODTAB F_CO_ANT_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_ANT_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD CoAntNum
  FLAGS "U"
END

STRING F_CO_ANT_TIP 4
BEGIN
  PROMPT 34 7 "Tipo "
  USE %TIP
  INPUT CODTAB F_CO_ANT_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_ANT_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD CoAntTip
END

STRING F_CO_ANT_SPE 8
BEGIN
  PROMPT 49 7 "Spesa riga ant. "
  USE SPP
  INPUT CODTAB F_CO_ANT_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_ANT_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD CoAntSpe
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "@bNote di Accredito"
END

STRING F_NA_ANT_NUM 4
BEGIN
  PROMPT 20 8 "Num. "
  USE %NUM
  INPUT CODTAB F_NA_ANT_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_ANT_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD NaAntNum
  FLAGS "U"
END

STRING F_NA_ANT_TIP 4
BEGIN
  PROMPT 34 8 "Tipo "
  USE %TIP
  INPUT CODTAB F_NA_ANT_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_ANT_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD NaAntTip
END

STRING F_NA_ANT_SPE 8
BEGIN
  PROMPT 49 8 "Spesa riga      "
  USE SPP
  INPUT CODTAB F_NA_ANT_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_ANT_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD NaAntSpe
END

//--Posticipi-------------

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 10 "@bPosticipi"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "@bContratti premi"
END

STRING F_CO_POST_NUM 4
BEGIN
  PROMPT 20 11 "Num. "
  USE %NUM
  INPUT CODTAB F_CO_POST_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_POST_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD CoPostNum
  FLAGS "U"
END

STRING F_CO_POST_TIP 4
BEGIN
  PROMPT 34 11 "Tipo "
  USE %TIP
  INPUT CODTAB F_CO_POST_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_POST_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD CoPostTip
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 12 "@bNote di Accredito"
END

STRING F_NA_POST_NUM 4
BEGIN
  PROMPT 20 12 "Num. "
  USE %NUM
  INPUT CODTAB F_NA_POST_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_POST_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD NaPostNum
  FLAGS "U"
END

STRING F_NA_POST_TIP 4
BEGIN
  PROMPT 34 12 "Tipo "
  USE %TIP
  INPUT CODTAB F_NA_POST_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_POST_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD NaPostTip
END

STRING F_NA_POST_SPE 8
BEGIN
  PROMPT 49 12 "Spesa riga      "
  USE SPP
  INPUT CODTAB F_NA_POST_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_POST_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD NaPostSpe
END

//--Rifatturazione-------------

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 14 "@bRifatturazione"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "@bContratti premi"
END

STRING F_CO_RIFA_NUM 4
BEGIN
  PROMPT 20 15 "Num. "
  USE %NUM
  INPUT CODTAB F_CO_RIFA_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_RIFA_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD CoRifaNum
  FLAGS "U"
END

STRING F_CO_RIFA_TIP 4
BEGIN
  PROMPT 34 15 "Tipo "
  USE %TIP
  INPUT CODTAB F_CO_RIFA_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_RIFA_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD CoRifaTip
END

STRING F_CO_RIFA_SPE 8
BEGIN
  PROMPT 49 15 "Spesa riga ant. "
  USE SPP
  INPUT CODTAB F_CO_RIFA_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_RIFA_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD CoRifaSpe
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "@bNote di Accredito"
END

STRING F_NA_RIFA_NUM 4
BEGIN
  PROMPT 20 16 "Num. "
  USE %NUM
  INPUT CODTAB F_NA_RIFA_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_RIFA_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD NaRifaNum
  FLAGS "U"
END

STRING F_NA_RIFA_TIP 4
BEGIN
  PROMPT 34 16 "Tipo "
  USE %TIP
  INPUT CODTAB F_NA_RIFA_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_RIFA_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD NaRifaTip
END

STRING F_NA_RIFA_SPE 8
BEGIN
  PROMPT 49 16 "Spesa riga      "
  USE SPP
  INPUT CODTAB F_NA_RIFA_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_RIFA_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD NaRifaSpe
END


//--Noleggio-------------

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 18 "@bNoleggio"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 19 "@bContratti premi"
END

STRING F_CO_NOLO_NUM 4
BEGIN
  PROMPT 20 19 "Num. "
  USE %NUM
  INPUT CODTAB F_CO_NOLO_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_NOLO_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD CoNoloNum
  FLAGS "U"
END

STRING F_CO_NOLO_TIP 4
BEGIN
  PROMPT 34 19 "Tipo "
  USE %TIP
  INPUT CODTAB F_CO_NOLO_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_NOLO_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD CoNoloTip
END

STRING F_CO_NOLO_SPE 8
BEGIN
  PROMPT 49 19 "Spesa riga ant. "
  USE SPP
  INPUT CODTAB F_CO_NOLO_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CO_NOLO_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD CoNoloSpe
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 20 "@bNote di Accredito"
END

STRING F_NA_NOLO_NUM 4
BEGIN
  PROMPT 20 20 "Num. "
  USE %NUM
  INPUT CODTAB F_NA_NOLO_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_NOLO_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD NaNoloNum
  FLAGS "U"
END

STRING F_NA_NOLO_TIP 4
BEGIN
  PROMPT 34 20 "Tipo "
  USE %TIP
  INPUT CODTAB F_NA_NOLO_TIP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_NOLO_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD NaNoloTip
END

STRING F_NA_NOLO_SPE 8
BEGIN
  PROMPT 49 20 "Spesa riga      "
  USE SPP
  INPUT CODTAB F_NA_NOLO_SPE
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NA_NOLO_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD NaNoloSpe
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 21 "@bFatture"
END

STRING F_FT_NOLO_TIP 4
BEGIN
  PROMPT 34 21 "Tipo "
  COPY USE F_NA_NOLO_TIP
  INPUT CODTAB F_FT_NOLO_TIP
  COPY DISPLAY F_NA_NOLO_TIP
  OUTPUT F_FT_NOLO_TIP CODTAB
  CHECKTYPE REQUIRED
  FIELD FtNoloTip
END

STRING F_FT_NOLO_SPE 8
BEGIN
  PROMPT 49 21 "Spesa riga      "
  COPY USE F_NA_NOLO_SPE
  INPUT CODTAB F_FT_NOLO_SPE
  COPY DISPLAY F_NA_NOLO_SPE
  OUTPUT F_FT_NOLO_SPE CODTAB
  CHECKTYPE REQUIRED
  FIELD FtNoloSpe
END

ENDPAGE


//----------------------------
PAGE "Trasferimenti" 0 2 0 0

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 0 "@bEsportazione"
END

STRING F_OUTPUT_PATH 255 40
BEGIN
  PROMPT 2 1 "Server: percorso files .txt    "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD OutputPath
END

STRING F_CONCENTRATORE_PATH 255 40
BEGIN
  PROMPT 2 2 "Server: Percorso concentratore "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD ConcentratorePath
END

STRING F_TRANSACTION_PATH 255 40
BEGIN
  PROMPT 2 3 "Client: Percorso .ini transaz. "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD TransactionPath
END

LISTBOX F_OU_BARCODE_TIP 10
BEGIN
  PROMPT 2 4 "Tipo di barcode                "
  ITEM "N|Normale"
  ITEM "8|EAN8   "
  ITEM "1|EA13   "
  ITEM "3|3/9    "
  ITEM "C|Codabar"
  FIELD TipoBarcode
END

GROUPBOX DLG_NULL 74 3
BEGIN
  PROMPT 2 5 "@bDocumenti di carico"
END

STRING F_OU_CARDOC_NUM 4
BEGIN
  PROMPT 3 6 "Numerazione "
  USE %NUM
  INPUT CODTAB F_OU_CARDOC_NUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_OU_CARDOC_NUM CODTAB
  CHECKTYPE REQUIRED
  FIELD CarDocNum
  FLAGS "U"
END

STRING F_OU_CARDOC_TIP 4
BEGIN
  PROMPT 24 6 "Tipo "
  USE %TIP
  INPUT CODTAB F_OU_CARDOC_TIP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_OU_CARDOC_TIP CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD CarDocTip
END

STRING F_OU_CARDOC_STA 1
BEGIN
  PROMPT 38 6 "Stato iniziale"
  USE %STD
  INPUT CODTAB F_OU_CARDOC_STA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_OU_CARDOC_STA CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD CarDocSta
END

STRING F_OU_CARDOC_STAF 1
BEGIN
  PROMPT 58 6 "Stato finale"
  COPY USE F_OU_CARDOC_STA
  INPUT CODTAB F_OU_CARDOC_STAF
  COPY DISPLAY F_OU_CARDOC_STA
  OUTPUT F_OU_CARDOC_STAF CODTAB
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD CarDocFin
END

GROUPBOX DLG_NULL 76 15
BEGIN
  PROMPT 1 8 "@bImportazione"
END

STRING F_INPUT_PATH 255 43
BEGIN
  PROMPT 2 9 "Percorso files da importare  "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD InputPath
END

STRING F_ARCHIVE_PATH 255 43
BEGIN
  PROMPT 2 10 "Percorso files da archiviare "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD ArchivePath
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 11 "@bTipi documento generati in importazione"
END

STRING F_IN_TIPODOC_F 4
BEGIN
  PROMPT 2 12 "Fatture "
  USE %TIP
  INPUT CODTAB F_IN_TIPODOC_F
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IN_TIPODOC_F CODTAB
  CHECKTYPE REQUIRED
  FIELD InpFatTip
END

STRING F_IN_TIPODOC_B 4
BEGIN
  PROMPT 18 12 "Bolle "
  USE %TIP
  INPUT CODTAB F_IN_TIPODOC_B
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IN_TIPODOC_B CODTAB
  CHECKTYPE REQUIRED
  FIELD InpBolTip
END

STRING F_IN_TIPODOC_O 4
BEGIN
  PROMPT 34 12 "Ordini "
  USE %TIP
  INPUT CODTAB F_IN_TIPODOC_O
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IN_TIPODOC_O CODTAB
  CHECKTYPE REQUIRED
  FIELD InpOrdTip
END

STRING F_IN_TIPODOC_V 4
BEGIN
  PROMPT 50 12 "Bolle valorizz. "
  USE %TIP
  INPUT CODTAB F_IN_TIPODOC_V
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IN_TIPODOC_V CODTAB
  CHECKTYPE REQUIRED
  FIELD InpValTip
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Le numerazioni sono generate automaticamente in base al tipo documento ricevuto"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "ed al codice terminale, secondo la regola: 'TipoDocumento'+'CodiceTerminale. Es. 'F'+'001' -> F001"
END

STRING F_IN_CODCAUS 3
BEGIN
  PROMPT 2 15 "Causale movimenti da incassi "
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_IN_CODCAUS
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_IN_CODCAUS CODCAUS
  OUTPUT F_IN_DESCRCAUS DESCR
  CHECKTYPE REQUIRED
  FIELD InpCausale
END

STRING F_IN_DESCRCAUS 50 37
BEGIN
  PROMPT 37 15 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_IN_DESCRCAUS
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  COPY OUTPUT F_IN_CODCAUS
  CHECKTYPE NORMAL
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 17 "@bCodici IVA Campo da utilizzare in base alle aliquote"
END

SPREADSHEET F_CODICI_IVA 74 4
BEGIN
  PROMPT 2 18 ""
  ITEM "%IVA@6"
  ITEM "Cod.IVA"
  ITEM "Descrizione"
END

ENDPAGE


//-------------------------------------
PAGE "Configurazione Esselunga" 0 2 0 0

STRING F_E_PATH 255 39
BEGIN
  PROMPT 2 2 "Percorso file FATTURE da spedire "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD Esselunga_Path
END

STRING F_E_PRIVATPATH 255 39
BEGIN
  PROMPT 2 3 "Percorso file PRIVAT da spedire "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD Esselunga_PrivatPath
END


STRING F_E_PIVA_HARDY 12
BEGIN
  PROMPT 2 4 "Partita IVA Hardy/Aerea   "
  HELP "Partita IVA Hardy"
  FIELD Esselunga_PIvaHardy
END

STRING F_E_PIVA_ESSELUNGA 12
BEGIN
  PROMPT 2 5 "Partita IVA Esselunga     "
  HELP "Partita IVA Esselunga"
  FIELD Esselunga_PIvaEsselunga
END

NUMBER F_E_COD_HARDY 6
BEGIN
  PROMPT 2 6 "Cod. fornitore Hardy/Aerea"
  HELP "Codice fornitore Hardy presso Esselunga"
  FIELD Esselunga_CodHardy
  FLAGS "Z"
END	

NUMBER F_E_COD_ESSELUNGA 6
BEGIN
  PROMPT 2 7 "Cod. cliente Esselunga    "
  HELP "Codice cliente Esselunga presso Hardy"
  FIELD Esselunga_CodEsselunga
END	

STRING F_E_TIPOEMISSIONE 2
BEGIN
  PROMPT 2 8 "Tipo Emissione            "
  HELP "Tipo emissione"
  FIELD Esselunga_TipoEmissione
END

DATE F_E_DATACONF
BEGIN
  PROMPT 2 9 "Data di configurazione    "
  HELP "Data di configurazione "
  FIELD Esselunga_DatConf
END

ENDPAGE


//------------------------------------
PAGE "Cartellini attrezzature" 0 2 0 0

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 1 "@bParametri documenti"
END

STRING F_TIPO_DOC2ELAB 4
BEGIN
  PROMPT 2 2 "Tipo  "
  USE %TIP
  INPUT CODTAB F_TIPO_DOC2ELAB
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPO_DOC2ELAB CODTAB
  OUTPUT F_TIPO_DOC2ELAB_DESCR S0
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD Doc2ElabTip
END

STRING F_TIPO_DOC2ELAB_DESCR 50
BEGIN
  PROMPT 20 2 ""
  USE %TIP KEY 2
  INPUT S0 F_TIPO_DOC2ELAB_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPO_DOC2ELAB
  CHECKTYPE NORMAL
END

STRING F_STATO_DOC2ELAB 1
BEGIN
  PROMPT 2 3 "Stato "
  USE %STD
  INPUT CODTAB F_STATO_DOC2ELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO_DOC2ELAB CODTAB
  OUTPUT F_STATO_DOC2ELAB_DESCR S0
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD Doc2ElabSta
END

STRING F_STATO_DOC2ELAB_DESCR 50
BEGIN
  PROMPT 20 3 ""
  USE %STD KEY 2
  INPUT S0 F_STATO_DOC2ELAB_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_STATO_DOC2ELAB
  CHECKTYPE NORMAL
END

STRING F_CAUSMAG_APERTURA 5
BEGIN
  PROMPT 2 4 "Causale apertura  "
  USE %CAU
  INPUT CODTAB F_CAUSMAG_APERTURA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUSMAG_APERTURA CODTAB
  OUTPUT F_CAUSMAG_APERTURA_DESCR S0
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD CausOpen
END

STRING F_CAUSMAG_APERTURA_DESCR 50 46
BEGIN
  PROMPT 28 4 ""
  USE %CAU KEY 2
  INPUT S0 F_CAUSMAG_APERTURA_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CAUSMAG_APERTURA
  CHECKTYPE NORMAL
END

STRING F_CAUSMAG_CHIUSURA 5
BEGIN
  PROMPT 2 5 "Causale chiusura  "
  COPY USE F_CAUSMAG_APERTURA
  INPUT CODTAB F_CAUSMAG_CHIUSURA
  COPY DISPLAY F_CAUSMAG_APERTURA
  OUTPUT F_CAUSMAG_CHIUSURA CODTAB
  OUTPUT F_CAUSMAG_CHIUSURA_DESCR S0
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD CausClose
END

STRING F_CAUSMAG_CHIUSURA_DESCR 50 46
BEGIN
  PROMPT 28 5 ""
  COPY USE F_CAUSMAG_APERTURA_DESCR
  INPUT S0 F_CAUSMAG_CHIUSURA_DESCR
  COPY DISPLAY F_CAUSMAG_APERTURA_DESCR
  COPY OUTPUT F_CAUSMAG_CHIUSURA
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK

//--------------------------------------------------------------
//maschera di riga dello sheet pagina trasferimenti (Codici iva)

PAGE "Riga" -1 -1 64 4

NUMBER S_ALIQUOTA_IVA 6 2
BEGIN
  PROMPT 1 1 "% IVA@6"
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD IVAaliquota
END

STRING S_CAMPO_CODIVA 4
BEGIN
  PROMPT 1 2 "Cod. IVA Campo "
  USE %IVA
  INPUT CODTAB S_CAMPO_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CAMPO_CODIVA CODTAB
  OUTPUT S_CAMPO_CODIVA_DES S0
  CHECKTYPE REQUIRED
  FIELD IVAcodice
END

STRING S_CAMPO_CODIVA_DES 50
BEGIN
  PROMPT 25 2 ""
  USE %IVA KEY 2
  INPUT S0 S_CAMPO_CODIVA_DES
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CAMPO_CODIVA
  CHECKTYPE REQUIRED
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK