campo-sirio/ps/ps0430200a.uml

#include "ps0430200a.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_SAVEREC 11 2
BEGIN
  PROMPT -12 -11 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
  MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

PAGE "Configurazione campi per utente" 0 0 0 -3

STRING F_USER 8
BEGIN
  PROMPT 2 2 "Utente         "
  FLAGS "U"
  KEY 1
  USE LF_USER SELECT ISGROUP!="X"
  INPUT USERNAME F_USER 
  DISPLAY "Utente@8" USERNAME
  DISPLAY "Gruppo@8" GROUPNAME
  DISPLAY "Descrizione@50" USERDESC
  OUTPUT F_USER USERNAME
  OUTPUT F_DUSER USERDESC
  CHECKTYPE NORMAL
END

STRING F_DUSER 50
BEGIN
  PROMPT 29 2 ""
	FLAGS "D"
END

STRING F_GRMERC 3
BEGIN
  PROMPT 2 4 "Gruppo merc.   "
  FLAG "U"
  USE GMC KEY 1 SELECT CODTAB[4,5]==""
  INPUT CODTAB F_GRMERC
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRMERC CODTAB[1,3]
  OUTPUT F_DGRMERC S0
  CHECKTYPE SEARCH
  FIELD OR14_GRM
END

STRING F_DGRMERC 50
BEGIN
  PROMPT 29 4 ""
  USE GMC KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DGRMERC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRMERC CODTAB[1,3]
  OUTPUT F_DGRMERC S0
  CHECKTYPE SEARCH
END

STRING F_SGRMERC 2
BEGIN
    PROMPT 2 5 "Sottogr.merc.  "
    FLAG "U"
    USE GMC
    INPUT CODTAB[1,3] F_GRMERC
    INPUT CODTAB[4,5] F_SGRMERC
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC CODTAB[1,3]
    OUTPUT F_SGRMERC CODTAB[4,5]
    OUTPUT F_DSGRMERC S0
    CHECKTYPE NORMAL
		FIELD OR14_SGR
END

STRING F_DSGRMERC 50
BEGIN
    PROMPT 29 5 ""
    USE GMC KEY 2 SELECT CODTAB[4,5] != ""
    INPUT S0 F_DSGRMERC
    DISPLAY "Descrizione@50" S0
    DISPLAY "Codice" CODTAB
    COPY OUTPUT F_SGRMERC
    CHECKTYPE NORMAL
END

STRING F_CDCT 20
BEGIN      
  PROMPT 2 7 "CDC/Commessa   "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_CDCT
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_CDCT CODTAB
  FILED OR14_CDCT
	CHECKTYPE NORMAL
END

STRING F_FSCT 10
BEGIN
  PROMPT 45 7 "Fase   "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB F_FSCT
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_FSCT CODTAB
	FIELD OR14_FSCT
  CHECKTYPE NORMAL
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 9 "Numerazione    "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
	FLAG "UG"
	CHECKTYPE NORMAL
	FIELD OR14_NUM
END

STRING F_DESNUM 50
BEGIN
  PROMPT 29 9 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
	CHECKTYPE SEARCH
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 10 "Tipo           "
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE NORMAL
  FLAG "UG"
	FIELD OR14_TIP
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 29 10 ""
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
  CHECKTYPE SEARCH
END


STRING F_CODNUMCAR 4
BEGIN
  PROMPT 2 12 "Num.doc.carico "
  USE %NUM
  INPUT CODTAB F_CODNUMCAR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMCAR CODTAB
  OUTPUT F_DESNUMCAR S0
  FLAG "UG"
  CHECKTYPE NORMAL
  FIELD OR14_NUMCAR
END

STRING F_DESNUMCAR 50
BEGIN
  PROMPT 29 12 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUMCAR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUMCAR
  CHECKTYPE SEARCH
END

STRING F_TIPODOCCAR 4
BEGIN
  PROMPT 2 13 "Tipo doc.car.  "
  USE %TIP
  INPUT CODTAB F_TIPODOCCAR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCCAR CODTAB
  OUTPUT F_DESTIPODOCCAR S0
  CHECKTYPE NORMAL
  FLAG "UG"
  FIELD OR14_TIPCAR
END

STRING F_DESTIPODOCCAR 50
BEGIN
  PROMPT 29 13 ""
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOCCAR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOCCAR
  CHECKTYPE SEARCH
END

STRING F_STATOEVASO 1
BEGIN
  PROMPT 2 13 "Tipo doc.car.  "
  PROMPT 2 14 "Stato ord. ev. "
  USE %STD 
  INPUT CODTAB F_STATOEVASO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOEVASO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_STATOEVASO
END

STRING F_STATOINI 1
BEGIN
  PROMPT 52 14 "Stato ordine iniziale "
  USE %STD 
  INPUT CODTAB F_STATOINI
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOINI CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_STATOINI
END

STRING F_MAG 3
BEGIN
  PROMPT 2 15 "Magazzino      "
  FLAGS "UG"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE NORMAL
  FIELD OR14_MAG
END

STRING F_DESMAG 50
BEGIN
  PROMPT 29 15 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione magazzino@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_MAG
  CHECKTYPE SEARCH
END

STRING F_DEP 2
BEGIN
  PROMPT 2 16 "Deposito       "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_MAG
  INPUT CODTAB[4,5] F_DEP
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione dep.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  OUTPUT F_DEP CODTAB[4,5]
  CHECKTYPE SEARCH
  FIELD OR14_DEP
END

STRING F_DESDEP 50
BEGIN
  PROMPT 29 16 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]!=""
  INPUT S0 F_DESDEP
  COPY DISPLAY F_DESMAG
  OUTPUT F_DEP CODTAB[4,5]
  CHECKTYPE SEARCH
END

STRING F_DASTATO 1
BEGIN
  PROMPT 2 18 "Dallo stato    "
  USE %STD 
  INPUT CODTAB F_DASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DASTATO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_DASTATO
END

STRING F_ASTATO 1
BEGIN
  PROMPT 29 18 "Allo stato "
  COPY USE F_DASTATO
  INPUT CODTAB F_ASTATO
  COPY DISPLAY F_DASTATO
  OUTPUT F_ASTATO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_ASTATO
END

ENDPAGE

ENDMASK