root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 504

Browse Source 
Files correlati     :  tc0.exe tc1.exe
Ricompilazione Demo : [ ]

Tabelle di correlazione zucchetti non finito


git-svn-id: svn://10.65.10.50/trunk@19588 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-11-09 01:16:29 +00:00
parent a8a516e528
commit f16f316f93
5 changed files with 34 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tc/tc0800a.uml
View File

@ -34,7 +34,7 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCRIZ
DISPLAY "Descrizione@50" LF_PCON->DESCR
DISPLAY "Gruppo TS" CODICE[1,2]
DISPLAY "Conto TS" CODICE[3,4]
DISPLAY "Sottoconto TS" CODICE[5,7]

17
tc/tc1800.cpp
View File

@ -91,39 +91,32 @@ void TZCRiclass_application::init_insert_mode(TMask& m)
m.show(-1);
m.disable(-1);
m.hide(-2);
m.disable(-3);
}
void TZCRiclass_application::init_query_mode(TMask& m)
{
m.show(-1);
m.hide(-2);
m.enable(-3);
}
void TZCRiclass_application::init_query_insert_mode(TMask& m)
{
m.hide(-1);
m.show(-2);
m.enable(-3);
}
void TZCRiclass_application::init_modify_mode(TMask& m)
{
for (int i = m.fields() - 1; i >= 0; i--)
{
TMask_field& c = m.fld(i);
if (c.in_group(1) && c.is_edit())
{
TEdit_field& e = (TEdit_field&)c;
e.enable();
if (e.browse() != NULL)
e.enable_check();
}
}
TRelation_application::init_modify_mode(m);
_gruppo = m.get_int(F_GRUPPO);
_conto = m.get_int(F_CONTO);
_sottoconto = m.get_long(F_SOTTOCONTO);
m.show(-1);
m.disable(-1);
m.hide(-2);
m.disable(-3);
}
bool TZCRiclass_application::user_create()

48
tc/tc1800a.uml
View File

@ -27,6 +27,7 @@ BEGIN
FIELD GRUPPO
KEY 1
USE LF_RICLPDC
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
INPUT TIPORIC F_COD
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
@ -34,11 +35,11 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCRIZ
DISPLAY "Descrizione@50" LF_PCON->DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESC DESCRIZ
// OUTPUT F_DESC LF_PCON->DESCR
MESSAGE_COPY F_GRUPPO1
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
CHECKTYPE NORMAL
@ -83,24 +84,6 @@ BEGIN
GROUP 1
END
STRING F_DESC 50
BEGIN
PROMPT 24 4 ""
USE LF_PCON KEY 2
KEY 2
FILED DESCRIZ
INPUT DESCR F_DESC
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
CHECKTYPE NORMAL
HELP "Descrizione del gruppo o del conto o del sottoconto"
WARNING "Descrizione mancante"
END
NUMBER F_GRUPPO1 3
BEGIN
PROMPT 2 2 "Gruppo "
@ -157,9 +140,9 @@ BEGIN
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCONTO1 SOTTOCONTO
OUTPUT F_GRUPPO1 GRUPPO
OUTPUT F_CONTO1 CONTO
OUTPUT F_SOTTOCONTO1 SOTTOCONTO
OUTPUT F_DESC DESCR
CHECKTYPE NORMAL
GROUP 2
@ -167,12 +150,30 @@ BEGIN
ADD RUN cg0 -0
END
STRING F_DESC 50
BEGIN
PROMPT 24 4 ""
USE LF_PCON KEY 2
KEY 2
INPUT DESCR F_DESC
DISPLAY "Descrizione@50" DESCR
DISPLAY "Sosp." SOSPESO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOCONTO
CHECKTYPE NORMAL
HELP "Descrizione del gruppo o del conto o del sottoconto"
WARNING "Descrizione mancante"
GROUP 3
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 6 "Conto Zucchetti"
END
STRING F_CONTOZU 6
STRING F_CONTOZU 5
BEGIN
PROMPT 2 7 "Sottoconto "
USE &ZCO
@ -194,8 +195,7 @@ BEGIN
DISPLAY "Descrizione@50" S0
DISPLAY "Conto Zucchetti" CODTAB
COPY OUTPUT F_CONTOZU
FIELD DESCRIZ
CHECKTYPE REQUIRED
CHECKTYPE NORMAL
END

1
tc/tcmenu.men
View File

@ -75,6 +75,7 @@ Flags = ""
Item_01 = "Banche", "tc1 -1 &ZBA", ""
Item_02 = "Causali", "tc1 -1 &ZCA", ""
Item_03 = "Codici IVA", "tc1 -1 &ZIV", ""
Item_04 = "Conti", "tc1 -1 &ZCO", ""
[TCMENU_008]
Caption = "Tabelle di Riclassificazione"

4
tc/tctbzco.uml
View File

@ -11,7 +11,7 @@ BEGIN
PROMPT 1 1 "Conto Zucchetti"
END
NUMBER F_CODTAB 6
NUMBER F_CODTAB 5
BEGIN
PROMPT 2 2 "Codice "
USE &ZCO
@ -29,7 +29,7 @@ END
STRING F_DESC 50
BEGIN
PROMPT 2 5 "Descrizione "
USE &ZCO KEY 2
USE &TCZCO KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB