d6bd8513a1
Files correlati : tc2.exe Ricompilazione Demo : [ ] Commento : Trasferimento IPSOA git-svn-id: svn://10.65.10.50/branches/R_10_00@21588 c028cbd2-c16b-5b4b-a496-9718f37d4682
220 lines
4.7 KiB
Plaintext
Executable File
220 lines
4.7 KiB
Plaintext
Executable File
#include "tc2800a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Riclassificazione Conti" 0 2 0 0
|
|
|
|
LIST F_COD 7
|
|
BEGIN
|
|
PROMPT 50 50 ""
|
|
ITEM "IPCONTI|IPCONTI"
|
|
FIELD TIPORIC
|
|
FLAGS "D"
|
|
KEY 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 9
|
|
BEGIN
|
|
PROMPT 1 1 "Conto Campo"
|
|
END
|
|
|
|
NUMBER F_GRUPPO2 3
|
|
BEGIN
|
|
PROMPT 2 2 "Gruppo "
|
|
HELP "Codice del gruppo"
|
|
FIELD GRUPPO
|
|
USE LF_RICLPDC
|
|
JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
|
JOIN &ICO TO LF_RICLPDC INTO CODTAB==CODICE
|
|
INPUT TIPORIC F_COD SELECT
|
|
INPUT GRUPPO F_GRUPPO2
|
|
INPUT CONTO F_CONTO2
|
|
INPUT SOTTOCONTO F_SOTTOCONTO2
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" LF_PCON->DESCR
|
|
DISPLAY "Gruppo TS" CODICE[1,2]
|
|
DISPLAY "Conto TS" CODICE[3,4]
|
|
DISPLAY "Sottoconto TS" CODICE[5,7]
|
|
DISPLAY "Descrizione@50" &TCO->S0
|
|
OUTPUT F_GRUPPO2 GRUPPO
|
|
OUTPUT F_CONTO2 CONTO
|
|
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
|
KEY 1
|
|
GROUP 1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 2 2 "Gruppo "
|
|
HELP "Codice del gruppo"
|
|
FIELD GRUPPO
|
|
KEY 1
|
|
GROUP 2
|
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
|
JOIN LF_RICLPDC INTO TIPORIC=="TSCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
|
JOIN &ICO TO LF_RICLPDC INTO CODTAB==CODICE
|
|
INPUT GRUPPO F_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo TS" LF_RICLPDC->CODICE[1,2]
|
|
DISPLAY "Conto TS" LF_RICLPDC->CODICE[3,4]
|
|
DISPLAY "Sottoconto TS" LF_RICLPDC->CODICE[5,7]
|
|
DISPLAY "Descrizione@50" &TCO->S0
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_GRUPPO2 GRUPPO
|
|
OUTPUT F_DESCG DESCR
|
|
CHECKTYPE REQUIRED
|
|
ADD RUN cg0 -0
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING F_DESCG 50
|
|
BEGIN
|
|
PROMPT 24 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CONTO2 3
|
|
BEGIN
|
|
PROMPT 2 4 "Conto "
|
|
HELP "Codice dell'eventuale conto"
|
|
FIELD CONTO
|
|
COPY ALL F_GRUPPO2
|
|
KEY 1
|
|
GROUP 1
|
|
CHECKTYPE NORMAL
|
|
WARNING "Manca il conto"
|
|
END
|
|
|
|
NUMBER F_CONTO 3
|
|
BEGIN
|
|
PROMPT 2 4 "Conto "
|
|
HELP "Codice dell'eventuale conto"
|
|
FIELD CONTO
|
|
KEY 1
|
|
GROUP 2
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
|
JOIN LF_RICLPDC INTO TIPORIC=="IPCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
|
JOIN &ICO TO LF_RICLPDC INTO CODTAB==CODICE
|
|
COPY INPUT F_GRUPPO
|
|
INPUT CONTO F_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Conto IPSOA" LF_RICLPDC->CODICE
|
|
DISPLAY "Descrizione@50" &ICO->S0
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_GRUPPO2 GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_CONTO2 CONTO
|
|
OUTPUT F_DESCC DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Manca il conto"
|
|
ADD RUN cg0 -0
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING F_DESCC 50
|
|
BEGIN
|
|
PROMPT 24 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO2 6
|
|
BEGIN
|
|
PROMPT 2 6 "Sottoconto "
|
|
HELP "Codice dell'eventuale sottoconto"
|
|
FIELD SOTTOCONTO
|
|
COPY ALL F_GRUPPO2
|
|
KEY 1
|
|
GROUP 1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 2 6 "Sottoconto "
|
|
HELP "Codice dell'eventuale sottoconto"
|
|
FIELD SOTTOCONTO
|
|
KEY 1
|
|
GROUP 2
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO!="")
|
|
JOIN LF_RICLPDC INTO TIPORIC=="IPCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
|
JOIN &ICO TO LF_RICLPDC INTO CODTAB==CODICE
|
|
COPY INPUT F_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Sosp." SOSPESO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Conto IPSOA" LF_RICLPDC->CODICE
|
|
DISPLAY "Descrizione@50" &ICO->S0
|
|
OUTPUT F_GRUPPO GRUPPO
|
|
OUTPUT F_GRUPPO2 GRUPPO
|
|
OUTPUT F_CONTO CONTO
|
|
OUTPUT F_CONTO2 CONTO
|
|
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SOTTOCONTO2 SOTTOCONTO
|
|
OUTPUT F_DESCRIZ DESCR
|
|
ADD RUN cg0 -0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "G"
|
|
END
|
|
|
|
STRING F_DESCRIZ 50
|
|
BEGIN
|
|
PROMPT 2 8 "Descrizione"
|
|
USE LF_PCON KEY 2
|
|
JOIN LF_RICLPDC INTO TIPORIC=="IPCONTI" GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
|
|
JOIN &ICO TO LF_RICLPDC INTO CODTAB==CODICE
|
|
INPUT DESCR F_DESCRIZ
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Conto IPSOA" LF_RICLPDC->CODICE
|
|
DISPLAY "Descrizione@50" &ICO->S0
|
|
COPY OUTPUT F_SOTTOCONTO
|
|
KEY 2
|
|
CHECKTYPE REQUIRED
|
|
GROUP 10
|
|
END
|
|
|
|
STRING F_IPCONTO 12
|
|
BEGIN
|
|
PROMPT 2 10 "Conto IPSOA "
|
|
CHECKTYPE SEARCH
|
|
USE &ICO
|
|
INPUT CODTAB F_IPCONTO
|
|
DISPLAY "Conto IPSOA" CODTAB
|
|
DISPLAY "Descrizione@60" S0
|
|
OUTPUT F_IPCONTO CODTAB
|
|
OUTPUT F_IPDESCR S0
|
|
FIELD CODICE
|
|
ADD RUN "TC2 -0 %ICO"
|
|
END
|
|
|
|
STRING F_IPDESCR 50
|
|
BEGIN
|
|
PROMPT 2 12 "Descrizione "
|
|
USE &ICO KEY 2
|
|
INPUT S0 F_IPDESCR
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Conto IPSOA" CODTAB
|
|
COPY OUTPUT F_IPCONTO
|
|
CHECKTYPE SEARCH
|
|
ADD RUN "TC2 -0 %ICO"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |