60498782dd
Files correlati : Ricompilazione Demo : [ ] Commento : Legata la causale 770 al codice tributo e la sepa a qyest'ultimo git-svn-id: svn://10.65.10.50/trunk@17376 c028cbd2-c16b-5b4b-a496-9718f37d4682
410 lines
7.5 KiB
Plaintext
Executable File
410 lines
7.5 KiB
Plaintext
Executable File
#include "vetbspp.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Spese" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING SPP_CODICE 8
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FIELD CODTAB
|
|
KEY 1
|
|
USE SPP
|
|
FLAGS "U"
|
|
INPUT CODTAB SPP_CODICE
|
|
DISPLAY "Codice@8" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_CODICE CODTAB
|
|
OUTPUT SPP_DESCR S0
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,10@
|
|
END
|
|
|
|
STRING SPP_DESCR 50
|
|
BEGIN
|
|
PROMPT 2 2 "Descrizione "
|
|
FIELD S0
|
|
KEY 2
|
|
USE SPP KEY 2
|
|
INPUT S0 SPP_DESCR
|
|
DISPLAY "Descrizione@50 " S0
|
|
DISPLAY "Codice " CODTAB
|
|
COPY OUTPUT SPP_CODICE
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,20@
|
|
END
|
|
|
|
STRING SPP_CODASSFIS 4
|
|
BEGIN
|
|
PROMPT 2 4 "Codice IVA "
|
|
FIELD S3[1,4]
|
|
FLAG "U"
|
|
USE %IVA
|
|
INPUT CODTAB SPP_CODASSFIS
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_CODASSFIS CODTAB
|
|
OUTPUT SPP_CODASSFIS1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING SPP_CODASSFIS1 50
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
USE %IVA KEY 2
|
|
INPUT S0 SPP_CODASSFIS1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT SPP_CODASSFIS CODTAB
|
|
OUTPUT SPP_CODASSFIS1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING SPP_CODDIV 4
|
|
BEGIN
|
|
PROMPT 2 5 "Codice valuta "
|
|
FIELD S4
|
|
FLAG "U"
|
|
USE %VAL
|
|
INPUT CODTAB SPP_CODDIV
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_CODDIV CODTAB
|
|
OUTPUT SPP_CODDIV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING SPP_CODDIV1 50
|
|
BEGIN
|
|
PROMPT 25 5 ""
|
|
USE %VAL KEY 2
|
|
INPUT S0 SPP_CODDIV1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT SPP_CODDIV CODTAB
|
|
OUTPUT SPP_CODDIV1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LISTBOX SPP_CAMPI 15
|
|
BEGIN
|
|
PROMPT 2 6 "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
|
|
|
|
LISTBOX SPP_TIPORIT 17
|
|
BEGIN
|
|
PROMPT 43 6 "Tipo ritenuta "
|
|
FIELD S9
|
|
ITEM " |Spesa normale"
|
|
ITEM "F|Ritenuta fiscale"
|
|
ITEM "S|Ritenuta Sociale"
|
|
END
|
|
|
|
CURRENCY SPP_PREZZO 15
|
|
BEGIN
|
|
PROMPT 2 7 "Prezzo "
|
|
FIELD R10
|
|
FLAGS "U"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER SPP_QTA 15 5
|
|
BEGIN
|
|
PROMPT 37 7 "Quantita' "
|
|
FIELD R1
|
|
GROUP 1 2
|
|
END
|
|
|
|
STRING SPP_UM 2
|
|
BEGIN
|
|
PROMPT 68 7 "U.M. "
|
|
FIELD S7
|
|
FLAGS "U"
|
|
USE %UMS
|
|
INPUT CODTAB SPP_UM
|
|
DISPLAY "U.M." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_UM CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER SPP_PERCENTUALE 5 2
|
|
BEGIN
|
|
PROMPT 2 7 "Percentuale "
|
|
FIELD R2
|
|
GROUP 3
|
|
END
|
|
|
|
STRING SPP_NCAMPOCAL 10
|
|
BEGIN
|
|
PROMPT 2 8 "Formula Docum. "
|
|
FIELD S5
|
|
FLAG "U"
|
|
USE %FRD
|
|
INPUT CODTAB SPP_NCAMPOCAL
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_NCAMPOCAL CODTAB
|
|
OUTPUT SPP_NCAMPOCAL1 S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
STRING SPP_NCAMPOCAL1 50 45
|
|
BEGIN
|
|
PROMPT 32 8 ""
|
|
USE %FRD KEY 2
|
|
INPUT S0 SPP_NCAMPOCAL1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT SPP_NCAMPOCAL CODTAB
|
|
OUTPUT SPP_NCAMPOCAL1 S0
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
STRING SPP_TIPORIGA 4
|
|
BEGIN
|
|
PROMPT 2 9 "Tipo riga "
|
|
FIELD S8
|
|
FLAGS "U"
|
|
USE %TRI SELECT S7=="S"
|
|
INPUT CODTAB SPP_TIPORIGA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_TIPORIGA CODTAB
|
|
OUTPUT SPP_DESCRRIGA S0
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING SPP_DESCRRIGA 50 47
|
|
BEGIN
|
|
PROMPT 28 9 ""
|
|
USE %TRI KEY 2 SELECT S7=="S"
|
|
INPUT S0 SPP_DESCRRIGA
|
|
COPY DISPLAY SPP_TIPORIGA
|
|
COPY OUTPUT SPP_TIPORIGA
|
|
END
|
|
|
|
NUMBER SPP_GRUPPOV 3
|
|
BEGIN
|
|
PROMPT 2 10 "Conto vendita "
|
|
FIELD I0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER SPP_CONTOV 3
|
|
BEGIN
|
|
PROMPT 22 10 ""
|
|
FIELD I1
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
|
|
INPUT GRUPPO SPP_GRUPPOV
|
|
INPUT CONTO SPP_CONTOV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT SPP_GRUPPOV GRUPPO
|
|
OUTPUT SPP_CONTOV CONTO
|
|
CHECKTYPE NORMAL
|
|
ADD RUN CG0 -0
|
|
WARNING "Il conto deve essere un ricavo"
|
|
END
|
|
|
|
NUMBER SPP_SOTTOV 6
|
|
BEGIN
|
|
PROMPT 29 10 ""
|
|
FIELD I2
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT GRUPPO SPP_GRUPPOV
|
|
INPUT CONTO SPP_CONTOV
|
|
INPUT SOTTOCONTO SPP_SOTTOV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT SPP_GRUPPOV GRUPPO
|
|
OUTPUT SPP_CONTOV CONTO
|
|
OUTPUT SPP_SOTTOV SOTTOCONTO
|
|
OUTPUT SPP_DESCRCONTOV DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto errato"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING SPP_DESCRCONTOV 50 35
|
|
BEGIN
|
|
PROMPT 40 10 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT DESCR SPP_DESCRCONTOV
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT SPP_SOTTOV
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un ricavo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER SPP_GRUPPOA 3
|
|
BEGIN
|
|
PROMPT 2 15 "Conto acquisti "
|
|
FIELD I3
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER SPP_CONTOA 3
|
|
BEGIN
|
|
PROMPT 22 15 ""
|
|
FIELD I4
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
|
|
INPUT GRUPPO SPP_GRUPPOA
|
|
INPUT CONTO SPP_CONTOA
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT SPP_GRUPPOA GRUPPO
|
|
OUTPUT SPP_CONTOA CONTO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un costo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
NUMBER SPP_SOTTOA 6
|
|
BEGIN
|
|
PROMPT 29 15 ""
|
|
FIELD I5
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT GRUPPO SPP_GRUPPOA
|
|
INPUT CONTO SPP_CONTOA
|
|
INPUT SOTTOCONTO SPP_SOTTOA
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT SPP_GRUPPOA GRUPPO
|
|
OUTPUT SPP_CONTOA CONTO
|
|
OUTPUT SPP_SOTTOA SOTTOCONTO
|
|
OUTPUT SPP_DESCRCONTOA DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto errato"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING SPP_DESCRCONTOA 50 35
|
|
BEGIN
|
|
PROMPT 40 15 ""
|
|
FLAG "U"
|
|
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
|
|
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
|
INPUT DESCR SPP_DESCRCONTOA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT SPP_SOTTOA
|
|
CHECKTYPE NORMAL
|
|
WARNING "Il conto deve essere un ricavo"
|
|
ADD RUN CG0 -0
|
|
END
|
|
|
|
STRING SPP_CODTRB 4
|
|
BEGIN
|
|
PROMPT 2 20 "Cod. tributo "
|
|
FIELD S10
|
|
FLAG "U"
|
|
USE %TRB
|
|
INPUT CODTAB SPP_CODTRB
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT SPP_CODTRB CODTAB
|
|
OUTPUT SPP_CODTRB1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING SPP_CODTRB1 50 22
|
|
BEGIN
|
|
PROMPT 25 20 ""
|
|
USE %TRB KEY 2
|
|
INPUT S0 SPP_CODTRB1
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice " CODTAB
|
|
OUTPUT SPP_CODTRB CODTAB
|
|
OUTPUT SPP_CODTRB1 S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
NUMBER SPP_CODCAUS770 2
|
|
BEGIN
|
|
PROMPT 2 21 "Caus. 770 "
|
|
USE %CA7 SELECT I0==#SPP_CODTRB
|
|
INPUT CODTAB SPP_CODCAUS770
|
|
DISPLAY "Cod.caus." CODTAB
|
|
DISPLAY "Cod.trib." I0
|
|
DISPLAY "Art.bil." I3
|
|
DISPLAY "Quadro " S1
|
|
DISPLAY "Descrizione @60" S0
|
|
OUTPUT SPP_CODCAUS770 CODTAB
|
|
FIELD I6
|
|
FLAGS "Z"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
LISTBOX SPP_SEZIONE 6
|
|
BEGIN
|
|
PROMPT 25 21 "Sezione per cooperative "
|
|
FIELD S11
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
END
|
|
|
|
ENDPAGE
|
|
PAGE "Analitica" 11 60 14
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING DLG_NULL 8
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
GROUP 10
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING DLG_NULL 50
|
|
BEGIN
|
|
PROMPT 2 2 "Descrizione "
|
|
GROUP 20
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|