campo-sirio/ps/ps0330100a.uml

#include "ps0330100a.h"

PAGE "Rimanenze per marca" -1 -1 78 10

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 1 "Anno "
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 2 "@bMarche"
END

STRING F_DAMARCA 3
BEGIN
  PROMPT 2 3 "Da "
  USE LF_ANAMAG SELECT CODART?="???"
  INPUT CODART[1,3] F_DAMARCA
  DISPLAY "Marca" CODART[1,3]
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DAMARCA CODART[1,3]
  OUTPUT F_DAMARCA_D DESCR
  CHECKTYPE SEARCH
END

STRING F_DAMARCA_D 50
BEGIN
  PROMPT 15 3 ""
  USE LF_ANAMAG KEY 2 SELECT CODART?="???"
  INPUT DESCR F_DAMARCA_D
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Marca" CODART[1,3]
  COPY OUTPUT F_DAMARCA
  CHECKTYPE SEARCH
END

STRING F_AMARCA 3
BEGIN
  PROMPT 2 4 "A  "
  COPY USE F_DAMARCA
  INPUT CODART[1,3] F_AMARCA
  COPY DISPLAY F_DAMARCA
  OUTPUT F_AMARCA CODART[1,3]
  OUTPUT F_AMARCA_D DESCR
  CHECKTYPE SEARCH
END

STRING F_AMARCA_D 50
BEGIN
  PROMPT 15 4 ""
  COPY USE F_DAMARCA_D
  INPUT DESCR F_AMARCA_D
  COPY DISPLAY F_DAMARCA_D
  COPY OUTPUT F_AMARCA
  CHECKTYPE SEARCH
END

STRING F_REPORT 50
BEGIN
  PROMPT 1 6 "Report         "
  RSELECT "ps0330"
  CHECKTYPE REQUIRED
END

STRING F_PATH_FILE 255 50
BEGIN
  PROMPT 1 7 "Cartella dest. "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
  WARNING "Selezionare una cartella valida!"
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -2 "Profilo "
  PSELECT
END

ENDPAGE

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK