Patch level :10.0 992

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001852: 207705 - SRM - data competenza pagamento
Descrizione è richiesto che la data di competenza sulla scheda percipiente venga sempre compilata in automatico con la data del pagamento. Il dato deve rimanere modificabile dall'utente. Questo dovrebbe risolvere il problema delle stampe che attualmente selezionano per data competenza e sembrano non funzionare .


git-svn-id: svn://10.65.10.50/branches/R_10_00@22057 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-05-03 11:15:28 +00:00
parent 6c91f24697
commit 4e24441a11
3 changed files with 43 additions and 22 deletions

View File

@ -1195,8 +1195,24 @@ void TSchedaPercipienti::mask2rel(const TMask& m)
// salva pagamenti
TArray& rows = pags().rows_array();
const int pag_rows = rows.items();
//se trova vuoti i campi mese o anno di competenza vi copia i valori della data sulla riga
//controlla che ci sia l'enter di uscita dalla riga, che il campo data sia pieno
//03/05/2011
if (pag_rows > 0)
{
TRectype& scperc_rec = _rel->curr(LF_SCPERC);
if (scperc_rec.get_int(SPR_MESEC) <= 0 || scperc_rec.get_int(SPR_ANNOC) <= 0)
{
const TDate datapag = pags().cell(0, 0);
scperc_rec.put(SPR_MESEC, datapag.month());
scperc_rec.put(SPR_ANNOC, datapag.year());
}
}
int i;
for (i = 0; i < rows.items(); i++)
for (i = 0; i < pag_rows; i++)
{
TToken_string& row = (TToken_string&)rows[i];
TRectype &r = _rel->pag(i);

View File

@ -144,9 +144,14 @@ BEGIN
HELP "Attivare questo flag per forzare la registrazione anche di dati incongruenti"
END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 3 "@bEstremi documento"
END
DATE F_DATADOC
BEGIN
PROMPT 0 4 "Data "
PROMPT 1 4 "Data "
FIELD LF_SCPERC->DATADOC
WARNING "Manca la data del documento"
CHECKTYPE REQUIRED
@ -154,22 +159,22 @@ END
STRING F_NUMDOC 7
BEGIN
PROMPT 17 4 "Numero "
PROMPT 19 4 "N. "
FIELD LF_SCPERC->NUMDOC
END
CURRENCY F_COMPENS 15
BEGIN
PROMPT 33 4 "Compenso "
PROMPT 30 4 "Compenso "
FIELD LF_SCPERC->COMPENSO
NUM_EXPR {(#THIS!=0) || (#F_SPESE!=0)}
WARNING "Indicare il compenso e/o le spese"
MESSAGE K_TAB, F_TOTDOC
END
CURRENCY F_IVA 15
CURRENCY F_IVA 14
BEGIN
PROMPT 59 4 "Iva "
PROMPT 56 4 "Iva "
FIELD LF_SCPERC->IVA
PICTURE "."
FLAGS "R"
@ -178,7 +183,7 @@ END
CURRENCY F_SPESE 15
BEGIN
PROMPT 0 5 "Spese "
PROMPT 1 5 "Spese "
FIELD LF_SCPERC->SPESE
PICTURE "."
FLAGS "R"
@ -189,7 +194,7 @@ END
CURRENCY F_TOTDOC 15
BEGIN
PROMPT 23 5 "Totale "
PROMPT 30 5 "Totale "
FIELD LF_SCPERC->TOTALE
PICTURE "."
FLAGS "RD"
@ -198,12 +203,12 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 47 5 "Competenza:"
PROMPT 45 7 "Competenza:"
END
NUMBER F_MESECOMP 2
BEGIN
PROMPT 58 5 "Mese "
PROMPT 56 7 "Mese "
FIELD LF_SCPERC->MESEC
NUM_EXPR {(#THIS>=0) && (#THIS<13)}
WARNING "Mese non valido"
@ -213,7 +218,7 @@ END
NUMBER F_ANNOCOMP 4
BEGIN
PROMPT 67 5 "Anno "
PROMPT 65 7 "Anno "
FIELD LF_SCPERC->ANNOC
NUM_EXPR {(#THIS==0)||((#THIS>1900)&&(#THIS<2100))}
WARNING "Anno non valido"
@ -222,19 +227,19 @@ END
NUMBER F_NUMREG 7
BEGIN
PROMPT 2 6 "Registrazione num. "
PROMPT 1 7 "Registrazione n. "
FIELD LF_SCPERC->NUMREG
FLAGS "RD"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bPagamenti"
PROMPT 1 8 "@bPagamenti"
END
SPREADSHEET F_PAGAMENTI_C 0 5
SPREADSHEET F_PAGAMENTI_C 0 7
BEGIN
PROMPT 0 8 ""
PROMPT 0 9 ""
ITEM "Data@10"
ITEM "Compenso@15"
ITEM "Spese@15"
@ -257,9 +262,9 @@ BEGIN
FLAGS "H"
END
SPREADSHEET F_PAGAMENTI_D 0 5
SPREADSHEET F_PAGAMENTI_D 0 7
BEGIN
PROMPT 0 8 ""
PROMPT 0 9 ""
ITEM "Data@10"
ITEM "Compenso@15"
ITEM "CPA@15"
@ -281,12 +286,12 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 14 "@bVersamenti"
PROMPT 1 16 "@bVersamenti"
END
SPREADSHEET F_VERSAMENTI 0 5
SPREADSHEET F_VERSAMENTI
BEGIN
PROMPT 0 15 ""
PROMPT 0 17 ""
ITEM "1015"
ITEM "Data@10"
ITEM "Luogo"

View File

@ -783,7 +783,6 @@ bool TSchedaPercipienti::pag_standard_handler(TMask_field& f, KEY k)
{
if (k == K_TAB || (k == K_ENTER && f.dlg() == 101))
{
// reperisco valori nascosti compilati dalla tabella causali
const real h_PercAssImp = mm.get_real(F_QUOTAIMP);
const real h_PercCassaPrev = mm.get_real(F_CASSA_PREV);
@ -800,7 +799,7 @@ bool TSchedaPercipienti::pag_standard_handler(TMask_field& f, KEY k)
app().from_mask_to_struct(f.mask(), s);
// non proseguo se riga vuota
if (s == c) return TRUE;
if (s == c) return true;
// richiamo calcolo di riga
app().calcola_riga_pag(s,
@ -815,6 +814,7 @@ bool TSchedaPercipienti::pag_standard_handler(TMask_field& f, KEY k)
// riporto valori a maschera
app().from_struct_to_mask(s, f.mask());
}