Patch level : 05.646
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
parent
45b1afe173
commit
8fa72f5d1a
@ -4,3 +4,5 @@
|
||||
|
||||
#include <default.url>
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
@ -1,19 +1,14 @@
|
||||
// Programma generico di gestione tabelle modulo provvigioni agenti
|
||||
|
||||
#include <tabapp.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
#include "prtbapr.h"
|
||||
|
||||
class TTablePR_app : public Tab_application
|
||||
class TTablePR_app : public TTable_application
|
||||
{
|
||||
protected:
|
||||
virtual bool user_destroy() ;
|
||||
virtual bool user_create() ;
|
||||
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(); }
|
||||
@ -57,10 +52,6 @@ bool TTablePR_app::user_create()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TTablePR_app::user_destroy()
|
||||
{
|
||||
return Tab_application::user_destroy();
|
||||
}
|
||||
|
||||
int pr0100(int argc, char** argv)
|
||||
{
|
||||
|
||||
@ -296,12 +296,14 @@ bool TGestione_provv_app::doc_sheet_notify(TSheet_field& ds, int r, KEY key)
|
||||
|
||||
TToken_string& tt = ds.row(r);
|
||||
int anno = tt.get_int(0);
|
||||
TString codnum = tt.get(1);
|
||||
TString16 codnum = tt.get(1);
|
||||
long ndoc = tt.get_long(2);
|
||||
TString16 codval = tt.get(8);
|
||||
|
||||
m.set(F_MANNO,anno);
|
||||
m.set(F_MCODNUM,codnum);
|
||||
m.set(F_MNDOC,ndoc);
|
||||
m.set(F_CODVAL, codval);
|
||||
|
||||
__current_key.format("%4d%4s%7ld",anno,(const char*)codnum,ndoc);
|
||||
TSheet_field& rs = ds.mask().sfield(F_RATE_SHEET);
|
||||
|
||||
118
pr/pr0700b.uml
118
pr/pr0700b.uml
@ -46,6 +46,12 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CODVAL 3
|
||||
BEGIN
|
||||
PROMPT 40 2 "Valuta "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADHSEET F_DOC_SHEET 0 8
|
||||
BEGIN
|
||||
PROMPT 2 3 ""
|
||||
@ -63,12 +69,12 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
SPREADHSEET F_RATE_SHEET 0 8
|
||||
SPREADHSEET F_RATE_SHEET
|
||||
BEGIN
|
||||
PROMPT 2 12 ""
|
||||
ITEM "Nr. rata"
|
||||
ITEM "Data scadenza"
|
||||
ITEM "Tipo\npag."
|
||||
ITEM "Tipo\npag.@5"
|
||||
ITEM "Importo\nrata@18"
|
||||
ITEM "Importo\nprovvigione@18"
|
||||
ITEM "Pagamento\nmaturato@18"
|
||||
@ -87,16 +93,16 @@ ENDMASK
|
||||
|
||||
// Maschera spreadsheet dei documenti
|
||||
|
||||
PAGE "" -1 -1 78 16
|
||||
PAGE "" -1 -1 78 11
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno "
|
||||
PROMPT 2 1 "Anno "
|
||||
END
|
||||
|
||||
STRING F_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 13 2 "Cod. num. "
|
||||
PROMPT 13 1 "Cod. num. "
|
||||
FLAGS "U"
|
||||
USE %NUM
|
||||
INPUT CODTAB F_CODNUM
|
||||
@ -108,7 +114,7 @@ END
|
||||
|
||||
NUMBER F_NDOC 7
|
||||
BEGIN
|
||||
PROMPT 32 2 "Num. doc. "
|
||||
PROMPT 32 1 "Num. doc. "
|
||||
USE LF_DOC
|
||||
JOIN %CPG TO LF_DOC ALIAS 401 INTO CODTAB==CODPAG
|
||||
INPUT PROVV "D"
|
||||
@ -118,35 +124,59 @@ BEGIN
|
||||
DISPLAY "Anno@10" ANNO
|
||||
DISPLAY "Cod. num.@15" CODNUM
|
||||
DISPLAY "Num. doc.@15" NDOC
|
||||
DISPLAY "Valuta" CODVAL
|
||||
OUTPUT F_ANNO ANNO
|
||||
OUTPUT F_CODNUM CODNUM
|
||||
OUTPUT F_NDOC NDOC
|
||||
OUTPUT F_CODVAL CODVAL
|
||||
ADD RUN VE0 -1
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 54 2 "Data doc. "
|
||||
PROMPT 54 1 "Data doc. "
|
||||
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
|
||||
PROMPT 2 4 "Importo doc. "
|
||||
PICTURE "."
|
||||
DRIVENBY F_CODVAL
|
||||
END
|
||||
|
||||
NUMBER F_IMPPRDOC 18 2
|
||||
CURRENCY F_IMPPRDOC 18
|
||||
BEGIN
|
||||
PROMPT 2 5 "Importo provv. doc. "
|
||||
PICTURE "."
|
||||
DRIVENBY F_CODVAL
|
||||
NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)}
|
||||
WARNING "L'importo della provvigione deve essere minore dell'importo documento"
|
||||
END
|
||||
|
||||
NUMBER F_IMPNETDOC 18 2
|
||||
CURRENCY F_IMPNETDOC 18
|
||||
BEGIN
|
||||
PROMPT 2 6 "Base di calcolo "
|
||||
PICTURE "."
|
||||
DRIVENBY F_CODVAL
|
||||
NUM_EXPR {(#THIS_FIELD <= #F_IMPDOC)}
|
||||
WARNING "L'importo della base di calcolo deve essere minore dell'importo documento"
|
||||
END
|
||||
@ -154,7 +184,7 @@ END
|
||||
NUMBER F_CLIENTE 7
|
||||
BEGIN
|
||||
PROMPT 2 8 "Cod. cliente "
|
||||
USE LF_CLIFO KEY 1 SELECT TIPOCF=="C"
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CLIENTE
|
||||
DISPLAY "Cod. cliente" CODCF
|
||||
@ -170,39 +200,17 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CODVAL 3
|
||||
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
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
@ -240,46 +248,46 @@ BEGIN
|
||||
ITEM "9|Bonifici"
|
||||
END
|
||||
|
||||
NUMBER F_IMPRATA 18 2
|
||||
CURRENCY F_IMPRATA 18
|
||||
BEGIN
|
||||
PROMPT 2 4 "Importo rata "
|
||||
PICTURE "."
|
||||
DRIVENBY -F_CODVAL
|
||||
END
|
||||
|
||||
NUMBER F_IMPPROVV 18 2
|
||||
CURRENCY F_IMPPROVV 18
|
||||
BEGIN
|
||||
PROMPT 2 5 "Importo provvigione "
|
||||
PICTURE "."
|
||||
DRIVENBY -F_CODVAL
|
||||
END
|
||||
|
||||
NUMBER F_PAGATO 18 2
|
||||
CURRENCY F_PAGATO 18
|
||||
BEGIN
|
||||
PROMPT 2 6 "Importo rata pagata "
|
||||
PICTURE "."
|
||||
DRIVENBY -F_CODVAL
|
||||
FLAGS "D"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
NUMBER F_PROVVPAG 18 2
|
||||
CURRENCY F_PROVVPAG 18
|
||||
BEGIN
|
||||
PROMPT 2 7 "Importo provvigione pagata "
|
||||
PICTURE "."
|
||||
DRIVENBY -F_CODVAL
|
||||
FLAGS "D"
|
||||
GROUP 5
|
||||
END
|
||||
|
||||
NUMBER F_PAGMAT 18 2
|
||||
CURRENCY F_PAGMAT 18
|
||||
BEGIN
|
||||
PROMPT 2 8 "Importo pagamento maturato "
|
||||
PICTURE "."
|
||||
DRIVENBY -F_CODVAL
|
||||
NUM_EXPR {(#THIS_FIELD <= #F_IMPRATA)}
|
||||
WARNING "L'importo pagamento maturato deve essere minore dell'importo della rata"
|
||||
END
|
||||
|
||||
NUMBER F_PROVVMAT 18 2
|
||||
CURRENCY F_PROVVMAT 18
|
||||
BEGIN
|
||||
PROMPT 2 9 "Importo provvigione maturata "
|
||||
PICTURE "."
|
||||
DRIVENBY -F_CODVAL
|
||||
NUM_EXPR {(#THIS_FIELD <= #F_IMPPROVV)}
|
||||
WARNING "L'importo provvigione maturata deve essere minore dell'importo della provvigione"
|
||||
END
|
||||
@ -303,22 +311,22 @@ BEGIN
|
||||
ITEM "9|Bonifici"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -14 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -24 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -34 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_ENABLE 9 2
|
||||
BUTTON DLG_ENABLE 10 2
|
||||
BEGIN
|
||||
PROMPT -44 -1 "~Abilita"
|
||||
END
|
||||
|
||||
@ -1,18 +1,13 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#include "pr1.h"
|
||||
|
||||
const char* const usage = "Errore - uso : %s -{0|1|2|3}";
|
||||
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
const int n = argc > 1 ? atoi(argv[1]+1) : -1;
|
||||
|
||||
switch (n)
|
||||
{
|
||||
case 0:
|
||||
pr1100(argc,argv); break; // stampa agenti
|
||||
case 1:
|
||||
pr1200(argc,argv); break; // stampa archivio percentuali di provvigione
|
||||
case 2:
|
||||
@ -20,7 +15,7 @@ int main(int argc,char** argv)
|
||||
case 3:
|
||||
pr1400(argc,argv); break; // stampa statistiche
|
||||
default:
|
||||
error_box(usage, argv[0]);
|
||||
pr1100(argc,argv); break; // stampa agenti
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
|
||||
@ -3,3 +3,6 @@
|
||||
#define QFIRMNAME "A.G.A. Informatica Srl"
|
||||
|
||||
#include <default.url>
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
#include <applicat.h>
|
||||
#include <config.h>
|
||||
#include <mask.h>
|
||||
//#include <printer.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <urldefid.h>
|
||||
@ -10,7 +9,7 @@
|
||||
#include "agenti.h"
|
||||
#include "pr1100.h"
|
||||
|
||||
class TStampa_agenti : public TApplication
|
||||
class TStampa_agenti : public TSkeleton_application
|
||||
{
|
||||
TArray _files;
|
||||
TMask * _mask;
|
||||
@ -21,15 +20,15 @@ class TStampa_agenti : public TApplication
|
||||
TString _daart,_aart,_damag,_amag;
|
||||
TDate _dadata,_adata;
|
||||
protected:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual void main_loop();
|
||||
|
||||
public:
|
||||
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
|
||||
virtual bool check_autorization() const
|
||||
{return FALSE;}
|
||||
};
|
||||
|
||||
bool TStampa_agenti::create()
|
||||
void TStampa_agenti::main_loop()
|
||||
{
|
||||
_files.add(new TLocalisamfile(LF_AGENTI));
|
||||
_files.add(new TLocalisamfile(LF_CLIFO));
|
||||
@ -62,18 +61,9 @@ bool TStampa_agenti::create()
|
||||
_form->print();
|
||||
delete _form;
|
||||
} // while true
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TStampa_agenti::destroy()
|
||||
{
|
||||
delete _mask;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
int pr1100(int argc, char** argv)
|
||||
{
|
||||
TStampa_agenti a;
|
||||
|
||||
413
pr/pr1200a.frm
413
pr/pr1200a.frm
@ -1,207 +1,206 @@
|
||||
// Form di stampa archivio percentuali di provvigione
|
||||
#include "pr1200a.h"
|
||||
|
||||
USE LF_PERCPROV KEY 1
|
||||
JOIN APR ALIAS 201 INTO CODTAB==CODPR
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 10
|
||||
END
|
||||
|
||||
SECTION GRAPHICS FIRST 67
|
||||
|
||||
LINEA 1 80 1
|
||||
BEGIN
|
||||
KEY "Riga di separazione titolo/sottotitolo"
|
||||
PROMPT 1 3 "@B"
|
||||
END
|
||||
|
||||
LINEA 2 80 1
|
||||
BEGIN
|
||||
KEY "Riga di separazione titolo/corpo"
|
||||
PROMPT 1 5 "@B"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 5
|
||||
|
||||
STRINGA 1 40 1
|
||||
BEGIN
|
||||
KEY "nome ditta"
|
||||
PROMPT 1 1 "Ditta "
|
||||
MESSAGE _DITTA, !RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 2 10
|
||||
BEGIN
|
||||
KEY "Data"
|
||||
PROMPT 50 1 "Data "
|
||||
MESSAGE _TODAY
|
||||
END
|
||||
|
||||
NUMERO 3 7
|
||||
BEGIN
|
||||
KEY "Nr. pagina"
|
||||
PROMPT 70 1 "Pagina "
|
||||
MESSAGE _PAGENO
|
||||
END
|
||||
|
||||
NUMERO 4 40
|
||||
BEGIN
|
||||
KEY "Intestazione stampa"
|
||||
PROMPT 24 2 "Stampa percentuali di provvigione"
|
||||
END
|
||||
|
||||
STRINGA 6 15
|
||||
BEGIN
|
||||
KEY "Codice Archivio"
|
||||
PROMPT 2 4 "Archivio: "
|
||||
FIELD CODPR
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Codice Archivio"
|
||||
PROMPT 16 4 ""
|
||||
FIELD 201@->S0
|
||||
END
|
||||
|
||||
STRINGA 8 6
|
||||
BEGIN
|
||||
KEY "Tipo provvigione (intestazione)"
|
||||
PROMPT 40 4 "Tipo"
|
||||
END
|
||||
|
||||
STRINGA 9 15
|
||||
BEGIN
|
||||
KEY "Percentuale provvigione (intestazione)"
|
||||
PROMPT 53 4 "% Provvigione"
|
||||
END
|
||||
|
||||
STRINGA 10 10
|
||||
BEGIN
|
||||
KEY "Provvigione ad importo(intestazione)"
|
||||
PROMPT 68 4 "Importo"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 5
|
||||
|
||||
STRINGA 99 20
|
||||
BEGIN
|
||||
KEY "Chiave Ordinamento"
|
||||
PROMPT 2 1 ""
|
||||
FIELD KEYORD
|
||||
MESSAGE _FILLFIELDS
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_CLI 20
|
||||
BEGIN
|
||||
KEY "Cod. cliente"
|
||||
PROMPT 2 1 "Cod. Cliente: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_CVE 20
|
||||
BEGIN
|
||||
KEY "Cat. Vendita"
|
||||
PROMPT 2 1 "Cat. Vendita: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_AGE 20
|
||||
BEGIN
|
||||
KEY "Cod. Agente"
|
||||
PROMPT 2 1 "Cod. Agente: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_PAG 20
|
||||
BEGIN
|
||||
KEY "Cod. Pagamento"
|
||||
PROMPT 2 1 "Cod. Pagamento "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_SCO 20
|
||||
BEGIN
|
||||
KEY "Cod. Sconto"
|
||||
PROMPT 2 1 "Cod. Sconto: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_ZON 20
|
||||
BEGIN
|
||||
KEY "Cod. Zona"
|
||||
PROMPT 2 1 "Cod. Zona: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_ART 30
|
||||
BEGIN
|
||||
KEY "Cod. Articolo"
|
||||
PROMPT 2 1 "Cod. Articolo: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_GMC 20
|
||||
BEGIN
|
||||
KEY "Cod. GMC"
|
||||
PROMPT 2 1 "Cod. GMC: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_SMC 20
|
||||
BEGIN
|
||||
KEY "Cod. SMC"
|
||||
PROMPT 2 1 "Cod. SMC: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_RFA 20
|
||||
BEGIN
|
||||
KEY "Cod. RFA"
|
||||
PROMPT 2 1 "Cod. RFA: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
LISTA 11 20
|
||||
BEGIN
|
||||
KEY "Tipo di provvigione"
|
||||
PROMPT 40 4 "Tipo provvigione: "
|
||||
FIELD TIPO
|
||||
ITEM "P|Percentuale"
|
||||
ITEM "I|Importo unitario"
|
||||
ITEM "V|Valore complessivo"
|
||||
END
|
||||
|
||||
NUMBER 12 6
|
||||
BEGIN
|
||||
PROMPT 54 4 ""
|
||||
FIELD PERCPROVV
|
||||
PICTURE "##@,@@"
|
||||
END
|
||||
|
||||
NUMERO 13 18
|
||||
BEGIN
|
||||
KEY "Importo"
|
||||
PROMPT 62 4 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###.###"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END // Section body
|
||||
|
||||
// Form di stampa archivio percentuali di provvigione
|
||||
#include "pr1200a.h"
|
||||
|
||||
USE LF_PERCPROV KEY 1
|
||||
JOIN APR ALIAS 201 INTO CODTAB==CODPR
|
||||
END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
FONT "Courier New"
|
||||
SIZE 10
|
||||
END
|
||||
|
||||
SECTION GRAPHICS FIRST 67
|
||||
|
||||
LINEA 1 80 1
|
||||
BEGIN
|
||||
KEY "Riga di separazione titolo/sottotitolo"
|
||||
PROMPT 1 3 "@B"
|
||||
END
|
||||
|
||||
LINEA 2 80 1
|
||||
BEGIN
|
||||
KEY "Riga di separazione titolo/corpo"
|
||||
PROMPT 1 5 "@B"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION HEADER ODD 5
|
||||
|
||||
STRINGA 1 40 1
|
||||
BEGIN
|
||||
KEY "nome ditta"
|
||||
PROMPT 1 1 "Ditta "
|
||||
MESSAGE _DITTA, !RAGSOC
|
||||
END
|
||||
|
||||
STRINGA 2 10
|
||||
BEGIN
|
||||
KEY "Data"
|
||||
PROMPT 50 1 "Data "
|
||||
MESSAGE _TODAY
|
||||
END
|
||||
|
||||
NUMERO 3 7
|
||||
BEGIN
|
||||
KEY "Nr. pagina"
|
||||
PROMPT 70 1 "Pagina "
|
||||
MESSAGE _PAGENO
|
||||
END
|
||||
|
||||
NUMERO 4 40
|
||||
BEGIN
|
||||
KEY "Intestazione stampa"
|
||||
PROMPT 24 2 "Stampa percentuali di provvigione"
|
||||
END
|
||||
|
||||
STRINGA 6 15
|
||||
BEGIN
|
||||
KEY "Codice Archivio"
|
||||
PROMPT 2 4 "Archivio: "
|
||||
FIELD CODPR
|
||||
END
|
||||
|
||||
STRINGA 7 30
|
||||
BEGIN
|
||||
KEY "Codice Archivio"
|
||||
PROMPT 16 4 ""
|
||||
FIELD 201@->S0
|
||||
END
|
||||
|
||||
STRINGA 8 6
|
||||
BEGIN
|
||||
KEY "Tipo provvigione (intestazione)"
|
||||
PROMPT 40 4 "Tipo"
|
||||
END
|
||||
|
||||
STRINGA 9 15
|
||||
BEGIN
|
||||
KEY "Percentuale provvigione (intestazione)"
|
||||
PROMPT 53 4 "% Provvigione"
|
||||
END
|
||||
|
||||
STRINGA 10 10
|
||||
BEGIN
|
||||
KEY "Provvigione ad importo(intestazione)"
|
||||
PROMPT 68 4 "Importo"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
SECTION BODY ODD 5
|
||||
|
||||
STRINGA 99 20
|
||||
BEGIN
|
||||
KEY "Chiave Ordinamento"
|
||||
PROMPT 2 1 ""
|
||||
FIELD KEYORD
|
||||
MESSAGE _FILLFIELDS
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_CLI 20
|
||||
BEGIN
|
||||
KEY "Cod. cliente"
|
||||
PROMPT 2 1 "Cod. Cliente: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_CVE 20
|
||||
BEGIN
|
||||
KEY "Cat. Vendita"
|
||||
PROMPT 2 1 "Cat. Vendita: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_AGE 20
|
||||
BEGIN
|
||||
KEY "Cod. Agente"
|
||||
PROMPT 2 1 "Cod. Agente: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_PAG 20
|
||||
BEGIN
|
||||
KEY "Cod. Pagamento"
|
||||
PROMPT 2 1 "Cod. Pagamento "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_SCO 20
|
||||
BEGIN
|
||||
KEY "Cod. Sconto"
|
||||
PROMPT 2 1 "Cod. Sconto: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_ZON 20
|
||||
BEGIN
|
||||
KEY "Cod. Zona"
|
||||
PROMPT 2 1 "Cod. Zona: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_ART 30
|
||||
BEGIN
|
||||
KEY "Cod. Articolo"
|
||||
PROMPT 2 1 "Cod. Articolo: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_GMC 20
|
||||
BEGIN
|
||||
KEY "Cod. GMC"
|
||||
PROMPT 2 1 "Cod. GMC: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_SMC 20
|
||||
BEGIN
|
||||
KEY "Cod. SMC"
|
||||
PROMPT 2 1 "Cod. SMC: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRINGA FRM_RFA 20
|
||||
BEGIN
|
||||
KEY "Cod. RFA"
|
||||
PROMPT 2 1 "Cod. RFA: "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
LISTA 11 20
|
||||
BEGIN
|
||||
KEY "Tipo di provvigione"
|
||||
PROMPT 40 4 "Tipo provvigione: "
|
||||
FIELD TIPO
|
||||
ITEM "P|Percentuale"
|
||||
ITEM "I|Importo unitario"
|
||||
ITEM "V|Valore complessivo"
|
||||
END
|
||||
|
||||
NUMBER 12 6
|
||||
BEGIN
|
||||
PROMPT 54 4 ""
|
||||
FIELD PERCPROVV
|
||||
PICTURE "##@,@@"
|
||||
END
|
||||
|
||||
VALUTA 13 18
|
||||
BEGIN
|
||||
KEY "Importo"
|
||||
PROMPT 62 4 ""
|
||||
FIELD IMPORTO
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
END // Section body
|
||||
|
||||
|
||||
179
pr/pr1300a.frm
179
pr/pr1300a.frm
@ -175,21 +175,23 @@ BEGIN
|
||||
END
|
||||
|
||||
|
||||
NUMBER 103 15
|
||||
VALUTA 103 15
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CTotale doc./rata" "Totale documento/rata"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
PROMPT 4 1 ""
|
||||
DRIVENBY 3
|
||||
END
|
||||
NUMBER 104 14
|
||||
VALUTA 104 14
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CTotale provvigione" "Totale provv."
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
PROMPT 5 1 ""
|
||||
DRIVENBY 3
|
||||
END
|
||||
NUMBER 105 6
|
||||
BEGIN
|
||||
@ -197,39 +199,43 @@ BEGIN
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
prompt 6 1 ""
|
||||
PROMPT 6 1 ""
|
||||
END
|
||||
NUMBER 106 15
|
||||
VALUTA 106 15
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CImporto pagato" "Importo pagato"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
prompt 7 1 ""
|
||||
PROMPT 7 1 ""
|
||||
DRIVENBY 3
|
||||
END
|
||||
NUMBER 107 14
|
||||
VALUTA 107 14
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CProvvigione pagata" "Provv. pagata"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
prompt 8 1 ""
|
||||
PROMPT 8 1 ""
|
||||
DRIVENBY 3
|
||||
END
|
||||
NUMBER 108 15
|
||||
VALUTA 108 15
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CImporto maturato" "Importo maturato"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
prompt 9 1 ""
|
||||
PROMPT 9 1 ""
|
||||
DRIVENBY 3
|
||||
END
|
||||
NUMBER 109 14
|
||||
VALUTA 109 14
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CProvvigione maturata" "Provv. maturata"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||
KEY "IMPORTO"
|
||||
prompt 10 1 ""
|
||||
PROMPT 10 1 ""
|
||||
DRIVENBY 3
|
||||
END
|
||||
|
||||
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 ""
|
||||
FIELD LF_PROVV->CODVAL
|
||||
END
|
||||
NUMBER 103 15
|
||||
VALUTA 103 15
|
||||
BEGIN
|
||||
KEY "IMPORTO rata"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR,LF_PROVV->IMPRATA*#666
|
||||
MESSAGE ADD,203
|
||||
END
|
||||
NUMBER 104 14
|
||||
VALUTA 104 14
|
||||
BEGIN
|
||||
KEY "IMPORTO provvigione"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR,LF_PROVV->IMPPROVV*#666
|
||||
MESSAGE ADD,204
|
||||
END
|
||||
NUMBER 105 6
|
||||
BEGIN
|
||||
KEY "perc. provv."
|
||||
prompt 6 1 ""
|
||||
PROMPT 6 1 ""
|
||||
PICTURE "##@,@#"
|
||||
MESSAGE _NUMEXPR,#104/#103*100
|
||||
END
|
||||
NUMBER 106 15
|
||||
VALUTA 106 15
|
||||
BEGIN
|
||||
KEY "IMPORTO pagato"
|
||||
prompt 7 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 7 1 ""
|
||||
DRIVENBY 3
|
||||
FIELD PAGATO
|
||||
MESSAGE ADD,206
|
||||
END
|
||||
NUMBER 107 14
|
||||
VALUTA 107 14
|
||||
BEGIN
|
||||
KEY "provv pagata"
|
||||
prompt 8 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 8 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR, PROVVPAG*#666
|
||||
MESSAGE ADD,207
|
||||
END
|
||||
NUMBER 108 15
|
||||
VALUTA 108 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 9 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 9 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR, PAGMAT*#666
|
||||
MESSAGE ADD,208
|
||||
END
|
||||
NUMBER 109 14
|
||||
VALUTA 109 14
|
||||
BEGIN
|
||||
KEY "provv mat"
|
||||
prompt 10 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 10 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR, PROVVMAT*#666
|
||||
MESSAGE ADD,209
|
||||
END
|
||||
@ -389,49 +395,49 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
|
||||
PROMPT 3 1 ""
|
||||
FIELD LF_PROVV->CODVAL
|
||||
END
|
||||
NUMBER 103 15
|
||||
VALUTA 103 15
|
||||
BEGIN
|
||||
KEY "IMPORTO rata"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR, LF_PROVV->IMPRATA*#666
|
||||
MESSAGE ADD,203
|
||||
END
|
||||
NUMBER 104 14
|
||||
VALUTA 104 14
|
||||
BEGIN
|
||||
KEY "totale provv"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR, LF_PROVV->IMPPROVV*#666
|
||||
MESSAGE ADD,204
|
||||
END
|
||||
NUMBER 105 6
|
||||
BEGIN
|
||||
KEY "perc provv"
|
||||
prompt 6 1 ""
|
||||
PROMPT 6 1 ""
|
||||
PICTURE "##@,@#"
|
||||
MESSAGE _NUMEXPR,#104/#103*100
|
||||
END
|
||||
NUMBER 106 15
|
||||
VALUTA 106 15
|
||||
BEGIN
|
||||
KEY "IMPORTO pagato"
|
||||
prompt 7 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 7 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR,PAGATO*#666
|
||||
MESSAGE ADD,206
|
||||
END
|
||||
NUMBER 107 14
|
||||
VALUTA 107 14
|
||||
BEGIN
|
||||
KEY "provv pagata"
|
||||
prompt 8 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 8 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE _NUMEXPR, PROVVPAG*#666
|
||||
MESSAGE ADD,207
|
||||
END
|
||||
STRINGA 108 15
|
||||
BEGIN
|
||||
KEY "flag saldato"
|
||||
prompt 9 1 " SALDATA "
|
||||
PROMPT 9 1 " SALDATA "
|
||||
END
|
||||
END // RATA
|
||||
|
||||
@ -456,58 +462,58 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
|
||||
KEY "CODVAL"
|
||||
PROMPT 3 1 ""
|
||||
END
|
||||
NUMBER 203 15
|
||||
VALUTA 203 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
DRIVENBY 3
|
||||
MESSAGE ADD,303
|
||||
GROUP G_TOTDOC
|
||||
END
|
||||
NUMBER 204 14
|
||||
VALUTA 204 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
DRIVENBY 3
|
||||
MESSAGE ADD,304
|
||||
GROUP G_TOTDOC
|
||||
END
|
||||
NUMBER 205 6
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 6 1 ""
|
||||
KEY "PERC"
|
||||
PROMPT 6 1 ""
|
||||
PICTURE "##@,@#"
|
||||
MESSAGE _NUMEXPR,#204/#203*100
|
||||
END
|
||||
NUMBER 206 15
|
||||
VALUTA 206 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 7 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 7 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE ADD,306
|
||||
GROUP G_TOTDOC
|
||||
END
|
||||
NUMBER 207 14
|
||||
VALUTA 207 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 8 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 8 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE ADD,307
|
||||
GROUP G_TOTDOC
|
||||
END
|
||||
NUMBER 208 15
|
||||
VALUTA 208 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 9 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 9 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE ADD,308
|
||||
GROUP G_TOTDOC
|
||||
END
|
||||
NUMBER 209 14
|
||||
VALUTA 209 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 10 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 10 1 ""
|
||||
DRIVENBY 3
|
||||
MESSAGE ADD,309
|
||||
GROUP G_TOTDOC
|
||||
END
|
||||
@ -534,58 +540,52 @@ SECTION CLIENTI 2 0 0 FILE LF_PROVV GROUP CODAGE
|
||||
KEY "CODVAL"
|
||||
PROMPT 3 1 ""
|
||||
END
|
||||
NUMBER 303 15
|
||||
VALUTA 303 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
MESSAGE ADD,403
|
||||
GROUP G_TOTCLI
|
||||
END
|
||||
NUMBER 304 14
|
||||
VALUTA 304 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
MESSAGE ADD,404
|
||||
GROUP G_TOTCLI
|
||||
END
|
||||
NUMBER 305 6
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 6 1 ""
|
||||
PROMPT 6 1 ""
|
||||
PICTURE "##@,@#"
|
||||
MESSAGE _NUMEXPR,#304/#303*100
|
||||
END
|
||||
NUMBER 306 15
|
||||
VALUTA 306 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 7 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 7 1 ""
|
||||
MESSAGE ADD,406
|
||||
GROUP G_TOTCLI
|
||||
END
|
||||
NUMBER 307 14
|
||||
VALUTA 307 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 8 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 8 1 ""
|
||||
MESSAGE ADD,407
|
||||
GROUP G_TOTCLI
|
||||
END
|
||||
NUMBER 308 15
|
||||
VALUTA 308 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 9 1 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 9 1 ""
|
||||
MESSAGE ADD,408
|
||||
GROUP G_TOTCLI
|
||||
END
|
||||
NUMBER 309 14
|
||||
VALUTA 309 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 10 1 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 10 1 ""
|
||||
MESSAGE ADD,409
|
||||
GROUP G_TOTCLI
|
||||
END
|
||||
@ -605,58 +605,51 @@ END // end clienti
|
||||
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
|
||||
PROMPT 2 2 ""
|
||||
END
|
||||
NUMBER 403 15
|
||||
VALUTA 403 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 4 2 ""
|
||||
PICTURE "###.###.###.###"
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
NUMBER 404 14
|
||||
VALUTA 404 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
PROMPT 5 2 ""
|
||||
PICTURE "##.###.###.###"
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
NUMBER 405 6
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 6 2 ""
|
||||
PROMPT 6 2 ""
|
||||
PICTURE "##@,@#"
|
||||
MESSAGE _NUMEXPR,#404/#403*100
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
NUMBER 406 15
|
||||
VALUTA 406 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 7 2 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 7 2 ""
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
NUMBER 407 14
|
||||
VALUTA 407 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 8 2 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 8 2 ""
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
NUMBER 408 15
|
||||
VALUTA 408 15
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 9 2 ""
|
||||
PICTURE "###.###.###.###"
|
||||
PROMPT 9 2 ""
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
NUMBER 409 14
|
||||
VALUTA 409 14
|
||||
BEGIN
|
||||
KEY "IMPORTO"
|
||||
prompt 10 2 ""
|
||||
PICTURE "##.###.###.###"
|
||||
PROMPT 10 2 ""
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
|
||||
END // Fine body
|
||||
|
||||
SECTION FOOTER ODD 3
|
||||
|
||||
@ -1,6 +1,5 @@
|
||||
// Stampa statistiche temporali per agente
|
||||
#include <applicat.h>
|
||||
#include <urldefid.h>
|
||||
#include <form.h>
|
||||
#include <mask.h>
|
||||
#include <printer.h>
|
||||
@ -49,7 +48,7 @@ bool TForm_stampaprstat::validate(TForm_item& fld, TToken_string& val)
|
||||
return TForm::validate(fld, val);
|
||||
}
|
||||
|
||||
class TStampa_statistiche_app:public TApplication
|
||||
class TStampa_statistiche_app : public TSkeleton_application
|
||||
{
|
||||
TMask *_msk;
|
||||
TForm_stampaprstat *_frm;
|
||||
@ -57,7 +56,7 @@ class TStampa_statistiche_app:public TApplication
|
||||
protected:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG) ;
|
||||
virtual void main_loop();
|
||||
static bool daterange_handler(TMask_field& f, KEY key);
|
||||
static bool agerange_handler(TMask_field& f, KEY key);
|
||||
public:
|
||||
@ -103,11 +102,11 @@ bool TStampa_statistiche_app::create()
|
||||
_msk->set_handler(F_ADES,agerange_handler);
|
||||
_msk->set_handler(F_DATEFROM,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",
|
||||
"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...
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
bool TStampa_statistiche_app::destroy()
|
||||
|
||||
@ -41,7 +41,7 @@ END
|
||||
STRING F_AAGE 5
|
||||
BEGIN
|
||||
PROMPT 3 5 "All'agente "
|
||||
FLAGS "UZ"
|
||||
FLAGS "UZ"
|
||||
COPY USE F_DAAGE
|
||||
INPUT CODAGE F_AAGE
|
||||
COPY DISPLAY F_DAAGE
|
||||
@ -73,9 +73,9 @@ END
|
||||
STRING F_ADES 50
|
||||
BEGIN
|
||||
PROMPT 3 5 "All'agente "
|
||||
COPY USE F_DADES
|
||||
COPY USE F_DADES
|
||||
INPUT RAGSOC F_ADES
|
||||
COPY DISPLAY F_DADES
|
||||
COPY DISPLAY F_DADES
|
||||
OUTPUT F_ADES RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
GROUP G_RAGSOC
|
||||
@ -89,11 +89,14 @@ END
|
||||
DATE F_DATEFROM
|
||||
BEGIN
|
||||
PROMPT 3 8 "Da "
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATETO
|
||||
BEGIN
|
||||
PROMPT 24 8 "A "
|
||||
PROMPT 24 8 "A "
|
||||
FLAGS "A"
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LISTBOX F_GROUPMONTH 2
|
||||
|
||||
252
pr/pr1400a.frm
252
pr/pr1400a.frm
@ -96,7 +96,7 @@ BEGIN
|
||||
PROMPT 4 1 ""
|
||||
END
|
||||
|
||||
NUMBER 5 15
|
||||
VALUTA 5 15
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CProvvigione" "Provvigione (1)"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
@ -114,7 +114,7 @@ BEGIN
|
||||
PROMPT 6 1 ""
|
||||
END
|
||||
|
||||
NUMBER 7 15
|
||||
VALUTA 7 15
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CFatturato" "Fatturato (2)"
|
||||
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||
@ -123,7 +123,7 @@ BEGIN
|
||||
PROMPT 7 1 ""
|
||||
END
|
||||
|
||||
NUMBER 8 15
|
||||
VALUTA 8 15
|
||||
BEGIN
|
||||
SPECIAL STRINGA INTESTAZIONE "@CProvvigione" "Provvigione (2)"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 201 14
|
||||
BEING
|
||||
VALUTA 201 14
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT1
|
||||
END
|
||||
|
||||
NUMBER 301 14
|
||||
BEING
|
||||
VALUTA 301 14
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 202 14
|
||||
BEING
|
||||
VALUTA 202 14
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT2
|
||||
END
|
||||
|
||||
NUMBER 302 14
|
||||
BEING
|
||||
VALUTA 302 14
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 203 14
|
||||
BEING
|
||||
VALUTA 203 14
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT3
|
||||
END
|
||||
|
||||
NUMBER 303 14
|
||||
BEING
|
||||
VALUTA 303 14
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 204 14
|
||||
BEING
|
||||
VALUTA 204 14
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT4
|
||||
END
|
||||
|
||||
NUMBER 304 14
|
||||
BEING
|
||||
VALUTA 304 14
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 205 14
|
||||
BEING
|
||||
VALUTA 205 14
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT5
|
||||
END
|
||||
|
||||
NUMBER 305 14
|
||||
BEING
|
||||
VALUTA 305 14
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 206 14
|
||||
BEING
|
||||
VALUTA 206 14
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT6
|
||||
END
|
||||
|
||||
NUMBER 306 14
|
||||
BEING
|
||||
VALUTA 306 14
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 207 14
|
||||
BEING
|
||||
VALUTA 207 14
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT7
|
||||
END
|
||||
|
||||
NUMBER 307 14
|
||||
BEING
|
||||
VALUTA 307 14
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 208 14
|
||||
BEING
|
||||
VALUTA 208 14
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT8
|
||||
END
|
||||
|
||||
NUMBER 308 14
|
||||
BEING
|
||||
VALUTA 308 14
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 209 14
|
||||
BEING
|
||||
VALUTA 209 14
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT9
|
||||
END
|
||||
|
||||
NUMBER 309 14
|
||||
BEING
|
||||
VALUTA 309 14
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 210 14
|
||||
BEING
|
||||
VALUTA 210 14
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT10
|
||||
END
|
||||
|
||||
NUMBER 310 14
|
||||
BEING
|
||||
VALUTA 310 14
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 211 14
|
||||
BEING
|
||||
VALUTA 211 14
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT11
|
||||
END
|
||||
|
||||
NUMBER 311 14
|
||||
BEING
|
||||
VALUTA 311 14
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
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
|
||||
END
|
||||
|
||||
NUMBER 212 14
|
||||
BEING
|
||||
VALUTA 212 14
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTFAT|ADD,F_FAT12
|
||||
END
|
||||
|
||||
NUMBER 312 14
|
||||
BEING
|
||||
VALUTA 312 14
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
FIELD LF_PROVV->IMPPRDOC
|
||||
FLAGS "H"
|
||||
MESSAGE ADD,F_TOTPRO|ADD,F_PRO12
|
||||
@ -547,19 +523,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT1 15
|
||||
BEING
|
||||
VALUTA F_FAT1 15
|
||||
BEGIN
|
||||
KEY "Fatturato (1)"
|
||||
PROMPT 4 1 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO1 15
|
||||
BEING
|
||||
VALUTA F_PRO1 15
|
||||
BEGIN
|
||||
KEY "Provvigione (1)"
|
||||
PROMPT 5 1 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -570,19 +544,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT2 15
|
||||
BEING
|
||||
VALUTA F_FAT2 15
|
||||
BEGIN
|
||||
KEY "Fatturato (2)"
|
||||
PROMPT 7 1 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO2 15
|
||||
BEING
|
||||
VALUTA F_PRO2 15
|
||||
BEGIN
|
||||
KEY "Provvigione (2)"
|
||||
PROMPT 8 1 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -593,19 +565,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT3 15
|
||||
BEING
|
||||
VALUTA F_FAT3 15
|
||||
BEGIN
|
||||
KEY "Fatturato (3)"
|
||||
PROMPT 4 2 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO3 15
|
||||
BEING
|
||||
VALUTA F_PRO3 15
|
||||
BEGIN
|
||||
KEY "Provvigione (3)"
|
||||
PROMPT 5 2 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -616,19 +586,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT4 15
|
||||
BEING
|
||||
VALUTA F_FAT4 15
|
||||
BEGIN
|
||||
KEY "Fatturato (4)"
|
||||
PROMPT 7 2 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO4 15
|
||||
BEING
|
||||
VALUTA F_PRO4 15
|
||||
BEGIN
|
||||
KEY "Provvigione (4)"
|
||||
PROMPT 8 2 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -639,19 +607,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT5 15
|
||||
BEING
|
||||
VALUTA F_FAT5 15
|
||||
BEGIN
|
||||
KEY "Fatturato (5)"
|
||||
PROMPT 4 3 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO5 15
|
||||
BEING
|
||||
VALUTA F_PRO5 15
|
||||
BEGIN
|
||||
KEY "Provvigione (5)"
|
||||
PROMPT 5 3 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -662,19 +628,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT6 15
|
||||
BEING
|
||||
VALUTA F_FAT6 15
|
||||
BEGIN
|
||||
KEY "Fatturato (6)"
|
||||
PROMPT 7 3 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO6 15
|
||||
BEING
|
||||
VALUTA F_PRO6 15
|
||||
BEGIN
|
||||
KEY "Provvigione (6)"
|
||||
PROMPT 8 3 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -685,19 +649,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT7 15
|
||||
BEING
|
||||
VALUTA F_FAT7 15
|
||||
BEGIN
|
||||
KEY "Fatturato (7)"
|
||||
PROMPT 4 4 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO7 15
|
||||
BEING
|
||||
VALUTA F_PRO7 15
|
||||
BEGIN
|
||||
KEY "Provvigione (7)"
|
||||
PROMPT 5 4 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -708,19 +670,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT8 15
|
||||
BEING
|
||||
VALUTA F_FAT8 15
|
||||
BEGIN
|
||||
KEY "Fatturato (8)"
|
||||
PROMPT 7 4 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO8 15
|
||||
BEING
|
||||
VALUTA F_PRO8 15
|
||||
BEGIN
|
||||
KEY "Provvigione (8)"
|
||||
PROMPT 8 4 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -731,19 +691,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT9 15
|
||||
BEING
|
||||
VALUTA F_FAT9 15
|
||||
BEGIN
|
||||
KEY "Fatturato (9)"
|
||||
PROMPT 4 5 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO9 15
|
||||
BEING
|
||||
VALUTA F_PRO9 15
|
||||
BEGIN
|
||||
KEY "Provvigione (9)"
|
||||
PROMPT 5 5 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -754,19 +712,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT10 15
|
||||
BEING
|
||||
VALUTA F_FAT10 15
|
||||
BEGIN
|
||||
KEY "Fatturato (10)"
|
||||
PROMPT 7 5 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO10 15
|
||||
BEING
|
||||
VALUTA F_PRO10 15
|
||||
BEGIN
|
||||
KEY "Provvigione (10)"
|
||||
PROMPT 8 5 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -777,19 +733,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT11 15
|
||||
BEING
|
||||
VALUTA F_FAT11 15
|
||||
BEGIN
|
||||
KEY "Fatturato (11)"
|
||||
PROMPT 4 6 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO11 15
|
||||
BEING
|
||||
VALUTA F_PRO11 15
|
||||
BEGIN
|
||||
KEY "Provvigione (11)"
|
||||
PROMPT 5 6 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -800,19 +754,17 @@ BEGIN
|
||||
MESSAGE _MONTHRANGE
|
||||
END
|
||||
|
||||
NUMBER F_FAT12 15
|
||||
BEING
|
||||
VALUTA F_FAT12 15
|
||||
BEGIN
|
||||
KEY "Fatturato (12)"
|
||||
PROMPT 7 6 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_PRO12 15
|
||||
BEING
|
||||
VALUTA F_PRO12 15
|
||||
BEGIN
|
||||
KEY "Provvigione (12)"
|
||||
PROMPT 8 6 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
@ -822,19 +774,17 @@ BEGIN
|
||||
PROMPT 2 8 "Totale agente:"
|
||||
END
|
||||
|
||||
NUMBER F_TOTFAT 15
|
||||
VALUTA F_TOTFAT 15
|
||||
BEGIN
|
||||
KEY "Totale fatturato per agente"
|
||||
PROMPT 4 8 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
NUMBER F_TOTPRO 15
|
||||
VALUTA F_TOTPRO 15
|
||||
BEGIN
|
||||
KEY "Totale provvigioni per agente"
|
||||
PROMPT 5 8 ""
|
||||
PICTURE "."
|
||||
GROUP G_TOTAGE
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user