Aggiunto filtro Pagate/Da pagare

git-svn-id: svn://10.65.10.50/trunk@5407 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-10-22 08:07:00 +00:00
parent 8630925948
commit 60a26bc141
4 changed files with 194 additions and 98 deletions

View File

@ -52,7 +52,18 @@ void TStampa_schedeprovv::main_loop()
while (m.run()!=K_QUIT)
{
// filtro
// filtro e regione
if (m.get(F_FILTRO).not_empty())
{
TString filter(PROV_SALDATA);
if (m.get(F_FILTRO)[0]=='P')
filter << "==\"X\"" ;
else
filter << "!=\"X\"" ;
frm.cursor()->setfilter(filter);
} else
frm.cursor()->setfilter("");
TRectype start(LF_PROVV),end(LF_PROVV);
if (m.get(F_DAAGE).not_empty())
start.put(PROV_CODAGE,m.get(F_DAAGE));

View File

@ -203,99 +203,176 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
SECTION RATEDOC 1 0 0 FILE LF_PROVV GROUP CODNUM+NDOC
// body doc: rate dello stesso documento
SECTION FILTRO_RATE 1 0 0 STREXPR SALDATA!="X"
SECTION INFORATA 1 1 1 GROUP
STRINGA 101 15
BEGIN
KEY "nrata"
PROMPT 1 1 " Rata "
FIELD LF_PROVV->NRATA
END
SECTION RATA_DAPAGARE 1 1 1 STREXPR LF_PROVV->SALDATA!="X"
STRINGA 101 15
BEGIN
KEY "nrata"
PROMPT 1 1 " Rata "
FIELD LF_PROVV->NRATA
END
STRINGA 102 15
BEGIN
KEY "DATADOC"
PROMPT 2 1 "del "
FIELD LF_PROVV->DATASCAD
END
NUMBER 103 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Totale documento/rata" "Totale documento/rata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 3 1 ""
PICTURE "###.###.###.###"
FIELD LF_PROVV->IMPRATA
MESSAGE ADD,203
END
NUMBER 104 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Totale provv." "Totale provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 4 1 ""
PICTURE "##.###.###.###"
FIELD LF_PROVV->IMPPROVV
MESSAGE ADD,204
END
NUMBER 105 7
BEGIN
SPECIAL STRINGA INTESTAZIONE "Perc. provv." "Perc. provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 5 1 ""
PICTURE "##@,@#%"
MESSAGE _NUMEXPR,#104/#103*100
END
NUMBER 106 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Importo pagato" "Importo pagato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 6 1 ""
PICTURE "###.###.###.###"
FIELD PAGATO
MESSAGE ADD,206
END
NUMBER 107 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Provv. pagata" "Provv. pagata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 7 1 ""
PICTURE "##.###.###.###"
FIELD PROVVPAG
MESSAGE ADD,207
END
NUMBER 108 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Importo maturato" "Importo maturato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 8 1 ""
PICTURE "###.###.###.###"
FIELD PAGMAT
MESSAGE ADD,208
END
NUMBER 109 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Provv. maturata" "Provv. maturata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 9 1 ""
PICTURE "##.###.###.###"
FIELD PROVVMAT
MESSAGE ADD,209
END
END // RATA
END // FILTRO RATE
STRINGA 102 15
BEGIN
KEY "DATADOC"
PROMPT 2 1 "del "
FIELD LF_PROVV->DATASCAD
END
NUMBER 103 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Totale documento/rata" "Totale documento/rata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 3 1 ""
PICTURE "###.###.###.###"
FIELD LF_PROVV->IMPRATA
MESSAGE ADD,203
END
NUMBER 104 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Totale provv." "Totale provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 4 1 ""
PICTURE "##.###.###.###"
FIELD LF_PROVV->IMPPROVV
MESSAGE ADD,204
END
NUMBER 105 7
BEGIN
SPECIAL STRINGA INTESTAZIONE "Perc. provv." "Perc. provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 5 1 ""
PICTURE "##@,@#%"
MESSAGE _NUMEXPR,#104/#103*100
END
NUMBER 106 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Importo pagato" "Importo pagato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 6 1 ""
PICTURE "###.###.###.###"
FIELD PAGATO
MESSAGE ADD,206
END
NUMBER 107 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Provv. pagata" "Provv. pagata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 7 1 ""
PICTURE "##.###.###.###"
FIELD PROVVPAG
MESSAGE ADD,207
END
NUMBER 108 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Importo maturato" "Importo maturato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 8 1 ""
PICTURE "###.###.###.###"
FIELD PAGMAT
MESSAGE ADD,208
END
NUMBER 109 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Provv. maturata" "Provv. maturata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 9 1 ""
PICTURE "##.###.###.###"
FIELD PROVVMAT
MESSAGE ADD,209
END
END // RATA
SECTION RATA_PAGATA 1 1 1 STREXPR LF_PROVV->SALDATA=="X"
STRINGA 101 15
BEGIN
KEY "nrata"
PROMPT 1 1 " Rata "
FIELD LF_PROVV->NRATA
END
STRINGA 102 15
BEGIN
KEY "DATADOC"
PROMPT 2 1 "del "
FIELD LF_PROVV->DATASCAD
END
NUMBER 103 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Totale documento/rata" "Totale documento/rata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 3 1 ""
PICTURE "###.###.###.###"
FIELD LF_PROVV->IMPRATA
MESSAGE ADD,203
END
NUMBER 104 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Totale provv." "Totale provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 4 1 ""
PICTURE "##.###.###.###"
FIELD LF_PROVV->IMPPROVV
MESSAGE ADD,204
END
NUMBER 105 7
BEGIN
SPECIAL STRINGA INTESTAZIONE "Perc. provv." "Perc. provv."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 5 1 ""
PICTURE "##@,@#%"
MESSAGE _NUMEXPR,#104/#103*100
END
NUMBER 106 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Importo pagato" "Importo pagato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 6 1 ""
PICTURE "###.###.###.###"
FIELD PAGATO
MESSAGE ADD,206
END
NUMBER 107 14
BEGIN
SPECIAL STRINGA INTESTAZIONE "Provv. pagata" "Provv. pagata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 7 1 ""
PICTURE "##.###.###.###"
FIELD PROVVPAG
MESSAGE ADD,207
END
STRINGA 108 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "Importo maturato" "Importo maturato"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "IMPORTO"
PROMPT 8 1 " SALDATA "
END
END // RATA
END // fine rate stsso doc
// Footer docs

View File

@ -3,3 +3,4 @@
#define F_RAGGRATE 103
#define F_RAGGDOC 104
#define F_RAGGCLI 105
#define F_FILTRO 106

View File

@ -3,7 +3,7 @@ PAGE "Stampa schede di provvigione" -1 -1 78 20
STRING F_DAAGE 6
BEGIN
PROMPT 2 1 "Dall'agente "
PROMPT 2 1 "Dall'agente "
FLAGS "U"
USE LF_AGENTI
INPUT CODAGE F_DAAGE
@ -15,7 +15,7 @@ END
STRING F_AAGE 6
BEGIN
PROMPT 2 3 " all'agente "
PROMPT 2 3 " all'agente "
FLAGS "U"
COPY USE F_DAAGE
INPUT CODART F_AAGE
@ -24,24 +24,31 @@ BEGIN
GROUP G_CODAGE
END
LIST F_FILTRO 30
BEGIN
PROMPT 2 5 " Stampo "
ITEM "|tutte le provvigioni"
ITEM "D|solo le provv. da pagare"
ITEM "P|solo le provv. gia' pagate"
END
BOOL F_RAGGCLI
BEGIN
PROMPT 2 5 "Raggruppo i clienti"
PROMPT 2 7 "Raggruppo i clienti"
MESSAGE TRUE "X",F_RAGGDOC|DISABLE,F_RAGGDOC
MESSAGE FALSE ENABLE,F_RAGGDOC
END
BOOL F_RAGGDOC
BEGIN
PROMPT 2 7 "Raggruppo i documenti"
PROMPT 2 9 "Raggruppo i documenti"
MESSAGE TRUE "X",F_RAGGRATE|DISABLE,F_RAGGRATE
MESSAGE FALSE ENABLE,F_RAGGRATE
END
BOOL F_RAGGRATE
BEGIN
PROMPT 2 9 "Raggruppo le rate"
PROMPT 2 11 "Raggruppo le rate"
END