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

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

PAGE "Cambiamento Tipo Doc SDI" 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

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 5 "Tipo Doc SDI"
END

LIST F_INIZIALE 4 40
BEGIN
  PROMPT 2 6 "Iniziale"
  ITEM "|"
  ITEM "TD01|TD01 Fattura"
  ITEM "TD02|TD02 Acconto/Anticipo su fattura"
  ITEM "TD03|TD03 Acconto/Anticipo su parcella"
  ITEM "TD04|TD04 Nota di credito"
  ITEM "TD05|TD05 Nota di debito"
  ITEM "TD06|TD06 Parcella"
  ITEM "TD16|TD16 Integraz. fatt. rev.ch. interno"
  ITEM "TD17|TD17 Integ./autof. acq. servizi estero"
  ITEM "TD18|TD18 Integ. acq. beni intracomunitari"
  ITEM "TD19|TD19 Integ./autof. acq. beni ex art. 17"
  ITEM "TD20|TD20 Autofattura"
  ITEM "TD21|TD21 Autofattura per splafonamento"
  ITEM "TD22|TD22 Estrazione beni da Deposito IVA"
  ITEM "TD23|TD23 Estr. beni Deposito IVA vers. IVA"
  ITEM "TD24|TD24 Fatt. differita art.21 c.4 lett. a"
  ITEM "TD25|TD25 Fatt. differita art. 21 c.4 per.3 b"
  ITEM "TD26|TD26 Cess. beni ammort./passaggi interni"
  ITEM "TD27|TD27 Fatt. autoconsumo/cessioni gratuite"
END

LIST F_FINALE 4 40
BEGIN
  PROMPT 2 7 "Finale  "
  ITEM "|"
  ITEM "TD01|TD01 Fattura"
  ITEM "TD02|TD02 Acconto/Anticipo su fattura"
  ITEM "TD03|TD03 Acconto/Anticipo su parcella"
  ITEM "TD04|TD04 Nota di credito"
  ITEM "TD05|TD05 Nota di debito"
  ITEM "TD06|TD06 Parcella"
  ITEM "TD16|TD16 Integraz. fatt. rev.ch. interno"
  ITEM "TD17|TD17 Integ./autof. acq. servizi estero"
  ITEM "TD18|TD18 Integ. acq. beni intracomunitari"
  ITEM "TD19|TD19 Integ./autof. acq. beni ex art. 17"
  ITEM "TD20|TD20 Autofattura"
  ITEM "TD21|TD21 Autofattura per splafonamento"
  ITEM "TD22|TD22 Estrazione beni da Deposito IVA"
  ITEM "TD23|TD23 Estr. beni Deposito IVA vers. IVA"
  ITEM "TD24|TD24 Fatt. differita art.21 c.4 lett. a"
  ITEM "TD25|TD25 Fatt. differita art. 21 c.4 per.3 b"
  ITEM "TD26|TD26 Cess. beni ammort./passaggi interni"
  ITEM "TD27|TD27 Fatt. autoconsumo/cessioni gratuite"
END

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

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

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

NUMBER F_ANUMERO 7
BEGIN
  PROMPT 2 11 "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 11 ""
  FLAGS "D"
END

ENDPAGE

ENDMASK