campo-sirio/lv/lvsttsp.uml

56 lines
878 B
Plaintext
Raw Normal View History

#include "lvsttsp.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Stampa Tipi di Sospensione" -1 -1 40 5
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 1 "@b Parametri Tipi di Sospensione"
END
STRING F_COD_TSP_FROM 3
BEGIN
PROMPT 2 2 "Da codice"
FLAGS "U"
USE &TSP KEY 1
INPUT CODTAB F_COD_TSP_FROM
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_TSP_FROM CODTAB
OUTPUT F_DES_TSP_FROM S0
CHECKTYPE SEARCH
FIELD #FROM
END
STRING F_DES_TSP_FROM 50
BEGIN
PROMPT 25 2 ""
FLAGS "D"
END
STRING F_COD_TSP_TO 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
USE &TSP KEY 1
INPUT CODTAB F_COD_TSP_TO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_COD_TSP_TO CODTAB
OUTPUT F_DES_TSP_TO S0
CHECKTYPE SEARCH
FIELD #TO
END
STRING F_DES_TSP_TO 50
BEGIN
PROMPT 25 3 ""
FLAGS "D"
END
ENDPAGE
ENDMASK