#include "ce4500a.h"

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

PAGE "Cespiti in analitica" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 2 "Ditta     "
  FLAGS "DF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 55
BEGIN
  PROMPT 20 2 ""
  FLAGS "D"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 2 3 "Esercizio "
  FLAGS "Z"
  USE CCE
  JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice esercizio" CODTAB 
  DISPLAY "Data inizio@15" 105@->D0
  DISPLAY "Data fine@15" 105@->D1
  OUTPUT F_ESERCIZIO CODTAB
  OUTPUT F_DATAINIZIO 105@->D0
  OUTPUT F_DATAFINE 105@->D1
  CHECKTYPE REQUIRED
END

DATE F_DATAINIZIO 
BEGIN
  PROMPT 20 3 "Data inizio "
  FLAGS "D"
END

DATE F_DATAFINE
BEGIN
  PROMPT 45 3 "Data fine " 
  FLAGS "D"
END

STRING F_IDCESPITE 10
BEGIN
  PROMPT 2 5 "Cespite   "
  FLAGS "UZ"
  USE LF_SALCECMS KEY 2 SELECT NRIGA==1
  JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
  INPUT CODES F_ESERCIZIO SELECT
  INPUT IDCESPITE F_IDCESPITE
  DISPLAY "Esercizio" CODES
  DISPLAY "Codice@10" IDCESPITE
  DISPLAY "Descrizione@50" LF_CESPI->DESC
  DISPLAY "Cat." LF_CESPI->CODCAT
  DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
  DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
  OUTPUT F_ESERCIZIO CODES
  OUTPUT F_IDCESPITE IDCESPITE
  OUTPUT F_DESC LF_CESPI->DESC
  CHECKTYPE SEARCH
END

STRING F_DESC 60 50
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
END

RADIOBUTTON F_SITUAZIONE 78
BEGIN
  PROMPT 1 6 "@bSituazione"
  ITEM "1|Fiscale"
  ITEM "2|Civilistica"
  ITEM "3|Gestionale"
  FLAGS "Z"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 "@bAnalitica"
END

STRING F_CODCMS 20
BEGIN
  PROMPT 2 10 "Commessa "
  USE LF_COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCMS DESCRIZ
  CHECKTYPE NORMAL

END

STRING F_DESCMS 50 39
BEGIN
  PROMPT 36 10 ""
  USE LF_COMMESSE KEY 2
  INPUT DESCRIZ F_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
  CHECKTYPE NORMAL
END

STRING F_CODFASE 10
BEGIN
  PROMPT 2 11 "Fase     "
  USE LF_FASI
  INPUT CODCMSFAS F_CODCMS SELECT
  INPUT CODFASE F_CODFASE
  DISPLAY "Fase@10" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODFASE CODFASE
  OUTPUT F_DESFASE DESCRIZ
  CHECKTYPE NORMAL
END

STRING F_DESFASE 50 39
BEGIN
  PROMPT 36 11 ""
  FLAGS "D"
END

STRING F_CODCDC 20
BEGIN
  PROMPT 2 12 "C. costo "
  USE LF_CDC
  INPUT CODCOSTO F_CODCDC
  DISPLAY "Codice@20" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCDC CODCOSTO
  OUTPUT F_DESCDC DESCRIZ
  CHECKTYPE NORMAL
END

STRING F_DESCDC 50 39
BEGIN
  PROMPT 36 12 ""
  USE LF_CDC KEY 2
  INPUT DESCRIZ F_DESCDC
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCOSTO
  COPY OUTPUT F_CODCDC
END

ENDPAGE

ENDMASK