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

Merge branch 'R_10_00' of http://10.65.20.33/sirio/CAMPO/campo into R_10_00

Browse Source
This commit is contained in:
Simone Palacino 2019-04-09 18:02:09 +02:00
commit 02dfce1628
5 changed files with 31 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/fp/fplib01.cpp
View File

@ -1267,9 +1267,7 @@ void TDoc_fp::add_ritenuta(const TDocumentoEsteso& doc, const TSpesa_prest& sp,
paf0700f.set("P7_TIPORITENUTA", _rec_clifo.get_char(CLI_TIPOPERS) == 'F' ? "RT01" : "RT02");
TString doc_imponibile = doc.imponibile().string();
const real imponibile = doc.ritenute();
paf0700f.set("P7_IMPORTORIT", converti_prezzo(imponibile * sp.perc() / CENTO));
paf0700f.set("P7_IMPORTORIT", converti_prezzo(doc.ritenute()));
paf0700f.set("P7_ALIQUOTARIT", sp.perc());
static TString caus_la; caus_la.cut(0);
caus_la << sp.get("S14");

8
src/ve/vetbatr.uml
View File

@ -247,7 +247,7 @@ END
STRING ATR_CODARTDISP 20
BEGIN
PROMPT 2 15 "Art. dispon. "
PROMPT 2 16 "Art. dispon. "
COPY USE ATR_CODART
INPUT CODART ATR_CODARTDISP
COPY DISPLAY ATR_CODART
@ -261,7 +261,7 @@ END
STRING ATR_DESCARTDISP 50 34
BEGIN
PROMPT 40 15 ""
PROMPT 40 16 ""
COPY USE ATR_DESCART
INPUT DESCR ATR_DESCARTDISP
COPY DISPLAY ATR_DESCART
@ -273,7 +273,7 @@ END
STRING ATR_TIPORADISP 2
BEGIN
PROMPT 2 16 "Tipo ora "
PROMPT 2 17 "Tipo ora "
USE &CIORE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
@ -285,7 +285,7 @@ END
CURRENCY ATR_PREZZODISP 12
BEGIN
PROMPT 22 16 "Prezzo disponibilità "
PROMPT 22 17 "Prezzo disponibilità "
FLAGS "U"
FIELD R11
MODULE ci

12
src/ve/vetbprs.uml
View File

@ -297,7 +297,7 @@ END
STRING PRS_CODTRB 4
BEGIN
PROMPT 2 20 "Cod. tributo "
PROMPT 2 22 "Cod.tributo"
FIELD S10
FLAG "U"
USE %TRB
@ -311,7 +311,7 @@ END
STRING PRS_CODTRB1 50 22
BEGIN
PROMPT 25 20 ""
PROMPT 22 22 ""
USE %TRB KEY 2
INPUT S0 PRS_CODTRB1
DISPLAY "Descrizione@50" S0
@ -323,7 +323,7 @@ END
NUMBER PRS_CODCAUS770 2
BEGIN
PROMPT 2 21 "Caus. 770 "
PROMPT 2 23 "Caus. 770 "
USE %CA7 SELECT I0==#PRS_CODTRB
INPUT CODTAB PRS_CODCAUS770
DISPLAY "Cod.caus." CODTAB
@ -340,7 +340,7 @@ END
LISTBOX PRS_CODQUA 2 10
BEGIN
PROMPT 20 21 "Quadro "
PROMPT 18 23 "Quadro "
HELP "Inserire il codice quadro"
ITEM "|" MESSAGE CLEAR,PRS_CAUSD
ITEM "LA|Quadro LA" MESSAGE ENABLE,PRS_CAUSD
@ -352,7 +352,7 @@ END
STRING PRS_CAUSD 2
BEGIN
PROMPT 50 21 "Causale LA "
PROMPT 41 23 "Causale LA"
FLAGS "U"
SHEET "Codice|Descrizione@320"
INPUT PRS_CAUSD
@ -396,7 +396,7 @@ END
LISTBOX PRS_SEZIONE 6
BEGIN
PROMPT 2 23 "Sezione per cooperative "
PROMPT 56 23 "Sezione per cooperative"
FIELD S11
ITEM "D|Dare"
ITEM "A|Avere"

12
src/ve/vetbrss.uml
View File

@ -443,7 +443,7 @@ END
STRING RSS_TIPOSTRA1 2
BEGIN
PROMPT 1 17 "Tipo ora straordinaria 1 "
PROMPT 1 20 "Tipo ora straordinaria 1 "
USE &CIORE
INPUT CODTAB RSS_TIPOSTRA1
DISPLAY "Codice" CODTAB
@ -455,19 +455,19 @@ END
NUMBER RSS_DOPOSTRA1 2
BEGIN
PROMPT 41 17 "dopo ore "
PROMPT 41 20 "dopo ore "
FIELD R5
END
CURRENCY RSS_COSTOSTRA1 9
BEGIN
PROMPT 59 17 "Costo "
PROMPT 59 20 "Costo "
FIELD R6
END
STRING RSS_TIPOSTRA2 2
BEGIN
PROMPT 1 18 "Tipo ora straordinaria 2 "
PROMPT 1 21 "Tipo ora straordinaria 2 "
COPY USE RSS_TIPOSTRA1
INPUT CODTAB RSS_TIPOSTRA2
COPY DISPLAY RSS_TIPOSTRA1
@ -478,13 +478,13 @@ END
NUMBER RSS_DOPOSTRA2 2
BEGIN
PROMPT 41 18 "dopo ore "
PROMPT 41 21 "dopo ore "
FIELD R7
END
CURRENCY RSS_COSTOSTRA2 9
BEGIN
PROMPT 59 18 "Costo "
PROMPT 59 21 "Costo "
FIELD R8
END

28
src/ve/vetbspp.uml
View File

@ -269,14 +269,14 @@ END
NUMBER SPP_GRUPPOA 3
BEGIN
PROMPT 2 12 "Conto acquisti "
PROMPT 2 15 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER SPP_CONTOA 3
BEGIN
PROMPT 22 12 ""
PROMPT 22 15 ""
FIELD I4
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO=="")
INPUT GRUPPO SPP_GRUPPOA
@ -293,7 +293,7 @@ BEGIN
NUMBER SPP_SOTTOA 6
BEGIN
PROMPT 29 12 ""
PROMPT 29 15 ""
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 12 ""
PROMPT 40 15 ""
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 14 "Tipologia di spesa/prestazione "
PROMPT 2 20 "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 15 "Cod. tributo "
PROMPT 2 21 "Cod. tributo "
FIELD S10
FLAG "U"
USE %TRB
@ -356,7 +356,7 @@ END
STRING SPP_CODTRB1 50 22
BEGIN
PROMPT 25 15 ""
PROMPT 25 21 ""
USE %TRB KEY 2
INPUT S0 SPP_CODTRB1
DISPLAY "Descrizione@50" S0
@ -368,7 +368,7 @@ END
NUMBER SPP_CODCAUS770 2
BEGIN
PROMPT 2 16 "Caus. 770 "
PROMPT 2 22 "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 16 "Quadro "
PROMPT 20 22 "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 16 "Causale LA "
PROMPT 50 22 "Causale LA "
FLAGS "U"
SHEET "Codice|Descrizione@320"
INPUT SPP_CAUSD
@ -441,7 +441,7 @@ END
LISTBOX SPP_SEZIONE 6
BEGIN
PROMPT 2 17 "Sezione per cooperative "
PROMPT 2 23 "Sezione per cooperative "
FIELD S11[5,5]
ITEM "D|Dare"
ITEM "A|Avere"
@ -449,7 +449,7 @@ END
STRING SPP_TIPOCAS 4
BEGIN
PROMPT 2 18 "Tipo Cassa Previdenziale "
PROMPT 2 24 "Tipo Cassa Previdenziale "
FLAGS "U"
SHEET "Codice|Descrizione@320"
INPUT SPP_TIPOCAS
@ -484,7 +484,7 @@ END
BOOLEAN SPP_SOGGRIT
BEGIN
PROMPT 40 18 "Soggetto a ritenuta "
PROMPT 40 24 "Soggetto a ritenuta"
FLAGS "D"
FIELD B0
GROUP 4
@ -492,7 +492,7 @@ END
BOOLEAN SPP_CALCRIT
BEGIN
PROMPT 2 19 "Spesa rientrante nel calcolo ritenuta "
PROMPT 60 24 "Soggetto al calcolo rit."
FLAGS "D"
FIELD B1
GROUP 4