134 lines
2.1 KiB
Plaintext
134 lines
2.1 KiB
Plaintext
|
#include "ve6700a.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 20 60 2
|
||
|
|
|
||
|
|
BUTTON DLG_SAVEREC 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -11 ""
|
||
|
|
PICTURE BMP_SAVEREC
|
||
|
|
PICTURE BMP_SAVERECDN
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -11 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Copia interattiva" 1 1 60 14
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "@bDitta"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODDITTA 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 3 2 "Codice "
|
||
|
|
FLAGS "FD"
|
||
|
|
USE LF_NDITTE
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
INPUT CODDITTA F_CODDITTA
|
||
|
|
OUTPUT F_RAGSOCDITTA RAGSOC
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_RAGSOCDITTA 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 17 2 "Ragione "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 78 7
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 4 "Estremi del documento"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CODNUM 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 5 "Numerazione "
|
||
|
|
FIELD CODNUM
|
||
|
|
HELP "Codice numerazione"
|
||
|
|
USE %NUM
|
||
|
|
INPUT CODTAB F_CODNUM
|
||
|
|
DISPLAY "Codice" CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_CODNUM CODTAB
|
||
|
|
OUTPUT F_DESNUM S0
|
||
|
|
CHECKTYPE FORCED
|
||
|
|
FLAG "UPDG"
|
||
|
|
WARNING "Numerazione assente"
|
||
|
|
KEY 1 2
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESNUM 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 24 5 ""
|
||
|
|
HELP "Descrizione numerazione"
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
LISTBOX F_PROVV 14
|
||
|
|
BEGIN
|
||
|
|
FIELD PROVV
|
||
|
|
PROMPT 2 6 "Tipo "
|
||
|
|
ITEM "D|Definitiva "
|
||
|
|
ITEM "P|Provvisoria"
|
||
|
|
KEY 1 2
|
||
|
|
FLAGS "DPG"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_STATO 1
|
||
|
|
BEGIN
|
||
|
|
PROMPT 35 6 "Stato "
|
||
|
|
FLAG "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_TIPODOC 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 45 6 "Tipo "
|
||
|
|
FLAG "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ANNO 4
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Esercizio "
|
||
|
|
FIELD ANNO
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
NUM_EXPR #F_ANNO>0
|
||
|
|
FLAG "AP"
|
||
|
|
KEY 1 2
|
||
|
|
WARNING "Inserire un anno valido"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_NDOC 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 24 7 "Numero "
|
||
|
|
FIELD NDOC
|
||
|
|
USE LF_DOC SELECT (TIPODOC==#F_TIPODOC)&&(STATO==#F_STATO)
|
||
|
|
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
||
|
|
INPUT PROVV F_PROVV SELECT
|
||
|
|
INPUT ANNO F_ANNO SELECT
|
||
|
|
INPUT CODNUM F_CODNUM SELECT
|
||
|
|
INPUT NDOC F_NDOC
|
||
|
|
DISPLAY "Num." CODNUM
|
||
|
|
DISPLAY "Anno" ANNO
|
||
|
|
DISPLAY "Provv" PROVV
|
||
|
|
DISPLAY "Tipo" TIPODOC
|
||
|
|
DISPLAY "N.Doc. " NDOC
|
||
|
|
DISPLAY "Stato@R" STATO
|
||
|
|
DISPLAY "Data\ndocumento" DATADOC
|
||
|
|
DISPLAY "C/F" TIPOCF
|
||
|
|
DISPLAY "Codice" CODCF
|
||
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||
|
|
OUTPUT F_NDOC NDOC
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
KEY 1 2
|
||
|
|
FLAG "R"
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|