b9072ae97f
Files correlati : Ricompilazione Demo : [ ] Commento :aggiustati alcuni rpt e msk cannati trovati durante la creazione dei rep; correzione su ba0100.cpp necessaria per compilare ba0.exe nella patch sy0066 git-svn-id: svn://10.65.10.50/trunk@12186 c028cbd2-c16b-5b4b-a496-9718f37d4682
150 lines
2.4 KiB
Plaintext
Executable File
150 lines
2.4 KiB
Plaintext
Executable File
#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@20" 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@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
COPY OUTPUT F_CODICE
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la descrizione"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 4 6 "Codice cliente "
|
|
FIELD I0
|
|
FLAG "R"
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C" SELECT
|
|
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
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente assente"
|
|
ADD RUN cg0 -1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 30 6 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C" SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_CODCF
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente assente"
|
|
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_PRORATA
|
|
BEGIN
|
|
PROMPT 50 8 "Utilizza Prorata"
|
|
FIELD B4
|
|
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
|