campo-sirio/ha/ha0200a.uml

#include "ha0200a.h"

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

PAGE "Contratti e NAC" -1 -1 78 23

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
  FLAG "UP"
  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" -1 -1 78 23

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

ENDPAGE

ENDMASK