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

Patch level : 05.646

Browse Source 
Files correlati     : pr0.exe pr1.exe
Ricompilazione Demo : [ ]
Commento            :
Gestione Euro per inserimento e stampa provvigioni agenti


git-svn-id: svn://10.65.10.50/trunk@8618 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1999-10-15 09:19:29 +00:00
parent 45b1afe173
commit 8fa72f5d1a
12 changed files with 483 additions and 549 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pr/pr0.url
View File

@ -4,3 +4,5 @@
#include <default.url> #include <default.url>
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"

13
pr/pr0100.cpp
View File

@ -1,19 +1,14 @@
// Programma generico di gestione tabelle modulo provvigioni agenti // Programma generico di gestione tabelle modulo provvigioni agenti
#include <tabapp.h> #include <tabapp.h>
#include <tabutil.h>
#include "prtbapr.h" #include "prtbapr.h"
class TTablePR_app : public Tab_application class TTablePR_app : public TTable_application
{ {
protected: protected:
virtual bool user_destroy() ;
virtual bool user_create() ; virtual bool user_create() ;
static bool gmc_handler(TMask_field& f, KEY k); static bool gmc_handler(TMask_field& f, KEY k);
public:
TTablePR_app() {}
virtual ~TTablePR_app() {}
}; };
static inline TTablePR_app& app() { return (TTablePR_app&)main_app(); } static inline TTablePR_app& app() { return (TTablePR_app&)main_app(); }
@ -57,10 +52,6 @@ bool TTablePR_app::user_create()
return TRUE; return TRUE;
} }
bool TTablePR_app::user_destroy()
{
return Tab_application::user_destroy();
}
int pr0100(int argc, char** argv) int pr0100(int argc, char** argv)
{ {

4
pr/pr0700.cpp
View File

@ -296,12 +296,14 @@ bool TGestione_provv_app::doc_sheet_notify(TSheet_field& ds, int r, KEY key)
TToken_string& tt = ds.row(r); TToken_string& tt = ds.row(r);
int anno = tt.get_int(0); int anno = tt.get_int(0);
TString codnum = tt.get(1); TString16 codnum = tt.get(1);
long ndoc = tt.get_long(2); long ndoc = tt.get_long(2);
TString16 codval = tt.get(8);
m.set(F_MANNO,anno); m.set(F_MANNO,anno);
m.set(F_MCODNUM,codnum); m.set(F_MCODNUM,codnum);
m.set(F_MNDOC,ndoc); m.set(F_MNDOC,ndoc);
m.set(F_CODVAL, codval);
__current_key.format("%4d%4s%7ld",anno,(const char*)codnum,ndoc); __current_key.format("%4d%4s%7ld",anno,(const char*)codnum,ndoc);
TSheet_field& rs = ds.mask().sfield(F_RATE_SHEET); TSheet_field& rs = ds.mask().sfield(F_RATE_SHEET);

118
pr/pr0700b.uml
View File

@ -46,6 +46,12 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
STRING F_CODVAL 3
BEGIN
PROMPT 40 2 "Valuta "
FLAGS "D"
END
SPREADHSEET F_DOC_SHEET 0 8 SPREADHSEET F_DOC_SHEET 0 8
BEGIN BEGIN
PROMPT 2 3 "" PROMPT 2 3 ""
@ -63,12 +69,12 @@ BEGIN
GROUP 1 GROUP 1
END END
SPREADHSEET F_RATE_SHEET 0 8 SPREADHSEET F_RATE_SHEET
BEGIN BEGIN
PROMPT 2 12 "" PROMPT 2 12 ""
ITEM "Nr. rata" ITEM "Nr. rata"
ITEM "Data scadenza" ITEM "Data scadenza"
ITEM "Tipo\npag." ITEM "Tipo\npag.@5"
ITEM "Importo\nrata@18" ITEM "Importo\nrata@18"
ITEM "Importo\nprovvigione@18" ITEM "Importo\nprovvigione@18"
ITEM "Pagamento\nmaturato@18" ITEM "Pagamento\nmaturato@18"
@ -87,16 +93,16 @@ ENDMASK
// Maschera spreadsheet dei documenti // Maschera spreadsheet dei documenti
PAGE "" -1 -1 78 16 PAGE "" -1 -1 78 11
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 2 "Anno " PROMPT 2 1 "Anno "
END END
STRING F_CODNUM 4 STRING F_CODNUM 4
BEGIN BEGIN
PROMPT 13 2 "Cod. num. " PROMPT 13 1 "Cod. num. "
FLAGS "U" FLAGS "U"
USE %NUM USE %NUM
INPUT CODTAB F_CODNUM INPUT CODTAB F_CODNUM
@ -108,7 +114,7 @@ END
NUMBER F_NDOC 7 NUMBER F_NDOC 7
BEGIN BEGIN
PROMPT 32 2 "Num. doc. " PROMPT 32 1 "Num. doc. "
USE LF_DOC USE LF_DOC
JOIN %CPG TO LF_DOC ALIAS 401 INTO CODTAB==CODPAG JOIN %CPG TO LF_DOC ALIAS 401 INTO CODTAB==CODPAG
INPUT PROVV "D" INPUT PROVV "D"
@ -118,35 +124,59 @@ BEGIN
DISPLAY "Anno@10" ANNO DISPLAY "Anno@10" ANNO
DISPLAY "Cod. num.@15" CODNUM DISPLAY "Cod. num.@15" CODNUM
DISPLAY "Num. doc.@15" NDOC DISPLAY "Num. doc.@15" NDOC
DISPLAY "Valuta" CODVAL
OUTPUT F_ANNO ANNO OUTPUT F_ANNO ANNO
OUTPUT F_CODNUM CODNUM OUTPUT F_CODNUM CODNUM
OUTPUT F_NDOC NDOC OUTPUT F_NDOC NDOC
OUTPUT F_CODVAL CODVAL
ADD RUN VE0 -1 ADD RUN VE0 -1
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 54 2 "Data doc. " PROMPT 54 1 "Data doc. "
END END
NUMBER F_IMPDOC 18 2 STRING F_CODVAL 3
BEGIN
PROMPT 2 2 "Codice valuta "
FLAGS "U"
USE %VAL
INPUT CODTAB F_CODVAL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAL CODTAB
CHECKTYPE NORMAL
END
NUMBER F_CAMBIO 18 2
BEGIN
PROMPT 25 2 "Cambio "
END
DATE F_DATACAMBIO
BEGIN
PROMPT 52 2 "Data cambio "
END
CURRENCY F_IMPDOC 18
BEGIN BEGIN
PROMPT 2 4 "Importo doc. " PROMPT 2 4 "Importo doc. "
PICTURE "." DRIVENBY F_CODVAL
END END
NUMBER F_IMPPRDOC 18 2 CURRENCY F_IMPPRDOC 18
BEGIN BEGIN
PROMPT 2 5 "Importo provv. doc. " PROMPT 2 5 "Importo provv. doc. "
PICTURE "." DRIVENBY F_CODVAL
NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)} NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)}
WARNING "L'importo della provvigione deve essere minore dell'importo documento" WARNING "L'importo della provvigione deve essere minore dell'importo documento"
END END
NUMBER F_IMPNETDOC 18 2 CURRENCY F_IMPNETDOC 18
BEGIN BEGIN
PROMPT 2 6 "Base di calcolo " PROMPT 2 6 "Base di calcolo "
PICTURE "." DRIVENBY F_CODVAL
NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)} NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)}
WARNING "L'importo della base di calcolo deve essere minore dell'importo documento" WARNING "L'importo della base di calcolo deve essere minore dell'importo documento"
END END
@ -154,7 +184,7 @@ END
NUMBER F_CLIENTE 7 NUMBER F_CLIENTE 7
BEGIN BEGIN
PROMPT 2 8 "Cod. cliente " PROMPT 2 8 "Cod. cliente "
USE LF_CLIFO KEY 1 SELECT TIPOCF=="C" USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CLIENTE INPUT CODCF F_CLIENTE
DISPLAY "Cod. cliente" CODCF DISPLAY "Cod. cliente" CODCF
@ -170,39 +200,17 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
STRING F_CODVAL 3 BUTTON DLG_OK 10 2
BEGIN
PROMPT 2 11 "Codice valuta "
FLAGS "U"
USE %VAL
INPUT CODTAB F_CODVAL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAL CODTAB
CHECKTYPE NORMAL
END
NUMBER F_CAMBIO 18 2
BEGIN
PROMPT 25 11 "Cambio "
END
DATE F_DATACAMBIO
BEGIN
PROMPT 52 11 "Data cambio "
END
BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_DELREC 9 2 BUTTON DLG_DELREC 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -33 -1 ""
END END
@ -240,46 +248,46 @@ BEGIN
ITEM "9|Bonifici" ITEM "9|Bonifici"
END END
NUMBER F_IMPRATA 18 2 CURRENCY F_IMPRATA 18
BEGIN BEGIN
PROMPT 2 4 "Importo rata " PROMPT 2 4 "Importo rata "
PICTURE "." DRIVENBY -F_CODVAL
END END
NUMBER F_IMPPROVV 18 2 CURRENCY F_IMPPROVV 18
BEGIN BEGIN
PROMPT 2 5 "Importo provvigione " PROMPT 2 5 "Importo provvigione "
PICTURE "." DRIVENBY -F_CODVAL
END END
NUMBER F_PAGATO 18 2 CURRENCY F_PAGATO 18
BEGIN BEGIN
PROMPT 2 6 "Importo rata pagata " PROMPT 2 6 "Importo rata pagata "
PICTURE "." DRIVENBY -F_CODVAL
FLAGS "D" FLAGS "D"
GROUP 5 GROUP 5
END END
NUMBER F_PROVVPAG 18 2 CURRENCY F_PROVVPAG 18
BEGIN BEGIN
PROMPT 2 7 "Importo provvigione pagata " PROMPT 2 7 "Importo provvigione pagata "
PICTURE "." DRIVENBY -F_CODVAL
FLAGS "D" FLAGS "D"
GROUP 5 GROUP 5
END END
NUMBER F_PAGMAT 18 2 CURRENCY F_PAGMAT 18
BEGIN BEGIN
PROMPT 2 8 "Importo pagamento maturato " PROMPT 2 8 "Importo pagamento maturato "
PICTURE "." DRIVENBY -F_CODVAL
NUM_EXPR {(#THIS_FIELD <= #F_IMPRATA)} NUM_EXPR {(#THIS_FIELD <= #F_IMPRATA)}
WARNING "L'importo pagamento maturato deve essere minore dell'importo della rata" WARNING "L'importo pagamento maturato deve essere minore dell'importo della rata"
END END
NUMBER F_PROVVMAT 18 2 CURRENCY F_PROVVMAT 18
BEGIN BEGIN
PROMPT 2 9 "Importo provvigione maturata " PROMPT 2 9 "Importo provvigione maturata "
PICTURE "." DRIVENBY -F_CODVAL
NUM_EXPR {(#THIS_FIELD <= #F_IMPPROVV)} NUM_EXPR {(#THIS_FIELD <= #F_IMPPROVV)}
WARNING "L'importo provvigione maturata deve essere minore dell'importo della provvigione" WARNING "L'importo provvigione maturata deve essere minore dell'importo della provvigione"
END END
@ -303,22 +311,22 @@ BEGIN
ITEM "9|Bonifici" ITEM "9|Bonifici"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -14 -1 "" PROMPT -14 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -24 -1 "" PROMPT -24 -1 ""
END END
BUTTON DLG_DELREC 9 2 BUTTON DLG_DELREC 10 2
BEGIN BEGIN
PROMPT -34 -1 "" PROMPT -34 -1 ""
END END
BUTTON DLG_ENABLE 9 2 BUTTON DLG_ENABLE 10 2
BEGIN BEGIN
PROMPT -44 -1 "~Abilita" PROMPT -44 -1 "~Abilita"
END END

7
pr/pr1.cpp
View File

@ -1,18 +1,13 @@
#include <xvt.h> #include <xvt.h>
#include <checks.h>
#include "pr1.h" #include "pr1.h"
const char* const usage = "Errore - uso : %s -{0|1|2|3}";
int main(int argc,char** argv) int main(int argc,char** argv)
{ {
const int n = argc > 1 ? atoi(argv[1]+1) : -1; const int n = argc > 1 ? atoi(argv[1]+1) : -1;
switch (n) switch (n)
{ {
case 0:
pr1100(argc,argv); break; // stampa agenti
case 1: case 1:
pr1200(argc,argv); break; // stampa archivio percentuali di provvigione pr1200(argc,argv); break; // stampa archivio percentuali di provvigione
case 2: case 2:
@ -20,7 +15,7 @@ int main(int argc,char** argv)
case 3: case 3:
pr1400(argc,argv); break; // stampa statistiche pr1400(argc,argv); break; // stampa statistiche
default: default:
error_box(usage, argv[0]); pr1100(argc,argv); break; // stampa agenti
} }
exit(0); exit(0);
return 0; return 0;

3
pr/pr1.url
View File

@ -3,3 +3,6 @@
#define QFIRMNAME "A.G.A. Informatica Srl" #define QFIRMNAME "A.G.A. Informatica Srl"
#include <default.url> #include <default.url>
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"

18
pr/pr1100.cpp
View File

@ -1,7 +1,6 @@
#include <applicat.h> #include <applicat.h>
#include <config.h> #include <config.h>
#include <mask.h> #include <mask.h>
//#include <printer.h>
#include <relation.h> #include <relation.h>
#include <tabutil.h> #include <tabutil.h>
#include <urldefid.h> #include <urldefid.h>
@ -10,7 +9,7 @@
#include "agenti.h" #include "agenti.h"
#include "pr1100.h" #include "pr1100.h"
class TStampa_agenti : public TApplication class TStampa_agenti : public TSkeleton_application
{ {
TArray _files; TArray _files;
TMask * _mask; TMask * _mask;
@ -21,15 +20,15 @@ class TStampa_agenti : public TApplication
TString _daart,_aart,_damag,_amag; TString _daart,_aart,_damag,_amag;
TDate _dadata,_adata; TDate _dadata,_adata;
protected: protected:
virtual bool create(); virtual void main_loop();
virtual bool destroy();
public: public:
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata // @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
virtual bool check_autorization() const virtual bool check_autorization() const
{return FALSE;} {return FALSE;}
}; };
bool TStampa_agenti::create() void TStampa_agenti::main_loop()
{ {
_files.add(new TLocalisamfile(LF_AGENTI)); _files.add(new TLocalisamfile(LF_AGENTI));
_files.add(new TLocalisamfile(LF_CLIFO)); _files.add(new TLocalisamfile(LF_CLIFO));
@ -62,18 +61,9 @@ bool TStampa_agenti::create()
_form->print(); _form->print();
delete _form; delete _form;
} // while true } // while true
return FALSE;
}
bool TStampa_agenti::destroy()
{
delete _mask; delete _mask;
return TRUE;
} }
int pr1100(int argc, char** argv) int pr1100(int argc, char** argv)
{ {
TStampa_agenti a; TStampa_agenti a;

3
pr/pr1200a.frm
View File

@ -193,12 +193,11 @@ BEGIN
PICTURE "##@,@@" PICTURE "##@,@@"
END END
NUMERO 13 18 VALUTA 13 18
BEGIN BEGIN
KEY "Importo" KEY "Importo"
PROMPT 62 4 "" PROMPT 62 4 ""
FIELD IMPORTO FIELD IMPORTO
PICTURE "###.###.###.###"
END END
END END

179
pr/pr1300a.frm
View File

@ -175,21 +175,23 @@ BEGIN
END END
NUMBER 103 15 VALUTA 103 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CTotale doc./rata" "Totale documento/rata" SPECIAL STRINGA INTESTAZIONE "@CTotale doc./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 4 1 "" PROMPT 4 1 ""
DRIVENBY 3
END END
NUMBER 104 14 VALUTA 104 14
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CTotale provvigione" "Totale provv." SPECIAL STRINGA INTESTAZIONE "@CTotale provvigione" "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 5 1 "" PROMPT 5 1 ""
DRIVENBY 3
END END
NUMBER 105 6 NUMBER 105 6
BEGIN BEGIN
@ -197,39 +199,43 @@ BEGIN
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 ""
END END
NUMBER 106 15 VALUTA 106 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CImporto pagato" "Importo pagato" SPECIAL STRINGA INTESTAZIONE "@CImporto 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 7 1 "" PROMPT 7 1 ""
DRIVENBY 3
END END
NUMBER 107 14 VALUTA 107 14
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CProvvigione pagata" "Provv. pagata" SPECIAL STRINGA INTESTAZIONE "@CProvvigione 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 8 1 "" PROMPT 8 1 ""
DRIVENBY 3
END END
NUMBER 108 15 VALUTA 108 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CImporto maturato" "Importo maturato" SPECIAL STRINGA INTESTAZIONE "@CImporto 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 9 1 "" PROMPT 9 1 ""
DRIVENBY 3
END END
NUMBER 109 14 VALUTA 109 14
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CProvvigione maturata" "Provv. maturata" SPECIAL STRINGA INTESTAZIONE "@CProvvigione 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 10 1 "" PROMPT 10 1 ""
DRIVENBY 3
END END
SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
@ -310,58 +316,58 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
PROMPT 3 1 "" PROMPT 3 1 ""
FIELD LF_PROVV->CODVAL FIELD LF_PROVV->CODVAL
END END
NUMBER 103 15 VALUTA 103 15
BEGIN BEGIN
KEY "IMPORTO rata" KEY "IMPORTO rata"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR,LF_PROVV->IMPRATA*#666 MESSAGE _NUMEXPR,LF_PROVV->IMPRATA*#666
MESSAGE ADD,203 MESSAGE ADD,203
END END
NUMBER 104 14 VALUTA 104 14
BEGIN BEGIN
KEY "IMPORTO provvigione" KEY "IMPORTO provvigione"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR,LF_PROVV->IMPPROVV*#666 MESSAGE _NUMEXPR,LF_PROVV->IMPPROVV*#666
MESSAGE ADD,204 MESSAGE ADD,204
END END
NUMBER 105 6 NUMBER 105 6
BEGIN BEGIN
KEY "perc. provv." KEY "perc. provv."
prompt 6 1 "" PROMPT 6 1 ""
PICTURE "##@,@#" PICTURE "##@,@#"
MESSAGE _NUMEXPR,#104/#103*100 MESSAGE _NUMEXPR,#104/#103*100
END END
NUMBER 106 15 VALUTA 106 15
BEGIN BEGIN
KEY "IMPORTO pagato" KEY "IMPORTO pagato"
prompt 7 1 "" PROMPT 7 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
FIELD PAGATO FIELD PAGATO
MESSAGE ADD,206 MESSAGE ADD,206
END END
NUMBER 107 14 VALUTA 107 14
BEGIN BEGIN
KEY "provv pagata" KEY "provv pagata"
prompt 8 1 "" PROMPT 8 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR, PROVVPAG*#666 MESSAGE _NUMEXPR, PROVVPAG*#666
MESSAGE ADD,207 MESSAGE ADD,207
END END
NUMBER 108 15 VALUTA 108 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 9 1 "" PROMPT 9 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR, PAGMAT*#666 MESSAGE _NUMEXPR, PAGMAT*#666
MESSAGE ADD,208 MESSAGE ADD,208
END END
NUMBER 109 14 VALUTA 109 14
BEGIN BEGIN
KEY "provv mat" KEY "provv mat"
prompt 10 1 "" PROMPT 10 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR, PROVVMAT*#666 MESSAGE _NUMEXPR, PROVVMAT*#666
MESSAGE ADD,209 MESSAGE ADD,209
END END
@ -389,49 +395,49 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
PROMPT 3 1 "" PROMPT 3 1 ""
FIELD LF_PROVV->CODVAL FIELD LF_PROVV->CODVAL
END END
NUMBER 103 15 VALUTA 103 15
BEGIN BEGIN
KEY "IMPORTO rata" KEY "IMPORTO rata"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR, LF_PROVV->IMPRATA*#666 MESSAGE _NUMEXPR, LF_PROVV->IMPRATA*#666
MESSAGE ADD,203 MESSAGE ADD,203
END END
NUMBER 104 14 VALUTA 104 14
BEGIN BEGIN
KEY "totale provv" KEY "totale provv"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR, LF_PROVV->IMPPROVV*#666 MESSAGE _NUMEXPR, LF_PROVV->IMPPROVV*#666
MESSAGE ADD,204 MESSAGE ADD,204
END END
NUMBER 105 6 NUMBER 105 6
BEGIN BEGIN
KEY "perc provv" KEY "perc provv"
prompt 6 1 "" PROMPT 6 1 ""
PICTURE "##@,@#" PICTURE "##@,@#"
MESSAGE _NUMEXPR,#104/#103*100 MESSAGE _NUMEXPR,#104/#103*100
END END
NUMBER 106 15 VALUTA 106 15
BEGIN BEGIN
KEY "IMPORTO pagato" KEY "IMPORTO pagato"
prompt 7 1 "" PROMPT 7 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR,PAGATO*#666 MESSAGE _NUMEXPR,PAGATO*#666
MESSAGE ADD,206 MESSAGE ADD,206
END END
NUMBER 107 14 VALUTA 107 14
BEGIN BEGIN
KEY "provv pagata" KEY "provv pagata"
prompt 8 1 "" PROMPT 8 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE _NUMEXPR, PROVVPAG*#666 MESSAGE _NUMEXPR, PROVVPAG*#666
MESSAGE ADD,207 MESSAGE ADD,207
END END
STRINGA 108 15 STRINGA 108 15
BEGIN BEGIN
KEY "flag saldato" KEY "flag saldato"
prompt 9 1 " SALDATA " PROMPT 9 1 " SALDATA "
END END
END // RATA END // RATA
@ -456,58 +462,58 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
KEY "CODVAL" KEY "CODVAL"
PROMPT 3 1 "" PROMPT 3 1 ""
END END
NUMBER 203 15 VALUTA 203 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE ADD,303 MESSAGE ADD,303
GROUP G_TOTDOC GROUP G_TOTDOC
END END
NUMBER 204 14 VALUTA 204 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE ADD,304 MESSAGE ADD,304
GROUP G_TOTDOC GROUP G_TOTDOC
END END
NUMBER 205 6 NUMBER 205 6
BEGIN BEGIN
KEY "IMPORTO" KEY "PERC"
prompt 6 1 "" PROMPT 6 1 ""
PICTURE "##@,@#" PICTURE "##@,@#"
MESSAGE _NUMEXPR,#204/#203*100 MESSAGE _NUMEXPR,#204/#203*100
END END
NUMBER 206 15 VALUTA 206 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 7 1 "" PROMPT 7 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE ADD,306 MESSAGE ADD,306
GROUP G_TOTDOC GROUP G_TOTDOC
END END
NUMBER 207 14 VALUTA 207 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 8 1 "" PROMPT 8 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE ADD,307 MESSAGE ADD,307
GROUP G_TOTDOC GROUP G_TOTDOC
END END
NUMBER 208 15 VALUTA 208 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 9 1 "" PROMPT 9 1 ""
PICTURE "###.###.###.###" DRIVENBY 3
MESSAGE ADD,308 MESSAGE ADD,308
GROUP G_TOTDOC GROUP G_TOTDOC
END END
NUMBER 209 14 VALUTA 209 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 10 1 "" PROMPT 10 1 ""
PICTURE "##.###.###.###" DRIVENBY 3
MESSAGE ADD,309 MESSAGE ADD,309
GROUP G_TOTDOC GROUP G_TOTDOC
END END
@ -534,58 +540,52 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
KEY "CODVAL" KEY "CODVAL"
PROMPT 3 1 "" PROMPT 3 1 ""
END END
NUMBER 303 15 VALUTA 303 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "###.###.###.###"
MESSAGE ADD,403 MESSAGE ADD,403
GROUP G_TOTCLI GROUP G_TOTCLI
END END
NUMBER 304 14 VALUTA 304 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "##.###.###.###"
MESSAGE ADD,404 MESSAGE ADD,404
GROUP G_TOTCLI GROUP G_TOTCLI
END END
NUMBER 305 6 NUMBER 305 6
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 6 1 "" PROMPT 6 1 ""
PICTURE "##@,@#" PICTURE "##@,@#"
MESSAGE _NUMEXPR,#304/#303*100 MESSAGE _NUMEXPR,#304/#303*100
END END
NUMBER 306 15 VALUTA 306 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 7 1 "" PROMPT 7 1 ""
PICTURE "###.###.###.###"
MESSAGE ADD,406 MESSAGE ADD,406
GROUP G_TOTCLI GROUP G_TOTCLI
END END
NUMBER 307 14 VALUTA 307 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 8 1 "" PROMPT 8 1 ""
PICTURE "##.###.###.###"
MESSAGE ADD,407 MESSAGE ADD,407
GROUP G_TOTCLI GROUP G_TOTCLI
END END
NUMBER 308 15 VALUTA 308 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 9 1 "" PROMPT 9 1 ""
PICTURE "###.###.###.###"
MESSAGE ADD,408 MESSAGE ADD,408
GROUP G_TOTCLI GROUP G_TOTCLI
END END
NUMBER 309 14 VALUTA 309 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 10 1 "" PROMPT 10 1 ""
PICTURE "##.###.###.###"
MESSAGE ADD,409 MESSAGE ADD,409
GROUP G_TOTCLI GROUP G_TOTCLI
END END
@ -605,58 +605,51 @@ END // end clienti
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra" SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
PROMPT 2 2 "" PROMPT 2 2 ""
END END
NUMBER 403 15 VALUTA 403 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 4 2 "" PROMPT 4 2 ""
PICTURE "###.###.###.###"
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER 404 14 VALUTA 404 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
PROMPT 5 2 "" PROMPT 5 2 ""
PICTURE "##.###.###.###"
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER 405 6 NUMBER 405 6
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 6 2 "" PROMPT 6 2 ""
PICTURE "##@,@#" PICTURE "##@,@#"
MESSAGE _NUMEXPR,#404/#403*100 MESSAGE _NUMEXPR,#404/#403*100
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER 406 15 VALUTA 406 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 7 2 "" PROMPT 7 2 ""
PICTURE "###.###.###.###"
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER 407 14 VALUTA 407 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 8 2 "" PROMPT 8 2 ""
PICTURE "##.###.###.###"
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER 408 15 VALUTA 408 15
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 9 2 "" PROMPT 9 2 ""
PICTURE "###.###.###.###"
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER 409 14 VALUTA 409 14
BEGIN BEGIN
KEY "IMPORTO" KEY "IMPORTO"
prompt 10 2 "" PROMPT 10 2 ""
PICTURE "##.###.###.###"
GROUP G_TOTAGE GROUP G_TOTAGE
END END
END // Fine body END // Fine body
SECTION FOOTER ODD 3 SECTION FOOTER ODD 3

12
pr/pr1400.cpp
View File

@ -1,6 +1,5 @@
// Stampa statistiche temporali per agente // Stampa statistiche temporali per agente
#include <applicat.h> #include <applicat.h>
#include <urldefid.h>
#include <form.h> #include <form.h>
#include <mask.h> #include <mask.h>
#include <printer.h> #include <printer.h>
@ -49,7 +48,7 @@ bool TForm_stampaprstat::validate(TForm_item& fld, TToken_string& val)
return TForm::validate(fld, val); return TForm::validate(fld, val);
} }
class TStampa_statistiche_app:public TApplication class TStampa_statistiche_app : public TSkeleton_application
{ {
TMask *_msk; TMask *_msk;
TForm_stampaprstat *_frm; TForm_stampaprstat *_frm;
@ -57,7 +56,7 @@ class TStampa_statistiche_app:public TApplication
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG) ; virtual void main_loop();
static bool daterange_handler(TMask_field& f, KEY key); static bool daterange_handler(TMask_field& f, KEY key);
static bool agerange_handler(TMask_field& f, KEY key); static bool agerange_handler(TMask_field& f, KEY key);
public: public:
@ -103,11 +102,11 @@ bool TStampa_statistiche_app::create()
_msk->set_handler(F_ADES,agerange_handler); _msk->set_handler(F_ADES,agerange_handler);
_msk->set_handler(F_DATEFROM,daterange_handler); _msk->set_handler(F_DATEFROM,daterange_handler);
_msk->set_handler(F_DATETO,daterange_handler); _msk->set_handler(F_DATETO,daterange_handler);
dispatch_e_menu(MENU_ITEM(1));
return TRUE; return TSkeleton_application::create();
} }
bool TStampa_statistiche_app::menu(MENU_TAG) void TStampa_statistiche_app::main_loop()
{ {
const char * months[] = { "Gen", "Feb", "Mar", "Apr", "Mag", "Giu", const char * months[] = { "Gen", "Feb", "Mar", "Apr", "Mag", "Giu",
"Lug", "Ago", "Set", "Ott", "Nov", "Dic" }; "Lug", "Ago", "Set", "Ott", "Nov", "Dic" };
@ -238,7 +237,6 @@ bool TStampa_statistiche_app::menu(MENU_TAG)
} }
// Do not delete provv please, TRelation in TForm will do that... // Do not delete provv please, TRelation in TForm will do that...
return FALSE;
} }
bool TStampa_statistiche_app::destroy() bool TStampa_statistiche_app::destroy()

3
pr/pr1400.uml
View File

@ -89,11 +89,14 @@ END
DATE F_DATEFROM DATE F_DATEFROM
BEGIN BEGIN
PROMPT 3 8 "Da " PROMPT 3 8 "Da "
CHECKTYPE REQUIRED
END END
DATE F_DATETO DATE F_DATETO
BEGIN BEGIN
PROMPT 24 8 "A " PROMPT 24 8 "A "
FLAGS "A"
CHECKTYPE REQUIRED
END END
LISTBOX F_GROUPMONTH 2 LISTBOX F_GROUPMONTH 2

252
pr/pr1400a.frm
View File

@ -96,7 +96,7 @@ BEGIN
PROMPT 4 1 "" PROMPT 4 1 ""
END END
NUMBER 5 15 VALUTA 5 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CProvvigione" "Provvigione (1)" SPECIAL STRINGA INTESTAZIONE "@CProvvigione" "Provvigione (1)"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -114,7 +114,7 @@ BEGIN
PROMPT 6 1 "" PROMPT 6 1 ""
END END
NUMBER 7 15 VALUTA 7 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CFatturato" "Fatturato (2)" SPECIAL STRINGA INTESTAZIONE "@CFatturato" "Fatturato (2)"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -123,7 +123,7 @@ BEGIN
PROMPT 7 1 "" PROMPT 7 1 ""
END END
NUMBER 8 15 VALUTA 8 15
BEGIN BEGIN
SPECIAL STRINGA INTESTAZIONE "@CProvvigione" "Provvigione (2)" SPECIAL STRINGA INTESTAZIONE "@CProvvigione" "Provvigione (2)"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo" SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
@ -163,21 +163,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON1 MESSAGE _MONTHRANGE|COPY,F_MON1
END END
NUMBER 201 14 VALUTA 201 14
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT1 MESSAGE ADD,F_TOTFAT|ADD,F_FAT1
END END
NUMBER 301 14 VALUTA 301 14
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO1 MESSAGE ADD,F_TOTPRO|ADD,F_PRO1
@ -195,21 +193,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON2 MESSAGE _MONTHRANGE|COPY,F_MON2
END END
NUMBER 202 14 VALUTA 202 14
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT2 MESSAGE ADD,F_TOTFAT|ADD,F_FAT2
END END
NUMBER 302 14 VALUTA 302 14
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO2 MESSAGE ADD,F_TOTPRO|ADD,F_PRO2
@ -227,21 +223,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON3 MESSAGE _MONTHRANGE|COPY,F_MON3
END END
NUMBER 203 14 VALUTA 203 14
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT3 MESSAGE ADD,F_TOTFAT|ADD,F_FAT3
END END
NUMBER 303 14 VALUTA 303 14
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO3 MESSAGE ADD,F_TOTPRO|ADD,F_PRO3
@ -259,21 +253,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON4 MESSAGE _MONTHRANGE|COPY,F_MON4
END END
NUMBER 204 14 VALUTA 204 14
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT4 MESSAGE ADD,F_TOTFAT|ADD,F_FAT4
END END
NUMBER 304 14 VALUTA 304 14
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO4 MESSAGE ADD,F_TOTPRO|ADD,F_PRO4
@ -291,21 +283,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON5 MESSAGE _MONTHRANGE|COPY,F_MON5
END END
NUMBER 205 14 VALUTA 205 14
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT5 MESSAGE ADD,F_TOTFAT|ADD,F_FAT5
END END
NUMBER 305 14 VALUTA 305 14
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO5 MESSAGE ADD,F_TOTPRO|ADD,F_PRO5
@ -323,21 +313,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON6 MESSAGE _MONTHRANGE|COPY,F_MON6
END END
NUMBER 206 14 VALUTA 206 14
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT6 MESSAGE ADD,F_TOTFAT|ADD,F_FAT6
END END
NUMBER 306 14 VALUTA 306 14
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO6 MESSAGE ADD,F_TOTPRO|ADD,F_PRO6
@ -355,21 +343,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON7 MESSAGE _MONTHRANGE|COPY,F_MON7
END END
NUMBER 207 14 VALUTA 207 14
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT7 MESSAGE ADD,F_TOTFAT|ADD,F_FAT7
END END
NUMBER 307 14 VALUTA 307 14
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO7 MESSAGE ADD,F_TOTPRO|ADD,F_PRO7
@ -387,21 +373,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON8 MESSAGE _MONTHRANGE|COPY,F_MON8
END END
NUMBER 208 14 VALUTA 208 14
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT8 MESSAGE ADD,F_TOTFAT|ADD,F_FAT8
END END
NUMBER 308 14 VALUTA 308 14
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO8 MESSAGE ADD,F_TOTPRO|ADD,F_PRO8
@ -419,21 +403,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON9 MESSAGE _MONTHRANGE|COPY,F_MON9
END END
NUMBER 209 14 VALUTA 209 14
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT9 MESSAGE ADD,F_TOTFAT|ADD,F_FAT9
END END
NUMBER 309 14 VALUTA 309 14
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO9 MESSAGE ADD,F_TOTPRO|ADD,F_PRO9
@ -451,21 +433,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON10 MESSAGE _MONTHRANGE|COPY,F_MON10
END END
NUMBER 210 14 VALUTA 210 14
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT10 MESSAGE ADD,F_TOTFAT|ADD,F_FAT10
END END
NUMBER 310 14 VALUTA 310 14
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO10 MESSAGE ADD,F_TOTPRO|ADD,F_PRO10
@ -483,21 +463,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON11 MESSAGE _MONTHRANGE|COPY,F_MON11
END END
NUMBER 211 14 VALUTA 211 14
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT11 MESSAGE ADD,F_TOTFAT|ADD,F_FAT11
END END
NUMBER 311 14 VALUTA 311 14
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO11 MESSAGE ADD,F_TOTPRO|ADD,F_PRO11
@ -515,21 +493,19 @@ SECTION PRS 1 0 0 FILE LF_PROVV GROUP CODAGE
MESSAGE _MONTHRANGE|COPY,F_MON12 MESSAGE _MONTHRANGE|COPY,F_MON12
END END
NUMBER 212 14 VALUTA 212 14
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
FIELD LF_PROVV->IMPDOC FIELD LF_PROVV->IMPDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTFAT|ADD,F_FAT12 MESSAGE ADD,F_TOTFAT|ADD,F_FAT12
END END
NUMBER 312 14 VALUTA 312 14
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
FIELD LF_PROVV->IMPPRDOC FIELD LF_PROVV->IMPPRDOC
FLAGS "H" FLAGS "H"
MESSAGE ADD,F_TOTPRO|ADD,F_PRO12 MESSAGE ADD,F_TOTPRO|ADD,F_PRO12
@ -547,19 +523,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT1 15 VALUTA F_FAT1 15
BEING BEGIN
KEY "Fatturato (1)" KEY "Fatturato (1)"
PROMPT 4 1 "" PROMPT 4 1 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO1 15 VALUTA F_PRO1 15
BEING BEGIN
KEY "Provvigione (1)" KEY "Provvigione (1)"
PROMPT 5 1 "" PROMPT 5 1 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -570,19 +544,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT2 15 VALUTA F_FAT2 15
BEING BEGIN
KEY "Fatturato (2)" KEY "Fatturato (2)"
PROMPT 7 1 "" PROMPT 7 1 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO2 15 VALUTA F_PRO2 15
BEING BEGIN
KEY "Provvigione (2)" KEY "Provvigione (2)"
PROMPT 8 1 "" PROMPT 8 1 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -593,19 +565,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT3 15 VALUTA F_FAT3 15
BEING BEGIN
KEY "Fatturato (3)" KEY "Fatturato (3)"
PROMPT 4 2 "" PROMPT 4 2 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO3 15 VALUTA F_PRO3 15
BEING BEGIN
KEY "Provvigione (3)" KEY "Provvigione (3)"
PROMPT 5 2 "" PROMPT 5 2 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -616,19 +586,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT4 15 VALUTA F_FAT4 15
BEING BEGIN
KEY "Fatturato (4)" KEY "Fatturato (4)"
PROMPT 7 2 "" PROMPT 7 2 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO4 15 VALUTA F_PRO4 15
BEING BEGIN
KEY "Provvigione (4)" KEY "Provvigione (4)"
PROMPT 8 2 "" PROMPT 8 2 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -639,19 +607,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT5 15 VALUTA F_FAT5 15
BEING BEGIN
KEY "Fatturato (5)" KEY "Fatturato (5)"
PROMPT 4 3 "" PROMPT 4 3 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO5 15 VALUTA F_PRO5 15
BEING BEGIN
KEY "Provvigione (5)" KEY "Provvigione (5)"
PROMPT 5 3 "" PROMPT 5 3 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -662,19 +628,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT6 15 VALUTA F_FAT6 15
BEING BEGIN
KEY "Fatturato (6)" KEY "Fatturato (6)"
PROMPT 7 3 "" PROMPT 7 3 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO6 15 VALUTA F_PRO6 15
BEING BEGIN
KEY "Provvigione (6)" KEY "Provvigione (6)"
PROMPT 8 3 "" PROMPT 8 3 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -685,19 +649,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT7 15 VALUTA F_FAT7 15
BEING BEGIN
KEY "Fatturato (7)" KEY "Fatturato (7)"
PROMPT 4 4 "" PROMPT 4 4 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO7 15 VALUTA F_PRO7 15
BEING BEGIN
KEY "Provvigione (7)" KEY "Provvigione (7)"
PROMPT 5 4 "" PROMPT 5 4 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -708,19 +670,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT8 15 VALUTA F_FAT8 15
BEING BEGIN
KEY "Fatturato (8)" KEY "Fatturato (8)"
PROMPT 7 4 "" PROMPT 7 4 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO8 15 VALUTA F_PRO8 15
BEING BEGIN
KEY "Provvigione (8)" KEY "Provvigione (8)"
PROMPT 8 4 "" PROMPT 8 4 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -731,19 +691,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT9 15 VALUTA F_FAT9 15
BEING BEGIN
KEY "Fatturato (9)" KEY "Fatturato (9)"
PROMPT 4 5 "" PROMPT 4 5 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO9 15 VALUTA F_PRO9 15
BEING BEGIN
KEY "Provvigione (9)" KEY "Provvigione (9)"
PROMPT 5 5 "" PROMPT 5 5 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -754,19 +712,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT10 15 VALUTA F_FAT10 15
BEING BEGIN
KEY "Fatturato (10)" KEY "Fatturato (10)"
PROMPT 7 5 "" PROMPT 7 5 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO10 15 VALUTA F_PRO10 15
BEING BEGIN
KEY "Provvigione (10)" KEY "Provvigione (10)"
PROMPT 8 5 "" PROMPT 8 5 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -777,19 +733,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT11 15 VALUTA F_FAT11 15
BEING BEGIN
KEY "Fatturato (11)" KEY "Fatturato (11)"
PROMPT 4 6 "" PROMPT 4 6 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO11 15 VALUTA F_PRO11 15
BEING BEGIN
KEY "Provvigione (11)" KEY "Provvigione (11)"
PROMPT 5 6 "" PROMPT 5 6 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -800,19 +754,17 @@ BEGIN
MESSAGE _MONTHRANGE MESSAGE _MONTHRANGE
END END
NUMBER F_FAT12 15 VALUTA F_FAT12 15
BEING BEGIN
KEY "Fatturato (12)" KEY "Fatturato (12)"
PROMPT 7 6 "" PROMPT 7 6 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_PRO12 15 VALUTA F_PRO12 15
BEING BEGIN
KEY "Provvigione (12)" KEY "Provvigione (12)"
PROMPT 8 6 "" PROMPT 8 6 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
@ -822,19 +774,17 @@ BEGIN
PROMPT 2 8 "Totale agente:" PROMPT 2 8 "Totale agente:"
END END
NUMBER F_TOTFAT 15 VALUTA F_TOTFAT 15
BEGIN BEGIN
KEY "Totale fatturato per agente" KEY "Totale fatturato per agente"
PROMPT 4 8 "" PROMPT 4 8 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END
NUMBER F_TOTPRO 15 VALUTA F_TOTPRO 15
BEGIN BEGIN
KEY "Totale provvigioni per agente" KEY "Totale provvigioni per agente"
PROMPT 5 8 "" PROMPT 5 8 ""
PICTURE "."
GROUP G_TOTAGE GROUP G_TOTAGE
END END