126 lines
2.0 KiB
Plaintext
126 lines
2.0 KiB
Plaintext
|
#include "batbcms.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 20 0 2
|
||
|
|
|
||
|
|
#include <toolbar.h>
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Commesse" -1 -1 78 8
|
||
|
|
|
||
|
|
STRING F_CODICE 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 2 "Codice Commessa "
|
||
|
|
FIELD CODTAB
|
||
|
|
FLAGS "UZ"
|
||
|
|
KEY 1
|
||
|
|
USE CMS
|
||
|
|
INPUT CODTAB F_CODICE
|
||
|
|
DISPLAY "Codice@10" CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_CODICE CODTAB
|
||
|
|
OUTPUT F_DESCR S0
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DESCR 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 4 "Descrizione "
|
||
|
|
FIELD S0
|
||
|
|
KEY 2
|
||
|
|
USE CMS KEY 2
|
||
|
|
INPUT S0 F_DESCR
|
||
|
|
DISPLAY "Descrizione@60" S0
|
||
|
|
DISPLAY "Codice@10" CODTAB
|
||
|
|
COPY OUTPUT F_CODICE
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "Manca la descrizione"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_CODCF 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 6 "Codice cliente "
|
||
|
|
FIELD I0
|
||
|
|
USE LF_CLIFO
|
||
|
|
INPUT TIPOCF "C"
|
||
|
|
INPUT CODCF F_CODCF
|
||
|
|
DISPLAY "Codice@6R" CODCF
|
||
|
|
DISPLAY "Sospeso" SOSPESO
|
||
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||
|
|
DISPLAY "Codice fiscale@16" COFI
|
||
|
|
DISPLAY "Partita IVA@11" PAIV
|
||
|
|
OUTPUT F_CODCF CODCF
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "Cliente assente"
|
||
|
|
ADD RUN cg0 -1
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_IVA 20
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 8 "Regime IVA "
|
||
|
|
FIELD S7
|
||
|
|
HELP "Indicare il tipo di regime IVA"
|
||
|
|
ITEM " |IVA normale"
|
||
|
|
ITEM "NR|Non rilevante"
|
||
|
|
ITEM "ES|Operazioni esenti"
|
||
|
|
ITEM "NI|Non imponibili"
|
||
|
|
ITEM "NS|Non soggetti"
|
||
|
|
ITEM "FC|Fuori campo"
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_PUBB
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 10 "Pubblico"
|
||
|
|
FIELD B0
|
||
|
|
MESSAGE FALSE CLEAR,F_REND
|
||
|
|
MESSAGE TRUE ENABLE,F_REND
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_REND
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 12 "Da rendicontare"
|
||
|
|
FIELD B1
|
||
|
|
END
|
||
|
|
|
||
|
|
DATE F_INIZIO
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 14 "Data inizio "
|
||
|
|
FIELD D0
|
||
|
|
END
|
||
|
|
|
||
|
|
DATE F_FINE
|
||
|
|
BEGIN
|
||
|
|
PROMPT 44 14 "Data fine "
|
||
|
|
FIELD D1
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_PROR
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 16 "Prorogata"
|
||
|
|
FIELD B2
|
||
|
|
END
|
||
|
|
|
||
|
|
BOOLEAN F_CHIUSA
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 18 "Chiusa"
|
||
|
|
FIELD B3
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_RESP 8
|
||
|
|
BEGIN
|
||
|
|
PROMPT 4 20 "Responsabile "
|
||
|
|
FLAGS "U"
|
||
|
|
USE LF_USER SELECT ISGROUP!="X"
|
||
|
|
INPUT USERNAME F_RESP
|
||
|
|
DISPLAY "Utente@8" USERNAME
|
||
|
|
DISPLAY "Gruppo@8" GROUPNAME
|
||
|
|
DISPLAY "Descrizione@50" USERDESC
|
||
|
|
OUTPUT F_RESP USERNAME
|
||
|
|
CHECKTYPE SEARCH
|
||
|
|
FIELD S4
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|