campo-sirio/ve/ve2500as.uml

/////////////////////////////////////////
//maschera di riga
TOOLBAR "topbar" 0 0 0 2

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

PAGE "Riga listino" -1 -1 78 22

LIST S_TIPORIGA 1 16
BEGIN
  PROMPT 1 0 "Tipo riga "
  FIELD TIPORIGA
  ITEM "A|Articolo"
  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
  ITEM "G|Gruppo merc."
  MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
  ITEM "S|Sottogr. merc."
  MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
  ITEM "R|Ragg. fiscale"
  MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
END

STRING S_CODRIGA_A 20
BEGIN
  PROMPT 1 1 "Articolo  "
  FIELD CODRIGA
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART S_CODRIGA_A
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODRIGA_A CODART
  OUTPUT S_DESRIGA_A DESCR
  CHECKTYPE FORCED
  ADD RUN ve2 -3
  GROUP 1
END

STRING S_DESRIGA_A 50 39
BEGIN
  PROMPT 35 1 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESRIGA_A
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT S_CODRIGA_A
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 1
END

STRING S_CODRIGA_G 20 3
BEGIN
  PROMPT 1 1 "Gr. merceologico "
  FIELD CODRIGA
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3] S_CODRIGA_G
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIGA_G CODTAB[1,3]
  OUTPUT S_DESRIGA_G S0
  CHECKTYPE FORCED
  GROUP 2
END

STRING S_DESRIGA_G 50
BEGIN
  PROMPT 24 1 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] == ""
  INPUT S0  S_DESRIGA_G
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gr. merc." CODTAB[1,3]
  COPY OUTPUT S_CODRIGA_G
  CHECKTYPE NORMAL
  GROUP 2
END

STRING S_CODRIGA_S 20 5
BEGIN
  PROMPT 1 1 "Sottogr. merc. "
  FIELD CODRIGA
  FLAGS "U"
  USE GMC SELECT CODTAB[4,5] != ""
  INPUT CODTAB S_CODRIGA_S
  DISPLAY "Gruppo merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIGA_S CODTAB
  OUTPUT S_DESRIGA_S S0
  CHECKTYPE FORCED
  GROUP 3
END

STRING S_DESRIGA_S 50
BEGIN
  PROMPT 24 1 ""
  USE GMC KEY 2 SELECT CODTAB[4,5] != "" 
  INPUT S0 S_DESRIGA_S
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gr. merc." CODTAB[1,3]
  DISPLAY "Sottogr. merc." CODTAB[4,5]
  COPY OUTPUT S_CODRIGA_S
  CHECKTYPE NORMAL
  GROUP 3
END

STRING S_CODRIGA_R 20 5
BEGIN
  PROMPT 1 1 "Raggr. fiscale "
  FIELD CODRIGA
  FLAGS "U"
  USE RFA
  INPUT CODTAB S_CODRIGA_R
  DISPLAY "Ragg. fisc." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODRIGA_R CODTAB
  OUTPUT S_DESRIGA_R S0
  CHECKTYPE FORCED
  GROUP 4
END

STRING S_DESRIGA_R 50
BEGIN
  PROMPT 24 1 ""
  USE RFA KEY 2
  INPUT S0 S_DESRIGA_R
  DISPLAY "Descrizione@50" S0
  DISPLAY "Ragg. fisc." CODTAB
  COPY OUTPUT S_CODRIGA_R
  CHECKTYPE NORMAL
  GROUP 4
END

NUMBER S_PREZZO 18 5
BEGIN
  PROMPT 1 2 "Prezzo    "
  FIELD PREZZO
  FLAGS "U"
  DRIVENBY -FA_CODVAL
END

STRING S_UM 2
BEGIN
  PROMPT 67 0 "U.M. "
  FIELD UM
  FLAGS "U"
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART S_CODRIGA_A SELECT
  INPUT UM S_UM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT S_UM UM
  CHECKTYPE FORCED
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 3 "Scaglione"
END

NUMBER S_NSCAGL 1
BEGIN
  PROMPT 2 4 "Numero   "
  FIELD NSCAGL
  CHECKTYPE REQUIRED
END

NUMBER S_QLIM 15 5
BEGIN
  PROMPT 24 4 "Qta limite "
  FIELD QLIM
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 6 "IVA"
END

BOOLEAN S_ADDIVA
BEGIN
  PROMPT 2 7 "Addebito"
  FIELD ADDIVA
END

STRING S_CODIVA 4
BEGIN
  PROMPT 25 7 "Codice"
  FIELD CODIVA
  FLAGS "U"
  USE %IVA
  INPUT CODTAB S_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODIVA CODTAB
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 9 "Sconti e omaggi"
END

STRING S_SCONTO 25
BEGIN
  PROMPT 2 10 "Sconto/maggiorazione  "
  FIELD SCONTO
  FLAGS "U"
END

NUMBER S_QOM 15 5
BEGIN
  PROMPT 2 11 "Qta sconto/omaggio    "
  FIELD QOM
END

NUMBER S_QBASE 15 5
BEGIN
  PROMPT 2 12 "Qta base sconto       "
  FIELD QBASE
END

STRING S_CODARTOM 20
BEGIN
  PROMPT 2 13 "Cod. articolo omaggio "
  FIELD CODARTOM
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART S_CODARTOM
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODARTOM CODART
  CHECKTYPE NORMAL
END

STRING S_UMOM 2
BEGIN
  PROMPT 2 14 "U.M. qta omaggio      "
  FIELD UMOM
  FLAGS "U"
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART S_CODARTOM SELECT
  INPUT UM F_UMOM
  DISPLAY "U.M." UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT S_UMOM UM
END

NUMBER S_PROMAGGIO 18 5
BEGIN
  PROMPT 2 15 "Prezzo omaggio        "
  FIELD PROMAGGIO
  FLAGS "U"
  DRIVENBY -FA_CODVAL
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 17 "Storico"
END

NUMBER S_PRZSTO 18 5
BEGIN
  PROMPT 2 18 "Prezzo storico        "
  FIELD PRZSTO
  FLAGS "U"
END

DATA S_DATAPRZSTO
BEGIN
  PROMPT 2 19 "Data prz storico      "
  FIELD DATAPRZSTO
END

DATA S_DATAULTAUM
BEGIN
  PROMPT 2 20 "Data ultimo aumento   "
  FIELD DATAULTAUM
END

NUMBER S_PERCPROVV 5 2
BEGIN
  PROMPT 2 22 "% provv. "
  FIELD PERCPROVV
  NUM_EXPR (#F_PERCPROVV>=0)&&(#F_PERCPROVV<=100)
  WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
END

ENDPAGE

ENDMASK