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

Aggiunto filtro Pagate/Da pagare

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pr/pr1300.cpp
View File

@ -52,7 +52,18 @@ void TStampa_schedeprovv::main_loop()
while (m.run()!=K_QUIT) 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); TRectype start(LF_PROVV),end(LF_PROVV);
if (m.get(F_DAAGE).not_empty()) if (m.get(F_DAAGE).not_empty())
start.put(PROV_CODAGE,m.get(F_DAAGE)); start.put(PROV_CODAGE,m.get(F_DAAGE));

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

1
pr/pr1300a.h
View File

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

17
pr/pr1300a.uml
View File

@ -3,7 +3,7 @@ PAGE "Stampa schede di provvigione" -1 -1 78 20
STRING F_DAAGE 6 STRING F_DAAGE 6
BEGIN BEGIN
PROMPT 2 1 "Dall'agente " PROMPT 2 1 "Dall'agente "
FLAGS "U" FLAGS "U"
USE LF_AGENTI USE LF_AGENTI
INPUT CODAGE F_DAAGE INPUT CODAGE F_DAAGE
@ -15,7 +15,7 @@ END
STRING F_AAGE 6 STRING F_AAGE 6
BEGIN BEGIN
PROMPT 2 3 " all'agente " PROMPT 2 3 " all'agente "
FLAGS "U" FLAGS "U"
COPY USE F_DAAGE COPY USE F_DAAGE
INPUT CODART F_AAGE INPUT CODART F_AAGE
@ -24,24 +24,31 @@ BEGIN
GROUP G_CODAGE GROUP G_CODAGE
END 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 BOOL F_RAGGCLI
BEGIN BEGIN
PROMPT 2 5 "Raggruppo i clienti" PROMPT 2 7 "Raggruppo i clienti"
MESSAGE TRUE "X",F_RAGGDOC|DISABLE,F_RAGGDOC MESSAGE TRUE "X",F_RAGGDOC|DISABLE,F_RAGGDOC
MESSAGE FALSE ENABLE,F_RAGGDOC MESSAGE FALSE ENABLE,F_RAGGDOC
END END
BOOL F_RAGGDOC BOOL F_RAGGDOC
BEGIN BEGIN
PROMPT 2 7 "Raggruppo i documenti" PROMPT 2 9 "Raggruppo i documenti"
MESSAGE TRUE "X",F_RAGGRATE|DISABLE,F_RAGGRATE MESSAGE TRUE "X",F_RAGGRATE|DISABLE,F_RAGGRATE
MESSAGE FALSE ENABLE,F_RAGGRATE MESSAGE FALSE ENABLE,F_RAGGRATE
END END
BOOL F_RAGGRATE BOOL F_RAGGRATE
BEGIN BEGIN
PROMPT 2 9 "Raggruppo le rate" PROMPT 2 11 "Raggruppo le rate"
END END