Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
gestione budget avanzata per Adolfo!


git-svn-id: svn://10.65.10.50/trunk@20393 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-04-29 10:01:46 +00:00
parent 5d886904cb
commit ab0054d772
4 changed files with 79 additions and 21 deletions

View File

@ -134,7 +134,7 @@ Importazione CLIFO e ANAMAG per Acquacontrol
PS1001 CRPA/DINAMICA
-0 generazione movimento analitico da file .csv contenente le righe (usato in genere per budget)
-1 importazione di N movimenti di budget analitici in formato .csv
-2 variatore dei movimenti di budget già esistenti
-2 gestore dei movimenti di budget per commessa
PS1100
Importazione listini dei gommari (prassiroma, ex ve7500)

View File

@ -520,7 +520,7 @@ int TVariazione_budget_mask::modifica_movana(const long numreg, TSheet_field& sf
const bool r_autofcomp = *sf_righe.cell(i, _pos_autofcomp) > ' ';
const TDate r_datacomp = sf_righe.cell(i, _pos_datacomp);
TDate r_datafcomp = sf_righe.cell(i, _pos_datafcomp);
if (r_datafcomp < r_datacomp)
if (!r_datafcomp.ok() && !r_autofcomp)
r_datafcomp = r_datacomp;
//importo riga: se nullo la riga verrà eliminata in quanto inutile all'umanità
@ -586,7 +586,7 @@ int TVariazione_budget_mask::crea_movana(TSheet_field& sf_righe, const int n)
const bool r_autofcomp = *sf_righe.cell(n, _pos_autofcomp) > ' ';
const TDate r_datacomp = sf_righe.cell(n, _pos_datacomp);
TDate r_datafcomp = sf_righe.cell(n, _pos_datafcomp);
if (r_datafcomp < r_datacomp)
if (!r_datafcomp.ok() && !r_autofcomp)
r_datafcomp = r_datacomp;
//riempie la testata del movana
@ -793,20 +793,17 @@ int TVariazione_budget_mask::load()
const TDate datacomp = rmovana.get("MOVANA."MOVANA_DATACOMP).as_date();
TDate datafcomp = rmovana.get("MOVANA."MOVANA_DATAFCOMP).as_date();
const bool autofcomp = rmovana.get("MOVANA."MOVANA_AUTOFCOMP).as_bool();
//caso cazzuto della scadenza con la fine della commessa (come nella stampa bilancio commessa)
if (autofcomp)
{
const TRectype& rec_commesse = cache().get(LF_COMMESSE, cms);
//data del cazzo che serve per non rovinare datacomp, che è la data sulla riga, non quella iniziale di cms
TDate datainicms;
ca_durata_commessa(rec_commesse, datainicms, datafcomp);
}
if (!datafcomp.ok())
if (!datafcomp.ok() && !autofcomp)
datafcomp = datacomp;
row.add(datacomp, _pos_datacomp);
row.add(autofcomp ? "X" : "", _pos_autofcomp);
//se c'è l'auto fine competenza la cella con la data fine competenza va svuotata..
//..e disabilitata senno' ci va messa e basta
if (!autofcomp)
row.add(datafcomp, _pos_datafcomp);
else
sf_righe.disable_cell(sf_righe.items() - 1, _pos_datafcomp);
//costo o ricavo? all'indbil l'ardua sentenza!
TAnal_bill bill(conto, cdc, cms, fase);
@ -902,6 +899,6 @@ void TVariazione_budget::main_loop()
int ps1001300 (int argc, char* argv[])
{
TVariazione_budget main_app;
main_app.run(argc, argv, TR("Variazione budget"));
main_app.run(argc, argv, TR("Gestione budget per commessa"));
return true;
}

View File

@ -16,6 +16,7 @@
#define DLG_TODATAINI 251
#define DLG_TODATAFIN 252
#define DLG_TOMATURATO 253
#define DLG_RESET 254
//campi dello sheet
#define S_CHECK 101

View File

@ -54,7 +54,7 @@ END
ENDPAGE
PAGE "Variazione Budget" 0 2 0 0
PAGE "Gestione Budget" 0 2 0 0
GROUPBOX DLG_NULL 78 4
BEGIN
@ -173,6 +173,62 @@ BEGIN
END
ENDPAGE
PAGE "Istruzioni " 0 2 0 0
TEXT -1
BEGIN
PROMPT 1 1 "_ Le date della commessa possono essere modificate."
END
TEXT -1
BEGIN
PROMPT 1 2 "_ I pulsanti All.Ini, All.Fin, All.Mat hanno effetto solo sulle righe il cui primo campo è spuntato"
END
TEXT -1
BEGIN
PROMPT 1 3 "_ All.Ini (Allinea all'Inizio) allinea le date di competenza alla data inizio commessa"
END
TEXT -1
BEGIN
PROMPT 1 4 "_ All.Fin (Allinea alla Fine) allinea le date di fine competenza alla data fine commessa"
END
TEXT -1
BEGIN
PROMPT 1 5 "_ All.Mat (Allinea al Maturato) modifica gli importi in modo da portare il Preventivo al valore del Maturato"
END
TEXT -1
BEGIN
PROMPT 1 6 "_ E' possibile modificare manualmente gli importi sulle righe, il Preventivo viene ricalcolato di conseguenza"
END
TEXT -1
BEGIN
PROMPT 1 7 "_ In fase di registrazione vengono eliminate le righe ad importo nullo (azzerare quindi l'importo se si"
END
TEXT -1
BEGIN
PROMPT 1 8 " desidera rimuovere una riga)."
END
TEXT -1
BEGIN
PROMPT 1 9 "_ In fase di registrazione le nuove righe vengono assegnate a nuovi movimenti analitici preventivi"
END
TEXT -1
BEGIN
PROMPT 1 10 "_ Il pulsante Tutti spunta le righe, una per ogni chiave Sede/Fase/Conto"
END
ENDPAGE
ENDMASK
@ -300,6 +356,8 @@ END
BOOLEAN S_AUTOFCOMP
BEGIN
PROMPT 34 6 "Automatica"
MESSAGE FALSE ENABLE,S_DATAFCOMP
MESSAGE TRUE CLEAR,S_DATAFCOMP
END
DATE S_DATAFCOMP
@ -371,19 +429,21 @@ ENDPAGE
TOOLBAR "bottombar" 0 0 0 2
BUTTON DLG_OK 10 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT -13 -1 ""
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 10 2
BUTTON DLG_RESET 2 2
BEGIN
PROMPT -23 -1 ""
PROMPT 2 1 "~Azzera"
PICTURE TOOL_RESET
MESSAGE RESET,S_IMPORTO
END
BUTTON DLG_CANCEL 10 2
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT -33 -1 ""
PROMPT 3 1 ""
END
ENDPAGE