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:
parent
8630925948
commit
60a26bc141
@ -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));
|
||||
|
261
pr/pr1300a.frm
261
pr/pr1300a.frm
@ -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
|
||||
|
@ -3,3 +3,4 @@
|
||||
#define F_RAGGRATE 103
|
||||
#define F_RAGGDOC 104
|
||||
#define F_RAGGCLI 105
|
||||
#define F_FILTRO 106
|
@ -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
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user