8b6010d722
Files correlati : Ricompilazione Demo : [ ] Commento : 0001678: 002659 - controllo qualità - richiesta parametri stampe tabelle cespiti Descrizione le maschere di richesta parametri delle stampe delle tabelle comuni dei cespiti sono old style git-svn-id: svn://10.65.10.50/branches/R_10_00@21823 c028cbd2-c16b-5b4b-a496-9718f37d4682
149 lines
2.9 KiB
Plaintext
Executable File
149 lines
2.9 KiB
Plaintext
Executable File
//definizione maschera per stampa tabella CCB
|
|
#include "cestccb.h"
|
|
|
|
PAGE "Stampa Esercizi/Gruppi/Specie" -1 -1 78 12
|
|
|
|
NUMBER F_INIZIO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Da esercizio "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[1,4]
|
|
USE CCB
|
|
INPUT CODTAB[1,4] F_INIZIO
|
|
INPUT CODTAB[5,6] F_INIZIO2
|
|
INPUT CODTAB[7,10] F_INIZIO3
|
|
DISPLAY "Esercizio" CODTAB[1,4]
|
|
DISPLAY "Gruppo" CODTAB[5,6]
|
|
DISPLAY "Specie" CODTAB[7,10]
|
|
OUTPUT F_INIZIO CODTAB[1,4]
|
|
OUTPUT F_INIZIO2 CODTAB[5,6]
|
|
OUTPUT F_INIZIO3 CODTAB[7,10]
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_INIZIO2 2
|
|
BEGIN
|
|
PROMPT 2 3 " codice gruppo "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[5,6]
|
|
USE CCB
|
|
JOIN %CGR ALIAS 105 INTO CODTAB==CODTAB[5,6]
|
|
INPUT CODTAB[1,4] F_INIZIO
|
|
INPUT CODTAB[5,6] F_INIZIO2
|
|
INPUT CODTAB[7,10] F_INIZIO3
|
|
COPY DISPLAY F_INIZIO
|
|
OUTPUT F_INIZIO CODTAB[1,4]
|
|
OUTPUT F_INIZIO2 CODTAB[5,6]
|
|
OUTPUT F_INIZIO3 CODTAB[7,10]
|
|
OUTPUT F_D_INIZIO2 105@->S0
|
|
GROUP 1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_INIZIO2 60 45
|
|
BEGIN
|
|
PROMPT 30 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_INIZIO3 4
|
|
BEGIN
|
|
PROMPT 2 4 " specie "
|
|
FLAGS "U_"
|
|
FIELD CODTAB[7,10]
|
|
USE CCB
|
|
JOIN %CAT ALIAS 106 INTO CODTAB==CODTAB[7,10]
|
|
INPUT CODTAB[1,4] F_INIZIO
|
|
INPUT CODTAB[5,6] F_INIZIO2
|
|
INPUT CODTAB[7,10] F_INIZIO3
|
|
COPY DISPLAY F_INIZIO
|
|
OUTPUT F_INIZIO CODTAB[1,4]
|
|
OUTPUT F_INIZIO2 CODTAB[5,6]
|
|
OUTPUT F_INIZIO3 CODTAB[7,10]
|
|
OUTPUT F_D_INIZIO3 106@->S0
|
|
GROUP 1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_INIZIO3 60 45
|
|
BEGIN
|
|
PROMPT 30 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_FINE 4
|
|
BEGIN
|
|
PROMPT 2 6 " a esercizio "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[1,4]
|
|
USE CCB
|
|
INPUT CODTAB[1,4] F_FINE
|
|
INPUT CODTAB[5,6] F_FINE2
|
|
INPUT CODTAB[7,10] F_FINE3
|
|
DISPLAY "Esercizio" CODTAB[1,4]
|
|
DISPLAY "Gruppo" CODTAB[5,6]
|
|
DISPLAY "Specie" CODTAB[7,10]
|
|
OUTPUT F_FINE CODTAB[1,4]
|
|
OUTPUT F_FINE2 CODTAB[5,6]
|
|
OUTPUT F_FINE3 CODTAB[7,10]
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_FINE2 2
|
|
BEGIN
|
|
PROMPT 2 7 " codice gruppo "
|
|
FLAGS "Z"
|
|
FIELD CODTAB[5,6]
|
|
USE CCB
|
|
JOIN %CGR ALIAS 105 INTO CODTAB==CODTAB[5,6]
|
|
INPUT CODTAB[1,4] F_FINE
|
|
INPUT CODTAB[5,6] F_FINE2
|
|
INPUT CODTAB[7,10] F_FINE3
|
|
COPY DISPLAY F_FINE
|
|
OUTPUT F_FINE CODTAB[1,4]
|
|
OUTPUT F_FINE2 CODTAB[5,6]
|
|
OUTPUT F_FINE3 CODTAB[7,10]
|
|
OUTPUT F_D_INIZIO2 105@->S0
|
|
GROUP 2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_FINE2 60 45
|
|
BEGIN
|
|
PROMPT 30 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_FINE3 4
|
|
BEGIN
|
|
PROMPT 2 8 " specie "
|
|
FLAGS "U_"
|
|
FIELD CODTAB[7,10]
|
|
USE CCB
|
|
JOIN %CAT ALIAS 106 INTO CODTAB==CODTAB[7,10]
|
|
INPUT CODTAB[1,4] F_FINE
|
|
INPUT CODTAB[5,6] F_FINE2
|
|
INPUT CODTAB[7,10] F_FINE3
|
|
COPY DISPLAY F_FINE
|
|
OUTPUT F_FINE CODTAB[1,4]
|
|
OUTPUT F_FINE2 CODTAB[5,6]
|
|
OUTPUT F_FINE3 CODTAB[7,10]
|
|
OUTPUT F_D_INIZIO3 106@->S0
|
|
GROUP 2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_D_FINE3 60 45
|
|
BEGIN
|
|
PROMPT 30 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "bottom" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
ENDMASK
|