#include "ps0330100a.h"

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

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_CODMAG 3
BEGIN
  PROMPT 2 6 "Magazzino "
  USE MAG SELECT CODTAB[4,5]==""
  FLAGS "U"
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Denominazione magazzino@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESCRMAG S0
  CHECKTYPE REQUIRED
END

STRING F_DESCRMAG 50
BEGIN
  PROMPT 22 6 ""
  USE MAG KEY 2
  INPUT S0 F_DESCRMAG
  DISPLAY "Denominazione magazzino@50" S0
  DISPLAY "Codice" CODTAB[1,3]
  COPY OUTPUT F_CODMAG
  CHECKTYPE REQUIRED
  WARNING "Manca la denominazione del magazzino"
END

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

STRING F_PATH_FILE 255 50
BEGIN
  PROMPT 1 9 "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