Compare commits
3 Commits
0bd7775b40
...
f5c520de78
| Author | SHA1 | Date | |
|---|---|---|---|
| f5c520de78 | |||
| 7b4cbdbeba | |||
| f4275e99d7 |
@ -165,7 +165,10 @@ void TPrint_prosp_ricerca_ca_recordset::crea_filtro_rmovana(TRectype& da_rmovana
|
||||
if (_adata.ok())
|
||||
al = _adata;
|
||||
if (dal.ok() || al.ok())
|
||||
filtro << "(BETWEEN(DATACOMP," << dal.date2ansi() << ',' << al.date2ansi() << "))";
|
||||
filtro << "(BETWEEN(" << MOVANA_DATACOMP << "," << dal.date2ansi() << ',' << al.date2ansi() << "))";
|
||||
if (filtro.full())
|
||||
filtro << "&&";
|
||||
filtro << "(" << MOVANA_TIPOMOV << "== \"\")";
|
||||
}
|
||||
|
||||
void TPrint_prosp_ricerca_ca_recordset::crea_trr(const TFilename& trr)
|
||||
|
||||
@ -332,16 +332,20 @@ END
|
||||
|
||||
LIST SPP_TIPORIT 4 37
|
||||
BEGIN
|
||||
PROMPT 2 19 "Tipo Ritenuta "
|
||||
PROMPT 2 20 "Tipo Ritenuta "
|
||||
FIELD S13[1,4]
|
||||
ITEM "|"
|
||||
ITEM "RT01|RT01 - Ritenuta persone fisiche"
|
||||
ITEM "RT02|RT02 - Ritenuta persone giuridiche"
|
||||
ITEM "RT01|Ritenuta persone fisiche"
|
||||
ITEM "RT02|Ritenuta persone giuridiche"
|
||||
ITEM "RT03|contributo INPS"
|
||||
ITEM "RT04|contributo ENASARCO"
|
||||
ITEM "RT05|contributo ENPAM"
|
||||
ITEM "RT06|altro contributo previdenziale"
|
||||
END
|
||||
|
||||
LISTBOX SPP_TIPOCAS 64
|
||||
BEGIN
|
||||
PROMPT 2 19 "Tipo Cassa "
|
||||
PROMPT 2 20 "Tipo Cassa "
|
||||
ITEM " | "
|
||||
ITEM "TC01|Cassa avvocati e procuratori legali"
|
||||
ITEM "TC02|Cassa dottori commercialisti"
|
||||
@ -369,9 +373,9 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST SPP_TIPOSP 1 20
|
||||
LIST SPP_TIPOSP 1 10
|
||||
BEGIN
|
||||
PROMPT 2 20 "Tipologia di spesa/prestazione "
|
||||
PROMPT 2 21 "Tipo di spesa/prestazione "
|
||||
FIELD S11[1,1]
|
||||
ITEM " |Altro"
|
||||
ITEM "I|Incasso"
|
||||
@ -379,9 +383,25 @@ BEGIN
|
||||
ITEM "T|Trasporto"
|
||||
END
|
||||
|
||||
BOOLEAN SPP_SOGGRIT
|
||||
BEGIN
|
||||
PROMPT 42 21 "Soggetto a ritenuta"
|
||||
FLAGS "D"
|
||||
FIELD B0
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
BOOLEAN SPP_CALCRIT
|
||||
BEGIN
|
||||
PROMPT 64 21 "Soggetto al calcolo rit."
|
||||
FLAGS "D"
|
||||
FIELD B1
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRING SPP_CODTRB 4
|
||||
BEGIN
|
||||
PROMPT 2 21 "Cod. tributo "
|
||||
PROMPT 2 22 "Cod. tributo "
|
||||
FIELD S10
|
||||
FLAG "U"
|
||||
USE %TRB
|
||||
@ -395,9 +415,9 @@ END
|
||||
|
||||
STRING SPP_CODTRB1 50 22
|
||||
BEGIN
|
||||
PROMPT 25 21 ""
|
||||
PROMPT 25 22 ""
|
||||
USE %TRB KEY 2
|
||||
INPUT S0 SPP_CODTRB1
|
||||
INPUT S0 SPP_CODTRB1
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
OUTPUT SPP_CODTRB CODTAB
|
||||
@ -407,7 +427,7 @@ END
|
||||
|
||||
NUMBER SPP_CODCAUS770 2
|
||||
BEGIN
|
||||
PROMPT 2 22 "Caus. 770 "
|
||||
PROMPT 2 23 "Caus. 770 "
|
||||
USE %CA7 SELECT I0==#SPP_CODTRB
|
||||
INPUT CODTAB SPP_CODCAUS770
|
||||
DISPLAY "Cod.caus." CODTAB
|
||||
@ -424,7 +444,7 @@ END
|
||||
|
||||
LISTBOX SPP_CODQUA 2 10
|
||||
BEGIN
|
||||
PROMPT 20 22 "Quadro "
|
||||
PROMPT 20 23 "Quadro "
|
||||
HELP "Inserire il codice quadro"
|
||||
ITEM "|" MESSAGE CLEAR,SPP_CAUSD
|
||||
ITEM "LA|Quadro LA" MESSAGE ENABLE,SPP_CAUSD
|
||||
@ -436,7 +456,7 @@ END
|
||||
|
||||
STRING SPP_CAUSD 2
|
||||
BEGIN
|
||||
PROMPT 50 22 "Causale LA "
|
||||
PROMPT 50 23 "Causale LA "
|
||||
FLAGS "U"
|
||||
SHEET "Codice|Descrizione@320"
|
||||
INPUT SPP_CAUSD
|
||||
@ -480,28 +500,12 @@ END
|
||||
|
||||
LISTBOX SPP_SEZIONE 6
|
||||
BEGIN
|
||||
PROMPT 70 22 "Sezione per cooperative "
|
||||
PROMPT 70 23 "Sezione per cooperative "
|
||||
FIELD S11[5,5]
|
||||
ITEM "D|Dare"
|
||||
ITEM "A|Avere"
|
||||
END
|
||||
|
||||
BOOLEAN SPP_SOGGRIT
|
||||
BEGIN
|
||||
PROMPT 40 23 "Soggetto a ritenuta"
|
||||
FLAGS "D"
|
||||
FIELD B0
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
BOOLEAN SPP_CALCRIT
|
||||
BEGIN
|
||||
PROMPT 65 23 "Soggetto al calcolo rit."
|
||||
FLAGS "D"
|
||||
FIELD B1
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
PAGE "Analitica" 11 60 14
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user