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:
parent
2fe4155683
commit
1639fd8114
@ -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);
|
||||
|
250
cg/cg3200a.uml
250
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
|
||||
ENDMASK
|
||||
|
Loading…
x
Reference in New Issue
Block a user