1a9fd1a198
Files correlati : Ricompilazione Demo : [ ] Commento : maschera precisa git-svn-id: svn://10.65.10.50/trunk@19897 c028cbd2-c16b-5b4b-a496-9718f37d4682
49 lines
722 B
Plaintext
Executable File
49 lines
722 B
Plaintext
Executable File
#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
|
|
|