335 lines
6.1 KiB
Plaintext
Executable File
335 lines
6.1 KiB
Plaintext
Executable File
#include "batbspp.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella spese " 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 75 7
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_CODICE 8
|
|
BEGIN
|
|
PROMPT 2 2 "Cod. tabella "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE SPP
|
|
FLAGS "U"
|
|
INPUT CODTAB F_CODICE
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50 " S0
|
|
OUTPUT F_CODICE CODTAB
|
|
OUTPUT F_DESCR S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
STRING F_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 4 "Descrizione "
|
|
FIELD S0
|
|
KEY 2
|
|
USE SPP KEY 2
|
|
INPUT S0 F_DESCR
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "Codice " CODTAB
|
|
COPY OUTPUT F_CODICE
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
|
|
STRING F_CODASSFIS 4
|
|
BEGIN
|
|
PROMPT 2 7 "Codice IVA "
|
|
FIELD S3
|
|
FLAG "U"
|
|
USE %IVA
|
|
INPUT CODTAB F_CODASSFIS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODASSFIS CODTAB
|
|
OUTPUT F_CODASSFIS1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODASSFIS1 50
|
|
BEGIN
|
|
PROMPT 25 7 ""
|
|
USE %IVA KEY 2
|
|
INPUT S0 F_CODASSFIS1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_CODASSFIS CODTAB
|
|
OUTPUT F_CODASSFIS1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODDIV 4
|
|
BEGIN
|
|
PROMPT 2 8 "Codice valuta "
|
|
FIELD S4
|
|
FLAG "U"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODDIV
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODDIV CODTAB
|
|
OUTPUT F_CODDIV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODDIV1 50
|
|
BEGIN
|
|
PROMPT 25 8 ""
|
|
USE %VAL KEY 2
|
|
INPUT S0 F_CODDIV1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_CODDIV CODTAB
|
|
OUTPUT F_CODDIV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LISTBOX F_CAMPI 15
|
|
BEGIN
|
|
PROMPT 2 10 "Campo default "
|
|
FIELD S6
|
|
ITEM "Q|Qta prezzo "
|
|
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
|
|
ITEM "V|Valore "
|
|
MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
|
|
ITEM "P|Percentuale "
|
|
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
|
|
END
|
|
|
|
CURRENCY F_PREZZO 15
|
|
BEGIN
|
|
PROMPT 2 11 "Prezzo "
|
|
FIELD R0
|
|
FLAGS "U"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_QTA 13 5
|
|
BEGIN
|
|
PROMPT 35 11 "Quantita' "
|
|
FIELD R1
|
|
GROUP 1 2
|
|
END
|
|
|
|
STRING F_UM 2
|
|
BEGIN
|
|
PROMPT 63 11 "U.M. "
|
|
FIELD S7
|
|
FLAGS "U"
|
|
USE %UMS
|
|
INPUT CODTAB F_UM
|
|
DISPLAY "U.M." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_UM CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_PERCENTUALE 5 2
|
|
BEGIN
|
|
PROMPT 2 11 "Percentuale "
|
|
FIELD R2
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_NCAMPOCAL 10
|
|
BEGIN
|
|
PROMPT 2 12 "Formula Doc. "
|
|
FIELD S5
|
|
FLAG "U"
|
|
USE %FRD
|
|
INPUT CODTAB F_NCAMPOCAL
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_NCAMPOCAL CODTAB
|
|
OUTPUT F_NCAMPOCAL1 S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_NCAMPOCAL1 50
|
|
BEGIN
|
|
PROMPT 17 13 ""
|
|
USE %FRD KEY 2
|
|
INPUT S0 F_NCAMPOCAL1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT F_NCAMPOCAL CODTAB
|
|
OUTPUT F_NCAMPOCAL1 S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER F_GRUPPOV 3
|
|
BEGIN
|
|
PROMPT 2 14 "Conto vendita "
|
|
FIELD I0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTOV 3
|
|
BEGIN
|
|
PROMPT 22 14 ""
|
|
FIELD I1
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
|
|
INPUT GRUPPO F_GRUPPOV
|
|
INPUT CONTO F_CONTOV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOV GRUPPO
|
|
OUTPUT F_CONTOV CONTO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -0
|
|
WARNING "Il conto deve essere un ricavo"
|
|
END
|
|
|
|
NUMBER F_SOTTOV 6
|
|
BEGIN
|
|
PROMPT 30 14 ""
|
|
FIELD I2
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT GRUPPO F_GRUPPOV
|
|
INPUT CONTO F_CONTOV
|
|
INPUT SOTTOCONTO F_SOTTOV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOV GRUPPO
|
|
OUTPUT F_CONTOV CONTO
|
|
OUTPUT F_SOTTOV SOTTOCONTO
|
|
OUTPUT F_DESCRCONTOV DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto errato"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_DESCRCONTOV 50
|
|
BEGIN
|
|
PROMPT 17 15 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT DESCR F_DESCRCONTOV
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOV
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un ricavo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER F_GRUPPOA 3
|
|
BEGIN
|
|
PROMPT 2 16 "Conto acquisti "
|
|
FIELD I3
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CONTOA 3
|
|
BEGIN
|
|
PROMPT 22 16 ""
|
|
FIELD I4
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
|
|
INPUT GRUPPO F_GRUPPOA
|
|
INPUT CONTO F_CONTOA
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOA GRUPPO
|
|
OUTPUT F_CONTOA CONTO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un costo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER F_SOTTOA 6
|
|
BEGIN
|
|
PROMPT 30 16 ""
|
|
FIELD I5
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT GRUPPO F_GRUPPOA
|
|
INPUT CONTO F_CONTOA
|
|
INPUT SOTTOCONTO F_SOTTOA
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOA GRUPPO
|
|
OUTPUT F_CONTOA CONTO
|
|
OUTPUT F_SOTTOA SOTTOCONTO
|
|
OUTPUT F_DESCRCONTOA DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto errato"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_DESCRCONTOA 50
|
|
BEGIN
|
|
PROMPT 17 17 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT DESCR F_DESCRCONTOA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOA
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un ricavo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING F_TIPORIGA 4
|
|
BEGIN
|
|
PROMPT 2 18 "Tipo riga "
|
|
FIELD S8
|
|
FLAGS "U"
|
|
USE %TRI SELECT S7=="S"
|
|
INPUT CODTAB F_TIPORIGA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPORIGA CODTAB
|
|
OUTPUT F_DESCRRIGA S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCRRIGA 50
|
|
BEGIN
|
|
PROMPT 17 19 ""
|
|
USE %TRI KEY 2 SELECT S7=="S"
|
|
INPUT S0 F_DESCRRIGA
|
|
COPY DISPLAY F_TIPORIGA
|
|
COPY OUTPUT F_TIPORIGA
|
|
END
|
|
|
|
LISTBOX F_TIPORIT 17
|
|
BEGIN
|
|
PROMPT 2 20 "Tipo ritenuta "
|
|
FIELD S9
|
|
ITEM " |Spesa normale"
|
|
ITEM "F|Ritenuta fiscale"
|
|
ITEM "S|Ritenuta Sociale"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|