campo-sirio/db/db0500a.uml

#include "db0500a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SELECT 10 2
BEGIN
  PROMPT -16 -11 "Modifica"
  MESSAGE EXIT,K_ENTER
  PICTURE TOOL_EDIT
END

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -26 -11 "~Nuovo"
  MESSAGE EXIT,K_INS
  PICTURE TOOL_NEWREC
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -36 -11 "~Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE TOOL_DELREC
END

BUTTON F_COPY 10 2
BEGIN
  PROMPT -12 -11 "~Copia"
  PICTURE TOOL_COPY
END

BUTTON F_EXPLODE 10 2
BEGIN
  PROMPT -22 -11 "E~splodi"
  PICTURE TOOL_MULTISEL
END

#include <helpbar.h>

ENDPAGE

PAGE "Distinta base" 0 2 0 0

STRING DLG_PROFILE 30
BEGIN
  FLAGS "H"
  PROMPT 1 1 ""
  PSELECT
END

STRING F_CODICE 20
BEGIN
  PROMPT 2 1 "Cerca    "
  FLAGS "GUP"
  USE LF_DIST
  JOIN LF_ANAMAG INTO CODART==CODDIST
  INPUT CODDIST F_CODICE
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  OUTPUT F_CODICE CODDIST
  OUTPUT F_DESCRDIST DESCR 
  CHECKTYPE REQUIRED
  FIELD CODDIST
  DEFAULT NONE
END

STRING F_DESCRDIST 50
BEGIN
  PROMPT 34 1 ""
  FLAGS "D"
END

BOOLEAN F_NOSOSP
BEGIN
  PROMPT 62 3 "Nascondi SOSPESI"
END

STRING F_CODICEQ 20
BEGIN
  PROMPT 2 2 "Articolo "
  FIELD CODDIST
  KEY 1
  USE LF_ANAMAG SELECT !((SOSPESO="X")&&(#F_NOSOSP="X"))
  JOIN LF_UMART INTO CODART=CODART NRIGA=1
  INPUT CODART F_CODICEQ
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Sospeso@C" SOSPESO
  OUTPUT F_CODICEQ CODART
  OUTPUT F_CODICE  CODART
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  FLAGS "U"
  DEFAULT NONE
END

STRING F_DESCR 50 40
BEGIN
  KEY 2
  PROMPT 34 2 ""
  USE LF_ANAMAG KEY 2 SELECT !((SOSPESO="X")&&(#F_NOSOSP="X"))
  JOIN LF_UMART INTO CODART=CODART NRIGA=1
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  DISPLAY "Sospeso@C" SOSPESO
  OUTPUT F_CODICEQ CODART
  OUTPUT F_CODICE CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAGS "U"
  DEFAULT NONE
END

NUMBER F_SORT 1
BEGIN
  PROMPT 2 3 "Ordinamento "
  USE ORD
  INPUT CODTAB F_SORT
  DISPLAY "Codice ordinamento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SORT CODTAB
  OUTPUT F_SORTDESC S0
  CHECKTYPE FORCED
  FLAGS "U"
  MESSAGE EMPTY "Immissione",F_SORTDESC
  DEFAULT NONE
END

STRING F_SORTDESC 30
BEGIN
  PROMPT 24 3 ""
  FLAGS "D"
  DEFAULT NONE
END

STRING F_VAR_CODMAG 3
BEGIN
  FLAGS "U"
  PROMPT 2 4  "Magazzino "
  USE MAG SELECT CODTAB[4,5]=""
  INPUT CODTAB F_VAR_CODMAG
  DISPLAY "Magazzino" CODTAB 
  DISPLAY "Descrizione@50" S0
  OUTPUT F_VAR_CODMAG CODTAB
  CHECKTYPE FORCED
END
STRING F_VAR_CODDEP 2
BEGIN
  FLAGS "U"
  PROMPT 22 4 "Deposito "
  USE MAG 
  INPUT CODTAB[1,3] F_VAR_CODMAG
  INPUT CODTAB[4,5] F_VAR_CODDEP
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5] 
  DISPLAY "Descrizione@50" S0
  OUTPUT F_VAR_CODMAG CODTAB[1,3] 
  OUTPUT F_VAR_CODDEP CODTAB[4,5]
  CHECKTYPE FORCED
END

STRING F_VAR_IMPIANTO 5
BEGIN
  FLAGS "U"
  PROMPT 2 5  "Impianto  "
  USE IMP
  INPUT CODTAB F_VAR_IMPIANTO
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUPUT F_VAR_IMPIANTO CODTAB
  MESSAGE CHECK, F_VAR_LINEA
  CHECKTYPE FORCED
END

STRING F_VAR_LINEA 5
BEGIN
  FLAGS "U"
  PROMPT 22 5 "Linea    "
  USE LNP
  INPUT CODTAB F_VAR_LINEA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Impianto" S6
  OUPUT F_VAR_LINEA CODTAB
  OUPUT F_VAR_IMPIANTO S6
  CHECKTYPE SEARCH
END


STRING F_VAR_LIV1 10
BEGIN
  FLAGS "U"
  PROMPT 2 6 "Livello 1 "
  USE GCG
  INPUT CODTAB[1] "1"
  INPUT CODTAB[2,20] F_VAR_LIV1
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_VAR_LIV1 CODTAB[2,20]
  CHECKTYPE FORCED
END

STRING F_VAR_LIV2 6
BEGIN
  FLAGS "U"  
  PROMPT 25 6 "Livello 2"
  USE GCG
  INPUT CODTAB[1] "2"
  INPUT CODTAB[2,20] F_VAR_LIV2
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_VAR_LIV2 CODTAB[2,20]
  CHECKTYPE FORCED
END

STRING F_VAR_LIV3 6
BEGIN
  FLAGS "U"
  PROMPT 44 6 "Livello 3"
  USE GCG
  INPUT CODTAB[1] "3"
  INPUT CODTAB[2,20] F_VAR_LIV3
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_VAR_LIV3 CODTAB[2,20]
  CHECKTYPE FORCED
END

STRING F_VAR_LIV4 6
BEGIN
  FLAGS "U"
  PROMPT 64 6 "Livello 4"
  USE GCG
  INPUT CODTAB[1] "4"
  INPUT CODTAB[2,20] F_VAR_LIV4
  DISPLAY "Codice " CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  OUPUT F_VAR_LIV4 CODTAB[2,20]
  CHECKTYPE FORCED
END

TREE F_TREE -3 -1
BEGIN
  PROMPT 0 7 ""
END

ENDPAGE

PAGE "Opzioni" -1 -1 80 20
BOOL F_HIDE_GHOST 
BEGIN
  FLAGS "FD"
  PROMPT 2 2 "Nascondi le distinte virtuali non di produzione"
  DEFAULT NONE
END
GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 3 "@bDescrizione"
END
STRING F_DESCR_SEP 1
BEGIN
  PROMPT 2 4 "Separatore descrizione "
END
BOOL F_SHOW_QTA
BEGIN
  PROMPT 2 5 "Mostra quantita'"
END
BOOL F_SHOW_LIV1 
BEGIN
  PROMPT 2 6 "Mostra livello giacenza 1"
END
BOOL F_SHOW_LIV2 
BEGIN
  PROMPT 2 7 "Mostra livello giacenza 2"
END
BOOL F_SHOW_LIV3 
BEGIN
  PROMPT 2 8 "Mostra livello giacenza 3"
END
BOOL F_SHOW_LIV4 
BEGIN
  PROMPT 2 9 "Mostra livello giacenza 4"
END

NUMBER F_MIN_DEPTH 1
BEGIN
  PROMPT 2 11 "Espandi almeno al livello "
END


ENDPAGE


ENDMASK