root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : no-patch

Browse Source 
Files correlati     : ve
Commento            :
- aggiunta campi in spesa per tipo cassa
This commit is contained in:
Simone Palacino 2019-02-04 17:13:55 +01:00
parent a2c3543788
commit b37bc98218
2 changed files with 69 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ve/vetbspp.h
View File

@ -41,6 +41,10 @@
#define SPP_CODQUA 160
#define SPP_CAUSD 161
#define SPP_TIPOCAS 170
#define SPP_SOGGRIT 171
#define SPP_CALCRIT 172
#ifndef __VETBANAL_H
#include "vetbanal.h"
#endif

79
src/ve/vetbspp.uml
View File

@ -101,11 +101,11 @@ BEGIN
PROMPT 2 6 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@|DISABLE,4@
ITEM "V|Valore "
MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@
MESSAGE SHOW,1@|"1",2@|DISABLE,2@|HIDE,3@|RESET,3@|DISABLE,4@
ITEM "P|Percentuale "
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
MESSAGE SHOW,3@|HIDE,1@|RESET,1@|ENABLE,4@
END
LISTBOX SPP_TIPORIT 17
@ -269,14 +269,14 @@ END
NUMBER SPP_GRUPPOA 3
BEGIN
PROMPT 2 15 "Conto acquisti "
PROMPT 2 12 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER SPP_CONTOA 3
BEGIN
PROMPT 22 15 ""
PROMPT 22 12 ""
FIELD I4
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO SPP_GRUPPOA
@ -293,7 +293,7 @@ BEGIN
NUMBER SPP_SOTTOA 6
BEGIN
PROMPT 29 15 ""
PROMPT 29 12 ""
FIELD I5
USE LF_PCON SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@ -315,7 +315,7 @@ END
STRING SPP_DESCRCONTOA 50 35
BEGIN
PROMPT 40 15 ""
PROMPT 40 12 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
@ -332,7 +332,7 @@ END
LIST SPP_TIPOSP 1 20
BEGIN
PROMPT 2 19 "Tipologia di spesa/prestazione "
PROMPT 2 14 "Tipologia di spesa/prestazione "
FIELD S11[1,1]
ITEM " |Altro"
ITEM "I|Incasso"
@ -342,7 +342,7 @@ END
STRING SPP_CODTRB 4
BEGIN
PROMPT 2 20 "Cod. tributo "
PROMPT 2 15 "Cod. tributo "
FIELD S10
FLAG "U"
USE %TRB
@ -356,7 +356,7 @@ END
STRING SPP_CODTRB1 50 22
BEGIN
PROMPT 25 20 ""
PROMPT 25 15 ""
USE %TRB KEY 2
INPUT S0 SPP_CODTRB1
DISPLAY "Descrizione@50" S0
@ -368,7 +368,7 @@ END
NUMBER SPP_CODCAUS770 2
BEGIN
PROMPT 2 21 "Caus. 770 "
PROMPT 2 16 "Caus. 770 "
USE %CA7 SELECT I0==#SPP_CODTRB
INPUT CODTAB SPP_CODCAUS770
DISPLAY "Cod.caus." CODTAB
@ -385,7 +385,7 @@ END
LISTBOX SPP_CODQUA 2 10
BEGIN
PROMPT 20 21 "Quadro "
PROMPT 20 16 "Quadro "
HELP "Inserire il codice quadro"
ITEM "|" MESSAGE CLEAR,SPP_CAUSD
ITEM "LA|Quadro LA" MESSAGE ENABLE,SPP_CAUSD
@ -397,7 +397,7 @@ END
STRING SPP_CAUSD 2
BEGIN
PROMPT 50 21 "Causale LA "
PROMPT 50 16 "Causale LA "
FLAGS "U"
SHEET "Codice|Descrizione@320"
INPUT SPP_CAUSD
@ -441,12 +441,63 @@ END
LISTBOX SPP_SEZIONE 6
BEGIN
PROMPT 2 23 "Sezione per cooperative "
PROMPT 2 17 "Sezione per cooperative "
FIELD S11[5,5]
ITEM "D|Dare"
ITEM "A|Avere"
END
STRING SPP_TIPOCAS 4
BEGIN
PROMPT 2 18 "Tipo Cassa Previdenziale "
FLAGS "U"
SHEET "Codice|Descrizione@320"
INPUT SPP_TIPOCAS
ITEM " | "
ITEM "TC01|Cassa nazionale previdenza e assistenza avvocati e procuratori legali"
ITEM "TC02|Cassa previdenza dottori commercialisti"
ITEM "TC03|Cassa previdenza e assistenza geometri"
ITEM "TC04|Cassa nazionale previdenza e assistenza ingegneri e architetti liberi professionisti"
ITEM "TC05|Cassa nazionale del notariato"
ITEM "TC06|Cassa nazionale previdenza e assistenza ragionieri e periti commerciali"
ITEM "TC07|Ente nazionale assistenza agenti e rappresentanti di commercio (ENASARCO)"
ITEM "TC08|Ente nazionale previdenza e assistenza consulenti del lavoro (ENPACL)"
ITEM "TC09|Ente nazionale previdenza e assistenza medici (ENPAM)"
ITEM "TC10|Ente nazionale previdenza e assistenza farmacisti (ENPAF)"
ITEM "TC11|Ente nazionale previdenza e assistenza veterinari (ENPAV)"
ITEM "TC12|Ente nazionale previdenza e assistenza impiegati dell'agricoltura (ENPAIA)"
ITEM "TC13|Fondo previdenza impiegati imprese di spedizione e agenzie marittime"
ITEM "TC14|Istituto nazionale previdenza giornalisti italiani (INPGI)"
ITEM "TC15|Opera nazionale assistenza orfani sanitari italiani (ONAOSI)"
ITEM "TC16|Cassa autonoma assistenza integrativa giornalisti italiani (CASAGIT)"
ITEM "TC17|Ente previdenza periti industriali e periti industriali laureati (EPPI)"
ITEM "TC18|Ente previdenza e assistenza pluricategoriale (EPAP)"
ITEM "TC19|Ente nazionale previdenza e assistenza biologi (ENPAB)"
ITEM "TC20|Ente nazionale previdenza e assistenza professione infermieristica (ENPAPI)"
ITEM "TC21|Ente nazionale previdenza e assistenza psicologi (ENPAP)"
ITEM "TC22|INPS"
OUTPUT SPP_TIPOCAS
FIELD S13[0,4]
FLAGS "D"
GROUP 4
END
BOOLEAN SPP_SOGGRIT
BEGIN
PROMPT 40 18 "Soggetto a ritenuta "
FLAGS "D"
FIELD B0
GROUP 4
END
BOOLEAN SPP_CALCRIT
BEGIN
PROMPT 60 18 "Spesa rientrante nel calcolo ritenuta "
FLAGS "D"
FIELD B1
GROUP 4
END
ENDPAGE
PAGE "Analitica" 11 60 14