#include <doc.h>
#include "lv4400a.h"

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

PAGE "Cambiamento stato documenti" 0 0 0 0

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 1 "Numerazione"
END

RADIOBUTTON F_PROVVIS 35
BEGIN
  PROMPT 1 1 ""
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
  FLAGS "Z"
  FIELD PROVV
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 59 2 "Anno "
  FLAGS "AU"
  CHECKTYPE REQUIRED
  FIELD ANNO
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 3 "Codice "
  USE %NUM
  FLAGS "U"
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FIELD CODNUM
END

STRING F_DESNUM 50
BEGIN
  PROMPT 16 3 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Num." CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE REQUIRED
END

STRING F_STATO 1
BEGIN
  PROMPT 2 5 "Stato    "
  USE %STD
  INPUT CODTAB F_STATO
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO CODTAB
  OUTPUT F_DESCSTAT0 S0
  CHECKTYPE NORMAL
END

STRING F_DESCSTAT0 50 52
BEGIN
  PROMPT 16 5 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 6 "Intervallo"
END

NUMBER F_DANUMERO 7
BEGIN
  PROMPT 2 7 "Da "
  USE LF_DOC
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
  INPUT ANNO F_ANNO SELECT
  INPUT PROVV F_PROVVIS SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_DANUMERO
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Data Doc. " DATADOC
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_DANUMERO NDOC
  CHECKTYPE SEARCH
  FLAGS "U"
END

STRING F_DACLIFO 50 52
BEGIN
  PROMPT 16 7 ""
  FLAGS "D"
END

NUMBER F_ANUMERO 7
BEGIN
  PROMPT 2 8 "A  "
  COPY USE F_DANUMERO
  INPUT ANNO F_ANNO SELECT
  INPUT PROVV F_PROVVIS SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_ANUMERO
  COPY DISPLAY F_DANUMERO
  OUTPUT F_ANUMERO NDOC
  CHECKTYPE SEARCH
  NUM_EXPR (#F_ANUMERO==0)||(#F_ANUMERO>=#F_DANUMERO)
  WARNING "Il numero finale deve essere maggiore di quello iniziale"
END

STRING F_ACLIFO 50 52
BEGIN
  PROMPT 16 8 ""
  FLAGS "D"
END

/* BOOLEAN F_UPDATEMAG 1
BEGIN
  PROMPT 2 10 "Aggiorna i magazzini sui documenti"
END */

ENDPAGE

ENDMASK