campo-sirio/mg/mg3500.uml

#include "mg3500.h"
PAGE "Stampa storico rimanenze" -1 -1 78 20

LISTBOX F_ORDINE 20
BEGIN
	FLAGS "G"
  PROMPT 2 1 "Ordinamento   "
	ITEM "C|codice"
	MESSAGE ENABLE,G_CODART@|HIDE,G_DESART@
	ITEM "D|descrizione"
	MESSAGE DISABLE,G_CODART@|SHOW,G_DESART@
END

NUMBER F_ANNOES 4
BEGIN
	FLAGS "A"
  PROMPT 2 2 "Codice es.    "
	USE ESC
	INPUT CODTAB F_ANNOES
	DISPLAY "Esercizio" CODTAB
	DISPLAY "Dal@12" D0
  DISPLAY "Al@12" D1
	OUTPUT F_ANNOES CODTAB
  CHECKTYPE NORMAL
  ADD NONE
END

STRING F_DAART 20
BEGIN
  PROMPT 2 4 "Dall'articolo "
	FLAGS "U"
	USE LF_ANAMAG 
	INPUT CODART F_DAART
	DISPLAY "Codice" CODART
	DISPLAY "Descr@50" DESCR
	OUTPUT F_DAART CODART
	GROUP G_CODART
END
STRING F_AART 20
BEGIN
  PROMPT 2 5 " all'articolo "
	FLAGS "U"
	COPY USE F_DAART
	INPUT CODART F_AART
	COPY DISPLAY F_DAART
	OUTPUT F_AART CODART
	GROUP G_CODART
END

STRING F_DADES 50
BEGIN
  PROMPT 2 4 "Dall'articolo "
	FLAGS "U"
	USE LF_ANAMAG KEY 2
	INPUT DESCR F_DADES
	DISPLAY "Descr@50" DESCR
	DISPLAY "Codice" CODART
	OUTPUT F_DADES DESCR
	GROUP G_DESART
END

STRING F_ADES 50
BEGIN
  PROMPT 2 5 " all'articolo "
	FLAGS "U"
	COPY USE F_DADES
	INPUT DESCR F_ADES
	COPY DISPLAY F_DADES
	OUTPUT F_ADES DESCR
	GROUP G_DESART
END


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

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

ENDPAGE
ENDMASK