campo-sirio/ve/ve0200f.uml

#include "veconf.h"

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

PAGE "Spese incasso" 0 0 0 0

CURRENCY F_IMPSPINC1 9
BEGIN
PROMPT  2 2 "Importo spese per rimesse dirette    "
FIELD IMPSPINC[1]
END

CURRENCY F_IMPSPINC2 9
BEGIN
PROMPT  2 3 "Importo spese per tratte             "
FIELD IMPSPINC[2]
PICTURE "."
END

CURRENCY F_IMPSPINC3 9
BEGIN
PROMPT  2 4 "Importo spese per ricevute bancarie  "
FIELD IMPSPINC[3]
PICTURE "."
END

CURRENCY F_IMPSPINC4 9
BEGIN
PROMPT  2 5 "Importo spese per cessioni           "
FIELD IMPSPINC[4]
PICTURE "."
END

CURRENCY F_IMPSPINC5 9
BEGIN
PROMPT  2 6 "Importo spese per paghero'           "
FIELD IMPSPINC[5]
PICTURE "."
END

CURRENCY F_IMPSPINC6 9
BEGIN
PROMPT  2 7 "Importo spese per lettere di credito "
FIELD IMPSPINC[6]
PICTURE "."
END

CURRENCY F_IMPSPINC7 9
BEGIN
PROMPT  2 8 "Importo spese per tratte accettate   "
FIELD IMPSPINC[7]
PICTURE "."
END

CURRENCY F_IMPSPINC8 9
BEGIN
PROMPT  2 9 "Importo spese per R.I.D.             "
FIELD IMPSPINC[8]
PICTURE "."
END

CURRENCY F_IMPSPINC9 9
BEGIN
PROMPT  2 10 "Importo spese per bonifici           "
FIELD IMPSPINC[9]
PICTURE "."
END

CURRENCY F_SPADD 11
BEGIN
PROMPT  2 12 "Spese forfettarie da addebitare "
FIELD SPADD
PICTURE "."
END

CURRENCY F_MAXADD 15
BEGIN
PROMPT  2 14 "Importo massimo per addebito    "
FIELD MAXADD
PICTURE "."
END

ENDPAGE


PAGE "Spese bolli" 1 1 60 14

CURRENCY F_SPBOSCA1 11
BEGIN
PROMPT  2 2 "Scaglione "
FIELD SPBOSCA[1]
PICTURE "."
END

CURRENCY F_SPBOIMP1 11
BEGIN
PROMPT  25 2 "Importo  "
FIELD SPBOIMP[1]
PICTURE "."
END

CURRENCY F_SPBOSCA2 11
BEGIN
PROMPT  2 3 "Scaglione "
FIELD SPBOSCA[2]
PICTURE "."
END

CURRENCY F_SPBOIMP2 11
BEGIN
PROMPT  25 3 "Importo  "
FIELD SPBOIMP[2]
PICTURE "."
END

CURRENCY F_SPBOSCA3 11
BEGIN
PROMPT  2 4 "Scaglione "
FIELD SPBOSCA[3]
PICTURE "."
END

CURRENCY F_SPBOIMP3 11
BEGIN
PROMPT  25 4 "Importo  "
FIELD SPBOIMP[3]
PICTURE "."
END

CURRENCY F_SPBOSCA4 11
BEGIN
PROMPT  2 5 "Scaglione "
FIELD SPBOSCA[4]
PICTURE "."
END

CURRENCY F_SPBOIMP4 11
BEGIN
PROMPT  25 5 "Importo  "
FIELD SPBOIMP[4]
PICTURE "."
END

CURRENCY F_SPBOSCA5 11
BEGIN
PROMPT  2 6 "Scaglione "
FIELD SPBOSCA[5]
PICTURE "."
END

CURRENCY F_SPBOIMP5 11
BEGIN
PROMPT  25 6 "Importo  "
FIELD SPBOIMP[5]
PICTURE "."
END

CURRENCY F_SPBOSCA6 11
BEGIN
PROMPT  2 7 "Scaglione "
FIELD SPBOSCA[6]
PICTURE "."
END

CURRENCY F_SPBOIMP6 11
BEGIN
PROMPT  25 7 "Importo  "
FIELD SPBOIMP[6]
PICTURE "."
END

CURRENCY F_SPBOSCA7 11
BEGIN
PROMPT  2 8 "Scaglione "
FIELD SPBOSCA[7]
PICTURE "."
END

CURRENCY F_SPBOIMP7 11
BEGIN
PROMPT  25 8 "Importo  "
FIELD SPBOIMP[7]
PICTURE "."
END

CURRENCY F_BOLLIES 11
BEGIN
PROMPT  2 10 "Bollo per esenzioni             "
FIELD BOLLIES
PICTURE "."
END

CURRENCY F_IMPMINBOLLI 15
BEGIN
PROMPT  2 12 "Importo minimo per bolli esenti "
FIELD IMPMINBOLLI
PICTURE "."
END

ENDPAGE

PAGE "Automatismi" 1 1 60 14

STRING F_OMTRIGA 4
BEGIN
  PROMPT 2 2 "Tipo riga omaggi       "
  FIELD TROMAGGI
  FLAGS "U"
  USE %TRI SELECT S7=="O"
  INPUT CODTAB F_OMTRIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_OMTRIGA CODTAB
  OUTPUT F_OMDRIGA S0
  CHECKTYPE REQUIRED
END

STRING F_OMDRIGA 50
BEGIN
  PROMPT 25 3 ""
  USE %TRI KEY 2 SELECT S7=="O"
  INPUT S0 F_OMDRIGA
  COPY DISPLAY F_OMTRIGA
  COPY OUTPUT F_OMTRIGA
END

STRING F_OMDESC 50
BEGIN
  PROMPT 2 4 "Descrizione omaggio    "
  FIELD DESOMAGGI
END

STRING F_ESTRIGA 4
BEGIN
  PROMPT 2 5 "Tipo riga esenzioni    "
  FLAGS "U"
  USE %TRI SELECT S7=="D"
  FIELD TRESENZ
  INPUT CODTAB F_ESTRIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ESTRIGA CODTAB
  OUTPUT F_ESDRIGA S0
  CHECKTYPE REQUIRED
END

STRING F_ESDRIGA 50
BEGIN
  PROMPT 25 6 ""
  USE %TRI KEY 2 SELECT S7=="D"
  INPUT S0 F_ESDRIGA
  COPY DISPLAY F_ESTRIGA
  COPY OUTPUT F_ESTRIGA
END

STRING F_DESESENZ 70 50
BEGIN
  PROMPT 2 7 "Descrizione esenzioni  "
  FIELD DESESENZ
END

STRING F_SCTRIGA 4
BEGIN
  PROMPT 2 8 "Tipo riga sconti testa "
  FLAGS "U"
  USE %TRI SELECT S7=="C"
  FIELD TRSCONTI
  INPUT CODTAB F_SCTRIGA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SCTRIGA CODTAB
  OUTPUT F_SCDRIGA S0
  CHECKTYPE REQUIRED
END

STRING F_SCDRIGA 50
BEGIN
  PROMPT 25 9 ""
  USE %TRI KEY 2 SELECT S7=="C"
  INPUT S0 F_SCDRIGA
  COPY DISPLAY F_SCTRIGA
  COPY OUTPUT F_SCTRIGA
END

ENDPAGE

PAGE "Esclusioni IVA" 1 1 60 14

STRING F_EX_IVA1 4
BEGIN
  PROMPT 2 2 "Codice IVA "
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_EX_IVA1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  OUTPUT F_EX_IVA1 CODTAB
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
  MESSAGE EMPTY CLEAR, F_EX_PERCIVA1
  MESSAGE ENABLE, F_EX_PERCIVA1
  FIELD EXCLUDE_IVA[1]
END

NUMBER F_EX_PERCIVA1 6 2
BEGIN
  PROMPT 35 2 "% "
  FIELD EXCLUDE_PERC[1]
  NUM_EXPR {(#F_EX_PERCIVA1>=0.0)&&(#F_EX_PERCIVA1<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

STRING F_EX_IVA2 4
BEGIN
  PROMPT 2 3 "Codice IVA "
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_EX_IVA2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  OUTPUT F_EX_IVA2 CODTAB
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
  FIELD EXCLUDE_IVA[2]
  MESSAGE EMPTY CLEAR, F_EX_PERCIVA2
  MESSAGE ENABLE, F_EX_PERCIVA2
END

NUMBER F_EX_PERCIVA2 6 2
BEGIN
  PROMPT 35 3 "% "
  FIELD EXCLUDE_PERC[2]
  NUM_EXPR {(#F_EX_PERCIVA2>=0.0)&&(#F_EX_PERCIVA2<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

STRING F_EX_IVA3 4
BEGIN
  PROMPT 2 4 "Codice IVA "
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_EX_IVA3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  OUTPUT F_EX_IVA3 CODTAB
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
  FIELD EXCLUDE_IVA[3]
  MESSAGE EMPTY CLEAR, F_EX_PERCIVA3
  MESSAGE ENABLE, F_EX_PERCIVA3
END

NUMBER F_EX_PERCIVA3 6 2
BEGIN
  PROMPT 35 4 "% "
  FIELD EXCLUDE_PERC[3]
  NUM_EXPR {(#F_EX_PERCIVA3>=0.0)&&(#F_EX_PERCIVA3<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

STRING F_EX_IVA4 4
BEGIN
  PROMPT 2 5 "Codice IVA "
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_EX_IVA4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  OUTPUT F_EX_IVA4 CODTAB
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
  FIELD EXCLUDE_IVA[4]
  MESSAGE EMPTY CLEAR, F_EX_PERCIVA4
  MESSAGE ENABLE, F_EX_PERCIVA4
END

NUMBER F_EX_PERCIVA4 6 2
BEGIN
  PROMPT 35 5 "% "
  FIELD EXCLUDE_PERC[4]
  NUM_EXPR {(#F_EX_PERCIVA4>=0.0)&&(#F_EX_PERCIVA4<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

STRING F_EX_IVA5 4
BEGIN
  PROMPT 2 6 "Codice IVA "
  USE %IVA
  FLAGS "U"
  INPUT CODTAB F_EX_IVA5
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Tipo" S1
  DISPLAY "%@5" R0
  OUTPUT F_EX_IVA5 CODTAB
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
  FIELD EXCLUDE_IVA[5]
  MESSAGE EMPTY CLEAR, F_EX_PERCIVA5
  MESSAGE ENABLE, F_EX_PERCIVA5
END

NUMBER F_EX_PERCIVA5 6 2
BEGIN
  PROMPT 35 6 "% "
  FIELD EXCLUDE_PERC[5]
  NUM_EXPR {(#F_EX_PERCIVA5>=0.0)&&(#F_EX_PERCIVA5<=100.0)}
  WARNING "Inserire una percentuale tra 0 e 100"
END

ENDPAGE

ENDMASK