49 lines
723 B
Plaintext
49 lines
723 B
Plaintext
|
#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 "Da 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
|
||
|
|
|