#include "ca0500a.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Centri di Costo" 0 0 0 2

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