campo-sirio/vd/vd0400a.uml

#include "vdconf.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -14 -11 ""
	FLAGS "D"
END

BUTTON DLG_INFO 10 2
BEGIN
  PROMPT -24 -11 ""
END

BUTTON DLG_HELP 10 2
BEGIN
  PROMPT -34 -11 ""
END

BUTTON DLG_QUIT 11 2
BEGIN
  PROMPT -44 -11 ""
END

ENDPAGE

PAGE "Paramentri stazione"  0 0 0 0

NUMBER FW_CASSA 3
BEGIN
  PROMPT 2 2 "Numero Cassa      "
  FIELD NCASSA
  USE CAS
  INPUT CODTAB FW_CASSA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT FW_CASSA CODTAB
  CHECKTYPE REQUIRED
  FLAGS "UZ"
END

NUMBER FW_CASSETTO 3
BEGIN
	PROMPT 2 4 "Numero Cassetto   "
	FIELD NCASSETTO
	FLAGS "Z"
END

STRING FW_CODLIST 3
BEGIN
  PROMPT 2 6 "Codice listino    "
  FIELD CODLIST
  FLAG "U"
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT COD FW_CODLIST
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FW_CODLIST COD
  OUTPUT FW_DESLIST DESCR
  CHECKTYPE NORMAL
END

STRING FW_DESLIST 50 40
BEGIN 
  PROMPT 30 6 ""
  FLAGS "D"
END

STRING FW_CODNUMF 4
BEGIN
  PROMPT 2 8 "Numeraz. fatture  "
  FIELD CODNUMF
  USE %NUM SELECT I1==2
  INPUT CODTAB FW_CODNUMF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FW_CODNUMF CODTAB
  OUTPUT FW_DESNUMF S0
  CHECKTYPE NORMAL
  FLAG "UPA"
END

STRING FW_DESNUMF 50 40
BEGIN
  PROMPT 30 8 ""
  USE %NUM KEY 2 SELECT I1==2
  INPUT S0 FW_DESNUMF
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FW_CODNUMF
END

STRING FW_TIPODOCF 4
BEGIN
  PROMPT 2 10 "Tipo doc. fatture "
  FIELD TIPODOCF
  USE %TIP SELECT I1==2
  INPUT CODTAB FW_TIPODOCF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FW_TIPODOCF CODTAB
  OUTPUT FW_DESTIPODOCF S0
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING FW_DESTIPODOCF 50 40
BEGIN
  PROMPT 30 10 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2 SELECT I1==2
  INPUT S0 FW_DESTIPODOCF
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FW_TIPODOCF
END

NUMBER FW_QTADEF 4
BEGIN
  PROMPT 2 12 "Quantità default  "
  FIELD QTADEF
END

LIST FW_TIPOSTSC 1 41
BEGIN
  PROMPT 2 14 "Tipo stampa scont."
	ITEM " |Nessuna" MESSAGE CLEAR,FW_CASSAAPP|CLEAR,FW_CASSADIR
	ITEM "R|Wincor Nixdorf (ER400)" MESSAGE CLEAR,FW_CASSAAPP|CLEAR,FW_CASSADIR
	ITEM "L|Multiprinter (Crf Open, Logic, EJ, PG)" MESSAGE DISABLE,FW_CASSAAPP|"multiprinter S",FW_CASSAAPP|ENABLE,FW_CASSADIR
	ITEM "N|Multiprinter (Nettuna)" MESSAGE DISABLE,FW_CASSAAPP|"multiprinter S",FW_CASSAAPP|ENABLE,FW_CASSADIR
	ITEM "E|Applcazione esterna" MESSAGE ENABLE,FW_CASSAAPP|ENABLE,FW_CASSADIR
	ITEM "C|Report Campo" MESSAGE CLEAR,FW_CASSAAPP|CLEAR,FW_CASSADIR
  FIELD TIPOSTSC
END

GROUP -1 78 4
BEGIN
	PROMPT 2 15 "Stampa scontrini"
END

STRING FW_CASSADIR 50
BEGIN
  PROMPT 3 16 "Cartella         "
  FIELD CASSADIR
	DSELECT
END

STRING FW_CASSAAPP 50
BEGIN
  PROMPT 3 17 "Applicazione     "
  FIELD CASSAAPP
END

STRING FW_BYEBYE 80 50
BEGIN
  PROMPT 2 19 "Saluti            "
  FIELD BYEBYE
END

ENDPAGE

PAGE "Tasti veloci"  1 1 60 14

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 1  "Tasti Veloci"
END

STRING FW_TVLABEL1 20
BEGIN
  PROMPT 2 2 "1 - Label        "
	FIELD TVLABEL[1]
	MESSAGE EMPTY CLEAR,FW_TVCMD1
	MESSAGE ENABLE,FW_TVCMD1
END

STRING FW_TVCMD1 20
BEGIN
  PROMPT 40 2 "Articolo         "
	FIELD TVCMD[1]
END

STRING FW_TVLABEL2 20
BEGIN
  PROMPT 2 3 "2 - Label        "
	FIELD TVLABEL[2]
	MESSAGE EMPTY CLEAR,FW_TVCMD2
	MESSAGE ENABLE,FW_TVCMD2
END

STRING FW_TVCMD2 20
BEGIN
  PROMPT 40 3 "Articolo         "
	FIELD TVCMD[2]
END

STRING FW_TVLABEL3 20
BEGIN
  PROMPT 2 4 "3 - Label        "
	FIELD TVLABEL[3]
	MESSAGE EMPTY CLEAR,FW_TVCMD3
	MESSAGE ENABLE,FW_TVCMD3
END

STRING FW_TVCMD3 20
BEGIN
  PROMPT 40 4 "Articolo         "
	FIELD TVCMD[3]
END

STRING FW_TVLABEL4 20
BEGIN
  PROMPT 2 5 "4 - Label        "
	FIELD TVLABEL[4]
	MESSAGE EMPTY CLEAR,FW_TVCMD4
	MESSAGE ENABLE,FW_TVCMD4
END

STRING FW_TVCMD4 20
BEGIN
  PROMPT 40 5 "Articolo         "
	FIELD TVCMD[4]
END

STRING FW_TVLABEL5 20
BEGIN
  PROMPT 2 6 "5 - Label        "
	FIELD TVLABEL[5]
	MESSAGE EMPTY CLEAR,FW_TVCMD5
	MESSAGE ENABLE,FW_TVCMD5
END

STRING FW_TVCMD5 20
BEGIN
  PROMPT 40 6 "Articolo         "
	FIELD TVCMD[5]
END

STRING FW_TVLABEL6 20
BEGIN
  PROMPT 2 7 "6 - Label        "
	FIELD TVLABEL[6]
	MESSAGE EMPTY CLEAR,FW_TVCMD6
	MESSAGE ENABLE,FW_TVCMD6
END

STRING FW_TVCMD6 20
BEGIN
  PROMPT 40 7 "Articolo         "
	FIELD TVCMD[6]
END

STRING FW_TVLABEL7 20
BEGIN
  PROMPT 2 8 "7 - Label        "
	FIELD TVLABEL[7]
	MESSAGE EMPTY CLEAR,FW_TVCMD7
	MESSAGE ENABLE,FW_TVCMD7
END

STRING FW_TVCMD7 20
BEGIN
  PROMPT 40 8 "Articolo         "
	FIELD TVCMD[7]
END

STRING FW_TVLABEL8 20
BEGIN
  PROMPT 2 9 "8 - Label        "
	FIELD TVLABEL[8]
	MESSAGE EMPTY CLEAR,FW_TVCMD8
	MESSAGE ENABLE,FW_TVCMD8
END

STRING FW_TVCMD8 20
BEGIN
  PROMPT 40 9 "Articolo         "
	FIELD TVCMD[8]
END

ENDPAGE

ENDMASK