#include "lv0900a.h"

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

PAGE "Stampa Statistica per Lavatrice." -1 -1 40 5

GROUPBOX DLG_NULL 85 8
BEGIN
  PROMPT 1 1 "@b Parametri Estrazione"
END

DATE F_DATADOC_DA_1
BEGIN 
  PROMP 2 3 "Da Data     "
  FIELD #F_DATADOC_DA
  CHECKTYPE REQUIRED
  FLAGS "A"
END

NUMBER F_DA_ANNO_1 4
BEGIN 
  PROMP 2 4 "Da Anno     "
  NUM_CALC LEFT(#F_DATADOC_DA_1,4)
  DRIVENBY F_DATADOC_DA_1
  FIELD #F_DA_ANNO
  CHECKTYPE REQUIRED
  FLAGS "H"
END

DATE F_DATADOC_A_1
BEGIN 
  PROMP 40 3 "A Data "
  FIELD #F_DATADOC_A
  VALIDATE DATE_CMP_FUNC >= F_DATADOC_A_1
  WARNING "La data finale non deve essere successiva a quella finale"
  CHECKTYPE REQUIRED
  FLAGS "A"
END

NUMBER F_A_ANNO_1 4
BEGIN 
  PROMP 40 4 "A Anno      "
  FIELD #F_A_ANNO
  NUM_CALC LEFT(#F_DATADOC_A_1,4)
  DRIVENBY F_DATADOC_A_1
  CHECKTYPE REQUIRED
  FLAGS "H"
END

STRING F_CODNUM_1 4
BEGIN
  PROMPT 2 5 "Numerazione "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_1 CODTAB
  OUTPUT F_DESCODNUM_1 S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
  FIELD #F_CODNUM
END

STRING F_DESCODNUM_1 50
BEGIN
  PROMPT 24 5 ""
  HELP "Descrizione Numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESCODNUM_1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODNUM_1 CODTAB
  OUTPUT F_DESCODNUM_1 S0
  CHECKTYPE NORMAL
  FIELD #F_DESCODNUM
END

STRING F_TIPODOC_1 4
BEGIN
  PROMPT 2 6 "Tipo        "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_1 CODTAB
  OUTPUT F_DESTIPODOC_1 S0
  CHECKTYPE NORMAL
  FLAGS "UPA"
  FIELD #F_TIPODOC
END

STRING F_DESTIPODOC_1 50
BEGIN
  PROMPT 24 6 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC_1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_TIPODOC_1 CODTAB
  OUTPUT F_DESTIPODOC_1 S0
  CHECKTYPE NORMAL
  FIELD #F_DESTIPODOC
END  

ENDPAGE
ENDMASK