campo-sirio/ve/ve3400.uml

#include <lffiles.h>
#include "ve3400.h"

PAGE "Stampa anagrafica di magazzino " -1 -1 72 14

GROUPBOX DLG_NULL 71 7
BEGIN
  PROMPT 1 0 ""
//FLAG "R"
END

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 1 7 "Controllo stampa"
//FLAG "R"
END

STRING F_CODART_1 20
BEGIN
    PROMPT 2 1 "Dall'art.   "
    FLAG "U"
    USE LF_ANAMAG
    INPUT CODART F_CODART_1
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_1 CODART
    OUTPUT F_DESCR_1 DESCR
    CHECKTYPE NORMAL
END

STRING F_DESCR_1 50 
BEGIN
    PROMPT 2 2 "Descrizione "
    USE LF_ANAMAG KEY 2
    INPUT DESCR F_DESCR_1
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_1 CODART
    OUTPUT F_DESCR_1 DESCR
END

STRING F_CODART_2 20
BEGIN
    PROMPT 2 4 "All'art.    "
    FLAG "U"
    USE LF_ANAMAG
    INPUT CODART F_CODART_2
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_2 CODART
    OUTPUT F_DESCR_2 DESCR
    CHECKTYPE NORMAL
END

STRING F_DESCR_2 50
BEGIN
    PROMPT 2 5 "Descrizione "
    USE LF_ANAMAG KEY 2
    INPUT DESCR F_DESCR_2
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CODART_2 CODART
    OUTPUT F_DESCR_2 DESCR
END

BOOLEAN F_ST_UMART
BEGIN
    PROMPT 2 8 "Stampa unita' di misura"
END

BOOLEAN F_ST_CODCORR
BEGIN
    PROMPT 2 9 "Stampa codici corrispondenti"
END

BOOLEAN F_ST_FISC
BEGIN
    PROMPT 2 10 "Stampa dati fiscali"
END

BUTTON DLG_SELECT 9 2
BEGIN
    PROMPT -12 -1 "Selezione"
    MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

ENDMASK