campo-sirio/ps/ps0920100a.uml

#include "ps0920100a.h"

PAGE "Stampa ordini di produzione" -1 -1 80 11

GROUPBOX -1 78 5
	BEGIN
	PROMPT 2 1 "Selezione Documenti"
	FLAGS ""
END

NUMBER F_ANNO 4
BEGIN
	PROMPT 4 2 "Anno    "
	FIELD S_ANNO
	KEY	 1
	USE ESC
	CHECKTYPE NORMAL
	INPUT CODTAB F_ANNO
	DISPLAY "Codice" CODTAB
	DISPLAY "Data inizio esercizio" D0
	DISPLAY "Data fine esercizio" D1
	OUTPUT F_ANNO CODTAB
	FLAGS "RZ"
END

STRING F_NUM 4
BEGIN
	PROMPT 21 2 "Num. "
	FIELDS S_NUM
	HELP "Codice numerazione"
	USE %NUM
	INPUT CODTAB F_NUM
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT F_NUM CODTAB
	CHECKTYPE REQUIRED
	FLAG "UPA"
	WARNING "Numerazione assente"
END

STRING F_CODCLI 3
BEGIN
	PROMPT 4 4 "Cliente "
	WARNING "Cliente assente"
	FLAGS "R"
	FIELD CODCLI
	USE LF_CLIFO
	INPUT TIPOCF "C"
	INPUT CODCF F_CODCLI
	DISPLAY "Codice" CODCF
	DISPLAY "Ragione Sociale@50" RAGSOC
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
	WARNING "Cliente assente"
	PROMPT 26 4 ""
	USE LF_CLIFO KEY 2
	INPUT TIPOCF "C"
	INPUT RAGSOC F_RAGSOC
	DISPLAY "Ragione Sociale@50" RAGSOC
	DISPLAY "Partita IVA@12" PAIV
	DISPLAY "Codice" CODCF
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

BOOLEAN F_PAGEBREAK
BEGIN
	PROMPT 4 6 "Salto pagina per ogni scheda"
END

STRING F_PROFILO 70 50
BEGIN
	PROMPT 8 -4 "Profilo "
	PSELECT
	GROUP 1
END

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

BUTTON DLG_SELECT 10 2
BEGIN 
  PROMPT -23 -1 "~Seleziona"
END  

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

ENDPAGE

ENDMASK