campo-sirio/ve/vehntip.uml

#include "vehntip.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Parametri" 0 0 0 0

GROUPBOX DLG_NULL 75 3
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING F_NAMETIP 8
BEGIN
  PROMPT 2 1 "Nome profilo     "
  FLAGS "DG"
  MESSAGE COPY,1@
END

LISTBOX F_MODULE 2 22
BEGIN
	PROMPT 40 1 "Modulo "
	ITEM "ve|Vendite"
	ITEM "vd|Vendite al dettaglio"
	ITEM "lv|Lavanderie"
	ITEM "pe|Preventivazione"
	ITEM "co|Conferimenti coop."
END

LISTBOX F_TIPOCR 1 9
BEGIN
	PROMPT 2 5 "Tipi ammessi     "
	ITEM "C|Clienti"
	ITEM "F|Fornitori"
	ITEM " |Tutti"
END

BOOLEAN F_CNTPRZ
BEGIN
	PROMPT 2 6 "Controllo prezzi "
END

STRING F_PREZZO 10
BEGIN
  PROMPT 2 7 "Campo prezzo     "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_PREZZO
  OUTPUT F_PREZZO
  ITEM "|Prezzo di anagrafica"
  ITEM "COSTSTD|Costo standard"
	ITEM "ULTCOS1|Ultimo costo"
	ITEM "ULTCOS2|Penultimo costo"
	CHECKTYPE NORMAL
END

STRING F_TOTALECONT 10
BEGIN
  PROMPT 40 7 "Tot.documento imm.acq. "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_TOTALECONT
  OUTPUT F_TOTALECONT
	CHECKTYPE SEARCH
END

STRING F_QTA 10
BEGIN
  PROMPT 2 8 "Campo quantita'  "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTA
  OUTPUT F_QTA
	ITEM "PREZZO|Prezzo o valore"
	ITEM "PREZZOL|Prezzo o valore lordo"
	ITEM "QTA|Quantita'"
	ITEM "QTAEVASA|Quantita' evasa"
	ITEM "QTAGG1|1a quantita' aggiuntiva"
	ITEM "QTAGG2|2a quantita' aggiuntiva"
	ITEM "QTAGG3|3a quantita' aggiuntiva"
	ITEM "QTAGG4|4a quantita' aggiuntiva"
	ITEM "QTAGG5|5a quantita' aggiuntiva"
	CHECKTYPE SEARCH
END

STRING F_QTAEVASA 10
BEGIN
  PROMPT 40 8 "Campo quantita' evasa   "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAEVASA
  OUTPUT F_QTAEVASA
	ITEM "PREZZO|Prezzo o valore"
	ITEM "PREZZOL|Prezzo o valore lordo"
	ITEM "QTA|Quantita'"
	ITEM "QTAEVASA|Quantita' evasa"
	ITEM "QTAGG1|1a quantita' aggiuntiva"
	ITEM "QTAGG2|2a quantita' aggiuntiva"
	ITEM "QTAGG3|3a quantita' aggiuntiva"
	ITEM "QTAGG4|4a quantita' aggiuntiva"
	ITEM "QTAGG5|5a quantita' aggiuntiva"
	CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 75 3
BEGIN
  PROMPT 1 9 "Movimenti di Magazzino"
  FLAGS "R"
END

STRING F_QTAMAG 10
BEGIN
  PROMPT 2 10 "Campo quantita'  "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAMAG
  OUTPUT F_QTAMAG
	ITEM "PREZZO|Prezzo o valore"
	ITEM "PREZZOL|Prezzo o valore lordo"
	ITEM "QTA|Quantita'"
	ITEM "QTAEVASA|Quantita' evasa"
	ITEM "QTAGG1|1a quantita' aggiuntiva"
	ITEM "QTAGG2|2a quantita' aggiuntiva"
	ITEM "QTAGG3|3a quantita' aggiuntiva"
	ITEM "QTAGG4|4a quantita' aggiuntiva"
	ITEM "QTAGG5|5a quantita' aggiuntiva"
	CHECKTYPE SEARCH
END

STRING F_QTAEVASAMAG 10
BEGIN
  PROMPT 40 10 "Campo quantita' evasa   "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAEVASAMAG
  OUTPUT F_QTAEVASAMAG
	ITEM "PREZZO|Prezzo o valore"
	ITEM "PREZZOL|Prezzo o valore lordo"
	ITEM "QTA|Quantita'"
	ITEM "QTAEVASA|Quantita' evasa"
	ITEM "QTAGG1|1a quantita' aggiuntiva"
	ITEM "QTAGG2|2a quantita' aggiuntiva"
	ITEM "QTAGG3|3a quantita' aggiuntiva"
	ITEM "QTAGG4|4a quantita' aggiuntiva"
	ITEM "QTAGG5|5a quantita' aggiuntiva"
	CHECKTYPE SEARCH
END

LISTBOX F_CHECK_QTA 1 16
BEGIN
	PROMPT 2 12 "Segnala giac. su "
	ITEM " |Nulla"
	ITEM "G|Giacenza"
	ITEM "D|Disponibilita'"
END

BOOLEAN F_LOAD_CONT
BEGIN
	PROMPT 2 13 "Proponi il contratto cliente in inserimento"
END

GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 14 "Evasione ordini"
  FLAGS "R"
END

STRING F_DESCDOC 80 40
BEGIN
  PROMPT 2 15 "Descr.documento  "
END

STRING F_DESCRDOC 80 40
BEGIN
  PROMPT 2 16 "Descr.riga doc.  "
END

BOOLEAN F_HIDEEVASE
BEGIN
	PROMPT 2 17 "Nascondi le righe evase"
END

BOOLEAN F_NOTEVADI
BEGIN
	PROMPT 2 18 "Non evadere le righe ordine"
END

ENDPAGE

PAGE "Handlers" 0 0 0 0

GROUPBOX DLG_NULL 75 3
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING DLG_NULL 8
BEGIN
  PROMPT 2 1 "Nome profilo     "
  GROUP 1
  FLAGS "D"
END

SPREADSHEET F_HANDLERS 0 6
BEGIN
  PROMPT 1 5 ""
  ITEM "Handler@40"
  ITEM "Campo"
  ITEM "Descrizione@50"
END

SPREADSHEET F_LABELS 0 8
BEGIN
  PROMPT 1 13 ""
  ITEM "Intestazione pagina@50"
END

ENDPAGE

PAGE "Defaults" 0 0 0 0

GROUPBOX DLG_NULL 75 3
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING DLG_NULL 8
BEGIN
  PROMPT 2 1 "Nome profilo     "
  GROUP 1
  FLAGS "D"
END

SPREADSHEET F_DEFAULTS
BEGIN
  PROMPT 1 5 ""
  ITEM "Campo@50"
  ITEM "Valore@50"
END

ENDPAGE

ENDMASK

PAGE "Handlers" -1 -1 75 7

LISTBOX FH_HANDLER 2 50
BEGIN
  PROMPT 2 4  "Handler "
	ITEM "1|Controllo ora sulle bolle"	
	ITEM "2|Controllo  totale documento"
	ITEM "3|Ricerca riferimento documenti"
	ITEM "4|Supporto Smartcard"
	ITEM "6|Controllo fido"
END

NUMBER FH_FIELD 4
BEGIN
  PROMPT 2 2 "Campo   "
  SHEET "Campo|Descrizione@50"
  INPUT FH_FIELD
  OUTPUT FH_FIELD
  OUTPUT FH_DESCR
  CHECKTYPE REQUIRED
END

STRING FH_DESCR 50
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
END

ENDPAGE

TOOLBAR "Toolbar" 0 0 0 2

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

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE
ENDMASK

PAGE "Labels" -1 -1 75 6

STRING FL_DESCR 50
BEGIN
  PROMPT 2 4  "Intestazione "
END

ENDPAGE

TOOLBAR "Toolbar" 0 0 0 2

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

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE
ENDMASK

PAGE "Defaults" -1 -1 75 7

LISTBOX FD_FIELD 4 50
BEGIN
  PROMPT 2 2 "Campo   "
END

STRING FD_VALUE 80 60
BEGIN
  PROMPT 2 4 "Valore  "
END

ENDPAGE

TOOLBAR "Toolbar" 0 0 0 2

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

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE
ENDMASK