#include "pf0001100.h"

TOOLBAR "" 0 -3 0 2

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

PAGE "Stampa etichette articoli" 0 0 70 20

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@
END

STRING F_DACODART 20
BEGIN
  PROMPT 1 6 "Da articolo     "
  KEY 1
  FLAG "UG"
  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 "UG"
  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
	FIELD DADATA
END

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

STRING F_CAUS 5
BEGIN 
  PROMPT 2 14 "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

STRING F_LIST 3
BEGIN
  PROMPT 2 16 "Codice Listino "
  FIELD #LIST
  FLAG "U"
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT COD F_LIST
  DISPLAY "C.V." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Valuta" CODVAL
  DISPLAY "Fine validita'" VALFIN
  OUTPUT F_LIST COD
  CHECKTYPE REQUIRED
	ADD RUN VE2 -1 L
END

ENDPAGE

ENDMASK