diff --git a/pr/pr1300.cpp b/pr/pr1300.cpp index 9ae129b6b..7aee05fd0 100755 --- a/pr/pr1300.cpp +++ b/pr/pr1300.cpp @@ -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)); diff --git a/pr/pr1300a.frm b/pr/pr1300a.frm index 7e3d4c52c..7ca25e1d1 100755 --- a/pr/pr1300a.frm +++ b/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 diff --git a/pr/pr1300a.h b/pr/pr1300a.h index e8b90c110..63a37ea05 100755 --- a/pr/pr1300a.h +++ b/pr/pr1300a.h @@ -3,3 +3,4 @@ #define F_RAGGRATE 103 #define F_RAGGDOC 104 #define F_RAGGCLI 105 +#define F_FILTRO 106 \ No newline at end of file diff --git a/pr/pr1300a.uml b/pr/pr1300a.uml index dbc219ab4..20e42fc00 100755 --- a/pr/pr1300a.uml +++ b/pr/pr1300a.uml @@ -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