958c8fd522
Files correlati : ce0.exe ce2.exe cetbccb.msk Ricompilazione Demo : [ ] Commento : 0001153: anagrafico cespiti il gruppo specie non viene riconosciuto, quindi la ricerca non trova nessun cespite. La ricerca alfabetica della categoria scarta in funzione del maiuscolo/minuscolo. git-svn-id: svn://10.65.10.50/trunk@18203 c028cbd2-c16b-5b4b-a496-9718f37d4682
149 lines
2.9 KiB
Plaintext
Executable File
149 lines
2.9 KiB
Plaintext
Executable File
#define GR_SEARCH 29
|
|
#include "cetbccb.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Attivita' Cespiti" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CODESER_CCB 4
|
|
BEGIN
|
|
PROMPT 2 1 "Codice esercizio "
|
|
FLAGS "PZ"
|
|
KEY 1
|
|
USE CCE
|
|
JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
|
|
FIELD CODTAB[1,4]
|
|
INPUT CODTAB F_CODESER_CCB
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" 105@->D0
|
|
DISPLAY "Data fine esercizio" 105@->D1
|
|
OUTPUT F_CODESER_CCB CODTAB
|
|
OUTPUT F_DATAINI_CCB 105@->D0
|
|
OUTPUT F_DATAFINE_CCB 105@->D1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAINI_CCB
|
|
BEGIN
|
|
PROMPT 29 1 "Data inizio "
|
|
FLAGS "DP" //il flag P serve perché la data rimanga visibile quando la maschera viene chiamata da cetbcce
|
|
END
|
|
|
|
DATE F_DATAFINE_CCB
|
|
BEGIN
|
|
PROMPT 54 1 "Data fine "
|
|
FLAGS "DP"
|
|
END
|
|
|
|
NUMBER F_CODGR_CCB 2
|
|
BEGIN
|
|
PROMPT 2 2 "Gruppo "
|
|
FIELD CODTAB[5,6]
|
|
FLAGS "Z"
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_CODSP_CCB 4 //campo per l'inserimento di una specie esistente
|
|
BEGIN
|
|
PROMPT 15 2 "Specie "
|
|
FIELD CODTAB[7,10]
|
|
FLAGS "_"
|
|
KEY 1
|
|
USE CCB
|
|
JOIN %CAT ALIAS 106 INTO CODTAB[1,2]==CODTAB[5,6] CODTAB[3,6]==CODTAB[7,10]
|
|
INPUT CODTAB[1,4] F_CODESER_CCB SELECT
|
|
INPUT CODTAB[5,6] F_CODGR_CCB
|
|
INPUT CODTAB[7,10] F_CODSP_CCB
|
|
DISPLAY "Gruppo" CODTAB[5,6]
|
|
DISPLAY "Specie" CODTAB[7,10]
|
|
DISPLAY "Descrizione@50" 106@->S0
|
|
OUTPUT F_CODGR_CCB CODTAB[5,6]
|
|
OUTPUT F_CODSP_CCB CODTAB[7,10]
|
|
OUTPUT F_DESCRSP_CCB 106@->S0
|
|
CHECKTYPE FORCED
|
|
GROUP GR_SEARCH
|
|
END
|
|
|
|
STRING F_CODATT_CCB 4 //campo per l'inserimento di una nuova specie da attivitá giá esistenti
|
|
BEGIN
|
|
PROMPT 15 2 "Specie "
|
|
FLAGS "H_"
|
|
KEY 1
|
|
USE %CAT
|
|
INPUT CODTAB[1,2] F_CODGR_CCB
|
|
INPUT CODTAB[3,6] F_CODATT_CCB
|
|
DISPLAY "Gruppo" CODTAB[1,2]
|
|
DISPLAY "Specie" CODTAB[3,6]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODGR_CCB CODTAB[1,2]
|
|
OUTPUT F_CODATT_CCB CODTAB[3,6]
|
|
OUTPUT F_DESCRSP_CCB S0
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,F_CODSP_CCB
|
|
GROUP GR_SEARCH
|
|
END
|
|
|
|
STRING F_DESCRSP_CCB 60
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_LEASING
|
|
BEGIN
|
|
PROMPT 2 5 "Attivita' di leasing"
|
|
FIELD B0
|
|
END
|
|
|
|
BOOLEAN F_BOLLATO
|
|
BEGIN
|
|
PROMPT 2 6 "Bollato stampato"
|
|
FLAGS "D"
|
|
FIELD B1
|
|
END
|
|
|
|
NUMBER F_ANNOREG 4
|
|
BEGIN
|
|
PROMT 65 6 ""
|
|
FLAGS "DGZ"
|
|
DRIVENBY F_CODESER_CCB
|
|
NUM_CALC MID(#F_DATAFINE_CCB,0,4)
|
|
END
|
|
|
|
STRING F_CODREG 3
|
|
BEGIN
|
|
PROMPT 42 6 "Codice registro "
|
|
USE REG SELECT I0=7
|
|
INPUT CODTAB[1,4] F_ANNOREG SELECT
|
|
INPUT CODTAB[5,7] F_CODREG
|
|
DISPLAY "Codice" CODTAB[5,7]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODREG CODTAB[5,7]
|
|
CHECKTYPE REQUIRED
|
|
FIELD S6
|
|
END
|
|
|
|
BOOLEAN F_MOV_GEN
|
|
BEGIN
|
|
PROMPT 2 7 "Movimenti contabili gia' generati"
|
|
FLAGS "D"
|
|
FIELD B3
|
|
END
|
|
|
|
BOOLEAN F_CHIUSO
|
|
BEGIN
|
|
PROMPT 2 8 "Esercizio chiuso"
|
|
FLAGS "D"
|
|
FIELD B2
|
|
END
|
|
ENDPAGE
|
|
ENDMASK |