campo-sirio/ps/ps0430100a.uml

#include "ps0430100a.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Relazioni utenti Articoli" -1 -1 80 20

LIST F_COD 5
BEGIN
  PROMPT 50 50 ""
  ITEM "ATM|ATM"
  FIELD COD
  FLAGS "H"
  KEY 1
END

NUMBER F_CODTAB 3
BEGIN
  PROMPT 50 50 ""
  USE LF_MULTIREL
  INPUT COD F_COD SELECT
  INPUT FIRST F_CODTAB
  DISPLAY "Codice" FIRST
  DISPLAY "Descrizione@60" DATA
  DISPLAY "Causale Collegata" SECOND
  OUTPUT F_CODTAB FIRST
	CHECKTYPE REQUIRED
  FIELD FIRST
  FLAGS "H"
  KEY 1
END

STRING F_USER 8
BEGIN
  PROMPT 4 0 "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
	MESSAGE COPY,F_CODTAB
END

STRING F_DUSER 50
BEGIN
  PROMPT 25 0 ""
	FLAGS "D"
END

BOOLEAN F_ACTIVEONLY
BEGIN
  PROMPT 4 1 "Mostrare solo gli articoli attivi"
END

BUTTON F_SET 10 2
BEGIN
  PROMPT -1 0 "~Tutti"
END

SPREADSHEET F_ARTICLES
BEGIN
	PROMPT 1 2 "Articoli"
	ITEM "Codice@20"
	ITEM "Descrizione@45"
	ITEM "Attivo"
	ITEM "Fornit."
	ITEM "Ragione sociale@45"
	ITEM "Lead\ntime@5"
	ITEM "Lotto minimo\ndi riordino@10"
	ITEM "Descrizione aggiuntiva@50"
	ITEM "Q.tà per unità\ndi vendita@15"
	ITEM "Prezzo unitario@15"
	ITEM "Prezzo unità\ndi vendita@15"
	ITEM "Campo Aggiuntivo 1@15"
	ITEM "Campo Aggiuntivo 2@15"
	ITEM "Campo Aggiuntivo 3@15"
	ITEM "Campo Aggiuntivo 4@15"
	ITEM "Campo Aggiuntivo 5@15"
	ITEM "Campo Aggiuntivo 6@15"
	ITEM "Campo Aggiuntivo 7@15"
	ITEM "Campo Aggiuntivo 8@15"
	ITEM "Campo Aggiuntivo 9@15"
	ITEM "Campo Aggiuntivo 10@15"
END

ENDPAGE

PAGE "Filtri" -1 -1 80 20

STRING F_GRMERC 3
BEGIN
    PROMPT 2 4 "Gruppo merceologico      "
    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 35
BEGIN
    PROMPT 35 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 6 "Sottogruppo merceologico "
    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 35
BEGIN
    PROMPT 35 6 ""
    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_SCODART 20
BEGIN
  PROMPT 2 8 "Codice articolo          "
END

STRING F_SDESART 50
BEGIN
  PROMPT 2 10 "Descrizione              "
END

STRING F_SDESAGG 50
BEGIN
  PROMPT 2 12 "Descrizione aggiuntiva   "
END

STRING F_SCODFOR 7
BEGIN
  PROMPT 2 14 "Codice fornitore         "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF  F_SCODFOR
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_SCODFOR CODCF
END

STRING F_SRAGSOC 50
BEGIN
  PROMPT 2 16 "Ragione sociale          "
END

ENDPAGE

ENDMASK

PAGE "Righe" -1 -1 80 18

STRING F_CODART 20
BEGIN
  PROMPT 1 2 "Codice            "
	FLAGS "D"
END

STRING F_DESCR 50 45
BEGIN
  PROMPT 42 2 ""
	FLAGS "D"
END

BOOLEAN F_ATTIVO
BEGIN
  PROMPT 2 4 "Attivo per questo utente"
END

NUMBER F_CODFORN 6
BEGIN
  PROMPT 2 6 "                  "
	FLAGS "D"
END

STRING F_RAGSOC 50 45
BEGIN
  PROMPT 2 8 "                  "
	FLAGS "D"
END

NUMBER F_LEADTIME 5
BEGIN
  PROMPT 2 10 "Lead time        "
	FLAGS "D"
END

NUMBER F_LOTTOMIN 10 3
BEGIN
  PROMPT 42 10 "Lotto  "
	FLAGS "D"
END

STRING F_DESCRAGG 50 45
BEGIN
  PROMPT 2 12 "                  "
	FLAGS "D"
END

NUMBER F_PPCONF 15
BEGIN
  PROMPT 2 12 "Q.tà per unità di vendita "
	FLAGS "D"
END

NUMBER F_VALSTATUN 15 5
BEGIN
  PROMPT 2 14 "Prezzo unitario "
	FLAGS "D"
END

NUMBER F_ULTCOS1 15 5
BEGIN
  PROMPT 2 16 "Prezzo unità di vendita "
	FLAGS "D"
END

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

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

ENDPAGE

PAGE "Campi Utente" -1 -1 80 20

STRING F_USER1 20
BEGIN
  PROMPT 2 2 "Campo utente  1 "
	FLAGS "D"
END

STRING F_USER2 20
BEGIN
  PROMPT 2 4 "Campo utente  2 "
	FLAGS "D"
END

STRING F_USER3 20
BEGIN
  PROMPT 2 6 "Campo utente  3 "
	FLAGS "D"
END

STRING F_USER4 20
BEGIN
  PROMPT 2 8 "Campo utente  4 "
	FLAGS "D"
END

STRING F_USER5 20
BEGIN
  PROMPT 2 10 "Campo utente  5 "
	FLAGS "D"
END

STRING F_USER6 20
BEGIN
  PROMPT 2 12 "Campo utente  6 "
	FLAGS "D"
END

STRING F_USER7 20
BEGIN
  PROMPT 2 14 "Campo utente  7 "
	FLAGS "D"
END

STRING F_USER8 20
BEGIN
  PROMPT 2 16 "Campo utente  8 "
	FLAGS "D"
END

STRING F_USER9 20
BEGIN
  PROMPT 2 18 "Campo utente  9 "
	FLAGS "D"
END

STRING F_USER10 20
BEGIN
  PROMPT 2 20 "Campo utente 10 "
	FLAGS "D"
END

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

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

ENDPAGE

ENDMASK