From 1639fd8114819ddb9b3a31226434eb8c3c3e655a Mon Sep 17 00:00:00 2001 From: angelo Date: Mon, 10 Mar 1997 13:56:33 +0000 Subject: [PATCH] Corretti Errori MI6180, MI6181, MI6182, MI6184, MI6185, MI6188, MI6190, MI6177, MI6178, MI6179. git-svn-id: svn://10.65.10.50/trunk@4183 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg3200.cpp | 25 +++-- cg/cg3200a.uml | 250 +++++++++++++++++++++++++------------------------ 2 files changed, 144 insertions(+), 131 deletions(-) diff --git a/cg/cg3200.cpp b/cg/cg3200.cpp index a91e59fd2..73be8be80 100755 --- a/cg/cg3200.cpp +++ b/cg/cg3200.cpp @@ -419,13 +419,11 @@ bool TMastrini_application::gruppo_hnd (TMask_field& f, KEY k) bool TMastrini_application::contoi_hnd (TMask_field& f, KEY k) { - TLocalisamfile pconti (LF_PCON); - TString ds; - - const short id = f.dlg(); - - if (k == K_TAB && f.mask().is_running()) + if (k == K_TAB && f.focusdirty() && f.mask().is_running()) { + TLocalisamfile pconti (LF_PCON); + TString ds; + const short id = f.dlg(); int gruppo = f.mask().get_int(F_GRUPPOINI); int conto = f.mask().get_int(id); @@ -476,8 +474,6 @@ bool TMastrini_application::contoi_hnd (TMask_field& f, KEY k) bool TMastrini_application::contof_hnd (TMask_field& f, KEY k) { - TLocalisamfile pconti (LF_PCON); - TString ds; const short id = f.dlg(); if (k == K_ENTER) @@ -511,8 +507,10 @@ bool TMastrini_application::contof_hnd (TMask_field& f, KEY k) return f.error_box("Il conto di partenza deve essere inferiore o uguale al conto di arrivo"); } - if (k == K_TAB && f.mask().is_running()) + if (k == K_TAB && f.focusdirty() && f.mask().is_running()) { + TLocalisamfile pconti (LF_PCON); + TString ds; int gruppo = f.mask().get_int(F_GRUPPOFINE); int conto = f.mask().get_int(id); if (gruppo != 0 && conto != 0) @@ -596,7 +594,12 @@ bool TMastrini_application::memorizza_handler(TMask_field& f, KEY k) { bool ok = TRUE; if (k == K_SPACE) + { + TMask& m = f.mask(); ok = app().mask2sheet(); + m.reset(-9); + m.set_focus_field(F_TIPOCF_INI); + } return ok; } @@ -2404,6 +2407,8 @@ bool TMastrini_application::set_print(int) _numcarat = _msk->get_int(F_NUMCARAT); _nummast = _msk->get_int(F_NUMMAST); + _data_ini = _msk->get_date(F_DATAINI); + _data_fine = _msk->get_date(F_DATAFINE); int formato = _msk->get_int(F_FORMATO); // Molto scenografico! ricerca_dati_ditta(); @@ -3927,7 +3932,7 @@ bool TMastrini_application::mask2sheet() { TSheet_field& sht = (TSheet_field&)_msk->field(F_SCELTE); TString_array& rows = sht.rows_array(); - ok = rows.find(row) < 0; + ok = rows.find(row) < 0 && rows.items() == 0; // Aggiunge solo se nello sheet non c'e' nulla if (ok) { rows.add(row); diff --git a/cg/cg3200a.uml b/cg/cg3200a.uml index af580c115..2e81af125 100755 --- a/cg/cg3200a.uml +++ b/cg/cg3200a.uml @@ -10,7 +10,7 @@ END BUTTON F_MEMORIZZA 16 2 BEGIN - PROMPT -23 -11 "Memorizza scelte" + PROMPT -23 -11 "~Memorizza scelte" END BUTTON DLG_QUIT 16 2 @@ -82,16 +82,17 @@ LIST F_TIPOCF_INI 25 BEGIN PROMPT 4 4 "Ricerca " ITEM " |Gruppo/conto/sottoconto" - MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@ + MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|RESET,1@|SHOW,1@|RESET,F_GRUPPOINI ITEM "C|Clienti" - MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@ + MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|RESET,2@|SHOW,2@|RESET,F_GRUPPOINI ITEM "F|Fornitori" - MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@ + MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|RESET,3@|SHOW,3@|RESET,F_GRUPPOINI END NUMBER F_GRUPPOINI 3 BEGIN PROMPT 4 5 "Da Gruppo - Conto - Sottoconto " + GROUP 9 END NUMBER F_CONTOINI_CONTO 3 @@ -107,9 +108,9 @@ BEGIN OUTPUT F_CONTOINI_CONTO CONTO CHECKTYPE NORMAL WARNING "Conto inesistente o mancante" - MESSAGE DIRTY,F_SOTTOCINI_CONTO +// MESSAGE DIRTY,F_SOTTOCINI_CONTO VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO - GROUP 1 + GROUP 1 9 END NUMBER F_CONTOINI_CLIENTE 3 @@ -128,7 +129,7 @@ BEGIN WARNING "Conto inesistente o mancante" MESSAGE DIRTY,F_SOTTOCINI_CLIENTE MESSAGE COPY,F_CONTOINI_CONTO - GROUP 2 + GROUP 2 9 END NUMBER F_CONTOINI_FORN 3 @@ -147,7 +148,7 @@ BEGIN WARNING "Conto inesistente o mancante" MESSAGE DIRTY,F_SOTTOCINI_FORN MESSAGE COPY,F_CONTOINI_CONTO - GROUP 3 + GROUP 3 9 END NUMBER F_SOTTOCINI_CONTO 6 @@ -166,7 +167,7 @@ BEGIN OUTPUT F_CONTOINI_CONTO CONTO OUTPUT F_DESCRINI_CONTO DESCR CHECKTYPE NORMAL - GROUP 1 + GROUP 1 9 END STRING F_DESCRINI_CONTO 50 @@ -180,7 +181,7 @@ BEGIN DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO COPY OUTPUT F_SOTTOCINI_CONTO - GROUP 1 + GROUP 1 9 END NUMBER F_SOTTOCINI_CLIENTE 6 @@ -197,7 +198,7 @@ BEGIN OUTPUT F_SOTTOCINI_CLIENTE CODCF OUTPUT F_DESCRINI_CLIENTE RAGSOC MESSAGE COPY,F_SOTTOCINI_CONTO - GROUP 2 + GROUP 2 9 END STRING F_DESCRINI_CLIENTE 50 @@ -214,7 +215,7 @@ BEGIN COPY OUTPUT F_SOTTOCINI_CLIENTE MESSAGE COPY,F_DESCRINI_CONTO CHECKTYPE NORMAL - GROUP 2 + GROUP 2 9 END NUMBER F_SOTTOCINI_FORN 6 @@ -231,7 +232,7 @@ BEGIN OUTPUT F_SOTTOCINI_FORN CODCF OUTPUT F_DESCRINI_FORN RAGSOC FLAGS "R" - GROUP 3 + GROUP 3 9 MESSAGE COPY,F_SOTTOCINI_CONTO END @@ -248,23 +249,24 @@ BEGIN COPY OUTPUT F_SOTTOCINI_FORN MESSAGE COPY,F_DESCRINI_CONTO CHECKTYPE NORMAL - GROUP 3 + GROUP 3 9 END LIST F_TIPOCF_FINE 25 BEGIN PROMPT 4 7 "Ricerca " ITEM " |Gruppo/conto/sottoconto" - MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@ + MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|RESET,4@|SHOW,4@|RESET,F_GRUPPOFINE ITEM "C|Clienti" - MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@ + MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|RESET,5@|SHOW,5@|RESET,F_GRUPPOFINE ITEM "F|Fornitori" - MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@ + MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|RESET,6@|SHOW,6@|RESET,F_GRUPPOFINE END NUMBER F_GRUPPOFINE 3 BEGIN - PROMPT 4 8 "A Gruppo - Conto - Sottoconto " + PROMPT 4 8 "A Gruppo - Conto - Sottoconto " + GROUP 9 END NUMBER F_CONTOFINE_CONTO 3 @@ -281,8 +283,8 @@ BEGIN CHECKTYPE NORMAL VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO WARNING "Conto inesistente o mancante" - MESSAGE DIRTY,F_SOTTOCFINE_CONTO - GROUP 4 +// MESSAGE DIRTY,F_SOTTOCFINE_CONTO + GROUP 4 9 END NUMBER F_CONTOFINE_CLIENTE 3 @@ -301,7 +303,7 @@ BEGIN WARNING "Conto inesistente o mancante" MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE MESSAGE COPY,F_CONTOFINE_CONTO - GROUP 5 + GROUP 5 9 END NUMBER F_CONTOFINE_FORN 3 @@ -320,7 +322,7 @@ BEGIN WARNING "Conto inesistente o mancante" MESSAGE DIRTY,F_SOTTOCFINE_FORN MESSAGE COPY,F_CONTOFINE_CONTO - GROUP 6 + GROUP 6 9 END NUMBER F_SOTTOCFINE_CONTO 6 @@ -340,7 +342,7 @@ BEGIN OUTPUT F_DESCRFINE_CONTO DESCR CHECKTYPE NORMAL WARNING "Sottoconto inesistente o mancante" - GROUP 4 + GROUP 4 9 END STRING F_DESCRFINE_CONTO 50 @@ -354,7 +356,7 @@ BEGIN DISPLAY "Conto" CONTO DISPLAY "Sottoconto" SOTTOCONTO COPY OUTPUT F_SOTTOCFINE_CONTO - GROUP 4 + GROUP 4 9 END NUMBER F_SOTTOCFINE_CLIENTE 6 @@ -372,7 +374,7 @@ BEGIN OUTPUT F_SOTTOCFINE_CLIENTE CODCF OUTPUT F_DESCRFINE_CLIENTE RAGSOC MESSAGE COPY,F_SOTTOCFINE_CONTO - GROUP 5 + GROUP 5 9 END STRING F_DESCRFINE_CLIENTE 50 @@ -389,7 +391,7 @@ BEGIN DISPLAY "Codice" CODCF COPY OUTPUT F_SOTTOCFINE_CLIENTE MESSAGE COPY,F_DESCRFINE_CONTO - GROUP 5 + GROUP 5 9 END NUMBER F_SOTTOCFINE_FORN 6 @@ -407,7 +409,7 @@ BEGIN OUTPUT F_SOTTOCFINE_FORN CODCF OUTPUT F_DESCRFINE_FORN RAGSOC MESSAGE COPY,F_SOTTOCFINE_CONTO - GROUP 6 + GROUP 6 9 END STRING F_DESCRFINE_FORN 50 @@ -423,7 +425,7 @@ BEGIN DISPLAY "Codice" CODCF COPY OUTPUT F_SOTTOCFINE_FORN MESSAGE COPY,F_DESCRFINE_CONTO - GROUP 6 + GROUP 6 9 END DATE F_DATAINI @@ -507,11 +509,11 @@ BEGIN ITEM "Sottoc." ITEM "Dal@10" ITEM "Al@10" - ITEM "IVA" + ITEM "Stampa numerazione" ITEM "Progr." - ITEM "Provvis." - ITEM "Numerazione" - ITEM "Stampa" + ITEM "Totali IVA" + ITEM "Tipo stampa" + ITEM "Provv." END ENDPAGE @@ -542,7 +544,7 @@ BEGIN ITEM "C|Clienti" MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@ ITEM "F|Fornitori" - MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@ + MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@ END NUMBER F_GRUPPOINI 3 @@ -550,24 +552,6 @@ BEGIN PROMPT 44 2 "" END -NUMBER F_CONTOINI_CONTO 3 -BEGIN - PROMPT 50 2 "" - USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") - INPUT GRUPPO F_GRUPPOINI - INPUT CONTO F_CONTOINI_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOINI GRUPPO - OUTPUT F_CONTOINI_CONTO CONTO - CHECKTYPE NORMAL - WARNING "Conto inesistente o mancante" - MESSAGE DIRTY,F_SOTTOCINI_CONTO - VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO - GROUP 1 -END - NUMBER F_CONTOINI_CLIENTE 3 BEGIN PROMPT 50 2 "" @@ -606,36 +590,22 @@ BEGIN GROUP 3 END -NUMBER F_SOTTOCINI_CONTO 6 +NUMBER F_CONTOINI_CONTO 3 BEGIN - PROMPT 58 2 "" - USE LF_PCON SELECT SOTTOCONTO!="" + PROMPT 50 2 "" + USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") INPUT GRUPPO F_GRUPPOINI INPUT CONTO F_CONTOINI_CONTO - INPUT SOTTOCONTO F_SOTTOCINI_CONTO DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Descrizione@50" DESCR - OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO OUTPUT F_GRUPPOINI GRUPPO OUTPUT F_CONTOINI_CONTO CONTO - OUTPUT F_DESCRINI_CONTO DESCR +// OUTPUT F_DESCRINI_CONTO DESCR CHECKTYPE NORMAL - GROUP 1 -END - -STRING F_DESCRINI_CONTO 50 -BEGIN - PROMPT 1 3 "Descrizione " - USE LF_PCON KEY 2 - CHECKTYPE NORMAL - INPUT DESCR F_DESCRINI_CONTO - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCINI_CONTO + WARNING "Conto inesistente o mancante" + MESSAGE DIRTY,F_SOTTOCINI_CONTO + VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO GROUP 1 END @@ -652,14 +622,14 @@ BEGIN DISPLAY "Conto" CONTO OUTPUT F_SOTTOCINI_CLIENTE CODCF OUTPUT F_DESCRINI_CLIENTE RAGSOC - MESSAGE COPY,F_SOTTOCINI_CONTO + FLAGS "R" GROUP 2 + MESSAGE COPY,F_SOTTOCINI_CONTO END STRING F_DESCRINI_CLIENTE 50 BEGIN PROMPT 1 3 "Cliente " - FIELD LF_CLIFO->RAGSOC USE LF_CLIFO KEY 2 INPUT TIPOCF "C" INPUT RAGSOC F_DESCRINI_CLIENTE @@ -706,7 +676,42 @@ BEGIN CHECKTYPE NORMAL GROUP 3 END - + +NUMBER F_SOTTOCINI_CONTO 6 +BEGIN + PROMPT 58 2 "" + USE LF_PCON SELECT SOTTOCONTO!="" + INPUT GRUPPO F_GRUPPOINI + INPUT CONTO F_CONTOINI_CONTO + INPUT SOTTOCONTO F_SOTTOCINI_CONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO + OUTPUT F_GRUPPOINI GRUPPO + OUTPUT F_CONTOINI_CONTO CONTO + OUTPUT F_DESCRINI_CONTO DESCR + CHECKTYPE NORMAL + FLAGS "R" + GROUP 1 +END + +STRING F_DESCRINI_CONTO 50 +BEGIN + PROMPT 1 3 "Descrizione " +// FIELD LF_PCON->DESCR + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRINI_CONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCINI_CONTO + CHECKTYPE NORMAL + GROUP 1 +END + LIST F_TIPOCF_FINE 25 BEGIN PROMPT 1 4 "Al conto " @@ -715,7 +720,7 @@ BEGIN ITEM "C|Clienti" MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@ ITEM "F|Fornitori" - MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@ + MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@ END NUMBER F_GRUPPOFINE 3 @@ -723,24 +728,6 @@ BEGIN PROMPT 44 4 "" END -NUMBER F_CONTOFINE_CONTO 3 -BEGIN - PROMPT 50 4 "" - USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") - INPUT GRUPPO F_GRUPPOFINE - INPUT CONTO F_CONTOFINE_CONTO - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Descrizione@50" DESCR - OUTPUT F_GRUPPOFINE GRUPPO - OUTPUT F_CONTOFINE_CONTO CONTO - CHECKTYPE NORMAL - VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO - WARNING "Conto inesistente o mancante" - MESSAGE DIRTY,F_SOTTOCFINE_CONTO - GROUP 4 -END - NUMBER F_CONTOFINE_CLIENTE 3 BEGIN PROMPT 50 4 "" @@ -779,37 +766,21 @@ BEGIN GROUP 6 END -NUMBER F_SOTTOCFINE_CONTO 6 +NUMBER F_CONTOFINE_CONTO 3 BEGIN - PROMPT 58 4 "" - USE LF_PCON SELECT SOTTOCONTO!="" + PROMPT 50 4 "" + USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="") INPUT GRUPPO F_GRUPPOFINE INPUT CONTO F_CONTOFINE_CONTO - INPUT SOTTOCONTO F_SOTTOCFINE_CONTO DISPLAY "Gruppo" GRUPPO DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Descrizione@50" DESCR - OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO OUTPUT F_GRUPPOFINE GRUPPO OUTPUT F_CONTOFINE_CONTO CONTO - OUTPUT F_DESCRFINE_CONTO DESCR - CHECKTYPE NORMAL - WARNING "Sottoconto inesistente o mancante" - GROUP 4 -END - -STRING F_DESCRFINE_CONTO 50 -BEGIN - PROMPT 1 5 "Descrizione " - USE LF_PCON KEY 2 - CHECKTYPE NORMAL - INPUT DESCR F_DESCRINI_CONTO - DISPLAY "Descrizione@50" DESCR - DISPLAY "Gruppo" GRUPPO - DISPLAY "Conto" CONTO - DISPLAY "Sottoconto" SOTTOCONTO - COPY OUTPUT F_SOTTOCFINE_CONTO + CHECKTYPE NORMAL + WARNING "Conto inesistente o mancante" + MESSAGE DIRTY,F_SOTTOCFINE_CONTO + VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO GROUP 4 END @@ -827,15 +798,15 @@ BEGIN DISPLAY "Conto" CONTO OUTPUT F_SOTTOCFINE_CLIENTE CODCF OUTPUT F_DESCRFINE_CLIENTE RAGSOC - MESSAGE COPY,F_SOTTOCFINE_CONTO + FLAGS "R" GROUP 5 + MESSAGE COPY,F_SOTTOCFINE_CONTO END STRING F_DESCRFINE_CLIENTE 50 BEGIN PROMPT 1 5 "Cliente " - FIELD LF_CLIFO->RAGSOC - CHECKTYPE NORMAL +// FIELD LF_CLIFO->RAGSOC USE LF_CLIFO KEY 2 INPUT TIPOCF "C" INPUT RAGSOC F_DESCRFINE_CLIENTE @@ -845,6 +816,7 @@ BEGIN DISPLAY "Codice" CODCF COPY OUTPUT F_SOTTOCFINE_CLIENTE MESSAGE COPY,F_DESCRFINE_CONTO + CHECKTYPE NORMAL GROUP 5 END @@ -882,6 +854,42 @@ BEGIN GROUP 6 END +NUMBER F_SOTTOCFINE_CONTO 6 +BEGIN + PROMPT 58 4 "" + USE LF_PCON SELECT SOTTOCONTO!="" + INPUT GRUPPO F_GRUPPOFINE + INPUT CONTO F_CONTOFINE_CONTO + INPUT SOTTOCONTO F_SOTTOCFINE_CONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO + OUTPUT F_GRUPPOFINE GRUPPO + OUTPUT F_CONTOFINE_CONTO CONTO + OUTPUT F_DESCRFINE_CONTO DESCR + CHECKTYPE NORMAL + FLAGS "R" + WARNING "Sottoconto inesistente o mancante" + GROUP 4 +END + +STRING F_DESCRFINE_CONTO 50 +BEGIN + PROMPT 1 5 "Descrizione " +// FIELD LF_PCON->DESCR + USE LF_PCON KEY 2 + INPUT DESCR F_DESCRINI_CONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCFINE_CONTO + CHECKTYPE NORMAL + GROUP 4 +END + DATE F_DATAINI BEGIN PROMPT 1 6 "Dalla data " @@ -941,4 +949,4 @@ END ENDPAGE -ENDMASK \ No newline at end of file +ENDMASK