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
This commit is contained in:
angelo 1997-03-10 13:56:33 +00:00
parent 2fe4155683
commit 1639fd8114
2 changed files with 144 additions and 131 deletions

View File

@ -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);

View File

@ -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
ENDMASK