#include "ce1400a.h"

TOOLBAR "Toolbar" 0 -3 0 3

#include <toolbar.h>

ENDPAGE

PAGE "Ammortamento per categorie" -1 -1 78 18

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 0 1 "@bParametri ditta"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 2 "Ditta     "
  FLAGS "DF"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 26 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 3 "Esercizio "
  FLAGS "AZ"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES D0
  OUTPUT F_FINE_ES D1
  CHECKTYPE REQUIRED
  FIELD CODES 
  KEY 1
END

DATE F_INIZIO_ES
BEGIN
  PROMPT 26 3 "Inizio "
  FLAGS "D"
END

DATE F_FINE_ES
BEGIN
  PROMPT 50 3 "Fine "
  FLAGS "D"
END

NUMBER F_GRUPPO 2
BEGIN
  PROMPT 1 4 "Gruppo    "
  FLAGS "Z"
  FIELD CODCGRA
  CHECKTYPE REQUIRED
  KEY 1
END

STRING F_SPECIE 4
BEGIN
  PROMPT 16 4 "Specie "
  FLAGS "_"
  USE CCB 
  JOIN %CAT ALIAS 400 INTO CODTAB=CODTAB[5,10]
  INPUT CODTAB[1,4] F_ESERCIZIO SELECT
  INPUT CODTAB[5,6] F_GRUPPO
  INPUT CODTAB[7,10] F_SPECIE
  DISPLAY "Gruppo" CODTAB[5,6]
  DISPLAY "Specie" CODTAB[7,10]
  DISPLAY "Descrizione@50" 400@->S0
  OUTPUT F_GRUPPO CODTAB[5,6]
  OUTPUT F_SPECIE CODTAB[7,10]
  OUTPUT F_DESC_GRSP 400@->S0
  CHECKTYPE REQUIRED
  FIELD CODSPA
  KEY 1
END

STRING F_DESC_GRSP 60 45
BEGIN
  PROMPT 31 4 ""
  FLAGS "D"
END

NUMBER F_CATEGORIA2 2
BEGIN
  PROMPT 1 5 "Categoria "
  FLAGS "Z"
  USE LF_CATDI
  INPUT CODES F_ESERCIZIO SELECT
  INPUT CODCGRA F_GRUPPO
  INPUT CODSPA F_SPECIE
  INPUT CODCAT F_CATEGORIA2
  DISPLAY "Esercizio" CODES
  DISPLAY "Gruppo" CODCGRA
  DISPLAY "Specie" CODSPA
  DISPLAY "Categoria" CODCAT
  OUTPUT F_GRUPPO CODCGRA
  OUTPUT F_SPECIE CODSPA
  OUTPUT F_CATEGORIA CODCAT
  OUTPUT F_CATEGORIA2 CODCAT
  CHECKTYPE REQUIRED
  WARNING "E' necessario specificare una categoria valida"
  FIELD CODCAT
  KEY 1
END

STRING F_DESC_CAT2 60 58
BEGIN
  PROMPT 16 5 ""
  FLAGS "D"
END


NUMBER F_CATEGORIA 2
BEGIN
  PROMPT 1 5 "Categoria "
  FLAGS "BHZ"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
  WARNING "E' necessario specificare una categoria valida"
  FIELD CODCAT
  KEY 1
  CHECKTYPE REQUIRED
END

STRING F_DESC_CAT 60 58
BEGIN
  PROMPT 16 5 ""
  FLAGS "BH"
  DRIVENBY F_GRUPPO
  DRIVENBY F_SPECIE
END

ENDPAGE
       
ENDMASK