campo-sirio/ps/ps0872100a.uml

#include "ps0872100a.h"

PAGE "Stampa Listini RealPlast" -1 -1 78 9

STRING F_DAART 20
BEGIN
   PROMPT 2 2 "Da Articolo         "
   USE 47
   INPUT CODART F_DAART 
   DISPLAY "Codice@20" CODART
   DISPLAY "Descrizione50" DESCR
   OUTPUT F_DAART CODART
   FLAGS "U"
   GROUP 1
END

STRING F_AART 20
BEGIN
   PROMPT 2 4 "A Articolo         "
   USE 47
   INPUT CODART F_AART 
   DISPLAY "Codice@20" CODART
   DISPLAY "Descrizione50" DESCR
   OUTPUT F_AART CODART
   FLAGS "U"
   GROUP 1
END

STRING F_REPORT 20
BEGIN
   PROMPT 2 6 "Tipo di stampa      "
	 RSELECT "ps08721"
	 CHECKTYPE REQUIRED
END

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

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

ENDPAGE
ENDMASK