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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@16996 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-08-04 14:33:35 +00:00
parent 1ee36984f0
commit 4376d3d92d
5 changed files with 189 additions and 361 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

130
lv/lv2100.cpp
View File

@ -1,88 +1,102 @@
#include <applicat.h>
#include <automask.h> #include <automask.h>
#include <defmask.h> #include <progind.h>
#include <relapp.h> #include <recarray.h>
#include <tabutil.h> #include <relation.h>
#include <textset.h>
#include "lv0.h" #include <mov.h>
#include "lv0700a.h" #include <rmoviva.h>
//------------------------------------------------------------------- #include "../cg/cgsaldac.h"
// MASCHERA (lv0700a)
//------------------------------------------------------------------- #include "lv2.h"
class TPlan_cons_mask : public TAutomask #include "lv2100a.h"
{
protected: ///////////////////////////////////////////////////////////
// TGenera_planning maschera
///////////////////////////////////////////////////////////
class TGenera_planning_mask : public TAutomask
{
public:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
TGenera_planning_mask (const char* name) : TAutomask(name) {}
};
bool TGenera_planning_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
return true;
}
/*
/////////////////////////////////////////////////////////////
// TGenera_planning recordset
/////////////////////////////////////////////////////////////
class TGenera_planning_recordset : public TCSV_recordset
{
public: public:
TPlan_cons_mask(); TEsporta_ps0713_recordset();
}; };
TGenera_planning_recordset::TEsporta_ps0713_recordset()
bool TPlan_cons_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) : TCSV_recordset("CSV(\"\t\")")
{
/* switch (o.dlg())
{
case F_ANNO:
break;
default:
break;
} */
return true;
}
TPlan_cons_mask::TPlan_cons_mask() : TAutomask("lv0700a")
{ {
} }
*/
///////////////////////////////////////////////////////////
// TGenera_planning applicazione
///////////////////////////////////////////////////////////
//-------------------------------------------------------------- class TGenera_planning_app : public TSkeleton_application
// APPLICAZIONE {
//--------------------------------------------------------------
class TPlan_cons : public TRelation_application TGenera_planning_mask* _msk;
{
TPlan_cons_mask* _mask;
TRelation* _rel;
protected: protected:
bool user_create(); virtual bool create();
bool user_destroy(); virtual bool destroy();
virtual TMask* get_mask(int mode) { return _mask; }
virtual bool changing_mask(int mode) { return false; }
virtual void init_modify_mode(TMask& m);
public: public:
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata bool transfer();
virtual bool check_autorization() const {return true;} virtual void main_loop();
/*void esporta_righe_iva(const TMask& msk) const;
virtual TRelation* get_relation() const {return (TRelation*)_rel;} void set_inviva(TISAM_recordset& rmoviva) const;*/
}; };
bool TGenera_planning_app::create()
void TPlan_cons::init_modify_mode(TMask& m) //evita la registrazione di un record modificato se STAMPATO
{ {
/*xvt_fsys_removefile(nomeini);
_configfile = new TConfig(nomeini);*/
_msk = new TGenera_planning_mask("lv2100a");
return TSkeleton_application::create();
} }
bool TGenera_planning_app::destroy()
{
delete _msk;
//delete _configfile;
return TApplication::destroy();
}
bool TPlan_cons::user_create() bool TGenera_planning_app::transfer()
{ {
_rel = new TRelation(LF_LVCONSPLAN);
_mask = new TPlan_cons_mask;
return true; return true;
} }
void TGenera_planning_app::main_loop()
bool TPlan_cons::user_destroy() {
{ while (_msk->run() == K_ENTER)
delete _mask; transfer();
return true;
} }
int lv0700(int argc, char* argv[]) int lv2100(int argc, char* argv[])
{ {
TPlan_cons a; TGenera_planning_app app;
a.run(argc, argv, TR("Generazione planning")); app.run(argc, argv, TR("Generazione automatica planning"));
return 0; return 0;
} }

37
lv/lv2100a.h
View File

@ -1,28 +1,11 @@
// lettere d'intento // generazione automatica planning
// definizione campi per maschera lv0700a // definizione campi per maschera lv2100a
#define F_ANNO 101 #define F_CODDITTA 101
#define F_NUMPROT 102 #define F_RAGSOC 102
#define F_DATAREG 103 #define F_DADATA 103
#define F_VSPROT 104 #define F_ADATA 104
#define F_VSDATA 105 #define F_CODITI 105
#define F_CODCLI 106 #define F_DESCRITI 106
#define F_RAGSOC 107 #define F_CODCLI 107
#define F_TIPOOP 108 #define F_RAGSOCCLI 108
#define F_IMPORTO 109
#define F_DAL 110
#define F_AL 111
#define F_STAMPATO 112
#define F_INDCF 113
#define F_CIVCF 114
#define F_STATOCF 115
#define F_DESTACF 116
#define F_COMCF 117
#define F_DENCOMCF 118
#define F_LOCALITACF 119
#define F_CAPCF 120
#define F_PROVCF 121
#define F_PAIV 122
#define F_UFFIVA 123
#define F_DENUFFIVA 124
#define F_NOTE 125

284
lv/lv2100a.uml
View File

@ -1,255 +1,99 @@
#include "lv0700a.h" #include "lv2100a.h"
TOOLBAR "Relapbar" 0 0 0 2 TOOLBAR "cazzone" 0 0 0 2
#include <relapbar.h> #include <elabar.h>
ENDPAGE ENDPAGE
PAGE "Dichiarazioni d'intento" -1 -1 78 20 PAGE "Generazione planning" -1 -1 78 20
GROUPBOX DLG_NULL 75 3 GROUPBOX DLG_NULL 76 3
BEGIN BEGIN
PROMPT 0 1 "@bNostri riferimenti" PROMPT 1 1 "@bDitta corrente"
END END
NUMBER F_ANNO 4 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 2 "Anno " PROMPT 2 2 "Codice "
FLAGS "AU" FLAGS "FD"
USE LF_LETINT USE LF_NDITTE
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI INPUT CODDITTA F_CODDITTA
INPUT ANNO F_ANNO OUTPUT F_RAGSOC RAGSOC
INPUT NUMPROT F_NUMPROT
DISPLAY "Anno" ANNO
DISPLAY "N.Protocollo" NUMPROT
DISPLAY "Data Reg.@10" DATAREG
DISPLAY "Cliente" CODCLI
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_ANNO ANNO
OUTPUT F_NUMPROT NUMPROT
CHECKTYPE REQUIRED
FIELD ANNO
KEY 1
END
NUMBER F_NUMPROT 6
BEGIN
PROMPT 15 2 "Numero protocollo "
FLAGS "U"
COPY ALL F_ANNO
CHECKTYPE REQUIRED
FIELD NUMPROT
KEY 1
END
DATE F_DATAREG
BEGIN
PROMPT 43 2 "Data registrazione "
FIELD DATAREG
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 75 11 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 0 4 "@bRiferimenti cliente" PROMPT 23 2 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 1 4 "@bDati per la generazione del planning"
END
DATE F_DADATA
BEGIN
PROMPT 2 5 "Genera il planning dal "
FIELD DADATA
CHECKTYPE REQUIRED
END
DATE F_ADATA
BEGIN
PROMPT 45 5 "al "
FIELD ADATA
CHECKTYPE REQUIRED
END
STRING F_CODITI 3
BEGIN
PROMPT 2 6 "Itinerario "
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_CODITI
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODITI CODTAB
OUTPUT F_DESCRITI S0
CHECKTYPE NORMAL
END
STRING F_DESCRITI 50
BEGIN
PROMPT 23 6 ""
USE &ITI KEY 2
INPUT S0 F_DESCRITI
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
COPY OUTPUT F_CODITI
CHECKTYPE NORMAL
END END
NUMBER F_CODCLI 6 NUMBER F_CODCLI 6
BEGIN BEGIN
PROMPT 1 5 "Cod. " PROMPT 2 7 "Cliente "
FLAGS "U" FLAGS "U"
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CODCLI INPUT CODCF F_CODCLI
DISPLAY "Codice " CODCF DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Partita IVA@11" PAIV
OUTPUT F_CODCLI CODCF OUTPUT F_CODCLI CODCF
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOCCLI RAGSOC
OUTPUT F_INDCF INDCF CHECKTYPE NORMAL
OUTPUT F_CIVCF CIVCF
OUTPUT F_STATOCF STATOCF
OUTPUT F_COMCF COMCF
OUTPUT F_CAPCF CAPCF
OUTPUT F_LOCALITACF LOCALITACF
OUTPUT F_PAIV PAIV
OUTPUT F_UFFIVA PAIV[8,10]
CHECKTYPE REQUIRED
FIELD CODCLI
ADD RUN cg0 -1
END END
STRING F_RAGSOC 50 STRING F_RAGSOCCLI 50
BEGIN BEGIN
PROMPT 19 5 "" PROMPT 23 7 ""
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC INPUT RAGSOC F_RAGSOCCLI
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice " CODCF DISPLAY "Codice " CODCF
COPY OUTPUT F_CODCLI COPY OUTPUT F_CODCLI
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1
END
STRING F_INDCF 35
BEGIN
PROMPT 1 6 "Indirizzo "
FLAGS "D"
END
STRING F_CIVCF 10
BEGIN
PROMPT 59 6 "N. "
FLAGS "D"
END
NUMBER F_STATOCF 3
BEGIN
PROMPT 9 7 "Stato "
USE %STA
INPUT CODTAB F_STATOCF
OUTPUT F_DESTACF S0
FLAGS "ZD"
CHECKTYPE NORMAL
END
STRING F_DESTACF 50
BEGIN
PROMPT 22 7 ""
FLAGS "D"
END
STRING F_COMCF 4
BEGIN
PROMPT 8 8 "Comune "
USE LF_COMUNI
INPUT STATO F_STATOCF
INPUT COM F_COMCF
OUTPUT F_DENCOMCF DENCOM
OUTPUT F_PROVCF PROVCOM
FLAGS "D"
CHECKTYPE NORMAL
END
STRING F_DENCOMCF 50
BEGIN
PROMPT 22 8 ""
FLAGS "D"
END
STRING F_LOCALITACF 35
BEGIN
PROMPT 1 9 "Localita' "
FLAGS "D"
END
STRING F_CAPCF 5
BEGIN
PROMPT 52 9 "CAP "
FLAGS "D"
END
STRING F_PROVCF 5
BEGIN
PROMPT 63 9 "Prov"
FLAGS "D"
END
STRING F_PAIV 12
BEGIN
PROMPT 1 10 "Partita IVA "
FLAGS "D"
END
NUMBER F_UFFIVA 3
BEGIN
PROMPT 1 11 "Ufficio IVA "
USE %UIV
INPUT CODTAB F_UFFIVA
DISPLAY "Ufficio" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_UFFIVA CODTAB
OUTPUT F_DENUFFIVA S0
CHECKTYPE NORMAL
WARNING "Ufficio IVA assente"
FLAGS "Z"
FIELD UFFIVA
END
STRING F_DENUFFIVA 50
BEGIN
PROMPT 22 11 ""
FLAGS "D"
END
STRING F_VSPROT 7
BEGIN
PROMPT 1 12 "Numero di protocollo "
FIELD VSPROT
END
DATE F_VSDATA
BEGIN
PROMPT 1 13 "Data di emissione "
FIELD VSDATA
END
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 0 15 "@bOperazione"
END
LIST F_TIPOOP 1 15
BEGIN
PROMPT 1 16 "Tipo operazione "
ITEM "1|Singola"
MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
ITEM "2|A concorrenza"
MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
ITEM "3|Nel periodo"
MESSAGE ENABLE,1@|CLEAR,F_IMPORTO
FIELD TIPOOP
END
CURRENCY F_IMPORTO 18
BEGIN
PROMPT 1 17 "Importo "
FIELD IMPORTO
CHECKTYPE REQUIRED
END
DATE F_DAL
BEGIN
PROMPT 1 18 "Data inizio periodo "
GROUP 1
FIELD DAL
CHECKTYPE REQUIRED
END
DATE F_AL
BEGIN
PROMPT 1 19 "Data fine periodo "
GROUP 1
FIELD AL
CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC >= F_DAL
WARNING "Specificare una 'Data fine periodo' non inferiore alla 'Data inizio perodo'"
END
BOOLEAN F_STAMPATO
BEGIN
PROMPT 2 20 ""
FIELD STAMPATO
FLAGS "HD"
END
ENDPAGE
PAGE "Note" -1 -1 78 20
MEMO F_NOTE 78 19
BEGIN
PROMPT 1 1 ""
FIELD NOTE
END END
ENDPAGE ENDPAGE

1
lv/lvtbiti.h
View File

@ -1,4 +1,3 @@
#define F_COD 101
#define F_COD_ITINERARIO 102 #define F_COD_ITINERARIO 102
#define F_DES_ITINERARIO 103 #define F_DES_ITINERARIO 103
#define F_COD_AUTISTA 104 #define F_COD_AUTISTA 104

98
lv/lvtbiti.uml
View File

@ -6,98 +6,86 @@ ENDPAGE
PAGE "Itinerari" 0 2 0 0 PAGE "Itinerari" 0 2 0 0
GROUPBOX DLG_NULL 75 9
BEGIN
PROMPT 1 1 "@b Itinerari"
END
LIST F_COD 3
BEGIN
PROMPT 2 3 ""
ITEM "ITI|ITI"
FLAGS "H"
FIELD COD
KEY 1
END
STRING F_COD_ITINERARIO 3 STRING F_COD_ITINERARIO 3
BEGIN BEGIN
PROMPT 2 5 "Codice Itinerario " PROMPT 1 2 "Itinerario "
FLAGS "BU" FLAGS "U"
FIELD CODTAB USE &ITI
USE ITI
INPUT CODTAB F_COD_ITINERARIO INPUT CODTAB F_COD_ITINERARIO
INPUT S1 F_COD_AUTISTA
INPUT S2 F_COD_MEZZO
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@35" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Cod.Autista" S1 DISPLAY "Autista" S1
DISPLAY "Cod.Mezzo" S2 DISPLAY "Mezzo" S2
OUTPUT F_COD_ITINERARIO CODTAB OUTPUT F_COD_ITINERARIO CODTAB
OUTPUT F_DES_ITINERARIO S0 OUTPUT F_DES_ITINERARIO S0
OUTPUT F_COD_AUTISTA S1 OUTPUT F_COD_AUTISTA S1
OUTPUT F_COD_MEZZO S2 OUTPUT F_COD_MEZZO S2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD CODTAB
KEY 1 KEY 1
END END
STRING F_DES_ITINERARIO 35 STRING F_DES_ITINERARIO 50
BEGIN BEGIN
PROMPT 2 7 "Descrizione Itinerario" PROMPT 18 2 ""
USE &ITI KEY 2
INPUT S0 F_DES_ITINERARIO
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Autista" S1
DISPLAY "Mezzo" S2
COPY OUTPUT F_COD_ITINERARIO
FIELD S0 FIELD S0
KEY 2 KEY 2
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 10 "@b Dettaglio Itinerari"
END END
STRING F_COD_AUTISTA 2 STRING F_COD_AUTISTA 2
BEGIN BEGIN
PROMPT 2 12 "Codice Autista " PROMPT 1 4 "Autista "
FLAGS "BU" FLAGS "U"
FIELD S1 USE VET
USE AUT
INPUT CODTAB F_COD_AUTISTA INPUT CODTAB F_COD_AUTISTA
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@35" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_COD_AUTISTA CODTAB OUTPUT F_COD_AUTISTA CODTAB
OUTPUT F_DES_AUTISTA S0 OUTPUT F_DES_AUTISTA S0
CHECKTIPE NORMAL FIELD S1
CHECKTIPE REQUIRED
END END
STRING F_DES_AUTISTA 35 STRING F_DES_AUTISTA 50
BEGIN BEGIN
PROMPT 30 12 "" PROMPT 18 4 ""
FLAGS "D" USE VET KEY 2
INPUT S0 F_DES_AUTISTA
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_AUTISTA
END END
STRING F_COD_MEZZO 2 STRING F_COD_MEZZO 2
BEGIN BEGIN
PROMPT 2 14 "Codice Mezzo " PROMPT 1 5 "Mezzo "
FLAGS "BU" FLAGS "U"
FIELD S2 USE &MEZ
USE MEZ
INPUT CODTAB F_COD_MEZZO INPUT CODTAB F_COD_MEZZO
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@35" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_COD_MEZZO CODTAB OUTPUT F_COD_MEZZO CODTAB
OUTPUT F_DES_MEZZO S0 OUTPUT F_DES_MEZZO S0
CHECKTIPE NORMAL FIELD S2
CHECKTIPE REQUIRED
END END
STRING F_DES_MEZZO 35 STRING F_DES_MEZZO 50
BEGIN BEGIN
PROMPT 30 14 "" PROMPT 18 5 ""
FLAGS "D" USE &MEZ KEY 2
INPUT S0 F_DES_MEZZO
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_COD_MEZZO
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK