2cbd850658
Files correlati : ve0.exe Ricompilazione Demo : [ ] Commento : Aggiunti deposito e magazzino a commesse e centri di cosito git-svn-id: svn://10.65.10.50/trunk@13315 c028cbd2-c16b-5b4b-a496-9718f37d4682
95 lines
1.5 KiB
Plaintext
Executable File
95 lines
1.5 KiB
Plaintext
Executable File
#include "ca0500a.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Centri di Costo" -1 -1 64 6
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 2 0 "@bCodici"
|
|
END
|
|
|
|
MEMO F_CDC_DESCRAGG 78 6
|
|
BEGIN
|
|
PROMPT 2 8 "Descrizione aggiuntiva"
|
|
FIELD DESCRAGG
|
|
END
|
|
|
|
STRING F_CDC_ADDETTI 5
|
|
BEGIN
|
|
PROMPT 2 15 "Addetti "
|
|
FIELD ADDETTI
|
|
END
|
|
|
|
BOOLEAN F_CDC_GESTFASI
|
|
BEGIN
|
|
PROMPT 2 16 "Gestione fasi"
|
|
FIELD GESTFASI
|
|
END
|
|
|
|
BOOLEAN F_CDC_APPOGGIO
|
|
BEGIN
|
|
PROMPT 2 17 "Centro di costo di appoggio"
|
|
FIELD APPOGGIO
|
|
END
|
|
|
|
STRING F_CDC_MAG 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 18 "Magazzino "
|
|
FIELD CODMAG[1,3]
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_CDC_MAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CDC_MAG CODTAB
|
|
OUTPUT F_CDC_DESCMAG S0
|
|
OUTPUT H_CDC_MAG B0
|
|
MESSAGE EMPTY CLEAR,F_CDC_DEP
|
|
MESSAGE ENABLE,F_CDC_DEP
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_CDC_DESCMAG 70 45
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 32 18 ""
|
|
END
|
|
|
|
BOOL H_CDC_MAG
|
|
BEGIN
|
|
FLAGS "HG"
|
|
PROMPT 2 18 "divisione in dep"
|
|
MESSAGE FALSE CLEAR,F_CDC_DEP
|
|
MESSAGE TRUE ENABLE,F_CDC_DEP
|
|
END
|
|
|
|
STRING F_CDC_DEP 2
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 2 19 "Deposito "
|
|
FIELD CODMAG[4,5]
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_CDC_MAG SELECT
|
|
INPUT CODTAB[4,5] F_CDC_DEP
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CDC_MAG CODTAB[1,3]
|
|
OUTPUT F_CDC_DEP CODTAB[4,5]
|
|
OUTPUT F_CDC_DESCDEP S0
|
|
GROUP 1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CDC_DESCDEP 70 45
|
|
BEGIN
|
|
FLAGS "D"
|
|
PROMPT 32 19 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |