campo-sirio/ve/vehntri.uml

#include "vehntri.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Handlers tipo di riga" 0 0 0 0

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

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

BOOLEAN F_NODESC
BEGIN
	PROMPT 2 5 "Non caricare la descrizione articolo"
END

NUMBER F_VARP 6 2
BEGIN
	PROMPT 2 6 "Variaz. Prezzi + "
END

NUMBER F_VARN 6 2
BEGIN
	PROMPT 40 6 "Variaz. Prezzi -      "
END

STRING F_QTAR 10
BEGIN
  PROMPT 2 7 "Campo quantita'  "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAR
  OUTPUT F_QTAR
	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_QTAEVASAR 10
BEGIN
  PROMPT 40 7 "Campo quantità evasa  "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAEVASAR
  OUTPUT F_QTAEVASAR
	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 8 "Movimenti di Magazzino"
  FLAGS "R"
END

STRING F_QTAMAGR 10
BEGIN
  PROMPT 2 9 "Campo quantità   "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAMAGR
  OUTPUT F_QTAMAGR
	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_QTAEVASAMAGR 10
BEGIN
  PROMPT 40 9 "Campo quantità evasa  "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_QTAEVASAMAGR
  OUTPUT F_QTAEVASAMAGR
	ITEM "PREZZO|Prezzo o valore"
	ITEM "PREZZOL|Prezzo o valore lordo"
	ITEM "QTA|Quantita'"
	ITEM "QTAEVASA|Quantità evasa"
	ITEM "QTAGG1|1a quantità aggiuntiva"
	ITEM "QTAGG2|2a quantità aggiuntiva"
	ITEM "QTAGG3|3a quantità aggiuntiva"
	ITEM "QTAGG4|4a quantità aggiuntiva"
	ITEM "QTAGG5|5a quantità aggiuntiva"
	CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 11 "Generazione Livelli di Giacenza"
  FLAGS "R"
END

STRING F_LIVGEN1 13
BEGIN
  PROMPT 2 12 "Livello 1        "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_LIVGEN1
  OUTPUT  F_LIVGEN1
	ITEM "PROG|Progressivo"
	CHECKTYPE SEARCH
END

STRING F_LIVGEN2 13
BEGIN
  PROMPT 40 12 "Livello 2          "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_LIVGEN2
  OUTPUT  F_LIVGEN2
	ITEM "PROG|Progressivo"
	CHECKTYPE SEARCH
END

STRING F_LIVGEN3 13
BEGIN
  PROMPT 2 13 "Livello 3        "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_LIVGEN3
  OUTPUT  F_LIVGEN3
	ITEM "PROG|Progressivo"
	CHECKTYPE SEARCH
END

STRING F_LIVGEN4 13
BEGIN
  PROMPT 40 13 "Livello 4          "
  SHEET "Campo@10|Descrizione@50"
  INPUT F_LIVGEN4
  OUTPUT  F_LIVGEN4
	ITEM "PROG|Progressivo"
	CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 75 5
BEGIN
  PROMPT 1 15 "Ricerca prezzi ed Evasione diretta"
  FLAGS "R"
END

NUMBER F_SERCHYEARS 2
BEGIN
  PROMPT 2 16 "Numero anni      "
END

STRING F_SEARCNUMS 80 20
BEGIN
  PROMPT 30 16 "Numerazioni (sep. da |) "
END

NUMBER F_MAXROWSART 2
BEGIN
  PROMPT 2 17 "Numero di righe  "
END

STRING F_SEARCHACTDOCS 80 20
BEGIN
  PROMPT 30 17 "Tipi docum. (sep. da |) "
END

BOOLEAN F_SELCLIFO
BEGIN
	PROMPT 2 18 "Ric.per Cli/For. "
END

STRING F_FIELDSTOUPDATE 80 20
BEGIN
  PROMPT 30 18 "Campi output(sep. da |) "
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_HANDLERSR
BEGIN
  PROMPT 1 5 ""
  ITEM "Handler@40"
  ITEM "Campo"
  ITEM "Descrizione@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_DEFAULTSR
BEGIN
  PROMPT 1 5 ""
  ITEM "Campo@40"
  ITEM "Valore@40"
END

ENDPAGE
ENDMASK

PAGE "Handlers" -1 -1 75 7

LISTBOX FH_HANDLERR 2 50
BEGIN
  PROMPT 2 4  "Handler "
  ITEM "1|Controllo sul range di prezzi"
	ITEM "3|Ricerca prezzi con F8"
	ITEM "4|Ricerca prezzi con solo con F9"
	ITEM "5|Evasione interattiva documenti"
	ITEM "6|Aggiornamento automatico evaso"
	ITEM "7|Richiamo Distinta Base"
	ITEM "8|Generazione automatica livelli di giacenza"
END

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

STRING FH_DESCRR 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 "Defaults" -1 -1 75 7

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

STRING FD_VALUER 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