#include "mg3600.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE


PAGE "Stampa etichette articoli" 0 0 0 0

RADIOBUTTON F_TIPOST 14
BEGIN 
  PROMPT 1 2 "Tipo di stampa"
  ITEM "A|Anagrafica"
  MESSAGE HIDE,10@|SHOW,11@
  ITEM "M|Movimenti"
  MESSAGE SHOW,10@|HIDE,11@
	FLAGS "P"
END

STRING F_DACODART 20
BEGIN
  PROMPT 1 6 "Da articolo     "
  KEY 1
  FLAG "UGP"
  USE LF_ANAMAG
  INPUT CODART F_DACODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACODART CODART
  OUTPUT F_DADESCR DESCR
  CHECKTYPE SEARCH
	FIELD DACODART
END

STRING F_DADESCR 50 40
BEGIN
  PROMPT 40 6 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADESCR
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACODART CODART
  OUTPUT F_DADESCR DESCR
END

STRING F_ACODART 20
BEGIN
  PROMPT 1 8 "A articolo      "
  FLAG "UGP"
  USE LF_ANAMAG
  INPUT CODART F_ACODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ACODART CODART
  OUTPUT F_ADESCR DESCR
  CHECKTYPE SEARCH
	FIELD ACODART
END

STRING F_ADESCR 50 40
BEGIN
    PROMPT 40 8 ""
    USE LF_ANAMAG KEY 2
    INPUT DESCR F_ADESCR
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_ACODART CODART
    OUTPUT F_ADESCR DESCR
END

NUMBER F_QTA 3
BEGIN
  PROMPT 1 10 "Quantita'       "
  CHECKTYPE REQUIRED
  FLAGS "UZ"
	GROUP 11
END

DATE F_DADATA
BEGIN 
  PROMPT 1 10 "Dal             "
	GROUP 10
	FLAGS "P"
	FIELD DADATA
END

DATE F_ADATA
BEGIN
  PROMPT 1 12 " Al             "
	GROUP 10
	FLAGS "P"
	FIELD ADATA
END

NUMBER F_DANUM 7
BEGIN 
  PROMPT 1 14 "Dal numero      "
  USE LF_MOVMAG 
  INPUT NUMREG F_DANUM
  DISPLAY "N.reg.@7" NUMREG
  DISPLAY "Anno" ANNOES
  DISPLAY "Data reg. @10" DATAREG
  DISPLAY "Data comp.@10" DATACOMP
  DISPLAY "Descrizione@30" DESCR
  DISPLAY "Causale" CODCAUS
  OUTPUT F_DANUM NUMREG
	GROUP 10
	FLAGS "P"
	FIELD DANUM
END

NUMBER F_ANUM 7
BEGIN
  PROMPT 1 16 " Al numero      "
	GROUP 15
  USE LF_MOVMAG 
  INPUT NUMREG F_ANUM
  DISPLAY "N.reg.@7" NUMREG
  DISPLAY "Anno" ANNOES
  DISPLAY "Data reg. @10" DATAREG
  DISPLAY "Data comp.@10" DATACOMP
  DISPLAY "Descrizione@30" DESCR
  DISPLAY "Causale" CODCAUS
  OUTPUT F_ANUM NUMREG
	FLAGS "P"
	FIELD ANUM
END

STRING F_CAUS 5
BEGIN 
  PROMPT 2 18 "Codice causale "
  FIELD CAUS
  USE %CAU
  FLAGS "U"
  INPUT CODTAB  F_CAUS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CAUS CODTAB
  CHECKTYPE REQUIRED
  ADD RUN MG0 -0 %CAU  
  GROUP 10
END

ENDPAGE

ENDMASK