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


git-svn-id: svn://10.65.10.50/trunk@19592 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2009-11-09 11:56:21 +00:00
parent ffe55a810c
commit da8bb58075
2 changed files with 28 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tc/tc1800a.h
View File

@ -4,7 +4,6 @@
#define F_GRUPPO 102
#define F_CONTO 103
#define F_SOTTOCONTO 104
#define F_GRUPPO1 105
#define F_CONTO1 106
#define F_SOTTOCONTO1 107
#define F_DESCG 108

71
tc/tc1800a.uml
View File

@ -4,7 +4,7 @@ TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "" 0 2 0 0
PAGE "Riclassificazione conti" 0 2 0 0
LIST F_COD 7
BEGIN
@ -26,24 +26,15 @@ BEGIN
HELP "Codice del gruppo"
FIELD GRUPPO
KEY 1
USE LF_RICLPDC
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
INPUT TIPORIC F_COD
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" LF_PCON->DESCR
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
// OUTPUT F_DESC LF_PCON->DESCR
MESSAGE_COPY F_GRUPPO1
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
CHECKTYPE NORMAL
GROUP 1
OUTPUT F_DESCG DESCR
CHECKTYPE FORCED
ADD RUN cg0 -0
// GROUP 1
END
STRING F_DESCG 50
@ -58,9 +49,22 @@ BEGIN
HELP "Codice dell'eventuale conto"
FIELD CONTO
KEY 1
COPY ALL F_GRUPPO
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
INPUT SOTTOCONTO F_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" LF_PCON->DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESC LF_PCON->DESCR
CHECKTYPE NORMAL
MESSAGE_COPY F_CONTO1
MESSAGE COPY,F_CONTO1
VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
WARNING "Manca il conto"
GROUP 1
@ -78,31 +82,12 @@ BEGIN
HELP "Codice dell'eventuale sottoconto"
FIELD SOTTOCONTO
KEY 1
COPY ALL F_GRUPPO
MESSAGE_COPY F_SOTTOCONTO1
COPY ALL F_CONTO
MESSAGE COPY,F_SOTTOCONTO1
CHECKTYPE NORMAL
GROUP 1
END
NUMBER F_GRUPPO1 3
BEGIN
PROMPT 2 2 "Gruppo "
HELP "Codice del gruppo"
FIELD GRUPPO
KEY 1
USE LF_PCON KEY 1 SELECT CONTO=""
INPUT GRUPPO F_GRUPPO1
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_DESCG DESCR
VALIDATE REQIF_FUNC 1 F_CONTO1
CHECKTYPE NORMAL
GROUP 2
FLAGS "HG"
ADD RUN cg0 -0
END
NUMBER F_CONTO1 3
BEGIN
PROMPT 2 3 "Conto "
@ -110,12 +95,12 @@ BEGIN
FIELD CONTO
KEY 1
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
COPY INPUT F_GRUPPO1
COPY INPUT F_GRUPPO
INPUT CONTO F_CONTO1
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO1 GRUPPO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO1 CONTO
OUTPUT F_DESCC DESCR
CHECKTYPE REQUIRED
@ -140,7 +125,7 @@ BEGIN
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Sosp." SOSPESO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO1 GRUPPO
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO1 CONTO
OUTPUT F_SOTTOCONTO1 SOTTOCONTO
OUTPUT F_DESC DESCR
@ -194,7 +179,7 @@ BEGIN
INPUT S0 F_DESCRIZ
DISPLAY "Descrizione@50" S0
DISPLAY "Conto Zucchetti" CODTAB
COPY OUTPUT F_CONTOZU
// COPY OUTPUT F_CONTOZU
CHECKTYPE NORMAL
END