campo-sirio/ps/ps0872100a.uml

#include "ps0872100a.h"

PAGE "Stampa Listini RealPlast" -1 -1 48 5

STRING F_DAART 20
BEGIN
   PROMPT 1 1 "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 1 2 "A Articolo         "
   COPY USE F_DAART
   INPUT CODART F_AART 
   COPY DISPLAY F_DAART
   OUTPUT F_AART CODART
   FLAGS "U"
   GROUP 2
END

STRING F_REPORT 20
BEGIN
   PROMPT 1 3 "Tipo di stampa     "
	 RSELECT "ps08721"
	 CHECKTYPE REQUIRED
END

ENDPAGE

TOOLBAR "bar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Stampa"
  PICTURE TOOL_PRINT
END

#include <helpbar.h>

ENDPAGE

ENDMASK