168 lines
3.7 KiB
Plaintext
168 lines
3.7 KiB
Plaintext
#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
|
|
|