diff --git a/cg/cg5200.cpp b/cg/cg5200.cpp index 520c57f0c..76c85d854 100755 --- a/cg/cg5200.cpp +++ b/cg/cg5200.cpp @@ -109,7 +109,6 @@ class TSaldibrowse_application : public TBrowse_application { TMask* _msk; - TLocalisamfile* _clifo; TCursor * _cur; TRelation * _rel,* _rel1; TRiga_array _riga; @@ -150,11 +149,57 @@ bool TSaldibrowse_application::sheet_action(TSheet_field& s, int r, KEY k) void TSaldibrowse_application::init_query_mode(TMask& m) { m.disable(DLG_FINDREC); + TString t(m.get(F_TIPOCF)); + if (t == "C") + { + m.show(F_DESCR_CLIENTE); + m.enable(F_DESCR_CLIENTE); + m.hide(F_DESCR_FORN); + m.hide(F_DESCR_CONTO); + } + else + if (t == "F") + { + m.hide(F_DESCR_CLIENTE); + m.show(F_DESCR_FORN); + m.enable(F_DESCR_FORN); + m.hide(F_DESCR_CONTO); + } + else + { + m.hide(F_DESCR_CLIENTE); + m.hide(F_DESCR_FORN); + m.show(F_DESCR_CONTO); + m.enable(F_DESCR_CONTO); + } } void TSaldibrowse_application::init_modify_mode(TMask& m) { + TString t(m.get(F_TIPOCF)); m.disable(DLG_FINDREC); + if (t == "C") + { + m.show(F_DESCR_CLIENTE); + m.disable(F_DESCR_CLIENTE); + m.hide(F_DESCR_FORN); + m.hide(F_DESCR_CONTO); + } + else + if (t == "F") + { + m.hide(F_DESCR_CLIENTE); + m.show(F_DESCR_FORN); + m.disable(F_DESCR_FORN); + m.hide(F_DESCR_CONTO); + } + else + { + m.hide(F_DESCR_CLIENTE); + m.hide(F_DESCR_FORN); + m.show(F_DESCR_CONTO); + m.disable(F_DESCR_CONTO); + } } bool TSaldibrowse_application::fai_filtro() @@ -236,9 +281,9 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key) int gruppo = m.get_int(F_GRUPPO); int conto = m.get_int(F_CONTO); const long sottoconto = atol(f.get()); + TLocalisamfile pconti(LF_PCON); const short id = f.dlg(); - TLocalisamfile& pconti = app().get_relation()->lfile(); if (sottoconto != 0) { @@ -283,12 +328,8 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key) else m.reset(F_DESCR_CONTO); } - if (stop) - { - f.set_focusdirty(FALSE); - return m.stop_run(K_AUTO_ENTER); - } - if (!ok) error_box("Conto errato o incompleto"); + if (!ok) + f.error_box("Conto errato o incompleto"); } return ok; @@ -296,8 +337,7 @@ bool TSaldibrowse_application::sottoc_handler(TMask_field& f, KEY key) bool TSaldibrowse_application::user_create() { - _clifo = new TLocalisamfile(LF_CLIFO); - _rel = new TRelation(LF_PCON); + _rel = new TRelation(LF_SALDI); _rel1 = new TRelation(LF_SALDI); _cur = new TCursor(_rel1, "", 2); @@ -316,7 +356,6 @@ bool TSaldibrowse_application::user_create() bool TSaldibrowse_application::user_destroy() { delete _msk; - delete _clifo; delete _rel; delete _rel1; delete _cur; @@ -329,7 +368,6 @@ int TSaldibrowse_application::read(TMask& m) m.autoload(*_rel); fai_filtro(); compilasheet(); - ss().force_update(); return NOERR; } diff --git a/cg/cg5200a.uml b/cg/cg5200a.uml index 482c35de1..7c42110a8 100755 --- a/cg/cg5200a.uml +++ b/cg/cg5200a.uml @@ -13,21 +13,23 @@ BEGIN PROMPT 4 1 "Cod. esercizio " HELP "Codice esercizio a cui si riferiscono i saldi" WARNING "Codice esercizio inesistente" + FIELD LF_SALDI->ANNOES KEY 1 USE ESC - CHECKTYPE NORMAL INPUT CODTAB[1,4] F_ANNO DISPLAY "Codice" CODTAB[1,4] DISPLAY "Data inizio esercizio" D0 DISPLAY "Data fine esercizio" D1 OUTPUT F_ANNO CODTAB[1,4] - VALIDATE CHECK_FIELD F_ANNO + CHECKTYPE FORCED FLAGS "Z" END BOOLEAN F_SCARICATO BEGIN - PROMPT 40 1 "Solo saldi dei movimenti scaricati" + PROMPT 40 1 "Solo saldi dei movimenti scaricati" + KEY 1 + FIELD LF_SALDI->FLSCA END GROUPBOX DLG_NULL 73 4 @@ -43,7 +45,7 @@ BEGIN ITEM " |Conto" MESSAGE HIDE,2@|HIDE,3@|SHOW,1@ ITEM "C|Cliente" MESSAGE HIDE,1@|HIDE,3@|SHOW,2@ ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@ - KEY 1 + KEY 1 END NUMBER F_GRUPPO 3 @@ -52,7 +54,7 @@ BEGIN HELP "Codice del conto da visualizzare" WARNING "Gruppo inesistente" USE LF_PCON KEY 1 SELECT CONTO="" - FIELD LF_PCON->GRUPPO + FIELD LF_SALDI->GRUPPO KEY 1 INPUT GRUPPO F_GRUPPO DISPLAY "Gruppo" GRUPPO @@ -70,7 +72,7 @@ BEGIN HELP "Codice del conto da visualizzare" WARNING "Conto inesistente" USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") - FIELD LF_PCON->CONTO + FIELD LF_SALDI->CONTO KEY 1 INPUT GRUPPO F_GRUPPO INPUT CONTO F_CONTO @@ -94,7 +96,7 @@ BEGIN HELP "Codice del conto da visualizzare" WARNING "Sottoconto inesistente" USE LF_PCON SELECT SOTTOCONTO!="" - FIELD LF_PCON->SOTTOCONTO + FIELD LF_SALDI->SOTTOCONTO KEY 1 INPUT GRUPPO F_GRUPPO INPUT CONTO F_CONTO @@ -119,6 +121,7 @@ BEGIN PROMPT 54 3 "Cliente " HELP "Codice del conto da visualizzare" WARNING "Cliente inesistente" + FIELD LF_SALDI->SOTTOCONTO USE LF_CLIFO INPUT TIPOCF "C" INPUT CODCF F_SOTTOC_CLIENTE @@ -141,6 +144,7 @@ BEGIN PROMPT 54 3 "Fornitore " HELP "Codice del conto da visualizzare" WARNING "Fornitore inesistente" + FIELD LF_SALDI->SOTTOCONTO USE LF_CLIFO INPUT TIPOCF "F" INPUT CODCF F_SOTTOC_FORN @@ -161,7 +165,6 @@ END STRING F_DESCR_CONTO 50 BEGIN PROMPT 4 4 "Descrizione " - FIELD DESCR HELP "Descrizione del conto da visualizzare" USE LF_PCON KEY 2 INPUT DESCR F_DESCR_CONTO @@ -170,8 +173,8 @@ BEGIN DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO COPY OUTPUT F_SOTTOCONTO - KEY 1 - CHECKTYPE NORMAL + CHECKTYPE REQUIRED + KEY 2 GROUP 1 END @@ -186,9 +189,9 @@ BEGIN DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO DISPLAY "Codice" CODCF - COPY OUTPUT F_SOTTOC_CLIENTE - KEY 1 - CHECKTYPE NORMAL + COPY OUTPUT F_SOTTOC_CLIENTE + KEY 3 + CHECKTYPE REQUIRED GROUP 2 END @@ -204,8 +207,8 @@ BEGIN DISPLAY "Conto" CONTO DISPLAY "Codice" CODCF COPY OUTPUT F_SOTTOC_FORN - KEY 1 - CHECKTYPE NORMAL + KEY 4 + CHECKTYPE REQUIRED GROUP 3 END @@ -273,7 +276,7 @@ END NUMBER 105 15 BEGIN - PROMPT 45 4 "Avere " + PROMPT 47 4 "Avere " HELP "Progressivo avere attuale del conto da visualizzare" FLAGS "R" PICTURE "." @@ -305,7 +308,7 @@ END NUMBER 109 15 BEGIN - PROMPT 45 6 "Avere " + PROMPT 47 6 "Avere " HELP "Progressivi avere attuali dei movimenti eliminati" FLAGS "R" PICTURE "." @@ -366,7 +369,7 @@ END NUMBER 115 15 BEGIN - PROMPT 45 10 "Avere " + PROMPT 47 10 "Avere " HELP "Progressivi avere attuali dei movimenti provvisori del conto" FLAGS "R" PICTURE "." @@ -389,7 +392,7 @@ END NUMBER 118 15 BEGIN - PROMPT 1 6 "Progr.Mov.Eliminati: Dare " + PROMPT 1 12 "Progr.Mov.Eliminati: Dare " HELP "Progressivi dare attuali dei movimenti eliminati" FLAGS "R" PICTURE "." @@ -397,7 +400,7 @@ END NUMBER 119 15 BEGIN - PROMPT 45 6 "Avere " + PROMPT 47 12 "Avere " HELP "Progressivi avere attuali dei movimenti eliminati" FLAGS "R" PICTURE "."