From 4e24441a114ab48e1e37ee557a43942994c93eac Mon Sep 17 00:00:00 2001 From: luca Date: Tue, 3 May 2011 11:15:28 +0000 Subject: [PATCH] =?UTF-8?q?Patch=20level=20=20=20=20=20=20=20=20=20:10.0?= =?UTF-8?q?=20992=20Files=20correlati=20=20=20=20=20:=20Ricompilazione=20D?= =?UTF-8?q?emo=20:=20[=20]=20Commento=20=20=20=20=20=20=20=20=20=20=20=20:?= =?UTF-8?q?=200001852:=20207705=20-=20SRM=20-=20data=20competenza=20pagame?= =?UTF-8?q?nto=20Descrizione=20=C3=A8=20richiesto=20che=20la=20data=20di?= =?UTF-8?q?=20competenza=20sulla=20scheda=20percipiente=20venga=20sempre?= =?UTF-8?q?=20compilata=20in=20automatico=20con=20la=20data=20del=20pagame?= =?UTF-8?q?nto.=20Il=20dato=20deve=20rimanere=20modificabile=20dall'utente?= =?UTF-8?q?.=20Questo=20dovrebbe=20risolvere=20il=20problema=20delle=20sta?= =?UTF-8?q?mpe=20che=20attualmente=20selezionano=20per=20data=20competenza?= =?UTF-8?q?=20e=20sembrano=20non=20funzionare=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn://10.65.10.50/branches/R_10_00@22057 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- m770/770100.cpp | 18 +++++++++++++++++- m770/770100b.uml | 43 ++++++++++++++++++++++++------------------- m770/770102.cpp | 4 ++-- 3 files changed, 43 insertions(+), 22 deletions(-) diff --git a/m770/770100.cpp b/m770/770100.cpp index d1170c2ee..a87ded0ad 100755 --- a/m770/770100.cpp +++ b/m770/770100.cpp @@ -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); diff --git a/m770/770100b.uml b/m770/770100b.uml index 19091d193..2b81f797e 100755 --- a/m770/770100b.uml +++ b/m770/770100b.uml @@ -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" diff --git a/m770/770102.cpp b/m770/770102.cpp index 766004ae8..d8fb890f8 100755 --- a/m770/770102.cpp +++ b/m770/770102.cpp @@ -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()); + }