campo-sirio/ve/ve4100.uml

#include "ve4100.h"

TOOLBAR "" 0 0 0 2

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

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

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

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

ENDPAGE

PAGE "Parametri di calcolo" 0 0 0 0

GROUPBOX DLG_NULL 76 12
BEGIN
  PROMPT 1 1 "Archivio da elaborare"
END

LIST F_FILE 32
BEGIN
  PROMPT 2 2 "File "
  ITEM "0|Anagrafica magazzino"
  ITEM "1|Unita' di misura"
  ITEM "2|Descrizioni in lingua"
  ITEM "3|Condizioni di vendita"
  ITEM "4|Righe condizioni di vendita"
END

LIST F_KEY 10
BEGIN
  PROMPT 56 2 "Chiave "
  ITEM "0|Nessuna"
  ITEM "1|Chiave 1"
END

SPREADSHEET F_FIELDS 74 5
BEGIN
  PROMPT 2 3 ""
  ITEM "Campo@10"
  ITEM "Da@30"
  ITEM "A@30"
  ITEM "Descrizione campo@50"
END

MEMO F_FILTER 74 3
BEGIN
  PROMPT 2 9 "Espressione del filtro:"
END

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 13 "Campi da calcolare"
END

SPREADSHEET F_OUTPUTS 74 4
BEGIN
  PROMPT 2 14 ""
  ITEM "Campo@10"
  ITEM "Codice@10"
  ITEM "Formula@60"
  ITEM "Descrizione campo@50"
END

RADIOBUTTON F_SAVE 74
BEGIN
  PROMPT 2 18 ""
  ITEM " |Visualizza senza registrare"
  ITEM "X|Registra risultati"
  FLAGS "Z"
END

ENDPAGE

PAGE "Parametri di collegamento" -1 -1 78 16

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "Generali"
END

STRING F_UNITA_MISURA 2
BEGIN
  PROMPT 2 2 "Unita' di misura "
  FLAGS "U"
  USE %UMS
  //JOIN %LIN INTO CODTAB==CODTAB
  INPUT CODTAB F_UNITA_MISURA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_UNITA_MISURA CODTAB
  OUTPUT F_DESC_UNITA_MISURA S0
  CHECKTYPE NORMAL
END

STRING F_DESC_UNITA_MISURA 50
BEGIN
  PROMPT 25 2 ""
  USE %UMS KEY 2
  INPUT S0 F_DESC_UNITA_MISURA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_UNITA_MISURA
  CHECKTYPE NORMAL
END

STRING F_LINGUA 1
BEGIN
  PROMPT 2 3 "Lingua           "
  FLAGS "U"
  USE %LNG
  INPUT CODTAB F_LINGUA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_LINGUA CODTAB
  OUTPUT F_DESC_LINGUA S0
  CHECKTYPE NORMAL
END

STRING F_DESC_LINGUA 50
BEGIN
  PROMPT 25 3 ""
  USE %LNG KEY 2
  INPUT S0 F_DESC_LINGUA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_LINGUA
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 5 "Condizioni di vendita"
END

LIST F_TIPO_LCO 1 10
BEGIN
  PROMPT 2 6 "Condizioni per "
  ITEM "L|Listini"
  MESSAGE ENABLE,F_CAT_VEN|ENABLE,F_DESC_CAT_VEN|CLEAR,F_TIPO_CF|CLEAR,F_CODICE_CF|CLEAR,F_RAGSOC
  ITEM "C|Contratti"
  MESSAGE ENABLE,F_TIPO_CF|ENABLE,F_CODICE_CF|ENABLE,F_RAGSOC|CLEAR,F_CAT_VEN|CLEAR,F_DESC_CAT_VEN
  ITEM "O|Offerte"
  MESSAGE CLEAR,F_CAT_VEN|CLEAR,F_DESC_CAT_VEN|CLEAR,F_TIPO_CF|CLEAR,F_CODICE_CF|CLEAR,F_RAGSOC
END

STRING F_CAT_VEN 2
BEGIN
  PROMPT 2 7 "Categoria      "
  FLAGS "U"
  USE CVE
  INPUT CODTAB F_CAT_VEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAT_VEN CODTAB
  OUTPUT F_DESC_CAT_VEN S0
  CHECKTYPE NORMAL
END

STRING F_DESC_CAT_VEN 50
BEGIN
  PROMPT 25 7 ""
  USE CVE KEY 2
  INPUT S0 F_DESC_CAT_VEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CAT_VEN
  CHECKTYPE NORMAL
END

RADIOBUTTON F_TIPO_CF 1 16
BEGIN
  PROMPT 2 7 ""
  ITEM "|Nessuno"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER F_CODICE_CF 6
BEGIN
  PROMPT 18 8 "Codice "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT CODCF F_CODICE_CF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODICE_CF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 9 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODICE_CF
  CHECKTYPE NORMAL
END

STRING F_CODICE_LCO 3
BEGIN
  PROMPT 2 11 "Lis/Con/Off   "
  FLAGS "U"
  USE LF_CONDV
  INPUT TIPO F_TIPO_LCO SELECT
  INPUT CATVEN F_CAT_VEN SELECT
  INPUT TIPOCF F_TIPO_CF SELECT
  INPUT CODCF F_CODICE_CF
  INPUT COD F_CODICE_LCO
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODICE_LCO COD
  OUTPUT F_DESC_CODICE_LCO DESCR
  CHECKTYPE NORMAL
END

STRING F_DESC_CODICE_LCO 50
BEGIN
  PROMPT 25 10 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK

PAGE "Fields" -1 -1 60 6

STRING F_FIELD 10
BEGIN
  PROMPT 1 1 "Campo "
  FLAGS "BU"
END

STRING F_DESCR 70 50
BEGIN
  PROMPT 6 2 ""
  FLAGS "D"
END


STRING F_FROM 50
BEGIN
  PROMPT 1 3 "Da    "
  FLAGS "B"
END

STRING F_TO 50
BEGIN
  PROMPT 1 4 "A     "
  FLAGS "B"
END

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

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

ENDPAGE

ENDMASK

PAGE "Outputs" -1 -1 60 6

STRING F_FIELD 10
BEGIN
  PROMPT 1 1 "Campo "
  FLAGS "BU"
END

STRING F_DESCR 70 50
BEGIN
  PROMPT 6 2 ""
  FLAGS "D"
END

STRING F_CODFORM 10
BEGIN
  PROMPT 1 3 ""
  FLAGS "U"
  USE %FRM
  INPUT CODTAB F_CODFORM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODFORM CODTAB
  OUTPUT F_FORMULA S1+S2
  CHECKTYPE SEARCH
END

STRING F_FORMULA 100 50
BEGIN
  PROMPT 1 4 ""
END

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

ENDMASK