campo-sirio/ve/ve0200f.uml

#include "veconf.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Spese incasso" 1 1 60 14

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

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

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

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

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

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

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

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

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

ENDPAGE


PAGE "Spese bolli" 1 1 60 14

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

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

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

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

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

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

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

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

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

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

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

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

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

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

NUMBER F_BOLLIES 11
BEGIN
PROMPT  2 10 "Bollo per esenzioni             "
FIELD BOLLIES
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_ESTRIGA 4
BEGIN
  PROMPT 2 4 "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 5 ""
  USE %TRI KEY 2 SELECT S7=="D"
  INPUT S0 F_ESDRIGA
  COPY DISPLAY F_ESTRIGA
  COPY OUTPUT F_ESTRIGA
END

STRING F_SCTRIGA 4
BEGIN
  PROMPT 2 6 "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 7 ""
  USE %TRI KEY 2 SELECT S7=="C"
  INPUT S0 F_SCDRIGA
  COPY DISPLAY F_SCTRIGA
  COPY OUTPUT F_SCTRIGA
END

ENDPAGE

ENDMASK