Patch level :2.0 personalizzazione CRPA
Files correlati :ce4.exe ce4100a.msk f145.dir/trr Ricompilazione Demo : [ ] Commento :personalizzazione cespiti per commessa del CRPA;prima implementazione: anagrafica cespiti per commessa git-svn-id: svn://10.65.10.50/trunk@11586 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
d5e5628902
commit
06fe3e88f9
19
ce/ce4.cpp
Executable file
19
ce/ce4.cpp
Executable file
@ -0,0 +1,19 @@
|
||||
#include <xvt.h>
|
||||
|
||||
#include "ce4.h"
|
||||
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
const int r = (argc > 1) ? (argv[1][1]-'0') : 0;
|
||||
switch (r)
|
||||
{
|
||||
/* case 1:
|
||||
ce4200(argc,argv); break; //calcolo cespiti per commessa
|
||||
case 2:
|
||||
ce4300(argc,argv); break;*/ //stampa cespiti per commessa
|
||||
case 0:
|
||||
default: ce4100(argc,argv) ; break; // inserimento cespiti per commessa (personalizzazione CRPA)
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
10
ce/ce4.h
Executable file
10
ce/ce4.h
Executable file
@ -0,0 +1,10 @@
|
||||
#ifndef __CE4_H
|
||||
#define __CE4_H
|
||||
|
||||
int ce4100(int argc, char* argv[]);
|
||||
//int ce4200(int argc, char* argv[]);
|
||||
//int ce4300(int argc, char* argv[]);
|
||||
|
||||
|
||||
#endif // __CE4_H
|
||||
|
||||
145
ce/ce4100.cpp
Executable file
145
ce/ce4100.cpp
Executable file
@ -0,0 +1,145 @@
|
||||
#include<automask.h>
|
||||
#include<relapp.h>
|
||||
|
||||
#include "ce4100a.h"
|
||||
|
||||
//=============================================================================================
|
||||
//maschera
|
||||
|
||||
class TCesp_per_cms_mask: public TAutomask
|
||||
{
|
||||
public:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
real TCesp_per_cms_mask::somma_perc() const;
|
||||
|
||||
TCesp_per_cms_mask():TAutomask("ce4100a") {}
|
||||
};
|
||||
|
||||
real TCesp_per_cms_mask::somma_perc() const
|
||||
{
|
||||
TSheet_field& ss = sfield(F_RIGHE);
|
||||
real tot_perc;
|
||||
FOR_EACH_SHEET_ROW(ss,i,r)
|
||||
tot_perc += real(r->get(ss.cid2index(S_PERCUTIL)));
|
||||
return tot_perc;
|
||||
}
|
||||
|
||||
bool TCesp_per_cms_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_RIGHE:
|
||||
if (e == se_notify_add)
|
||||
{
|
||||
TSheet_field& ss = (TSheet_field&)o;
|
||||
real residuo = CENTO - somma_perc();
|
||||
if (residuo > 0)
|
||||
{
|
||||
TToken_string& row = ss.row(jolly);
|
||||
row.add(residuo.string(),ss.cid2index(S_PERCUTIL));
|
||||
}
|
||||
}
|
||||
if (e == fe_close && (insert_mode() || edit_mode()))
|
||||
{
|
||||
//controllo sulle percentuali totali di un cespite
|
||||
if (somma_perc() != CENTO)
|
||||
return noyes_box("La percentuale complessiva di utilizzo del cespite e' diversa da 100"
|
||||
"\nSi desidera proseguire ?");
|
||||
|
||||
TAssoc_array lista_cms;
|
||||
|
||||
TSheet_field& ss = sfield(F_RIGHE);
|
||||
FOR_EACH_SHEET_ROW(ss,i,r)
|
||||
{
|
||||
//controllo di esistenza codice commessa
|
||||
const TString& cms = r->get(ss.cid2index(S_CODCMS));
|
||||
if (cms.blank())
|
||||
return error_box("Specificare la commessa sulla riga %d", i+1);
|
||||
//controllo di duplicazione codice commessa
|
||||
if (lista_cms.is_key(cms))
|
||||
return error_box("Codice commessa %s duplicato", (const char *)cms);
|
||||
lista_cms.add(cms);
|
||||
}
|
||||
}
|
||||
break;
|
||||
default: break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
//===============================================================================================
|
||||
//Applicazione
|
||||
class TCesp_per_cms: public TRelation_application
|
||||
{
|
||||
TCesp_per_cms_mask *_msk; // maschera principale
|
||||
TRelation *_rel; // relazione principale
|
||||
|
||||
//metodi virtuali obbligatori per gli oggetti TRelation_application
|
||||
protected:
|
||||
virtual bool user_create();
|
||||
virtual bool user_destroy();
|
||||
virtual TMask* get_mask(int mode) { return _msk; }
|
||||
virtual bool changing_mask(int mode) { return FALSE;}
|
||||
virtual void init_query_mode(TMask& m);
|
||||
virtual void init_query_insert_mode(TMask& m);
|
||||
virtual void init_insert_mode(TMask& m);
|
||||
virtual void init_modify_mode(TMask& m);
|
||||
|
||||
virtual TRelation* get_relation() const { return _rel; }
|
||||
|
||||
public:
|
||||
virtual ~TCesp_per_cms() {}
|
||||
};
|
||||
|
||||
//metodi per la maschera
|
||||
//abilita i campi per inserimento nuovo cespite,attivando i campi del gruppo 2 (che fanno riferimento al file LF_CESPI)
|
||||
void TCesp_per_cms::init_query_insert_mode(TMask& m)
|
||||
{
|
||||
m.enable(-2);
|
||||
m.show(-2);
|
||||
m.hide(-1);
|
||||
}
|
||||
//abilita i campi per ricercare un cespite gia' inserito,attivando i campi del gruppo 1(LF_SALCECMS)
|
||||
void TCesp_per_cms::init_query_mode(TMask& m)
|
||||
{
|
||||
m.show(-1);
|
||||
m.hide(-2);
|
||||
m.set(F_DESC,"");
|
||||
}
|
||||
|
||||
void TCesp_per_cms::init_insert_mode(TMask& m)
|
||||
{
|
||||
m.hide(-1);
|
||||
m.disable(-2);
|
||||
}
|
||||
|
||||
void TCesp_per_cms::init_modify_mode(TMask& m)
|
||||
{
|
||||
m.hide(-2);
|
||||
}
|
||||
|
||||
bool TCesp_per_cms::user_create()
|
||||
{
|
||||
_rel = new TRelation(LF_SALCECMS);
|
||||
_msk = new TCesp_per_cms_mask;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
bool TCesp_per_cms::user_destroy()
|
||||
{
|
||||
delete _rel;
|
||||
delete _msk;
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
|
||||
int ce4100(int argc, char* argv[])
|
||||
{
|
||||
TCesp_per_cms a;
|
||||
a.run(argc,argv,TR("Inserimento cespiti per commessa"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
19
ce/ce4100a.h
Executable file
19
ce/ce4100a.h
Executable file
@ -0,0 +1,19 @@
|
||||
//definizioni campi per la maschera ce4100a.uml (immissione cespiti per commessa)
|
||||
#define F_DITTA 201
|
||||
#define F_RAGSOC 202
|
||||
#define F_ESERCIZIO 203
|
||||
#define F_INIZIO_ES 204
|
||||
#define F_FINE_ES 205
|
||||
#define F_IDCESPITE 206
|
||||
#define F_DESC 207
|
||||
#define F_IDCESPITE_N 208
|
||||
#define F_DESC_N 209
|
||||
#define F_NRIGA 210
|
||||
|
||||
#define F_RIGHE 211
|
||||
|
||||
#define S_CODCMS 101
|
||||
#define S_DESCMS 102
|
||||
#define S_PERCUTIL 103
|
||||
#define S_PERCCOPE 104
|
||||
#define S_FONDO 105
|
||||
225
ce/ce4100a.uml
Executable file
225
ce/ce4100a.uml
Executable file
@ -0,0 +1,225 @@
|
||||
#include "ce4100a.h"
|
||||
|
||||
TOOLBAR "Toolbar" 0 -3 0 3
|
||||
|
||||
#include <toolbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Anagrafica cespiti per commessa" -1 -1 0 -3
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 0 1 "@bParametri cespite"
|
||||
END
|
||||
|
||||
NUMBER F_DITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 2 "Ditta "
|
||||
FLAGS "DF"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 26 2 ""
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_DITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ESERCIZIO 4
|
||||
BEGIN
|
||||
PROMPT 1 3 "Esercizio "
|
||||
FLAGS "AZ"
|
||||
USE CCE
|
||||
JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
|
||||
INPUT CODTAB F_ESERCIZIO
|
||||
DISPLAY "Codice esercizio" CODTAB
|
||||
DISPLAY "Inizio esercizio" 104@->D0
|
||||
DISPLAY "Fine esercizio" 104@->D1
|
||||
OUTPUT F_ESERCIZIO CODTAB
|
||||
OUTPUT F_INIZIO_ES 104@->D0
|
||||
OUTPUT F_FINE_ES 104@->D1
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODES
|
||||
KEY 1
|
||||
END
|
||||
|
||||
DATE F_INIZIO_ES
|
||||
BEGIN
|
||||
PROMPT 26 3 "Inizio "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_FINE_ES
|
||||
BEGIN
|
||||
PROMPT 50 3 "Fine "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_NRIGA 3
|
||||
BEGIN
|
||||
PROMPT 1 100 ""
|
||||
FLAGS "D"
|
||||
ITEM "1|1"
|
||||
FIELD NRIGA
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_IDCESPITE 10
|
||||
BEGIN
|
||||
PROMPT 1 4 "Cespite "
|
||||
FLAGS "UZ"
|
||||
USE LF_SALCECMS SELECT NRIGA==1
|
||||
JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
|
||||
INPUT CODES F_ESERCIZIO
|
||||
INPUT IDCESPITE F_IDCESPITE
|
||||
DISPLAY "Codice@10" IDCESPITE
|
||||
DISPLAY "Descrizione@50" LF_CESPI->DESC
|
||||
DISPLAY "Cat." LF_CESPI->CODCAT
|
||||
DISPLAY "Impianto@10" LF_CESPI->CODIMP
|
||||
DISPLAY "Stabilimento@30" LF_CESPI->STABILIM
|
||||
DISPLAY "Reparto@30" LF_CESPI->REPARTO
|
||||
DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
|
||||
DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
|
||||
OUTPUT F_ESERCIZIO CODES
|
||||
OUTPUT F_IDCESPITE IDCESPITE
|
||||
OUTPUT F_IDCESPITE_N IDCESPITE
|
||||
OUTPUT F_DESC LF_CESPI->DESC
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD IDCESPITE
|
||||
KEY 1
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESC 60 50
|
||||
BEGIN
|
||||
PROMPT 24 4 ""
|
||||
FLAGS "DP"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_IDCESPITE_N 10
|
||||
BEGIN
|
||||
PROMPT 1 4 "Cespite "
|
||||
FLAGS "UZ"
|
||||
FIELD IDCESPITE
|
||||
USE LF_CESPI
|
||||
INPUT IDCESPITE F_IDCESPITE_N
|
||||
DISPLAY "Codice@10" IDCESPITE
|
||||
DISPLAY "Descrizione@50" DESC
|
||||
DISPLAY "Cat." CODCAT
|
||||
DISPLAY "Impianto@10" CODIMP
|
||||
DISPLAY "Stabilimento@30" STABILIM
|
||||
DISPLAY "Reparto@30" REPARTO
|
||||
DISPLAY "Data Acq.@10" DTCOMP
|
||||
DISPLAY "Data Ali.@10" DTALIEN
|
||||
OUTPUT F_IDCESPITE IDCESPITE
|
||||
OUTPUT F_IDCESPITE_N IDCESPITE
|
||||
OUTPUT F_DESC_N DESC
|
||||
CHECKTYPE REQUIRED
|
||||
KEY 1
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_DESC_N 60 50
|
||||
BEGIN
|
||||
PROMPT 24 4 ""
|
||||
USE LF_CESPI KEY 3
|
||||
INPUT DESC F_DESC_N
|
||||
DISPLAY "Descrizione@50" DESC
|
||||
DISPLAY "Codice@10" IDCESPITE
|
||||
DISPLAY "Cat." CODCAT
|
||||
DISPLAY "Impianto@10" CODIMP
|
||||
DISPLAY "Stabilimento@30" STABILIM
|
||||
DISPLAY "Reparto@30" REPARTO
|
||||
DISPLAY "Data Acq.@10" DTCOMP
|
||||
DISPLAY "Data Ali.@10" DTALIEN
|
||||
COPY OUTPUT F_IDCESPITE_N
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
KEY 2 //chiave civetta per provocare l'entrata in modalita' INSERIMENTO in caso di ricerca per descrizione
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 2 6 ""
|
||||
ITEM "Codice commessa"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "% Utilizzo"
|
||||
ITEM "% Copertura"
|
||||
ITEM "Valore fondo per commessa"
|
||||
USE LF_SALCECMS KEY NRIGA
|
||||
INPUT CODES F_ESERCIZIO
|
||||
INPUT IDCESPITE F_IDCESPITE
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
//maschera di riga dello sheet
|
||||
PAGE "Riga" -1 -1 64 8
|
||||
|
||||
STRING S_CODCMS 20
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice commessa "
|
||||
USE CMS
|
||||
INPUT CODTAB S_CODCMS
|
||||
DISPLAY "Codice@20" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CODCMS CODTAB
|
||||
OUTPUT S_DESCMS S0
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODCMS
|
||||
FLAGS "U"
|
||||
END
|
||||
|
||||
STRING S_DESCMS 50 45
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_PERCUTIL 6 2
|
||||
BEGIN
|
||||
PROMPT 1 3 "Percentuale utilizzo "
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "U"
|
||||
FIELD PERCUTIL
|
||||
END
|
||||
|
||||
NUMBER S_PERCCOPE 6 2
|
||||
BEGIN
|
||||
PROMPT 1 4 "Percentuale copertura "
|
||||
FLAGS "U"
|
||||
FIELD PERCCOPE
|
||||
END
|
||||
|
||||
CURRENCY S_FONDO 18
|
||||
BEGIN
|
||||
PROMPT 1 5 "Valore fondo per commessa "
|
||||
FIELD FONDO
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
3
ce/f145.dir
Executable file
3
ce/f145.dir
Executable file
@ -0,0 +1,3 @@
|
||||
145
|
||||
0
|
||||
$salcecms|0|0|67|0|Fondi cespiti per commesse|||
|
||||
12
ce/f145.trr
Executable file
12
ce/f145.trr
Executable file
@ -0,0 +1,12 @@
|
||||
145
|
||||
7
|
||||
IDCESPITE|1|10|0|Codice cespite
|
||||
CODES|2|4|0|Codice esercizio
|
||||
NRIGA|2|3|0|N. riga
|
||||
CODCMS|1|20|0|Codice commessa
|
||||
PERCUTIL|4|6|2|Percentuale di utilizzo
|
||||
PERCCOPE|4|6|2|Percentuale di copertura
|
||||
FONDO|4|18|3|Valore fondo per commessa
|
||||
2
|
||||
IDCESPITE+CODES+NRIGA|
|
||||
CODES+IDCESPITE+NRIGA|
|
||||
Loading…
x
Reference in New Issue
Block a user