#include "lv1300a.h"

TOOLBAR "" 0 0 0 2
BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT 1 1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_SETPRINT 10 2
BEGIN
  PROMPT 2 1 "~Imposta"
END

BUTTON DLG_PREVIEW 10 2
BEGIN
  PROMPT 3 1 "~Anteprima"
  PICTURE TOOL_PREVIEW
  MESSAGE EXIT,65
END
#include <helpbar.h>

ENDPAGE

PAGE "Stampa Inventari" -1 -1 80 0  

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 1 "@bDocumenti da stampare"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione  "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  FLAGS "D"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 2 ""
  HELP "Descrizione Numerazione"
  FLAGS "D"
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo         "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  FLAGS "D"
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 24 3 ""
  HELP "Descrizione tipo documento"
  FLAGS "D"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 4 "Anno es.     "
  FLAGS "DA"
END

RADIOBUTTON F_STAMPAPER 1 78
BEGIN
  PROMPT 1 6 "@bSeleziona inventari per..."
  ITEM "0|Numero Inventario"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "1|Data Inventario"
    MESSAGE HIDE,1@|SHOW,2@  
  FLAGS "Z"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 9 "@bParametri"  
END

NUMBER F_DANDOC 6
BEGIN
  PROMPT 2 10 "Dal numero "
  GROUP 1
  USE LF_DOC
  INPUT PROVV "D"
  INPUT ANNO F_ANNOES SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_DANDOC
  DISPLAY "Ndoc@4" NDOC
  DISPLAY "Data\ndocumento@10" DATADOC
  OUTPUT F_DANDOC NDOC
  CHECKTYPE NORMAL
END

NUMBER F_ANDOC 6
BEGIN
  PROMPT 25 10 "Al numero  "
  GROUP 1
  USE LF_DOC
  INPUT PROVV "D"
  INPUT ANNO F_ANNOES SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_DANDOC
  DISPLAY "Ndoc@4" NDOC
  DISPLAY "Data\ndocumento@10" DATADOC
  OUTPUT F_DANDOC NDOC
  CHECKTYPE NORMAL
END

DATE F_DADATA
BEGIN
  PROMPT 2 10 "Dalla data "
  GROUP 2
  CHECKTYPE NORMAL
  FLAGS "A"
END

DATE F_ADATA
BEGIN
  PROMPT 25 10 "Alla data  "
  FLAGS "A"
  GROUP 2
  CHECKTYPE NORMAL
  VALITATE DATE_CMP_FUNC >= F_DADATA
  WARNING "La data finale deve essere successiva a quella iniziale"
END

BOOLEAN F_STAMPADEF
BEGIN
  PROMPT 48 10 "Stampa in definitiva"
END

ENDPAGE

ENDMASK