#include "lv3500a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 "Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE TOOL_CANCEL
END

#include <helpbar.h>

ENDPAGE

PAGE "Riepilogo depositi" -1 -1 80 10

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bParametri Ricerca"
END

STRING F_CODART 20
BEGIN
  PROMPT 2 2 "Articolo  "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESART DESCR  
  FIELD CODART
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
END

STRING F_DESART 50 40
BEGIN
	PROMPT 35 2 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESART
  DISPLAY "Descrizone@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE REQUIRED  
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Esercizio "
END

STRING F_CODMAG 4
BEGIN
  PROMPT 2 5 "Magazzino "
  USE MAG SELECT CODTAB[4,5]==""
  FLAG "U"
  INPUT CODTAB  F_CODMAG  
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE REQUIRED
  FLAGS "D"  
END

STRING F_DESMAG 50
BEGIN
  PROMPT 23 5 ""
  FLAGS "D"
END

SPREADSHEET F_RIGHE 76 8
BEGIN
  PROMPT 2 7 "Righe"
  ITEM "Cod.\nDep.@3"
  ITEM "Deposito@50"
  ITEM "Giacenza@6"
  ITEM "Ord.\nFor.@6"
  ITEM "Ord.\nCli.@6"
  ITEM "Disp.@6"
  FLAGS "D"
END

ENDPAGE
ENDMASK

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

PAGE "Riga" -1 -1 80 10

STRING S_CODDEP 3
BEGIN
  PROMPT 1 1 "Cod. dep.  "
  USE MAG 
	INPUT CODTAB[1,3] -F_CODMAG
  INPUT CODTAB[4,5] S_CODDEP
  OUTPUT S_DESDEP S0
  CHECKTYPE REQUIRED
  FLAGS "DG"
END

STRING S_DESDEP 50
BEGIN
  PROMPT 23 1 ""  
  FLAGS "D" 
END

NUMBER S_GIAC 6
BEGIN
  PROMPT 1 2 "Giacenza      "
  FLAGS "D"
END

NUMBER S_ORDCLI 6
BEGIN
  PROMPT 1 3 "Ord. Clienti  "
  FLAGS "D"
END

NUMBER S_ORDFOR 6
BEGIN
  PROMPT 26 3 "Ord. Fornitori"
  FLAGS "D"
END

NUMBER S_DISP 6
BEGIN
  PROMPT 1 4 "Disponibilità "
  FLAGS "D"
END

ENDPAGE
ENDMASK