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

Patch level : 10.0 558

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

Riclassifiacazione piano dei conti team system


git-svn-id: svn://10.65.10.50/trunk@19823 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-12-20 13:30:21 +00:00
parent a02c0df74d
commit 5e0d0e8c33
2 changed files with 46 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
tc/tc0800.cpp
View File

@ -89,43 +89,48 @@ void TTSRiclass_application::print()
void TTSRiclass_application::init_query_mode(TMask& m)
{
TRelation_application::init_query_mode(m);
m.show(-1);
m.hide(-2);
m.disable(-3);
m.show(-10, _use_pcn);
m.show(-1, _use_pcn);
m.enable(-1, _use_pcn);
m.show(-20, !_use_pcn);
m.hide(-2);
m.disable(-2);
m.disable(-10);
}
void TTSRiclass_application::init_query_insert_mode(TMask& m)
{
TRelation_application::init_query_insert_mode(m);
m.hide(-1);
m.show(-2);
m.enable(-3);
m.show(-10, _use_pcn);
m.disable(-1);
m.show(-20, !_use_pcn);
m.show(-2, _use_pcn);
m.enable(-2, _use_pcn);
m.enable(-10, _use_pcn);
}
void TTSRiclass_application::init_modify_mode(TMask& m)
{
TRelation_application::init_modify_mode(m);
m.show(-1);
m.show(-1, _use_pcn);
m.show(-20, !_use_pcn);
m.disable(-1);
m.hide(-2);
m.disable(-3);
m.show(-10, _use_pcn);
m.show(-20, !_use_pcn);
m.disable(-10);
}
void TTSRiclass_application::init_insert_mode(TMask& m)
{
TRelation_application::init_insert_mode(m);
m.show(-1);
m.show(-1, _use_pcn);
m.show(-20, !_use_pcn);
m.disable(-1);
m.hide(-2);
m.disable(-3);
m.show(-10, _use_pcn);
m.show(-20, !_use_pcn);
m.disable(-2);
m.disable(-10);
}
bool TTSRiclass_application::user_create()

50
tc/tc0800a.uml
View File

@ -28,9 +28,9 @@ BEGIN
USE LF_RICLPDC
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
INPUT TIPORIC F_COD SELECT
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
INPUT GRUPPO F_GRUPPO2
INPUT CONTO F_CONTO2
INPUT SOTTOCONTO F_SOTTOCONTO2
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
@ -38,12 +38,15 @@ BEGIN
DISPLAY "Gruppo TS" CODICE[1,2]
DISPLAY "Conto TS" CODICE[3,4]
DISPLAY "Sottoconto TS" CODICE[5,7]
OUTPUT F_DESCRIZ DESCRIZ
OUTPUT F_GRUPPO2 GRUPPO
OUTPUT F_CONTO2 CONTO
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCRIZ DESCRIZ
KEY 1
GROUP 2
GROUP 1
CHECKTYPE REQUIRED
END
@ -53,7 +56,7 @@ BEGIN
HELP "Codice del gruppo"
FIELD GRUPPO
KEY 1
GROUP 1 10
GROUP 2
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_GRUPPO
DISPLAY "Gruppo" GRUPPO
@ -61,6 +64,7 @@ BEGIN
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESCG DESCR
CHECKTYPE REQUIRED
FLAGS "G"
END
NUMBER F_GRUPPO1 3
@ -68,7 +72,7 @@ BEGIN
PROMPT 2 2 "Gruppo "
FIELD GRUPPO
KEY 1
GROUP 1 20
GROUP 20
FLAGS "H"
END
@ -76,7 +80,6 @@ STRING F_DESCG 50
BEGIN
PROMPT 24 2 ""
FLAGS "D"
GROUP 10
END
NUMBER F_CONTO2 3
@ -84,9 +87,9 @@ BEGIN
PROMPT 2 4 "Conto "
HELP "Codice dell'eventuale conto"
FIELD CONTO
COPY ALL F_GRUPPO
COPY ALL F_GRUPPO2
KEY 1
GROUP 2
GROUP 1
CHECKTYPE REQUIRED
WARNING "Manca il conto"
END
@ -97,7 +100,7 @@ BEGIN
HELP "Codice dell'eventuale conto"
FIELD CONTO
KEY 1
GROUP 1 10
GROUP 2
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
COPY INPUT F_GRUPPO
INPUT CONTO F_CONTO
@ -109,6 +112,7 @@ BEGIN
OUTPUT F_DESCC DESCR
CHECKTYPE REQUIRED
WARNING "Manca il conto"
FLAGS "G"
END
NUMBER F_CONTO1 3
@ -118,14 +122,13 @@ BEGIN
FIELD CONTO
FLAGS "H"
KEY 1
GROUP 1 20
GROUP 20
END
STRING F_DESCC 50
BEGIN
PROMPT 24 4 ""
FLAGS "D"
GROUP 10
END
NUMBER F_SOTTOCONTO2 6
@ -133,9 +136,9 @@ BEGIN
PROMPT 2 6 "Sottoconto "
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
COPY ALL F_GRUPPO
COPY ALL F_GRUPPO2
KEY 1
GROUP 2
GROUP 1
CHECKTYPE REQUIRED
END
@ -145,7 +148,7 @@ BEGIN
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
KEY 1
GROUP 1 10
GROUP 2
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
COPY INPUT F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
@ -154,11 +157,12 @@ BEGIN
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCRIZ DESCR
CHECKTYPE REQUIRED
FLAGS "G"
END
NUMBER F_SOTTOCONTO1 6
@ -167,7 +171,7 @@ BEGIN
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
KEY 1
GROUP 1 20
GROUP 20
FLAGS "H"
END
@ -183,6 +187,7 @@ BEGIN
COPY OUTPUT F_SOTTOCONTO
KEY 2
CHECKTYPE REQUIRED
GROUP 10
END
STRING F_TSGRUPPO 2
@ -203,7 +208,6 @@ BEGIN
OUTPUT F_TSDESCR S0
VALIDATE FIXLEN_FUNC 2
FIELD CODICE[1,2]
KEY 1
END
STRING F_TSCONTO 2
@ -213,7 +217,6 @@ BEGIN
CHECKTYPE REQUIRED
FIELD CODICE[3,4]
VALIDATE FIXLEN_FUNC 2
KEY 1
END
STRING F_TSSOTTOCONTO 3
@ -223,20 +226,19 @@ BEGIN
CHECKTYPE REQUIRED
FIELD CODICE[5,7]
VALIDATE FIXLEN_FUNC 3
KEY 1
END
STRING F_TSDESCR 50
BEGIN
PROMPT 2 12 "Descrizione "
USE &TCO
INPUT S0 F_TSGRUPPO
USE &TCO KEY 2
INPUT S0 F_TSDESCR
DISPLAY "Descrizione@60" S0
DISPLAY "Gruppo" CODTAB[1,2]
DISPLAY "Conto" CODTAB[3,4]
DISPLAY "Sottoconto" CODTAB[5,7]
COPY OUTPUT F_TSGRUPPO
CHECKTYPE NORMAL
CHECKTYPE SEARCH
END
ENDPAGE