118 lines
2.1 KiB
Plaintext
118 lines
2.1 KiB
Plaintext
|
#include "ca9400k.h"
|
||
|
|
|
||
|
|
PAGE "Stampa riclassificazione conti da contabili ad analitici" -1 -1 64 12
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 60 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "@bDa"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_DAGR 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 2 "Gruppo "
|
||
|
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
||
|
|
INPUT GRUPPO F_DAGR
|
||
|
|
DISPLAY "Gruppo" GRUPPO
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_DAGR GRUPPO
|
||
|
|
FIELD DAGR
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_DACO 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 "Conto "
|
||
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||
|
|
COPY INPUT F_DAGR
|
||
|
|
INPUT CONTO F_DACO
|
||
|
|
DISPLAY "Gruppo" GRUPPO
|
||
|
|
DISPLAY "Conto" CONTO
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_DAGR GRUPPO
|
||
|
|
OUTPUT F_DACO CONTO
|
||
|
|
VALIDATE REQIF_FUNC 1 F_DASOTT
|
||
|
|
FIELD DACO
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_DASOTT 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 4 "Sottoconto "
|
||
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||
|
|
COPY INPUT F_DACO
|
||
|
|
INPUT SOTTOCONTO F_DASOTT
|
||
|
|
DISPLAY "Gruppo" GRUPPO
|
||
|
|
DISPLAY "Conto" CONTO
|
||
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_DASOTT SOTTOCONTO
|
||
|
|
OUTPUT F_DAGR GRUPPO
|
||
|
|
OUTPUT F_DACO CONTO
|
||
|
|
FIELD DASOTT
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 60 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 6 "@bA"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_AGR 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Gruppo "
|
||
|
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
||
|
|
INPUT GRUPPO F_AGR
|
||
|
|
DISPLAY "Gruppo" GRUPPO
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_AGR GRUPPO
|
||
|
|
FIEELD AGR
|
||
|
|
KEY 2
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ACO 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 8 "Conto "
|
||
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
||
|
|
COPY INPUT F_AGR
|
||
|
|
INPUT CONTO F_ACO
|
||
|
|
DISPLAY "Gruppo" GRUPPO
|
||
|
|
DISPLAY "Conto" CONTO
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_AGR GRUPPO
|
||
|
|
OUTPUT F_ACO CONTO
|
||
|
|
VALIDATE REQIF_FUNC 1 F_ASOTT
|
||
|
|
FIELD ACO
|
||
|
|
KEY 2
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER F_ASOTT 6
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 9 "Sottoconto "
|
||
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
||
|
|
COPY INPUT F_ACO
|
||
|
|
INPUT SOTTOCONTO F_ASOTT
|
||
|
|
DISPLAY "Gruppo" GRUPPO
|
||
|
|
DISPLAY "Conto" CONTO
|
||
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||
|
|
DISPLAY "Descrizione@50" DESCR
|
||
|
|
OUTPUT F_ASOTT SOTTOCONTO
|
||
|
|
OUTPUT F_AGR GRUPPO
|
||
|
|
OUTPUT F_ACO CONTO
|
||
|
|
FIELD ASOTT
|
||
|
|
KEY 2
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_PRINT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -12 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_QUIT 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -22 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|