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 4
BEGIN
  PROMPT 1 1 "@bTipo documento per fatture"
END

STRING F_CODTIPO_FAT 4
BEGIN
  PROMPT 2 2 "Tipo "
  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 15 2 ""
  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_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 25 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

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

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

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

STRING F_CO_ANT_NUM 4
BEGIN
  PROMPT 20 6 "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
END

STRING F_CO_ANT_TIP 4
BEGIN
  PROMPT 33 6 "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 6 "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 7 "@bNote di Accredito"
END

STRING F_NA_ANT_NUM 4
BEGIN
  PROMPT 20 7 "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
END

STRING F_NA_ANT_TIP 4
BEGIN
  PROMPT 33 7 "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 7 "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 9 "@bPosticipi"
END

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

STRING F_CO_POST_NUM 4
BEGIN
  PROMPT 20 10 "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
END

STRING F_CO_POST_TIP 4
BEGIN
  PROMPT 33 10 "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 11 "@bNote di Accredito"
END

STRING F_NA_POST_NUM 4
BEGIN
  PROMPT 20 11 "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
END

STRING F_NA_POST_TIP 4
BEGIN
  PROMPT 33 11 "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 11 "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 13 "@bRifatturazione"
END

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

STRING F_CO_RIFA_NUM 4
BEGIN
  PROMPT 20 14 "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
END

STRING F_CO_RIFA_TIP 4
BEGIN
  PROMPT 33 14 "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 14 "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 15 "@bNote di Accredito"
END

STRING F_NA_RIFA_NUM 4
BEGIN
  PROMPT 20 15 "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
END

STRING F_NA_RIFA_TIP 4
BEGIN
  PROMPT 33 15 "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 15 "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

ENDPAGE


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

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 1 1 "@bEsportazione"
END

STRING F_OUTPUT_PATH 255 39
BEGIN
  PROMPT 2 2 "Percorso files .txt da esportare "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD OutputPath
END

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

STRING F_OU_CARDOC_NUM 4
BEGIN
  PROMPT 3 4 "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
END

STRING F_OU_CARDOC_TIP 4
BEGIN
  PROMPT 23 4 "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 36 4 "Stato "
  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

LISTBOX F_OU_BARCODE_TIP 10
BEGIN
  PROMPT 2 6 "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 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 files da spedire "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
  FIELD Esselunga_Path
END

STRING F_E_PIVA_HARDY 12
BEGIN
  PROMPT 2 4 "Partita IVA Hardy         "
  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      "
  HELP "Codice fornitore Hardy presso Esselunga"
  FIELD Esselunga_CodHardy
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