#include "mg3300.h"
PAGE "Stampa Schede di magazzino" -1 -1 78 12

LISTBOX F_SCHEDA 30
BEGIN
  PROMPT 2 1 "Tipo scheda   "
	ITEM "ORDF|Ordinato fornitori"
	ITEM "ORDC|Ordinato clienti"
	ITEM "ACL|A conto lavoro"
	ITEM "INCL|In conto lavoro"
	ITEM "PRODC|Componenti in produzione "
	ITEM "PRODF|Finiti in produzione "
END

STRING F_DAART 20
BEGIN
  PROMPT 2 3 "Dall'articolo "
	FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_DAART
  DISPLAY "Codice " CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DAART CODART
  GROUP 1
	CHECKTYPE NORMAL
END

STRING F_AART 20
BEGIN
  PROMPT 40 3 "All'articolo "
	FLAGS "U"
  COPY USE F_DAART
  INPUT CODART F_AART
  COPY DISPLAY F_DAART
  OUTPUT F_AART CODART 
  GROUP 1
	CHECKTYPE NORMAL
END

STRING F_DAMAG 20
BEGIN
  PROMPT 2 5 "Dal magazzino "
	FLAGS "U"
  USE MAG 
  INPUT CODTAB F_DAMAG
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DAMAG CODTAB
  GROUP 2
	CHECKTYPE NORMAL
END


STRING F_AMAG 20
BEGIN
  PROMPT 40 5 "Al magazzino "
	FLAGS "U"
  COPY USE F_DAMAG
  INPUT CODTAB F_AMAG
  COPY DISPLAY F_DAMAG
  OUTPUT F_AMAG CODTAB
  GROUP 2
	CHECKTYPE NORMAL
END

DATE F_DADATA
BEGIN
  PROMPT 2 7 "Dalla data     "
END

DATE F_ADATA 
BEGIN
  PROMPT 40 7 "Alla data      "
END

BOOLEAN F_RAGGMAG
BEGIN
  PROMPT 2 9 "Raggruppo per magazzini"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE
ENDMASK