#include "mg3600.h"

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


PAGE "Stampa etichette articoli" 0 0 0 0

LISTBOX F_TIPOST 14
BEGIN 
  PROMPT 1 2 "Tipo di stampa "
  ITEM "A|Anagrafica"
  MESSAGE HIDE,10@|SHOW,11@|HIDE,12@
  ITEM "G|Giacenze"
  MESSAGE HIDE,10@|HIDE,11@|SHOW,12@
  ITEM "M|Movimenti"
  MESSAGE SHOW,10@|HIDE,11@|HIDE,12@
	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_ANNOES 4
BEGIN
  PROMPT 1 10 "Codice es.      "
  USE ESC
  INPUT CODTAB F_ANNOES
  DISPLAY "Esercizio" CODTAB
  DISPLAY "Dal@12" D0
  DISPLAY "Al@12" D1
  OUTPUT F_ANNOES CODTAB
  CHECKTYPE REQUIRED
  ADD NONE
  FLAGS "AZ"
	GROUP 12
	FIELD ANNOES
END

STRING F_CODMAG 3
BEGIN
  PROMPT 1 12 "Magazzino       "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE REQUIRED
	FIELD CODMAG
	GROUP 12
END

STRING F_DESMAG 50
BEGIN
  PROMPT 25 12 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione mag.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_CODMAG
  CHECKTYPE NORMAL
	GROUP 12
END


STRING F_CODDEP 2
BEGIN
  PROMPT 1 14 "Deposito        "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_CODMAG SELECT 
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  CHECKTYPE NORMAL
  WARNING "Indicare il deposito"
	FIELD CODDEP
	GROUP 12
END

STRING F_DESDEP 50
BEGIN
  PROMPT 25 14 ""
  FLAGS "H"
  USE MAG KEY 2 SELECT (CODTAB[4,5]!="")&&(CODTAB[1,3]==#F_CODMAG)
  INPUT S0 F_DESDEP
  COPY DISPLAY F_DESMAG
  COPY OUTPUT F_CODDEP
  CHECKTYPE NORMAL
  MESSAGE EMPTY CHECK,F_CODDEP
	GROUP 12
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
	GROUP 10
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