62 lines
1.2 KiB
Plaintext
Executable File
62 lines
1.2 KiB
Plaintext
Executable File
#include "ba3100.h"
|
|
#include "batb%tpd.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tipi documenti" -1 -1 78 12
|
|
|
|
STRING F_TIPODOC 2
|
|
BEGIN
|
|
PROMPT 4 2 "Tipo documento "
|
|
FIELD LF_TABCOM->CODTAB
|
|
HELP "Inserire il tipo documento"
|
|
USE %TPD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB F_TIPODOC
|
|
DISPLAY "Tipo" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC CODTAB
|
|
FLAGS "U"
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 4 4 "Descrizione "
|
|
FIELD LF_TABCOM->S0
|
|
HELP "Inserire la descrizione del documento"
|
|
USE %TPD KEY 2
|
|
CHECKTYPE REQUIRED
|
|
INPUT S0 F_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
OUTPUT F_TIPODOC CODTAB
|
|
OUTPUT F_DESCRIZIONE S0
|
|
KEY 2
|
|
END
|
|
|
|
LIST F_NATURA 20
|
|
BEGIN
|
|
PROMPT 4 6 "Natura documento "
|
|
FIELD LF_TABCOM->I0
|
|
HELP "Indicare la natura del documento"
|
|
ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP
|
|
ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
|
|
ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP
|
|
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
|
|
GROUP GR_RECORD_PROTECTED
|
|
END
|
|
|
|
BOOLEAN F_CORRISP
|
|
BEGIN
|
|
PROMPT 4 8 "Corrispettivi "
|
|
FIELD LF_TABCOM->B0
|
|
HELP "Indicare se si tratta di registro dei corrispettivi"
|
|
GROUP GR_RECORD_PROTECTED
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|