#include "ps0099100a.h"

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

PAGE "Statistiche ANIVAL" -1 -1 80 11

GROUPBOX -1 78 5
  BEGIN
  PROMPT 1 1 "@bParametri documenti di vendita"
  FLAGS ""
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
  CHECKTYPE FORCED
  FLAGS "UPA"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 22 2 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Anno        "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  CHECKTYPE REQUIRED
  OUTPUT F_ANNO CODTAB
  OUTPUT F_DADATA D0
  OUTPUT F_ADATA D1
  NUM_EXPR #F_ANNO>0
  FLAG "AP"
END

DATE F_DADATA
BEGIN
  PROMPT 2 4 "Da data     "
END

DATE F_ADATA
BEGIN
  PROMPT 30 4 "A data "
END

STRING F_DACODART 20
BEGIN
  PROMPT 2 7 "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_DADESART DESCR
  CHECKTYPE SEARCH
END

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

STRING F_ACODART 20
BEGIN
  PROMPT 2 8 "A articolo  "
  KEY 1
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_ACODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ACODART CODART
  OUTPUT F_ADESART DESCR
  CHECKTYPE SEARCH
END

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

BOOLEAN F_EXCEL
BEGIN
  PROMPT 2 10 "Genera file in formato Excel  (statanival.xls)"
  MESSAGE FALSE CLEAR,F_PATH
  MESSAGE TRUE ENABLE,F_PATH
END

STRING F_PATH 256 50
BEGIN
  PROMPT 2 11 "Cartella dove salvare il file "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK