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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :iniziata modifica globale ai movimenti analitici e alla stampa del bilancio di commessa


git-svn-id: svn://10.65.10.50/trunk@18834 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-05-08 11:27:47 +00:00
parent fa8e32d3ac
commit 77a26c798c
12 changed files with 479 additions and 234 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ca/ca2100.cpp
View File

@ -930,7 +930,7 @@ void TMovanal_app::write_rows(const TMask& m)
mov.destroy_rows(); mov.destroy_rows();
// Scandisce lo sheet e riempie il recarray // Scandisce lo sheet e riempie il recarray
TSheet_field& sheet = _msk->sfield(F_RIGHE); TSheet_field& sheet = m.sfield(F_RIGHE);
FOR_EACH_SHEET_ROW(sheet, i, row) FOR_EACH_SHEET_ROW(sheet, i, row)
{ {
const real dare = row->get(0), avere = row->get(); const real dare = row->get(0), avere = row->get();
@ -939,7 +939,8 @@ void TMovanal_app::write_rows(const TMask& m)
TRectype& rec = mov.new_row(); // Crea una riga nuova TRectype& rec = mov.new_row(); // Crea una riga nuova
_msk->row2rec(i, rec); _msk->row2rec(i, rec);
}
} //FOR_EACH_SHEET...
} }
void TMovanal_app::read_rows(const TMask& m) void TMovanal_app::read_rows(const TMask& m)

3
ca/ca2100a.h
View File

@ -4,8 +4,7 @@
#define F_DATAREG 204 #define F_DATAREG 204
#define F_DATACOMP 205 #define F_DATACOMP 205
#define F_DATADOC 206 #define F_DATADOC 206
#define F_CODDITTA 207 #define F_AUTOFCOMP 207
#define F_RAGSOC 208
#define F_TIPODOC 209 #define F_TIPODOC 209
#define F_SEZIONE 210 #define F_SEZIONE 210
#define F_TOTDOC 211 #define F_TOTDOC 211

113
ca/ca2100a.uml
View File

@ -8,47 +8,23 @@ ENDPAGE
PAGE "Testata" 0 0 0 2 PAGE "Testata" 0 0 0 2
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 1 1 "@bDitta" PROMPT 1 1 "@bTestata"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 2 ""
FLAGS "DFR"
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50 52
BEGIN
PROMPT 9 2 "Ragione sociale "
FLAGS "D"
END
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 4 "@bTestata"
END END
LIST F_TIPO 1 25 LIST F_TIPO 1 25
BEGIN BEGIN
PROMPT 2 5 "Tipo movimento " PROMPT 2 2 "Tipo movimento "
ITEM " |Normale" ITEM " |Normale"
MESSAGE RESET,F_DATAFCOMP|HIDE,F_DATAFCOMP
ITEM "P|Preventivo" ITEM "P|Preventivo"
MESSAGE SHOW,F_DATAFCOMP
ITEM "V|Variazione preventivo" ITEM "V|Variazione preventivo"
MESSAGE SHOW,F_DATAFCOMP
FIELD TIPOMOV FIELD TIPOMOV
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 2 6 "Data di registrazione " PROMPT 2 3 "Data di registrazione "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD DATAREG FIELD DATAREG
FLAGS "A" FLAGS "A"
@ -59,7 +35,7 @@ END
NUMBER F_NUMREG 7 NUMBER F_NUMREG 7
BEGIN BEGIN
PROMPT 54 5 "Movimento n. " PROMPT 54 2 "Movimento n. "
USE LF_MOVANA SELECT TIPOMOV==#F_TIPO USE LF_MOVANA SELECT TIPOMOV==#F_TIPO
INPUT NUMREG F_NUMREG INPUT NUMREG F_NUMREG
DISPLAY "Numero@7" NUMREG DISPLAY "Numero@7" NUMREG
@ -79,7 +55,7 @@ END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 2 7 "Data di competenza " PROMPT 2 4 "Data di competenza "
FIELD DATACOMP FIELD DATACOMP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "La data di competenza non appartiene ad un esercizio valido" WARNING "La data di competenza non appartiene ad un esercizio valido"
@ -87,43 +63,42 @@ END
DATE F_DATAFCOMP DATE F_DATAFCOMP
BEGIN BEGIN
PROMPT 43 7 "Data di fine competenza " PROMPT 43 4 "Data di fine competenza "
FIELD DATAFCOMP FIELD DATAFCOMP
WARNING "La data di fine competenza non puo' essere anteriore alla data di competenza" WARNING "La data di fine competenza non puo' essere anteriore alla data di competenza"
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 54 6 "Esercizio " PROMPT 54 3 "Esercizio "
FIELD ANNOES FIELD ANNOES
MESSAGE COPY,F_ANNOES2 MESSAGE COPY,F_ANNOES2
FLAGS "DG" FLAGS "DG"
END END
BOOLEAN F_AUTOFCOMP
BEGIN
PROMPT 2 5 "Fine competenza coincidente con fine commessa di ogni riga"
MESSAGE FALSE ENABLE,F_DATAFCOMP
MESSAGE TRUE CLEAR,F_DATAFCOMP
FIELD AUTOFCOMP
END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 2 8 "Descrizione " PROMPT 2 6 "Descrizione "
FIELD DESCR FIELD DESCR
MESSAGE COPY,F_DESCR2 MESSAGE COPY,F_DESCR2
END END
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 1 10 "@bPrima nota" PROMPT 1 8 "@bDati contabili"
END
NUMBER F_NUMREGCG 7
BEGIN
PROMPT 2 11 "Numero "
FLAGS "DG"
FIELD NUMREGCG
MESSAGE EMPTY ENABLE,F_TIPO|HIDE,F_RESET
MESSAGE DISABLE,F_TIPO|SHOW,F_RESET
END END
STRINGA F_CODCAUS 3 STRINGA F_CODCAUS 3
BEGIN BEGIN
PROMPT 19 11 "Causale " PROMPT 2 9 "Causale "
USE LF_CAUSALI SELECT MOVIND!='' USE LF_CAUSALI SELECT MOVIND!=''
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
@ -138,7 +113,7 @@ END
STRINGA F_DESCAUS 50 40 STRINGA F_DESCAUS 50 40
BEGIN BEGIN
PROMPT 34 11 "" PROMPT 20 9 ""
USE LF_CAUSALI KEY 2 SELECT MOVIND!='' USE LF_CAUSALI KEY 2 SELECT MOVIND!=''
INPUT DESCR F_DESCAUS INPUT DESCR F_DESCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -150,7 +125,7 @@ END
STRING F_TIPODOC 2 STRING F_TIPODOC 2
BEGIN BEGIN
PROMPT 2 12 "Documento: Tipo " PROMPT 2 10 "Documento: Tipo "
USE %TPD USE %TPD
INPUT CODTAB F_TIPODOC INPUT CODTAB F_TIPODOC
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -163,7 +138,7 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 27 12 "Numero " PROMPT 28 10 "Numero "
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD NUMDOC FIELD NUMDOC
GROUP 5 GROUP 5
@ -171,55 +146,45 @@ END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 48 12 "Data " PROMPT 47 10 "Data "
FIELD DATADOC FIELD DATADOC
GROUP 5 GROUP 5
END END
NUMBER F_NUMREGCG 7
BEGIN
PROMPT 2 11 "N. reg. contabile "
FLAGS "DG"
FIELD NUMREGCG
MESSAGE EMPTY ENABLE,F_TIPO|HIDE,F_RESET
MESSAGE DISABLE,F_TIPO|SHOW,F_RESET
END
LIST F_TIPOCF 1 11 LIST F_TIPOCF 1 11
BEGIN BEGIN
PROMPT 2 13 "Tipo " PROMPT 2 12 "Tipo "
FIELD TIPOCF FLAGS "DG"
FLAGS "G"
GROUP 5
ITEM "C|Clienti" ITEM "C|Clienti"
ITEM "F|Fornitori" ITEM "F|Fornitori"
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 25 13 "Codice " PROMPT 25 12 "Codice "
FIELD CODCF FLAGS "DG"
FLAGS "G"
GROUP 5
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
DISPLAY "Codice@6R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV
OUTPUT F_TIPOCF TIPOCF OUTPUT F_TIPOCF TIPOCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOCCF RAGSOC OUTPUT F_RAGSOCCF RAGSOC
HELP "Codice relativo al cliente o fornitore"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_RAGSOCCF 50 STRING F_RAGSOCCF 50
BEGIN BEGIN
PROMPT 2 14 "Ragione Sociale " PROMPT 2 13 "Ragione Sociale "
USE LF_CLIFO KEY 2 FLAGS "D"
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_RAGSOCCF
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice@R" CODCF
DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF
FLAGS "G"
GROUP 5
CHECKTYPE NORMAL
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4

16
ca/ca3800.cpp
View File

@ -85,6 +85,22 @@ bool TPrint_bilancio_cms_mask::on_field_event(TOperable_field& o, TField_event e
return error_box(TR("Impossibile trovare un report compatibile")); return error_box(TR("Impossibile trovare un report compatibile"));
} }
break; break;
case F_ESERCIZIO:
case F_FINE_ES:
if (e == fe_init || e == fe_modify || e == fe_close)
{
const int anno = get_int(F_ESERCIZIO);
if (anno > 0)
{
TEsercizi_contabili esc;
TDate datainiesc, datafinesc;
esc.code2range(anno, datainiesc, datafinesc);
const TDate datafine = get(F_FINE_ES);
if (datafine < datainiesc || datafine > datafinesc)
set(F_FINE_ES, datafinesc);
}
}
break;
default: default:
break; break;
} }

50
ca/ca3800.uml
View File

@ -11,25 +11,9 @@ BEGIN
PROMPT 0 1 "" PROMPT 0 1 ""
END END
NUMBER F_DITTA 5
BEGIN
PROMPT 1 2 "Ditta "
FLAGS "DF"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 20 2 ""
USE LF_NDITTE
INPUT CODDITTA F_DITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
FLAGS "D"
END
NUMBER F_ESERCIZIO 4 NUMBER F_ESERCIZIO 4
BEGIN BEGIN
PROMPT 1 3 "Esercizio " PROMPT 1 2 "Esercizio "
FLAGS "AZ" FLAGS "AZ"
USE ESC USE ESC
INPUT CODTAB F_ESERCIZIO INPUT CODTAB F_ESERCIZIO
@ -38,20 +22,25 @@ BEGIN
DISPLAY "Fine esercizio" D1 DISPLAY "Fine esercizio" D1
OUTPUT F_ESERCIZIO CODTAB OUTPUT F_ESERCIZIO CODTAB
OUTPUT F_INIZIO_ES D0 OUTPUT F_INIZIO_ES D0
OUTPUT F_FINE_ES D1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
DATE F_INIZIO_ES DATE F_INIZIO_ES
BEGIN BEGIN
PROMPT 20 3 "Inizio " PROMPT 20 2 "Inizio "
FLAGS "D" FLAGS "D"
END END
DATE F_FINE_ES DATE F_FINE_ES
BEGIN BEGIN
PROMPT 44 3 "Fine " PROMPT 44 2 "Fine "
FLAGS "D" END
BOOLEAN F_VITAINTERA
BEGIN
PROMPT 1 3 "Inclusi esercizi successivi (vita intera)"
MESSAGE FALSE ENABLE,F_FINE_ES
MESSAGE TRUE CLEAR,F_FINE_ES
END END
DATE F_DATASTAMPA DATE F_DATASTAMPA
@ -67,7 +56,7 @@ END
LISTBOX F_TIPOSTAMPA 1 30 LISTBOX F_TIPOSTAMPA 1 30
BEGIN BEGIN
PROMPT 1 7 "Stampa" PROMPT 1 7 "Stampa "
ITEM "0|Normale" ITEM "0|Normale"
MESSAGE CLEAR,F_FASE|CLEAR,F_CDC MESSAGE CLEAR,F_FASE|CLEAR,F_CDC
ITEM "1|Dettaglia per Fase" ITEM "1|Dettaglia per Fase"
@ -97,25 +86,20 @@ BEGIN
OUTPUT F_CDC CODCOSTO OUTPUT F_CDC CODCOSTO
END END
BOOLEAN F_VITAINTERA RADIOBUTTON F_TIPOSTIMA 1 30
BEGIN BEGIN
PROMPT 1 11 "Includere esercizi successivi (vita intera)" PROMPT 45 9 "Tipo di stima Costi\Ricavi"
END ITEM "T|C prev.\R prev. (Tempo)"
RADIOBUTTON F_TIPOSTIMA 1 32
BEGIN
PROMPT 44 9 "Tipo di stima"
ITEM "T|Costi prev.\Ricavi prev. (Tempo)"
MESSAGE SHOW,F_TIPODETR|ENABLE,F_TIPODETR MESSAGE SHOW,F_TIPODETR|ENABLE,F_TIPODETR
ITEM "C|Costi cons.\Ricavi prev." ITEM "C|C cons.\R prev."
MESSAGE CLEAR,F_TIPODETR|HIDE,F_TIPODETR MESSAGE CLEAR,F_TIPODETR|HIDE,F_TIPODETR
ITEM "R|Costi cons.\Ricavi cons." ITEM "R|C cons.\R cons."
MESSAGE CLEAR,F_TIPODETR|HIDE,F_TIPODETR MESSAGE CLEAR,F_TIPODETR|HIDE,F_TIPODETR
END END
BOOLEAN F_TIPODETR BOOLEAN F_TIPODETR
BEGIN BEGIN
PROMPT 1 12 "Utilizzare consuntivi per le detrazioni " PROMPT 1 10 "Utilizzare consuntivi per le detrazioni "
END END
GROUPBOX F_PRE0 76 5 GROUPBOX F_PRE0 76 5

412
ca/ca3883.cpp
View File

@ -4,6 +4,8 @@
#include "calib02.h" #include "calib02.h"
#include "ca3883.h" #include "ca3883.h"
#include "movana.h"
#include "rmovana.h"
#include "panapdc.h" #include "panapdc.h"
#include "pconana.h" #include "pconana.h"
#include "commesse.h" #include "commesse.h"
@ -607,7 +609,7 @@ void TPrint_saldana_recordset::parse_bill(const TString& bill, TString& conto) c
conto = bill.mid(prefix_len, conto_end); conto = bill.mid(prefix_len, conto_end);
} }
int TPrint_saldana_recordset::estrai_saldi(const TRecordset& saldana, const int indbil, int TPrint_saldana_recordset::estrai_saldi(const TRectype& saldana, const int indbil,
TImporto& saldo, TImporto& saldop, const bool cms_detraz) const TImporto& saldo, TImporto& saldop, const bool cms_detraz) const
{ {
int flag = 0; int flag = 0;
@ -622,8 +624,7 @@ int TPrint_saldana_recordset::estrai_saldi(const TRecordset& saldana, const int
{ {
case 'R': //CostiConsuntivi RicaviConsuntivi (Cc/Rc) case 'R': //CostiConsuntivi RicaviConsuntivi (Cc/Rc)
{ {
const TImporto imp_saldo(saldana.get(SALDANA_SEZIONE).as_string()[0], const TImporto imp_saldo(saldana.get_char(SALDANA_SEZIONE), saldana.get_real(SALDANA_SALDO));
saldana.get(SALDANA_SALDO).as_real());
if (!imp_saldo.is_zero()) if (!imp_saldo.is_zero())
{ {
if (indbil == 3) //indbil=3 costi if (indbil == 3) //indbil=3 costi
@ -644,17 +645,14 @@ int TPrint_saldana_recordset::estrai_saldi(const TRecordset& saldana, const int
{ {
if (indbil == 3) //costi if (indbil == 3) //costi
{ {
const TImporto imp_saldo(saldana.get(SALDANA_SEZIONE).as_string()[0], const TImporto imp_saldo(saldana.get_char(SALDANA_SEZIONE), saldana.get_real(SALDANA_SALDO));
saldana.get(SALDANA_SALDO).as_real());
saldo = imp_saldo; saldo = imp_saldo;
flag |= saldo.is_zero() ? 0 : 1; flag |= saldo.is_zero() ? 0 : 1;
} }
else //indbil=4 ricavi else //indbil=4 ricavi
{ {
const TImporto imp_saldop(saldana.get(SALDANA_SEZIONEP).as_string()[0], const TImporto imp_saldop(saldana.get_char(SALDANA_SEZIONEP), saldana.get_real(SALDANA_SALDOP));
saldana.get(SALDANA_SALDOP).as_real()); const TImporto imp_saldov(saldana.get_char(SALDANA_SEZIONEV), saldana.get_real(SALDANA_SALDOV));
const TImporto imp_saldov(saldana.get(SALDANA_SEZIONEV).as_string()[0],
saldana.get(SALDANA_SALDOV).as_real());
saldop = imp_saldop; saldop = imp_saldop;
saldop += imp_saldov; saldop += imp_saldov;
flag |= saldop.is_zero() ? 0 : 2; flag |= saldop.is_zero() ? 0 : 2;
@ -667,17 +665,14 @@ int TPrint_saldana_recordset::estrai_saldi(const TRecordset& saldana, const int
//..usando i consuntivi (Adolf rikiesten)... //..usando i consuntivi (Adolf rikiesten)...
if (cms_detraz && _tipodetr) if (cms_detraz && _tipodetr)
{ {
const TImporto imp_saldo(saldana.get(SALDANA_SEZIONE).as_string()[0], const TImporto imp_saldo(saldana.get_char(SALDANA_SEZIONE), saldana.get_real(SALDANA_SALDO));
saldana.get(SALDANA_SALDO).as_real());
saldo = imp_saldo; saldo = imp_saldo;
flag |= saldo.is_zero() ? 0 : 1; flag |= saldo.is_zero() ? 0 : 1;
} }
else //in tutti gli altri casi vanno bene i preventivi else //in tutti gli altri casi vanno bene i preventivi
{ {
const TImporto imp_saldop(saldana.get(SALDANA_SEZIONEP).as_string()[0], const TImporto imp_saldop(saldana.get_char(SALDANA_SEZIONEP), saldana.get_real(SALDANA_SALDOP));
saldana.get(SALDANA_SALDOP).as_real()); const TImporto imp_saldov(saldana.get_char(SALDANA_SEZIONEV), saldana.get_real(SALDANA_SALDOV));
const TImporto imp_saldov(saldana.get(SALDANA_SEZIONEV).as_string()[0],
saldana.get(SALDANA_SALDOV).as_real());
saldop = imp_saldop; saldop = imp_saldop;
saldop += imp_saldov; saldop += imp_saldov;
flag |= saldop.is_zero() ? 0 : 2; flag |= saldop.is_zero() ? 0 : 2;
@ -690,15 +685,12 @@ int TPrint_saldana_recordset::estrai_saldi(const TRecordset& saldana, const int
// stampa stima ricavi ca3900 (_tipo=9) // stampa stima ricavi ca3900 (_tipo=9)
else else
{ {
const TImporto imp_saldo(saldana.get(SALDANA_SEZIONE).as_string()[0], const TImporto imp_saldo(saldana.get_char(SALDANA_SEZIONE), saldana.get_real(SALDANA_SALDO));
saldana.get(SALDANA_SALDO).as_real());
saldo = imp_saldo; saldo = imp_saldo;
flag |= saldo.is_zero() ? 0 : 1; flag |= saldo.is_zero() ? 0 : 1;
const TImporto imp_saldop(saldana.get(SALDANA_SEZIONEP).as_string()[0], const TImporto imp_saldop(saldana.get_char(SALDANA_SEZIONEP), saldana.get_real(SALDANA_SALDOP));
saldana.get(SALDANA_SALDOP).as_real()); const TImporto imp_saldov(saldana.get_char(SALDANA_SEZIONEV), saldana.get_real(SALDANA_SALDOV));
const TImporto imp_saldov(saldana.get(SALDANA_SEZIONEV).as_string()[0],
saldana.get(SALDANA_SALDOV).as_real());
saldop = imp_saldop; saldop = imp_saldop;
saldop += imp_saldov; saldop += imp_saldov;
flag |= saldop.is_zero() ? 0 : 2; flag |= saldop.is_zero() ? 0 : 2;
@ -762,7 +754,7 @@ TAssoc_array& TPrint_saldana_recordset::get_row(TAssoc_array& cms, const char* c
//for ca3800 only! //for ca3800 only!
void TPrint_saldana_recordset::aggiorna_importo(TAssoc_array& riga_array, const TString& livello, void TPrint_saldana_recordset::aggiorna_importo(TAssoc_array& riga_array, const TString& livello,
const int indbil, const TRecordset& saldana, const bool inverti, const bool cms_detraz) const const int indbil, const TRectype& saldana, const bool inverti, const bool cms_detraz) const
{ {
TString* str_imp = (TString*)riga_array.objptr(livello); TString* str_imp = (TString*)riga_array.objptr(livello);
if (str_imp == NULL) if (str_imp == NULL)
@ -864,7 +856,7 @@ void TPrint_saldana_recordset::incrementa_importo(TAssoc_array& riga_array,
//metodo usato solo per la stima ricavi ca3900 (_tipo=9) //metodo usato solo per la stima ricavi ca3900 (_tipo=9)
void TPrint_saldana_recordset::aggiorna_importi(TAssoc_array& riga_array, void TPrint_saldana_recordset::aggiorna_importi(TAssoc_array& riga_array,
const int indbil, const TRecordset& saldana, const bool inverti) const const int indbil, const TRectype& saldana, const bool inverti) const
{ {
TString8 livello; TString8 livello;
@ -886,45 +878,14 @@ void TPrint_saldana_recordset::aggiorna_importi(TAssoc_array& riga_array,
} }
} }
void TPrint_saldana_recordset::create_lines_to_print(const TString& query) //calcola la durata di una commessa e le sue date di inizio e fine
long TPrint_saldana_recordset::durata_commessa(const TRectype& rec_commesse, const TDate& datafinesc,
TDate& dataini, TDate& datafine) const
{ {
//prende le date di inizio e fine dell'eserizio selezionato sulla maschera //data iniziale commessa
TEsercizi_contabili esc; dataini = rec_commesse.get(COMMESSE_DATAINIZIO);
TDate datainiesc, datafinesc;
esc.code2range(_anno, datainiesc, datafinesc);
//deve procedere al confronto tra le date inizio-fine esercizio e quelle inizio-fine commessa..
//..per spostare il record in esame nell'array corretto
TAssoc_array cms[NUM_LEVELS];
TISAM_recordset saldana(query);
const long saldana_items = saldana.items();
TProgind pi(saldana_items, "Scansione saldi...", true, true);
for (bool ok = saldana.move_first(); ok; ok = saldana.move_next())
{
//progind tanto per gradire
pi.addstatus(1);
if (pi.iscancelled())
break;
const TString& codconto = saldana.get(SALDANA_CONTO).as_string();
//trova l'indicatore di bilancio
TString80 conto_anale;
const int indbil = _indicatori.get_indbil(codconto, conto_anale);
//solo i Costi(3) ed i Ricavi(4) devono essere considerati per la stampa
if (indbil == 3 || indbil == 4)
{
//estrae i dati di commessa e le date relative;le date servono successivamente per stabilire...
//..le sezioni in cui compariranno le commesse nella stampa
const TString& codcms = saldana.get(SALDANA_COMMESSA).as_string();
const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
const TDate dataini = rec_commesse.get(COMMESSE_DATAINIZIO);
//per la data fine deve tener conto di eventuali proroghe.. //per la data fine deve tener conto di eventuali proroghe..
TDate datafine;
if (rec_commesse.get_bool(COMMESSE_PROROGA) && rec_commesse.get(COMMESSE_DATAPROR).ok()) if (rec_commesse.get_bool(COMMESSE_PROROGA) && rec_commesse.get(COMMESSE_DATAPROR).ok())
datafine = rec_commesse.get(COMMESSE_DATAPROR); datafine = rec_commesse.get(COMMESSE_DATAPROR);
else else
@ -938,14 +899,18 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
datafine.addyear(1); datafine.addyear(1);
} }
//gruppo e conto servono solo per il caso _tipo=8 ma vanno dichiarati e ricavati.. return datafine - dataini + 1;
//..qui in modo che siano a disposizione delle commesse del cazzo poco sotto }
const char* gruppo = indbil == 3 ? "COSTI" : "RICAVI";
TString80 conto;
parse_bill(conto_anale, conto);
TImporto saldo, saldop; //trova la sezione del report in cui ricade in base alle date
const int flag = estrai_saldi(saldana, indbil, saldo, saldop, false); int TPrint_saldana_recordset::ricava_sezione_di_stampa(const TRectype& rec_commesse,
const TDate& datainiesc, const TDate& datafinesc) const
{
int indice = -1;
//data iniziale commessa
TDate dataini, datafine;
durata_commessa(rec_commesse, datafinesc, dataini, datafine);
//Le commesse vengono suddivise in varie sezioni in base alle loro date di inizio/fine/proroga.. //Le commesse vengono suddivise in varie sezioni in base alle loro date di inizio/fine/proroga..
//..e al fatto che possono essere di appoggio (Adolf rikiesten!) secondo lo schema: //..e al fatto che possono essere di appoggio (Adolf rikiesten!) secondo lo schema:
@ -963,7 +928,7 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
//indice e' il parametro che stabilisce in quale sezione del report viene stampata la commessa //indice e' il parametro che stabilisce in quale sezione del report viene stampata la commessa
//se la commessa termina prima della fine dell'esercizio selezionato -> indice 0, altrimenti.. //se la commessa termina prima della fine dell'esercizio selezionato -> indice 0, altrimenti..
//..indice 2 //..indice 2
int indice = datafine <= datafinesc ? 0 : 2; indice = datafine <= datafinesc ? 0 : 2;
//se poi la commessa inizia dopo la data inizio esercizio selezionato -> l'indice va incrementato.. //se poi la commessa inizia dopo la data inizio esercizio selezionato -> l'indice va incrementato..
//..di una unita' (viene spostata nella sezione di stampa successiva) //..di una unita' (viene spostata nella sezione di stampa successiva)
if (dataini >= datainiesc) if (dataini >= datainiesc)
@ -977,11 +942,14 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
if (cms_appoggio) if (cms_appoggio)
indice = 4; indice = 4;
} }
}
return indice;
}
TString TPrint_saldana_recordset::ricava_chiave_cdc_fase(const TString& codcms, const TString& fase, const TString& cdc) const
{
//ci sono filtri o raggruppamenti per fase o centro di costo? //ci sono filtri o raggruppamenti per fase o centro di costo?
const TString& fase = saldana.get(SALDANA_FASE).as_string(); TString chiave = codcms;
const TString& cdc = saldana.get(SALDANA_COSTO).as_string();
TString80 chiave = codcms;
//selezione fasi solo su bilancio commessa (_tipo=8) //selezione fasi solo su bilancio commessa (_tipo=8)
if (_tipo == 8 && (_tipostampa >= 1 && _tipostampa <= 3)) if (_tipo == 8 && (_tipostampa >= 1 && _tipostampa <= 3))
{ {
@ -1002,6 +970,78 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
chiave << '|' << cdc; //dettaglia x cdc chiave << '|' << cdc; //dettaglia x cdc
} }
} }
return chiave;
}
const TDate TPrint_saldana_recordset::calcola_min_datacomp(const TDate& datainiesc, const TDate& datafinesc) const
{
TDate data_min_comp = datainiesc;
TISAM_recordset recset("USE COMMESSE"); //\nSELECT BETWEEN(DATAFINE,#DATAINIESC,0)||BETWEEN(DATAPROR,#DATAINIESC,0)||(DATAFINE='')");
for (bool ok = recset.move_first(); ok; ok = recset.move_next())
{
TDate dataini, datafine;
durata_commessa(recset.cursor()->curr(), datafinesc, dataini, datafine);
if (datafine >= datainiesc && dataini < data_min_comp)
data_min_comp = dataini;
}
return data_min_comp;
}
//aggiorna l'arrayone cms con i saldana
void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc,
const TString& query)
{
TISAM_recordset saldana_set(query);
const TRectype& saldana = saldana_set.cursor()->curr();
const long saldana_items = saldana_set.items();
TProgind pi(saldana_items, "Scansione saldi...", true, true);
for (bool ok = saldana_set.move_first(); ok; ok = saldana_set.move_next())
{
//progind tanto per gradire
pi.addstatus(1);
if (pi.iscancelled())
break;
const TString& codconto = saldana.get(SALDANA_CONTO);
//trova l'indicatore di bilancio
TString80 conto_anale;
const int indbil = _indicatori.get_indbil(codconto, conto_anale);
//solo i Costi(3) ed i Ricavi(4) devono essere considerati per la stampa
if (indbil == 3 || indbil == 4)
{
//gruppo e conto servono solo per il caso _tipo=8 ma vanno dichiarati e ricavati..
//..qui in modo che siano a disposizione delle commesse del cazzo poco sotto
const char* gruppo = indbil == 3 ? "COSTI" : "RICAVI";
TString80 conto;
parse_bill(conto_anale, conto);
TImporto saldo, saldop;
const int flag = estrai_saldi(saldana, indbil, saldo, saldop, false);
//estrae i dati di commessa e le date relative;le date servono successivamente per stabilire...
//..le sezioni in cui compariranno le commesse nella stampa
const TString& codcms = saldana.get(SALDANA_COMMESSA);
const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
//indice: indica la sezione di report in cui apparariranno i valori!
const int indice = ricava_sezione_di_stampa(rec_commesse, datainiesc, datafinesc);
//e' inutile considerare le commesse terminate prima dell'esercizio selezionato..
//..cioe' nel passato oppure che iniziano nel futuro! Solo le commesse con indice non..
//..negativo sopravvivono!
if (indice >= 0)
{
//ci sono filtri o raggruppamenti per fase o centro di costo?
const TString& fase = saldana.get(SALDANA_FASE);
const TString& cdc = saldana.get(SALDANA_COSTO);
//ricava la chiave completa per l'assoc_array comprendendo eventuali fasi e/o cdc
TString chiave = ricava_chiave_cdc_fase(codcms, fase, cdc);
//riempie le righe degli array da mandare poi in stampa //riempie le righe degli array da mandare poi in stampa
//dapprima le righe normali.. //dapprima le righe normali..
@ -1035,15 +1075,12 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
//RIGHE COMMESSA DETRAZIONE: esistono solo se la commessa e' iniziata prima dell'anno //RIGHE COMMESSA DETRAZIONE: esistono solo se la commessa e' iniziata prima dell'anno
//selezionato e se ha a che fare con quello in corso,quindi l'indice e' 0 o 2 //selezionato e se ha a che fare con quello in corso,quindi l'indice e' 0 o 2
if (datafine >= datainiesc && dataini < datainiesc) //indice è stato ricavato un tot di righe addietro...
if (indice == 0 || indice == 2)
{ {
//indice e' il parametro che stabilisce in quale sezione del report viene stampata la commessa
//se la commessa termina prima della fine dell'esercizio selezionato -> indice 0, altrimenti..
//..indice 2
const int indice = datafine <= datafinesc ? 0 : 2;
//aggiorna il record speciale con la somma dei saldi con anno anteriore a quello.. //aggiorna il record speciale con la somma dei saldi con anno anteriore a quello..
//..selezionato sulla maschera (CRPA request) //..selezionato sulla maschera (CRPA request)
const int anno = saldana.get(SALDANA_ANNO).as_int(); const int anno = saldana.get_int(SALDANA_ANNO);
if (anno < _anno) if (anno < _anno)
{ {
TString16 cazzo_cod; cazzo_cod.format("detr_al_%04d", _anno - 1); TString16 cazzo_cod; cazzo_cod.format("detr_al_%04d", _anno - 1);
@ -1066,8 +1103,216 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
} //if (indbil == 3 ||... } //if (indbil == 3 ||...
} //for(bool ok=saldana.move_first().. } //for(bool ok=saldana.move_first()..
}
//merging dei 5 arrayini cms nell'arrayone _righe da mandare in stampa
//aggiorna l'arrayone cms con le rmovana
void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
{
const TDate min_datacomp = calcola_min_datacomp(datainiesc, datafinesc);
//cerca tutte le rmovana che soddisfano gli innumerevoli parametri
TString query;
query << "USE RMOVANA KEY 3\nJOIN MOVANA INTO NUMREG==NUMREG\n";
switch (_tipostampa)
{
case 1:
case 4:
if (_fase.full())
query << " SELECT CODFASE=\"" << _fase << "\"\n";
break;
case 2:
case 8:
if (_cdc.full())
query << " SELECT CODCCOSTO=\"" << _cdc << "\"\n";
break;
case 3:
if (_fase.full() || _cdc.full())
{
if (_fase.full() && _cdc.full())
query << " SELECT (CODFASE=\"" << _fase << "\")&&(CODCCOSTO=\"" << _cdc << "\")\n";
else
{
if (_fase.full())
query << " SELECT CODFASE=\"" << _fase << "\"\n";
else
query << " SELECT CODCCOSTO=\"" << _cdc << "\"\n";
}
}
break;
}
query << "FROM DATACOMP=#MINDATACOMP\nTO DATACOMP=#DATACALCOLO";
TISAM_recordset recset(query);
recset.set_var("#DATACALCOLO", _datacalcolo);
recset.set_var("#MINDATACOMP", min_datacomp);
const long recset_items = recset.items();
//se ci sono movana che non expirano prima dell'inizio esercizio e la cui datacomp è anteriore a datacalcolo...
if (recset_items > 0)
{
//record correntemente in esame di rmovana e movana
const TRectype& rmovana = recset.cursor()->curr();
const TRectype& movana = recset.cursor()->curr(LF_MOVANA);
//simpatica progind per intrattenere l'utonto
TProgind pi(recset_items, "Scansione movimenti...", true, true);
for (bool ok = recset.move_first(); ok; ok = recset.move_next()) //giro sui vari rmovana...
{
//aggiornamento progind intrattenitiva
pi.addstatus(1);
if (pi.iscancelled())
break;
const char tipomov = movana.get_char(MOVANA_TIPOMOV);
//la data iniziale è la datacomp sulla testata per tutte le righe
const TDate datacomp = movana.get_date(MOVANA_DATACOMP);
const TString& codcms = rmovana.get(RMOVANA_CODCMS);
const TRectype& rec_commesse = cache().get(LF_COMMESSE, codcms);
const int indice = ricava_sezione_di_stampa(rec_commesse, datainiesc, datafinesc);
//solo le righe con commessa buona (indice >= 0) vengono considerate
if (indice >= 0)
{
//ci sono filtri o raggruppamenti per fase o centro di costo?
const TString& fase = rmovana.get(RMOVANA_CODFASE);
const TString& cdc = rmovana.get(RMOVANA_CODCCOSTO);
//se la riga è risultata buona ricava la chiave completa per l'assoc_array comprendendo eventuali..
//..fasi e/o cdc
TString chiave = ricava_chiave_cdc_fase(codcms, fase, cdc);
//calcola la "durata complessiva" della riga, ovvero l'intervallo di tempo per cui essa risulta valida
//la data fine ci fa sudare un pò
//di base è pari a datafcomp di testata (che è sempre esistente, mal che vada è uguale a datacomp)
TDate datafcomp = movana.get_date(MOVANA_DATAFCOMP);
//se invece è un movimento cazzuto con il calcolo automatico della data di morte (dataexpire)...
if (movana.get_bool(MOVANA_AUTOFCOMP))
{
//data del cazzo che serve per non rovinare datacomp, che è la data sulla riga, non quella iniziale di cms
TDate datainicms;
durata_commessa(rec_commesse, datafinesc, datainicms, datafcomp);
}
//finalmente la tanto agognata vita della riga di movana!
//si aggiunge 1 perchè se un movimento ha datacomp=datafcomp (come in generale accade) in realtà..
//..il poveretto vive un giorno, non 0
const long vita_totale_riga = datafcomp - datacomp + 1;
//riproporzionamento dell'importo di riga in base alla frazione di vita di riga interessata
real importo = rmovana.get_real(RMOVANA_IMPORTO);
if (vita_totale_riga > 1)
{
//trova la frazione di vita della riga che interessa l'esercizio corrente
const TDate inizio_inter = fnc_max(datainiesc, datacomp);
const TDate fine_inter = fnc_min(_datacalcolo, datafcomp);
//si aggiunge anche qui 1 per gli stessi motivi della vita_totale
const long vita_frazione_riga = fine_inter - inizio_inter + 1;
//il riproporzionamento vale solo per i movimenti che durano più di 1 giorno e con una vita_frazione..
//..> vita_totale (il contrario sarebbe un errore!). I movimenti tutti nel futuro risultano con..
//..vita_frazione negativa e quindi non sono considerati
//Anche le commesse tutte nel futuro rispetto a datacalcolo danno origine a una vita_frazione negativa..
//..parando il culo al povero programma
if (vita_frazione_riga > 1 && vita_frazione_riga < vita_totale_riga)
{
importo = vita_frazione_riga * importo / vita_totale_riga;
importo.round(2);
}
}
//dopo tutto sto panegirico sul riproporzionamento finalmente si passa ad aggiornare gli array di stampa..
//..con gli importi aggiustati
if (!importo.is_zero())
{
//importo della riga già eventualmente riproporzionato
const TImporto importo_riga(rmovana.get_char(RMOVANA_SEZIONE), importo);
//riga array da aggiungere agli arrayoni da mandare in stampa
TAssoc_array& riga_array = get_row(cms[indice], chiave, indice, codcms, fase, cdc,
rec_commesse.get(COMMESSE_DESCRIZ));
const TString& codconto = rmovana.get(RMOVANA_CODCONTO);
//trova l'indicatore di bilancio
TString80 conto_anale;
const int indbil = _indicatori.get_indbil(codconto, conto_anale);
//solo i Costi(3) ed i Ricavi(4) devono essere considerati per la stampa
if (indbil == 3 || indbil == 4)
{
//gruppo e conto servono solo per il caso _tipo=8 ma vanno dichiarati e ricavati..
//..qui in modo che siano a disposizione delle commesse del cazzo poco sotto
const char* gruppo = indbil == 3 ? "COSTI" : "RICAVI";
TString80 conto;
parse_bill(conto_anale, conto);
TRectype saldana(LF_SALDANA);
saldana.put(SALDANA_ANNO, _anno);
saldana.put(SALDANA_CONTO, conto_anale);
saldana.put(SALDANA_COSTO, cdc);
saldana.put(SALDANA_COMMESSA, codcms);
saldana.put(SALDANA_FASE, fase);
switch(tipomov)
{
case 'P':
saldana.put(SALDANA_SEZIONEP, importo_riga.sezione());
saldana.put(SALDANA_SALDOP, importo_riga.valore());
break;
case 'V':
saldana.put(SALDANA_SEZIONEV, importo_riga.sezione());
saldana.put(SALDANA_SALDOV, importo_riga.valore());
break;
default:
saldana.put(SALDANA_SEZIONE, importo_riga.sezione());
saldana.put(SALDANA_SALDO, importo_riga.valore());
break;
}
//aggiunge gli importi e normalizza
aggiorna_importo(riga_array, gruppo, indbil, saldana);
aggiorna_importo(riga_array, conto, indbil, saldana);
}
}
} //if(indice>=0)...
} //for(bool ok=recset.move_first()...
} //if(recset_items>0...
}
//metodo principale di riempimento degli array da mandare in stampa
void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
{
//ricava date limite di esercizio
TEsercizi_contabili esc;
TDate datainiesc, datafinesc;
esc.code2range(_anno, datainiesc, datafinesc);
//array con le commesse divise sui vari livelli di sezione di stampa
TAssoc_array cms[NUM_LEVELS];
// 1)
// calcolo dei saldi alla data fine esercizio (vale per entrambi i tipi di stampa, ovvero _tipo=8 e _tipo=9)
parse_saldana(cms, datainiesc, datafinesc, query);
// 2)
// calcolo dei saldi ad una data diversa da una data di fine esercizio (saldi alla data di adolfica richiesta)
// serve solo per il bilancio di commessa (_tipo = 8)
if (_tipo == 8)
{
if ((_datacalcolo < datafinesc) && !_vitaintera)
{
parse_rmovana(cms, datainiesc, datafinesc);
} //if((_datacalcolo<datafinesc...
} //if(_tipo==8)...
// 3)
// calcolo dei saldi da documenti non ancora contabilizzati e quindi senza movana e saldana
// 4)
// merging dei 5 arrayini cms nell'arrayone _righe da mandare in stampa
_righe.destroy(); _righe.destroy();
for (int i = 0; i < 5; i++) for (int i = 0; i < 5; i++)
{ {
@ -1126,9 +1371,19 @@ void TPrint_saldana_recordset::requery()
//stampa standard non a vita intera per la 3800 //stampa standard non a vita intera per la 3800
if (!_vitaintera) if (!_vitaintera)
query << "\nTO ANNO=" << _anno; {
TEsercizi_contabili esc;
TDate datainiesc, datafinesc;
esc.code2range(_anno, datainiesc, datafinesc);
query << "\nTO ANNO=";
if (_datacalcolo == datafinesc)
query << _anno;
else
query << (_anno - 1);
}
} //if(_tipo==8.. } //if(_tipo==8..
if (_tipo == 9) if (_tipo == 9)
{ {
query << "\nTO ANNO=" << _anno; //non vanno considerati saldi di esercizi futuri a quello scelto!!! query << "\nTO ANNO=" << _anno; //non vanno considerati saldi di esercizi futuri a quello scelto!!!
@ -1277,6 +1532,7 @@ void TPrint_saldana_recordset::set_filter(const TMask& msk, const TString& curr_
//tira su un po' di parametri dalla maschera... //tira su un po' di parametri dalla maschera...
_anno = msk.get_int(F_ESERCIZIO); _anno = msk.get_int(F_ESERCIZIO);
_datacalcolo = msk.get_date(F_FINE_ES);
//prende anche il prefix //prende anche il prefix
TString80 prefix; TString80 prefix;
for (short id = F_PRE1; id <= F_PRE3 && msk.id2pos(id) > 0; id++) for (short id = F_PRE1; id <= F_PRE3 && msk.id2pos(id) > 0; id++)

16
ca/ca3883.h
View File

@ -67,6 +67,7 @@ class TPrint_saldana_recordset : public TRecordset
int _tipo; int _tipo;
int _anno; int _anno;
TDate _datacalcolo;
int _depth; int _depth;
int _tipostampa; int _tipostampa;
bool _vitaintera; bool _vitaintera;
@ -89,15 +90,24 @@ protected:
virtual const TVariant& get(const char* column_name) const; virtual const TVariant& get(const char* column_name) const;
void parse_bill(const TString& bill, TString& conto) const; void parse_bill(const TString& bill, TString& conto) const;
int estrai_saldi(const TRecordset& saldana, const int indbil, int estrai_saldi(const TRectype& saldana, const int indbil,
TImporto& saldo, TImporto& saldop, const bool cms_detraz) const; TImporto& saldo, TImporto& saldop, const bool cms_detraz) const;
void parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
void parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, const TString& query);
//per il solo ca3800 //per il solo ca3800
void aggiorna_importo(TAssoc_array& riga_array, const TString& livello, const int indbil, void aggiorna_importo(TAssoc_array& riga_array, const TString& livello, const int indbil,
const TRecordset& saldana, const bool inverti = false, const bool cms_detraz = false) const; const TRectype& saldana, const bool inverti = false, const bool cms_detraz = false) const;
real calcola_avanzamento_tempo() const; real calcola_avanzamento_tempo() const;
void create_lines_to_print(const TString& query); void create_lines_to_print(const TString& query);
long durata_commessa(const TRectype& rec_commesse, const TDate& datafinesc, TDate& dataini, TDate& datafine) const;
const TDate calcola_min_datacomp(const TDate& datainiesc, const TDate& datafinesc) const;
int ricava_sezione_di_stampa(const TRectype& rec_commesse, const TDate& datainiesc, const TDate& datafinesc) const;
TString ricava_chiave_cdc_fase(const TString& codcms, const TString& fase, const TString& cdc) const;
//per il solo ca3900 //per il solo ca3900
void aggiorna_importi(TAssoc_array& riga_array, const int indbil, const TRecordset& saldana, void aggiorna_importi(TAssoc_array& riga_array, const int indbil, const TRectype& saldana,
const bool inverti = false) const; const bool inverti = false) const;
void incrementa_importo(TAssoc_array& riga_array, const TString& livello, const int indbil, void incrementa_importo(TAssoc_array& riga_array, const TString& livello, const int indbil,
const TImporto& saldo, const bool inverti) const; const TImporto& saldo, const bool inverti) const;

11
ca/calib01.cpp
View File

@ -12,6 +12,7 @@
#include "calibmsk.h" #include "calibmsk.h"
#include "../cg/cg2103.h" #include "../cg/cg2103.h"
#include "commesse.h"
#include "fasi.h" #include "fasi.h"
#include "movana.h" #include "movana.h"
#include "rmovana.h" #include "rmovana.h"
@ -1483,10 +1484,20 @@ int TAnal_mov::read(TBaseisamfile& f, word op, word lockop)
} }
// Riporta su tutte le righe la data di competenza e l'esercizio dellla testata // Riporta su tutte le righe la data di competenza e l'esercizio dellla testata
//Aggiorna datafcomp e dataexpire sulla testata (dataexpire può dipendere dalle righe se si utilizza il calcolo..
//..automatico di dataexpire in base alle commesse sulle righe! Adolf ne sa una più del Teufel...)
void TAnal_mov::update_datacomp() const void TAnal_mov::update_datacomp() const
{ {
body().renum_key(RMOVANA_ANNOES, get(MOVANA_ANNOES)); body().renum_key(RMOVANA_ANNOES, get(MOVANA_ANNOES));
body().renum_key(RMOVANA_DATACOMP, get(MOVANA_DATACOMP)); body().renum_key(RMOVANA_DATACOMP, get(MOVANA_DATACOMP));
//aggiorna datafcomp (se non specificata deve coincidere con datacomp)
TDate datafcomp = get(MOVANA_DATAFCOMP);
if (!datafcomp.ok())
{
datafcomp = get(MOVANA_DATACOMP);
((TAnal_mov*)this)->put(MOVANA_DATAFCOMP, datafcomp);
}
} }
int TAnal_mov::write(TBaseisamfile& f) const int TAnal_mov::write(TBaseisamfile& f) const

2
ca/f107.dir
View File

@ -1,3 +1,3 @@
107 107
0 0
$movana|0|0|176|0|Movimenti di Analitica||| $movana|0|0|177|0|Movimenti di Analitica|||

3
ca/f107.trr
View File

@ -1,5 +1,5 @@
107 107
22 23
ANNOES|9|4|0|Codice esercizio ANNOES|9|4|0|Codice esercizio
NUMREG|3|7|0|Numero di operazione NUMREG|3|7|0|Numero di operazione
DATAREG|5|8|0|Data operazione DATAREG|5|8|0|Data operazione
@ -22,6 +22,7 @@ DANNO|2|4|0|Documento originale ANNO
DCODNUM|1|4|0|Documento originale CODNUM DCODNUM|1|4|0|Documento originale CODNUM
DNDOC|3|7|0|Documento originale NDOC DNDOC|3|7|0|Documento originale NDOC
DATAFCOMP|5|8|0|Data finale competenza (solo Preventivi e Variazioni) DATAFCOMP|5|8|0|Data finale competenza (solo Preventivi e Variazioni)
AUTOFCOMP|8|1|0|Data fine competenza calcolata in base a fine commessa
3 3
NUMREG| NUMREG|
DATACOMP+NUMREG|X DATACOMP+NUMREG|X

3
ca/f108.trr
View File

@ -16,6 +16,7 @@ CODCCORI|1|20|0|Codice centro di costo originario
CODCMSORI|1|20|0|Codice commessa originario CODCMSORI|1|20|0|Codice commessa originario
CODFASEORI|1|10|0|Codice fase originario CODFASEORI|1|10|0|Codice fase originario
CODCONTORI|1|20|0|Codice conto originario CODCONTORI|1|20|0|Codice conto originario
2 3
NUMREG+NUMRIG| NUMREG+NUMRIG|
CODCONTO+DATACOMP+NUMREG+NUMRIG|X CODCONTO+DATACOMP+NUMREG+NUMRIG|X
DATACOMP+NUMREG+NUMRIG|X

1
ca/movana.h
View File

@ -20,5 +20,6 @@
#define MOVANA_DCODNUM "DCODNUM" #define MOVANA_DCODNUM "DCODNUM"
#define MOVANA_DNDOC "DNDOC" #define MOVANA_DNDOC "DNDOC"
#define MOVANA_DATAFCOMP "DATAFCOMP" #define MOVANA_DATAFCOMP "DATAFCOMP"
#define MOVANA_AUTOFCOMP "AUTOFCOMP"
#endif #endif