#include "ce4100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Distribuzione analitica cespiti" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 1 "@bParametri cespite"
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 CCE
  JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Inizio esercizio" 104@->D0
  DISPLAY "Fine esercizio" 104@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_INIZIO_ES 104@->D0
  OUTPUT F_FINE_ES 104@->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

LIST F_NRIGA 3
BEGIN
  PROMPT 1 100 ""
  FLAGS "D"
  ITEM "1|1"
  FIELD NRIGA
  KEY 1
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 1 4 "Cespite "
  FLAGS "UZ"
  USE LF_SALCECMS SELECT NRIGA==1
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT CODES F_ESERCIZIO
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  DISPLAY "Cat." LF_CESPI->CODCAT
  DISPLAY "Commessa@20" CODCMS
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Centro di costo@20" CODCDC
  DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
  DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
  OUTPUT F_ESERCIZIO CODES
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_IDCESPITE_N IDCESPITE
  OUTPUT F_DESC LF_CESPI->DESC
  CHECKTYPE FORCED
  FIELD IDCESPITE
  KEY 1
  GROUP 1
END

STRING F_DESC 60 50
BEGIN
  PROMPT 24 4 ""
  FLAGS "DPG"
  GROUP 1
END

STRING F_IDCESPITE_N 10
BEGIN
  PROMPT 1 4 "Cespite "
  FLAGS "UZ"
  FIELD IDCESPITE
  USE LF_CESPI
  INPUT IDCESPITE F_IDCESPITE_N
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_IDCESPITE_N IDCESPITE
  OUTPUT F_DESC_N DESC
  CHECKTYPE REQUIRED
  FIELD IDCESPITE
  KEY 1
  GROUP 2
END

STRING F_DESC_N 60 50
BEGIN
  PROMPT 24 4 ""
  USE LF_CESPI KEY 3
  INPUT DESC F_DESC_N
  DISPLAY "Descrizione@50" DESC
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Cat." CODCAT
  DISPLAY "Impianto@10" CODIMP
  DISPLAY "Stabilimento@30" STABILIM
  DISPLAY "Reparto@30" REPARTO
  DISPLAY "Data Acq.@10" DTCOMP
  DISPLAY "Data Ali.@10" DTALIEN
  COPY OUTPUT F_IDCESPITE_N
  CHECKTYPE REQUIRED
  GROUP 2
  KEY 2	//chiave civetta per provocare l'entrata in modalita' INSERIMENTO in caso di ricerca per descrizione
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 2 6 ""
  ITEM "Commessa@20"
  ITEM "Fase@10"
  ITEM "Centro di costo@20"
  ITEM "% Utilizzo"
  ITEM "% Copertura"
  ITEM "Valore fondo"
  USE LF_SALCECMS KEY NRIGA
  INPUT CODES F_ESERCIZIO
  INPUT IDCESPITE F_IDCESPITE
  FLAGS "A"
END

ENDPAGE

ENDMASK

//maschera di riga dello sheet
PAGE "Riga" -1 -1 76 15

STRING S_CODCMS 20
BEGIN
  PROMPT 1 1 "Commessa  "
  USE LF_COMMESSE
  INPUT CODCMS S_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODCMS CODCMS
  OUTPUT S_DESCMS DESCRIZ
  CHECKTYPE REQUIRED
  FIELD CODCMS
  FLAGS "U"
END

STRING S_DESCMS 50 37
BEGIN
  PROMPT 35 1 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ S_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT S_CODCMS
END

STRING S_CODFASE 10
BEGIN
  PROMPT 1 2 "Fase      "
  USE LF_FASI
  INPUT CODCMSFAS S_CODCMS SELECT
  INPUT CODFASE S_CODFASE
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODFASE CODFASE
  OUTPUT S_DESFASE DESCRIZ
  CHECKTYPE NORMAL
  FIELD CODFASE
  FLAGS "U"
END

STRING S_DESFASE 50 37
BEGIN
  PROMPT 35 2 ""
END

STRING S_CODCDC 20
BEGIN
  PROMPT 1 3 "C.d.costo "
  USE LF_CDC
  INPUT CODCOSTO S_CODCDC
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT S_CODCDC CODCOSTO
  OUTPUT S_DESCDC DESCRIZ
  CHECKTYPE REQUIRED
  FIELD CODCDC
  FLAGS "U"
END

STRING S_DESCDC 50 37
BEGIN
  PROMPT 35 3 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ S_DESCDC
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT S_CODCDC
END

NUMBER S_PERCUTIL 6 2
BEGIN
  PROMPT 1 4 "% utilizzo   "
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD PERCUTIL
END

NUMBER S_PERCCOPE 6 2
BEGIN
  PROMPT 1 5 "% copertura  "
  FLAGS "U"
  FIELD PERCCOPE
END

CURRENCY S_FONDO 18
BEGIN
  PROMPT 1 6 "Valore fondo "
  FIELD FONDO
END

ENDPAGE

TOOLBAR "bottombar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK