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:
parent
6c91f24697
commit
4e24441a11
@ -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);
|
||||
|
@ -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"
|
||||
|
@ -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());
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user