From 7a14761891bb5892d73bf2b7dffb3bad17b79bf4 Mon Sep 17 00:00:00 2001 From: alex Date: Thu, 30 May 1996 15:51:50 +0000 Subject: [PATCH] Correzioni per XI git-svn-id: svn://10.65.10.50/trunk@2939 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg0100.cpp | 61 +++-------- cg/cg0100.h | 1 + cg/cg0100a.uml | 20 +++- cg/cg0200.cpp | 76 +++++--------- cg/cg0200a.uml | 271 ++++++++++++++++++++++++++----------------------- cg/cg0300.cpp | 26 ++--- cg/cg0300.h | 59 ++++++----- cg/cg0300a.uml | 120 +++++++++++++--------- cg/cg0400a.uml | 2 +- cg/cg0400b.uml | 14 +-- cg/cg0500.cpp | 47 +-------- 11 files changed, 324 insertions(+), 373 deletions(-) diff --git a/cg/cg0100.cpp b/cg/cg0100.cpp index 1355d99b5..80ea5cb86 100755 --- a/cg/cg0100.cpp +++ b/cg/cg0100.cpp @@ -162,7 +162,7 @@ bool CG0100_application::protected_record(TRectype &rec) _saldi->put(PCN_GRUPPO, gruppo); _saldi->put(PCN_CONTO, conto); _saldi->put(PCN_SOTTOCONTO, sottoc); - _saldi->read(); + _saldi->read(_isgteq); bool ok = FALSE; if (_saldi->good()) @@ -172,10 +172,9 @@ bool CG0100_application::protected_record(TRectype &rec) _saldi->get_real(SLD_SALDOFIN) != ZERO || _saldi->get_real(SLD_PDAREPRO) != ZERO || _saldi->get_real(SLD_PAVEREPRO) != ZERO; - ok &= (gruppo ==_saldi->get_int(PCN_GRUPPO) && + return ok && gruppo ==_saldi->get_int(PCN_GRUPPO) && conto ==_saldi->get_int(PCN_CONTO) && - sottoc ==_saldi->get_long(PCN_SOTTOCONTO)); - + sottoc ==_saldi->get_long(PCN_SOTTOCONTO); if (!ok) { // look for scaricato @@ -222,7 +221,8 @@ void CG0100_application::init_query_mode(TMask& m) { m.show(-1); m.show(-2); - m.show(-3); + m.show(-3); + m.hide(FLD_CM2_STSOTTAB); } HIDDEN bool tmcf_handler(TMask_field& f, KEY key) @@ -242,19 +242,20 @@ HIDDEN bool tmcf_handler(TMask_field& f, KEY key) void CG0100_application::init_insert_mode(TMask& m) + { const int gruppo = atoi(m.get(FLD_CM1_GRUPPO)); const int conto = atoi(m.get(FLD_CM1_CONTO)); const long sottoc = atol(m.get(FLD_CM1_SOTTOCONTO)); bool ivd_enable = TRUE; - if (conto == 0 && sottoc == 0) - m.show(-1, FALSE); + if (conto == 0 && sottoc == 0) + m.hide(-1); else if (sottoc == 0) - m.show(-2, FALSE); - else - m.show(-3, FALSE); + m.hide(-2); + else + m.hide(-3); TLocalisamfile& pconti = _rel->lfile(); TString s(15), s2(1), s3(8), s4(2); @@ -343,21 +344,6 @@ HIDDEN bool gruppo_handler(TMask_field& f, KEY key) return f.warning_box ("Il gruppo non esiste"); } } - else - if (m.query_mode() && key == K_TAB) - { - const int next = f.dlg(); // m.next_fld(); - bool key_ok = TRUE; - - if (sottoc > 0) - key_ok = gruppo > 0 && conto > 0; - else - if (conto > 0) - key_ok = gruppo > 0; - if (key_ok && next != DLG_NULL && next != f.dlg() && - !m.field(next).in_key(1)) - return m.stop_run(K_AUTO_ENTER); - } return TRUE; } @@ -388,21 +374,6 @@ HIDDEN bool conto_handler(TMask_field& f, KEY key) } } } - else - if (m.query_mode() && key == K_TAB) - { - const int next = f.dlg(); // m.next_fld(); - bool key_ok = TRUE; - - if (sottoc > 0) - key_ok = gruppo > 0 && conto > 0; - else - if (conto > 0) - key_ok = gruppo > 0; - if (key_ok && next != DLG_NULL && next != f.dlg() && - !m.field(next).in_key(1)) - return m.stop_run(K_AUTO_ENTER); - } return TRUE; } @@ -414,13 +385,7 @@ HIDDEN bool sottoc_handler(TMask_field& f, KEY key) const int gruppo = m.get_int(FLD_CM1_GRUPPO); const int conto = m.get_int(FLD_CM1_CONTO); const long sottoc = m.get_long(FLD_CM1_SOTTOCONTO); - const int next = f.dlg(); // m.next_fld(); - if (gruppo == 0) return TRUE; - if (sottoc != 0 && conto == 0) - return m.field(FLD_CM1_CONTO).error_box("Manca il conto"); - if (next != DLG_NULL && next != f.dlg() && !m.field(next).in_key(1)) - return m.stop_run(K_AUTO_ENTER); } return TRUE; } @@ -436,9 +401,7 @@ bool CG0100_application::user_create() _rel = new TRelation(LF_PCON); _saldi = new TLocalisamfile(LF_SALDI); _saldi->setkey(2); - set_search_field(FLD_CM1_GRUPPO); - - + set_search_field(FH_SOTTOCONTO); return TRUE; } diff --git a/cg/cg0100.h b/cg/cg0100.h index 8d50f25e9..777f2f21d 100755 --- a/cg/cg0100.h +++ b/cg/cg0100.h @@ -43,5 +43,6 @@ #define FLD_CM2_STSOTTABS 205 #define FLD_CM1_DESCG 206 #define FLD_CM1_DESCC 207 +#define FH_SOTTOCONTO 208 #endif // __CG0100_H diff --git a/cg/cg0100a.uml b/cg/cg0100a.uml index b6b26f11c..9758e1396 100755 --- a/cg/cg0100a.uml +++ b/cg/cg0100a.uml @@ -27,8 +27,7 @@ BEGIN DISPLAY "Descrizione@50" DESCR OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_DESCG DESCR -// OUTPUT FLD_CM1_DESC DESCR - CHECKTYPE NORMAL + CHECKTYPE REQUIRED END STRING FLD_CM1_DESCG 50 @@ -53,8 +52,9 @@ BEGIN OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_CONTO CONTO OUTPUT FLD_CM1_DESCC DESCR -// OUTPUT FLD_CM1_DESC DESCR CHECKTYPE NORMAL + VALIDATE REQIF_FUNC 1 FLD_CM1_SOTTOCONTO + WARNING "Manca il conto" END STRING FLD_CM1_DESCC 50 @@ -82,6 +82,17 @@ BEGIN OUTPUT FLD_CM1_GRUPPO GRUPPO OUTPUT FLD_CM1_CONTO CONTO OUTPUT FLD_CM1_DESC DESCR + CHECKTYPE NORMAL +END + +NUMBER FH_SOTTOCONTO 6 +BEGIN + PROMPT 60 1 "" + FLAGS "HG" + USE LF_PCON KEY 1 + COPY INPUT FLD_CM1_SOTTOCONTO + COPY DISPLAY FLD_CM1_SOTTOCONTO + COPY OUTPUT FLD_CM1_SOTTOCONTO END STRING FLD_CM1_DESC 50 @@ -310,7 +321,7 @@ END LIST FLD_CM1_RICSER 1 18 BEGIN - PROMPT 1 10 "Ricavi per servizi " + PROMPT 1 10 "Ricavi per servizi " FIELD RICSER FLAGS "H" ITEM "0|Altre attivita'" @@ -360,6 +371,7 @@ BEGIN PROMPT 1 15 "Stampa dettaglio sottoconti su analisi" HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio" FIELD LF_PCON->STSOTTAB + FLAGS "H" GROUP 1 3 MESSAGE COPY,FLD_CM2_STSOTTABS END diff --git a/cg/cg0200.cpp b/cg/cg0200.cpp index 496124873..db9c5b0d4 100755 --- a/cg/cg0200.cpp +++ b/cg/cg0200.cpp @@ -29,7 +29,6 @@ class TClifo_application : public TRelation_application bool _lbcn, _gesven; bool _savenew; - bool _ignoreven; TToken_string _tmp; @@ -180,52 +179,32 @@ HIDDEN bool no_dup_iva(TMask_field& f, KEY key) return TRUE ; } -HIDDEN bool autoexit_rsoc_handler(TMask_field& f, KEY key) +HIDDEN bool cofi_handler(TMask_field& f, KEY key) { - if (f.mask().query_mode() && key == K_TAB) - { - TString16 tmp; - TArray parms; - parms.add(tmp.format("%d", F_RAGSOC)); - parms.add(tmp.format("%d", F_RAGSOCA)); - ::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms); - } - return TRUE; -} - -HIDDEN bool autoexit_handler(TMask_field& f, KEY key) - -{ - if (f.mask().query_mode()) + if (f.to_check(key)) { - if (key == K_TAB && f.focusdirty()) - { - TString16 tmp; - TArray parms; - parms.add(tmp.format("%d", f.dlg())); - ::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms); - } - } - else - { - if (f.dlg() == F_COFI && key == K_TAB && f.focusdirty()) + if (key == K_TAB) { const TString s1(f.get()); - + if (s1.not_empty()) f.mask().set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F"); } - if (f.to_check(key) && f.mask().get(F_ALLEG) != "4") - { - if (f.dlg() == F_COFI) return no_dup_fis(f, key); - else - if (f.dlg() == F_PAIV) return no_dup_iva(f, key); - } + if (f.mask().get(F_ALLEG) != "4") + return no_dup_fis(f, key); } return TRUE; } +HIDDEN bool paiv_handler(TMask_field& f, KEY key) + +{ + if (f.to_check(key) && f.mask().get(F_ALLEG) != "4") + return no_dup_iva(f, key); + return TRUE; +} + bool TClifo_application::tipo_handler(TMask_field& f, KEY key) { TMask& m = f.mask(); @@ -368,7 +347,7 @@ HIDDEN bool codalleg_handler(TMask_field& f, KEY key) void TClifo_application::on_config_change() { TConfig cnf(CONFIG_DITTA); - _gesven = _ignoreven ? FALSE : cnf.get_bool("GesVen"); + _gesven = cnf.get_bool("GesVen"); _lbcn = cnf.get_bool("GsLbCn"); init_pages(*_msk); } @@ -382,8 +361,7 @@ void TClifo_application::init_pages(TMask& m) // Se non e' abilitata la gestione delle vendite disabilita le // maschere dalla 4 in poi - if (!_ignoreven) - m.enable_page(3, _gesven); + m.enable_page(3, _gesven); } void TClifo_application::init_query_mode(TMask& m) @@ -572,11 +550,12 @@ bool TClifo_application::indsp_notify(TSheet_field& indsp, int r, KEY key) return FALSE; //Refuse permission } break; + case K_ENTER: + case K_DEL: + indsp_sheet_rebuilder(); default: break; } - if (key == K_ENTER || key == K_DEL) - indsp_sheet_rebuilder(); return TRUE; } @@ -590,24 +569,17 @@ bool TClifo_application::user_create() // initvar e arrmask _pcon = new TLocalisamfile(LF_PCON); _comuni = new TLocalisamfile(LF_COMUNI); - _ignoreven = argc() > 2; - const int max = _ignoreven ? 3 : -1; - _msk = new TMask("cg0200a", 0, max) ; + _msk = new TMask("cg0200a") ; _msk->set_handler(F_OCCASIONALE, occas_handler); - _msk->set_handler(F_RAGSOCA, autoexit_rsoc_handler); - _msk->set_handler(F_COFI, autoexit_handler); - _msk->set_handler(F_PAIV, autoexit_handler); - _msk->set_handler(F_RICALT, autoexit_handler); + _msk->set_handler(F_COFI, cofi_handler); + _msk->set_handler(F_PAIV, paiv_handler); _msk->set_handler(F_CODANAGPER, percip_handler); _msk->set_handler(F_TIPOPERS, tipo_handler); _msk->set_handler(F_ALLEG, alleg_handler); _msk->set_handler(F_CODALLEG, codalleg_handler); - if (!_ignoreven) - { - TSheet_field& ind = (TSheet_field&) _msk->field(F_SHEET_G_VEN); - ind.set_notify(indsp_notify); - } + TSheet_field& ind = (TSheet_field&) _msk->field(F_SHEET_G_VEN); + ind.set_notify(indsp_notify); _mov->setkey(3); diff --git a/cg/cg0200a.uml b/cg/cg0200a.uml index f6669a2c1..1f6c4d6a1 100755 --- a/cg/cg0200a.uml +++ b/cg/cg0200a.uml @@ -10,47 +10,47 @@ PAGE "Pag.1" -1 -1 78 19 GROUPBOX DLG_NULL 76 4 BEGIN -PROMPT 1 0 "Dati identificativi" + PROMPT 1 0 "Dati identificativi" END LIST F_TIPOCF 1 12 BEGIN -PROMPT 2 1 "Tipo " -FIELD TIPOCF -FLAGS "PG" -KEY 1 2 4 5 6 -HELP "Indicare se cliente oppure fornitore" -ITEM "C|Clienti" -MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|ENABLE,7@ -ITEM "F|Fornitori" -MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@ + PROMPT 2 1 "Tipo " + FIELD TIPOCF + FLAGS "PG" + KEY 1 2 4 5 6 + HELP "Indicare se cliente oppure fornitore" + ITEM "C|Clienti" + MESSAGE CLEAR,4@|COPY,1@|HIDE,DLG_CST|SHOW,DLG_RIC|ENABLE,7@ + ITEM "F|Fornitori" + MESSAGE ENABLE,4@|COPY,1@|SHOW,DLG_CST|HIDE,DLG_RIC|DISABLE,7@ END NUMBER F_CODCF 6 BEGIN -PROMPT 2 2 "Codice " -FIELD CODCF -FLAGS "GR" -KEY 1 -USE LF_CLIFO KEY 1 -INPUT TIPOCF F_TIPOCF SELECT -INPUT CODCF F_CODCF -DISPLAY "Codice" CODCF -DISPLAY "Sospeso" SOSPESO -DISPLAY "Ragione sociale@50" RAGSOC -DISPLAY "Codice fiscale@16" COFI -DISPLAY "Partita IVA@11" PAIV -OUTPUT F_TIPOCF TIPOCF -OUTPUT F_CODCF CODCF -OUTPUT F_RAGSOC RAGSOC[1,30] -OUTPUT F_RAGSOCA RAGSOC[31,] -OUTPUT F_COFI COFI -OUTPUT F_STATOPAIV STATOPAIV -OUTPUT F_PAIV PAIV -OUTPUT F_RICALT RICALT -HELP "Codice relativo al cliente o fornitore" -MESSAGE COPY,2@ -CHECKTYPE REQUIRED + PROMPT 2 2 "Codice " + FIELD CODCF + FLAGS "GR" + KEY 1 + USE LF_CLIFO KEY 1 + INPUT TIPOCF F_TIPOCF SELECT + INPUT CODCF F_CODCF + DISPLAY "Codice" CODCF + DISPLAY "Sospeso" SOSPESO + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice fiscale@16" COFI + DISPLAY "Partita IVA@11" PAIV + OUTPUT F_TIPOCF TIPOCF + OUTPUT F_CODCF CODCF + OUTPUT F_RAGSOC RAGSOC[1,30] + OUTPUT F_RAGSOCA RAGSOC[31,] + OUTPUT F_COFI COFI + OUTPUT F_STATOPAIV STATOPAIV + OUTPUT F_PAIV PAIV + OUTPUT F_RICALT RICALT + HELP "Codice relativo al cliente o fornitore" + MESSAGE COPY,2@ + CHECKTYPE REQUIRED END STRING F_RAGSOC 30 @@ -70,110 +70,109 @@ BEGIN HELP "Prima parte della ragione sociale o cognome" MESSAGE COPY,3@ WARNING "Manca la ragione sociale" -// VALIDATE NOT_EMPTY_FUNC CHECKTYPE REQUIRED // Guy: perche' non cosi'? END STRING F_RAGSOCA 20 BEGIN -PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " -FIELD RAGSOC[31,] -KEY 2 -HELP "Seconda parte della ragione sociale o nome" -MESSAGE COPY,6@ + PROMPT 23 2 "Nome / Seconda parte Rag. Soc. " + FIELD RAGSOC[31,] + KEY 2 + HELP "Seconda parte della ragione sociale o nome" + MESSAGE COPY,6@ END STRING F_RICALT 30 20 BEGIN -PROMPT 2 4 "Ricerca Alt. " -FIELD RICALT -KEY 6 -USE LF_CLIFO KEY 6 -INPUT TIPOCF F_TIPOCF SELECT -INPUT RICALT F_RICALT -DISPLAY "Ricerca alternativa@30" RICALT -DISPLAY "Sospeso" SOSPESO -DISPLAY "Ragione sociale@50" RAGSOC -COPY OUTPUT F_CODCF -HELP "Chiave di ricerca alternativa" + PROMPT 2 4 "Ricerca Alt. " + FIELD RICALT + KEY 6 + USE LF_CLIFO KEY 6 + INPUT TIPOCF F_TIPOCF SELECT + INPUT RICALT F_RICALT + DISPLAY "Ricerca alternativa@30" RICALT + DISPLAY "Sospeso" SOSPESO + DISPLAY "Ragione sociale@50" RAGSOC + COPY OUTPUT F_CODCF + HELP "Chiave di ricerca alternativa" END LIST F_STATOPAIV 2 21 BEGIN -PROMPT 42 4 "Stato CEE " -FIELD STATOPAIV -KEY 5 -HELP "Codice ISO dello stato" -ITEM " |Italia o extra CEE" -ITEM "BE|Belgio" -ITEM "DE|Germania" -ITEM "DK|Danimarca" -ITEM "EL|Grecia" -ITEM "ES|Spagna" -ITEM "FR|Francia" -ITEM "GB|Gran Bretagna" -ITEM "IE|Irlanda" -ITEM "IT|Italia" -ITEM "LU|Lussemburgo" -ITEM "NL|Olanda" -ITEM "PT|Portogallo" + PROMPT 42 4 "Stato CEE " + FIELD STATOPAIV + KEY 5 + HELP "Codice ISO dello stato" + ITEM " |Italia o extra CEE" + ITEM "BE|Belgio" + ITEM "DE|Germania" + ITEM "DK|Danimarca" + ITEM "EL|Grecia" + ITEM "ES|Spagna" + ITEM "FR|Francia" + ITEM "GB|Gran Bretagna" + ITEM "IE|Irlanda" + ITEM "IT|Italia" + ITEM "LU|Lussemburgo" + ITEM "NL|Olanda" + ITEM "PT|Portogallo" END STRING F_COFI 16 BEGIN -PROMPT 2 5 "Codice fiscale " -FIELD COFI -FLAGS "U" -KEY 4 -USE LF_CLIFO KEY 4 -INPUT TIPOCF F_TIPOCF SELECT -INPUT COFI F_COFI -DISPLAY "Codice fiscale@16" COFI -DISPLAY "Sospeso" SOSPESO -DISPLAY "Codice" CODCF -DISPLAY "Ragione sociale@50" RAGSOC -DISPLAY "Partita IVA@11" PAIV -COPY OUTPUT F_CODCF -HELP "Codice fiscale del cliente/fornitore" -VALIDATE CF_FUNC F_STATOPAIV + PROMPT 2 5 "Codice fiscale " + FIELD COFI + FLAGS "U" + KEY 4 + USE LF_CLIFO KEY 4 + INPUT TIPOCF F_TIPOCF SELECT + INPUT COFI F_COFI + DISPLAY "Codice fiscale@16" COFI + DISPLAY "Sospeso" SOSPESO + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Partita IVA@11" PAIV + COPY OUTPUT F_CODCF + HELP "Codice fiscale del cliente/fornitore" + VALIDATE CF_FUNC F_STATOPAIV END STRING F_PAIV 12 BEGIN -PROMPT 42 5 "Partita IVA " -FIELD PAIV -KEY 5 -USE LF_CLIFO KEY 5 -INPUT TIPOCF F_TIPOCF SELECT -INPUT STATOPAIV F_STATOPAIV -INPUT PAIV F_PAIV -DISPLAY "Partita IVA@11" PAIV -DISPLAY "Sospeso" SOSPESO -DISPLAY "Codice" CODCF -DISPLAY "Ragione sociale@50" RAGSOC -DISPLAY "Codice fiscale@16" COFI -COPY OUTPUT F_CODCF -HELP "Partita IVA del cliente/fornitore" -VALIDATE PI_FUNC F_STATOPAIV + PROMPT 42 5 "Partita IVA " + FIELD PAIV + KEY 5 + USE LF_CLIFO KEY 5 + INPUT TIPOCF F_TIPOCF SELECT + INPUT STATOPAIV F_STATOPAIV + INPUT PAIV F_PAIV + DISPLAY "Partita IVA@11" PAIV + DISPLAY "Sospeso" SOSPESO + DISPLAY "Codice" CODCF + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice fiscale@16" COFI + COPY OUTPUT F_CODCF + HELP "Partita IVA del cliente/fornitore" + VALIDATE PI_FUNC F_STATOPAIV END GROUPBOX DLG_NULL 76 6 BEGIN -PROMPT 1 6 "Recapito" + PROMPT 1 6 "Recapito" END STRING F_INDCF 35 BEGIN -PROMPT 2 7 "Indirizzo " -FIELD INDCF -HELP "Indirizzo del recapito" + PROMPT 2 7 "Indirizzo " + FIELD INDCF + HELP "Indirizzo del recapito" END STRING F_CIVCF 10 BEGIN -PROMPT 60 7 "N. " -FIELD CIVCF -HELP "Numero civico del recapito" + PROMPT 60 7 "N. " + FIELD CIVCF + HELP "Numero civico del recapito" END NUMBER F_STATOCF 3 @@ -300,16 +299,16 @@ END NUMBER F_CODALLEG 6 BEGIN PROMPT 32 13 "Codice allegato " -FIELD CODALLEG +FIELD CODALLEG FLAGS "R" COPY USE F_CODCF INPUT TIPOCF F_TIPOCF SELECT INPUT CODCF F_CODALLEG -COPY DISPLAY F_CODCF +COPY DISPLAY F_CODCF OUTPUT F_CODALLEG CODCF OUTPUT F_RAGSOCALLEG RAGSOC HELP "Codice dell'allegato IVA in cui inserire i progressivi" -CHECKTYPE NORMAL +CHECKTYPE NORMAL WARNING "Cliente/Fornitore assente" END @@ -376,7 +375,7 @@ END GROUPBOX DLG_NULL 76 7 BEGIN PROMPT 1 4 "Numeri telefonici" -END +END STRING F_PTEL 10 BEGIN @@ -618,7 +617,7 @@ PROMPT 56 4 "Codice CAB " FIELD CODCAB FLAGS "Z" COPY USE F_CODABI -INPUT CODTAB[1,5] F_CODABI +INPUT CODTAB[1,5] F_CODABI INPUT CODTAB[6,10] F_CODBAN COPY DISPLAY F_CODABI COPY OUTPUT F_CODABI @@ -666,7 +665,7 @@ STRING F_CODLIN 1 BEGIN PROMPT 2 7 "Lingua " FIELD CODLIN -USE %LNG +USE %LNG FLAGS "U" INPUT CODTAB F_CODLIN DISPLAY "Codice lingua " CODTAB @@ -700,7 +699,7 @@ DISPLAY "Descrizione@50" S0 OUTPUT F_CODPAG CODTAB OUTPUT F_DESPAG S0 HELP "Codice condizione di pagamento concordata" -CHECKTYPE NORMAL +CHECKTYPE NORMAL ADD RUN ba3 -6 END @@ -998,7 +997,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) NUMBER F_CODINDSP 3 BEGIN PROMPT 43 11 "Codice indirizzo spedizione " - FIELD LF_CFVEN->CODINDSP + FIELD LF_CFVEN->CODINDSP GROUP 7 SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35" INPUT F_CODINDSP @@ -1307,7 +1306,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_NSNRPROT 7 BEGIN PROMPT 2 15 "Ns nr. protocollo " - FIELD LF_CFVEN->NSNPROT + FIELD LF_CFVEN->NSNPROT GROUP 7 HELP "Nostro nr. di protocollo della lettera" END @@ -1513,6 +1512,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) OUTPUT F_CATVEN CODTAB HELP "Codice della categoria di vendita" CHECKTYPE NORMAL + FLAGS "U" END ENDPAGE @@ -1562,7 +1562,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_CODSP1 3 BEGIN PROMPT 2 5 "Spesa 1 " - FIELD LF_CFVEN->CODSP1 + FIELD LF_CFVEN->CODSP1 GROUP 7 USE %SAD INPUT CODTAB F_CODSP1 @@ -1576,7 +1576,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_CODSP2 3 BEGIN PROMPT 24 5 "Spesa 2 " - FIELD LF_CFVEN->CODSP2 + FIELD LF_CFVEN->CODSP2 GROUP 7 COPY USE F_CODSP1 INPUT CODTAB F_CODSP2 @@ -1589,7 +1589,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_CODSP3 3 BEGIN PROMPT 2 6 "Spesa 3 " - FIELD LF_CFVEN->CODSP3 + FIELD LF_CFVEN->CODSP3 GROUP 7 COPY USE F_CODSP1 INPUT CODTAB F_CODSP3 @@ -1602,7 +1602,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_CODSP4 3 BEGIN PROMPT 24 6 "Spesa 4 " - FIELD LF_CFVEN->CODSP4 + FIELD LF_CFVEN->CODSP4 GROUP 7 COPY USE F_CODSP1 INPUT CODTAB F_CODSP4 @@ -1615,22 +1615,39 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_CODMAG 3 BEGIN PROMPT 48 5 "Codice magazzino " - FIELD LF_CFVEN->CODMAG + FIELD LF_CFVEN->CODMAG + USE MAG SELECT CODTAB ? "???" + INPUT CODTAB[1,3] F_CODMAG + DISPLAY "Codice" CODTAB[1,3] + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] HELP "Codice del magazzino movimentato" END - STRING F_CODLIST 5 - BEGIN +STRING F_CODLIST 5 +BEGIN PROMPT 48 6 "Codice listino " FIELD LF_CFVEN->CODLIST - USE %LIS + USE LIS INPUT CODTAB F_CODLIST - DISPLAY "Codice listino " CODTAB + DISPLAY "Codice" COD DISPLAY "Descrizione@50" S0 OUTPUT F_CODLIST CODTAB +// USE LF_CONDV +// JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN +// INPUT TIPO "L" +// INPUT CATVEN F_CATVEN SELECT +// INPUT COD F_CODLIST +// DISPLAY "Cat.Ven." CATVEN +// DISPLAY "Codice" COD +// DISPLAY "Descrizione@50" DESCR +// OUTPUT F_CODLIST COD +// OUTPUT F_CATVEN CATVEN +// ADD RUN ve2 -1 l HELP "Codice listino utilizzato" CHECKTYPE NORMAL - END + WARNING "Listino assente" +END STRING F_CODSCC 2 BEGIN @@ -1690,7 +1707,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) STRING F_TITOLO 2 BEGIN PROMPT 2 13 "Titolo onorifico " - FIELD LF_CFVEN->TITOLO + FIELD LF_CFVEN->TITOLO GROUP 7 USE %TIT INPUT CODTAB F_TITOLO @@ -1703,7 +1720,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) LIST F_RAGGOR 1 16 BEGIN PROMPT 2 15 "Raggruppamento ordine " - FIELD LF_CFVEN->RAGGOR + FIELD LF_CFVEN->RAGGOR GROUP 7 HELP "Indicare il tipo di raggruppamento dell'ordine" ITEM "O|Intero ordine" @@ -1730,7 +1747,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) NUMBER F_MINORD 15 BEGIN PROMPT 40 16 "Importo minimo " - FIELD LF_CFVEN->MINORD + FIELD LF_CFVEN->MINORD GROUP 7 PICTURE "." HELP "Importo minimo dell'ordine" @@ -1739,7 +1756,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) NUMBER F_MAXORD 15 BEGIN PROMPT 40 17 "Importo massimo " - FIELD LF_CFVEN->MAXORD + FIELD LF_CFVEN->MAXORD GROUP 7 PICTURE "." HELP "Importo massimo dell'ordine" diff --git a/cg/cg0300.cpp b/cg/cg0300.cpp index 832c07590..2f9885c74 100755 --- a/cg/cg0300.cpp +++ b/cg/cg0300.cpp @@ -18,6 +18,8 @@ class CG0300_application : public TRelation_application virtual TRelation* get_relation() const {return _rel;} virtual void init_query_mode(TMask& m); virtual void init_query_insert_mode(TMask& m); + virtual void init_modify_mode(TMask& m); + virtual void init_insert_mode(TMask& m) { init_modify_mode(m); } public: CG0300_application() {} @@ -27,37 +29,29 @@ void CG0300_application::init_query_mode(TMask& m) { disable_menu_item(M_FILE_NEW); - m.send_key(K_SHIFT + K_CTRL + 's', -1); - m.send_key(K_SHIFT + K_CTRL + 'h', -2); + m.show(-1); + m.hide(-2); } void CG0300_application::init_query_insert_mode(TMask& m) { disable_menu_item(M_FILE_NEW); - m.send_key(K_SHIFT + K_CTRL + 'h', -1); - m.send_key(K_SHIFT + K_CTRL + 's', -2); + m.hide(-1); + m.show(-2); + m.enable(-3); } - -HIDDEN bool key_handler (TMask_field& f, KEY k) +void CG0300_application::init_modify_mode(TMask& m) { - if (k == K_TAB) - { - TMask& m = f.mask(); - - if (m.get(F_ANNO).not_empty() && m.get(F_CODATT).not_empty() && - m.get(F_CODCF).not_empty()) - m.stop_run(K_AUTO_ENTER); - } - return TRUE; + m.disable(-3); } + bool CG0300_application::user_create() { _msk = new TMask("cg0300a") ; - _msk->set_handler (F_IMMESSO, key_handler); _rel = new TRelation(LF_ALLEG); _ditte = new TLocalisamfile(LF_NDITTE); _attiv = new TLocalisamfile(LF_ATTIV); diff --git a/cg/cg0300.h b/cg/cg0300.h index 7992dc95b..7e601a37a 100755 --- a/cg/cg0300.h +++ b/cg/cg0300.h @@ -9,36 +9,43 @@ #define N_CODCF "CODCF" #define F_ANNO 101 -#define F_CODATT 102 -#define F_TIPOCF 103 +#define F_CODATT 102 +#define F_TIPOCF 103 #define F_CODCF 104 -#define F_IMMESSO 105 -#define F_IMPESC 106 -#define F_IVAESC 107 -#define F_NIESC 108 -#define F_E8ESC 109 +#define F_IMMESSO 105 +#define F_IMPESC 106 +#define F_IVAESC 107 +#define F_NIESC 108 +#define F_E8ESC 109 #define F_NDOCESC 110 -#define F_IMPESP 111 +#define F_IMPESP 111 #define F_IVAESP 112 #define F_NIESP 113 #define F_E8ESP 114 -#define F_NDOCESP 115 -#define F_PROG101102 116 -#define F_CODDITTA 117 -#define F_RAGSOC 118 -#define F_COFI 119 -#define F_PAIV 120 -#define F_TOTALE 121 -#define F_TOTALE1 122 -#define F_TOTALE2 123 -#define F_TOTALE3 124 -#define F_TOTALE4 125 -#define F_TOTALE5 126 -#define F_TOTALE6 127 -#define F_PROMPT 128 -#define F_RAGSOC_D 129 -#define F_DENATT 130 -#define F_CODATTH 131 -#define F_CODCFH 132 +#define F_NDOCESP 115 +#define F_PROG101102 116 +#define F_CODDITTA 117 +#define F_RAGSOC 118 +#define F_COFI 119 +#define F_PAIV 120 +#define F_TOTALE 121 +#define F_TOTALE1 122 +#define F_TOTALE2 123 +#define F_TOTALE3 124 +#define F_TOTALE4 125 +#define F_TOTALE5 126 +#define F_TOTALE6 127 +#define F_PROMPT 128 +#define F_RAGSOC_D 129 +#define F_DENATT 130 +#define F_CODATTH 131 +#define F_CODCFH 132 +#define F_T1 133 +#define F_T2 134 +#define F_T3 135 +#define F_T4 136 +#define F_T5 137 +#define F_T6 138 +#define F_T7 139 #endif // __CG0300_H diff --git a/cg/cg0300a.uml b/cg/cg0300a.uml index 0790a10bd..a95f0b038 100755 --- a/cg/cg0300a.uml +++ b/cg/cg0300a.uml @@ -41,6 +41,7 @@ BEGIN OUTPUT F_CODCF CODCF OUTPUT F_IMMESSO IMMESSO WARNING "Registrazione assente" + CHECKTYPE REQUIRED END NUMBER F_CODDITTA 5 @@ -48,6 +49,8 @@ BEGIN PROMPT 2 2 "Ditta " HELP "Ditta di cui si vogliono visualizzare i saldi" FLAGS "RPDG" + KEY 1 + CHECKTYPE REQUIRED USE LF_NDITTE INPUT CODDITTA F_CODDITTA DISPLAY "Codice" CODDITTA @@ -69,11 +72,11 @@ BEGIN FIELD LF_ALLEG->CODATT FLAGS "PRZ" KEY 1 - COPY ALL F_ANNO + COPY ALL F_ANNO CHECKTYPE REQUIRED WARNING "Registrazione assente" - MESSAGE COPY,F_CODATTH - GROUP 1 + MESSAGE COPY,F_CODATTH + GROUP 1 END STRING F_CODATTH 5 @@ -94,10 +97,10 @@ BEGIN OUTPUT F_CODDITTA CODDITTA OUTPUT F_DENATT LF_ATTIV->DESCR HELP "Inserire il codice dell'attivita'" - MESSAGE COPY,F_CODATTH + MESSAGE COPY,F_CODATTH MESSAGE COPY,3@ WARNING "Attivita' assente" - GROUP 2 + GROUP 2 END STRING F_DENATT 50 @@ -113,17 +116,11 @@ BEGIN KEY 1 HELP "Indicare se cliente, fornitore oppure bolletta doganale" ITEM "C|Clienti" - MESSAGE "Op. non imp. ed esenti ",99 - MESSAGE "Operazioni non imponibili (mod 101) ",F_PROMPT - MESSAGE ENABLE,F_CODCF|HIDE,6@ + MESSAGE SHOW,F_T1|HIDE,F_T2|HIDE,F_T3|SHOW,F_T5|HIDE,F_T6 ITEM "F|Fornitori" - MESSAGE "Op. senza appl. d'imp. ",99 - MESSAGE "Operazioni non imponibili (mod 102) ",F_PROMPT - MESSAGE ENABLE,F_CODCF|SHOW,6@ + MESSAGE HIDE,F_T1|SHOW,F_T2|HIDE,F_T3|HIDE,F_T5|SHOW,F_T6|ENABLE,F_CODCF|SHOW,6@ ITEM "B|Boll.doganali" - MESSAGE "Operazioni senza appl. d'imposta ",99 - MESSAGE "Operazioni non imponibili (mod 102) ",F_PROMPT - MESSAGE DISABLE,F_CODCF|SHOW,6@ + MESSAGE HIDE,F_T1|HIDE,F_T2|SHOW,F_T3|HIDE,F_T5|SHOW,F_T6|DISABLE,F_CODCF|SHOW,6@ END NUMBER F_CODCF 6 @@ -132,12 +129,13 @@ BEGIN FIELD LF_ALLEG->CODCF FLAGS "R" KEY 1 - COPY ALL F_ANNO + COPY ALL F_ANNO HELP "Codice relativo al cliente o fornitore" ADD RUN cg0 -1 - WARNING "Registrazione assente" - GROUP 1 - MESSAGE COPY,F_CODCFH + WARNING "Registrazione assente" + GROUP 1 + CHECKTYPE REQUIRED + MESSAGE COPY,F_CODCFH END NUMBER F_CODCFH 6 @@ -159,9 +157,10 @@ BEGIN OUTPUT F_PAIV PAIV HELP "Codice relativo al cliente o fornitore" ADD RUN cg0 -1 - WARNING "Cliente assente" - GROUP 2 - MESSAGE COPY,F_CODCF + WARNING "Cliente assente" + GROUP 2 + MESSAGE COPY,F_CODCF + CHECKTYPE NORMAL END BOOLEAN F_IMMESSO @@ -176,22 +175,23 @@ STRING F_RAGSOC 50 BEGIN PROMPT 2 5 "Rag.sociale " FLAGS "U" - KEY 1 + KEY 2 USE LF_CLIFO KEY 2 INPUT TIPOCF F_TIPOCF SELECT INPUT RAGSOC F_RAGSOC DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Tipo" TIPOCF DISPLAY "Codice" CODCF - COPY OUTPUT F_CODCFH + COPY OUTPUT F_CODCFH HELP "Ragione sociale del cliente o fornitore" WARNING "Ragione sociale assente" + GROUP 3 END STRING F_COFI 16 BEGIN PROMPT 2 6 "Cod.fiscale " - KEY 1 + KEY 3 USE LF_CLIFO KEY 4 INPUT TIPOCF F_TIPOCF SELECT INPUT COFI F_COFI @@ -199,16 +199,17 @@ BEGIN DISPLAY "Tipo" TIPOCF DISPLAY "Codice" CODCF DISPLAY "Ragione sociale@50" RAGSOC - COPY OUTPUT F_CODCFH + COPY OUTPUT F_CODCFH HELP "Codice fiscale del cliente o fornitore" CHECKTYPE NORMAL WARNING "Codice fiscale assente" + GROUP 3 END STRING F_PAIV 12 BEGIN PROMPT 36 6 "Partita IVA " - KEY 1 + KEY 4 USE LF_CLIFO KEY 5 INPUT TIPOCF F_TIPOCF SELECT INPUT PAIV F_PAIV @@ -217,10 +218,11 @@ BEGIN DISPLAY "Codice" CODCF DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Codice fiscale " COFI - COPY OUTPUT F_CODCFH + COPY OUTPUT F_CODCFH HELP "Partita IVA del cliente o fornitore" CHECKTYPE NORMAL WARNING "Partita IVA assente" + GROUP 3 END TEXT DLG_NULL @@ -250,7 +252,7 @@ BEGIN FIELD LF_ALLEG->IMPESC FLAGS "R" PICTURE "." - MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5 + MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5 END NUMBER F_IMPESP 15 @@ -260,7 +262,7 @@ BEGIN FIELD LF_ALLEG->IMPESP FLAGS "R" PICTURE "." - MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6 + MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6 END NUMBER F_TOTALE1 15 @@ -268,7 +270,7 @@ BEGIN PROMPT 60 9 "" FLAGS "RD" PICTURE "." - NUM_CALC {#F_IMPESP+#F_IMPESC} + NUM_CALC {#F_IMPESP+#F_IMPESC} END TEXT DLG_NULL @@ -283,7 +285,7 @@ BEGIN FIELD LF_ALLEG->IVAESC FLAGS "R" PICTURE "." - MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5 + MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5 END NUMBER F_IVAESP 15 @@ -293,7 +295,7 @@ BEGIN FIELD LF_ALLEG->IVAESP FLAGS "R" PICTURE "." - MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6 + MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6 END NUMBER F_TOTALE2 15 @@ -301,12 +303,25 @@ BEGIN PROMPT 60 10 "" FLAGS "RD" PICTURE "." - NUM_CALC {#F_IVAESP+#F_IVAESC} + NUM_CALC {#F_IVAESP+#F_IVAESC} END -TEXT 99 +TEXT F_T1 BEGIN - PROMPT 2 11 "Op. non imp. ed esenti " + PROMPT 2 11 "Op. non imp. ed esenti " + FLAGS "H" +END + +TEXT F_T2 +BEGIN + PROMPT 2 11 "Op. senza appl. d'imp. " + FLAGS "H" +END + +TEXT F_T3 +BEGIN + PROMPT 2 11 "Operazioni senza appl. d'imposta " + FLAGS "H" END NUMBER F_NIESC 15 @@ -316,7 +331,7 @@ BEGIN FLAGS "R" PICTURE "." HELP "Totale operazioni non imponibili ed esenti dell'anno corrente" - MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5 + MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5 END NUMBER F_NIESP 15 @@ -326,7 +341,7 @@ BEGIN FLAGS "R" PICTURE "." HELP "Totale operazioni non imponibili ed esenti dell'anno precedente" - MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6 + MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6 END NUMBER F_TOTALE3 15 @@ -334,10 +349,10 @@ BEGIN PROMPT 60 11 "" FLAGS "RD" PICTURE "." - NUM_CALC {#F_NIESP+#F_NIESC} + NUM_CALC {#F_NIESP+#F_NIESC} END -TEXT 98 +TEXT F_T4 BEGIN PROMPT 2 12 "Op. non imp.(Art.8 2^c)" GROUP 6 @@ -351,7 +366,7 @@ BEGIN GROUP 6 PICTURE "." HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno corrente" - MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5 + MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5 END NUMBER F_E8ESP 15 @@ -362,7 +377,7 @@ BEGIN GROUP 6 PICTURE "." HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno precedente" - MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6 + MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6 END NUMBER F_TOTALE4 15 @@ -371,7 +386,7 @@ BEGIN FLAGS "RD" GROUP 6 PICTURE "." - NUM_CALC {#F_E8ESP+#F_E8ESC} + NUM_CALC {#F_E8ESP+#F_E8ESC} END TEXT DLG_NULL @@ -384,7 +399,7 @@ BEGIN PROMPT 25 13 "" FLAGS "RD" PICTURE "." - NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC} + NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC} END NUMBER F_TOTALE6 15 @@ -392,10 +407,10 @@ BEGIN PROMPT 42 13 "" FLAGS "RD" PICTURE "." - NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP} + NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP} END -TEXT 97 +TEXT F_T7 BEGIN PROMPT 2 15 "Numero fatture " GROUP 6 @@ -408,7 +423,7 @@ BEGIN FIELD LF_ALLEG->NDOCESC FLAGS "R" GROUP 6 - MESSAGE K_TAB,F_TOTALE + MESSAGE K_TAB,F_TOTALE END NUMBER F_NDOCESP 4 @@ -418,7 +433,7 @@ BEGIN FIELD LF_ALLEG->NDOCESP FLAGS "R" GROUP 6 - MESSAGE K_TAB,F_TOTALE + MESSAGE K_TAB,F_TOTALE END NUMBER F_TOTALE 5 @@ -426,12 +441,19 @@ BEGIN PROMPT 60 15 "" FLAGS "RD" GROUP 6 - NUM_CALC {#F_NDOCESP+#F_NDOCESC} + NUM_CALC {#F_NDOCESP+#F_NDOCESC} END -TEXT F_PROMPT +TEXT F_T5 +BEGIN + PROMPT 2 17 "Operazioni non imponibili (mod 101) " + FLAGS "H" +END + +TEXT F_T6 BEGIN PROMPT 2 17 "Operazioni non imponibili (mod 102) " + FLAGS "H" END NUMBER F_PROG101102 15 diff --git a/cg/cg0400a.uml b/cg/cg0400a.uml index 77900376b..6826bc882 100755 --- a/cg/cg0400a.uml +++ b/cg/cg0400a.uml @@ -1,6 +1,6 @@ #include "cg0400.h" -PAGE "Riepilogo progressivi IVA" -1 -1 78 19 +PAGE "Riepilogo progressivi IVA" -1 -1 80 19 GROUPBOX DLG_NULL 78 3 BEGIN diff --git a/cg/cg0400b.uml b/cg/cg0400b.uml index ae816720c..6917353a5 100755 --- a/cg/cg0400b.uml +++ b/cg/cg0400b.uml @@ -1,6 +1,6 @@ #include "cg0400.h" -PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16 +PAGE "Stampa riepilogo progressivi IVA" -1 -1 80 16 GROUPBOX DLG_NULL 78 3 BEGIN @@ -16,7 +16,7 @@ BEGIN DISPLAY "Ditta" CODDITTA DISPLAY "Ragione sociale@50" RAGSOC OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC + OUTPUT F_RAGSOC RAGSOC CHECKTYPE REQUIRED WARNING "Ditta assente" END @@ -46,13 +46,13 @@ BEGIN CHECKTYPE REQUIRED END -LISTBOX F_MESE 9 +LISTBOX F_MESE 11 BEGIN PROMPT 2 7 "Mese riepilogo " FLAGS "AM" END -BOOLEAN F_STAMPA +BOOLEAN F_STAMPA BEGIN PROMPT 2 9 "Stampa progressivi da inizio anno " END @@ -60,18 +60,18 @@ END /* BUTTON DLG_PRINT 10 2 BEGIN - PROMPT -12 -1 "~Stampa" + PROMPT -12 -1 "~Stampa" END */ BUTTON DLG_OK 10 2 -BEGIN +BEGIN PROMPT -12 -1 "" END BUTTON DLG_QUIT 10 2 BEGIN - PROMPT -22 -1 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/cg/cg0500.cpp b/cg/cg0500.cpp index f8dfa7531..e3e29a317 100755 --- a/cg/cg0500.cpp +++ b/cg/cg0500.cpp @@ -79,8 +79,8 @@ protected: void init_mask(TMask&); virtual void on_config_change(); virtual void init_query_mode(TMask&); - virtual void init_insert_mode(TMask&); - virtual void init_modify_mode(TMask&); + virtual void init_insert_mode(TMask& m) { init_query_mode(m); } + virtual void init_modify_mode(TMask& m) { init_query_mode(m); } virtual int rewrite(const TMask& m); virtual int write(const TMask& m); virtual int read(TMask& m); @@ -162,8 +162,9 @@ void TCaus_app::carica_righe_libere(int from) for (int i = from; i < 20; i++) set_descr(i, ""); if (_last_descr != _tipo_des) - { - ss().force_update(); + { + if (curr_mask().is_running()) + ss().force_update(); _last_descr = _tipo_des; } } @@ -378,30 +379,6 @@ bool TCaus_app::tipomov_hndl (TMask_field& f, KEY k) return TRUE; } -/* -// Il codice causale per incasso immediato, se specificato, deve -// essere puramente contabile (= codreg vuoto e tpm = Nessuno -bool TCaus_app::codcausim_hndl (TMask_field& f, KEY k) -{ - if (f.to_check(k)) - { - TEdit_field& e = (TEdit_field&)f; - const TString& causim = e.get(); - - TLocalisamfile& caus = e.browse()->cursor()->file(); - caus.zero(); - caus.put(CAU_CODCAUS, causim); - if (caus.read() == NOERR) - { - const TString& codreg = caus.get(CAU_REG); - if (codreg.not_empty()) - return f.warning_box("La causale per l'incasso/pagamento immediato deve essere puramente contabile"); - } - } - return TRUE; -} -*/ - bool TCaus_app::mostra_campi() { TMask& m = curr_mask(); @@ -812,21 +789,9 @@ void TCaus_app::init_mask(TMask& m) void TCaus_app::init_query_mode(TMask& m) { - ss().reset(); init_mask(m); } -void TCaus_app::init_insert_mode(TMask& m) -{ - init_mask(m); -} - -void TCaus_app::init_modify_mode(TMask& m) -{ - init_mask(m); -} - - void TCaus_app::on_config_change() { TConfig conf(CONFIG_DITTA); @@ -857,7 +822,6 @@ void TCaus_app::on_config_change() bool TCaus_app::user_create() { _rel = new TRelation (LF_CAUSALI); - // _rel->add(LF_RCAUSALI, "CODCAUS=CODCAUS"); _rcaus = new TLocalisamfile(LF_RCAUSALI); _rcaus_rec = new TRecord_array(LF_RCAUSALI, RCA_NRIGA); @@ -868,7 +832,6 @@ bool TCaus_app::user_create() _msk->set_handler(F_TIPO_DOC, tipodoc_hndl); _msk->set_handler(F_COD_REG, cod_reg_hndl); _msk->set_handler(F_M_770, m770_hndl); -// _msk->set_handler(F_COD_CAUS_IM, codcausim_hndl); TSheet_field& cs = ss(); cs.set_notify(ss_notify);