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 2 "Utente   "
  FLAGS "U"
//  FIELD FIRST
  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 2 ""
	FLAGS "D"
END

SPREADSHEET F_ARTICLES 85 -3
BEGIN
	PROMPT 1 4 "Articoli"
	ITEM "Codice@20"
	ITEM "Descrizione@45"
	ITEM "Attivo"
	ITEM "Descrizione fornitore@45"
	ITEM "Codice Fonitore"
	ITEM "Ragione sociale@45"
END

BUTTON F_SET 10 2
BEGIN
  PROMPT -11 -1 "~Tutti"
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

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

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

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

ENDPAGE

ENDMASK