#include "ca3883a.h"

#define ALL_EXPORT
#define CLASS_NAME "ca3900"

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

TOOLBAR "bottombar" 0 -3 0 1
#include <bprintbar.h>
ENDPAGE

PAGE "Stima ricavi di competenza" -1 -1 0 -3

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 0 1 ""
END

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 20 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
END

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

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

DATE F_DATASTAMPA
BEGIN
  PROMPT 2 5 "Data stampa "
  FLAGS "A"
END

BOOLEAN F_FORZA_MATURATO
BEGIN
  PROMPT 2 6 "Considerare finite le commesse che terminano nell'esercizio selezionato"
END

BOOLEAN F_INCLUDE_DOCUMENTI
BEGIN
  PROMPT 2 7 "Includere documenti inevasi e/o non contabilizzati"
END

LISTBOX F_TIPOSTAMPA 1 20
BEGIN
  PROMPT 2 8 "Stampa"
  ITEM "0|Normale"
	MESSAGE CLEAR,F_FASE|CLEAR,F_CDC
  ITEM "1|Dett.per Fase"
	MESSAGE ENABLE,F_FASE|CLEAR,F_CDC
  ITEM "2|Dett-per CdC"
	MESSAGE CLEAR,F_FASE|ENABLE,F_CDC
  ITEM "3|Dett.per Fase e CdC"
	MESSAGE ENABLE,F_FASE|ENABLE,F_CDC
END

STRING F_FASE 10
BEGIN
  PROMPT 32 8 "Fase"
END

STRING F_CDC 20
BEGIN
  PROMPT 53 8 "CdC"
  USE LF_CDC
  INPUT CODCOSTO F_CDC
  DISPLAY "Codice centro di costo" CODCOSTO
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CDC CODCOSTO
END

STRING F_CONTSEP 6
BEGIN
  PROMPT 2 9 "Cont. separata "
  USE &NPENT
  INPUT CODTAB F_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CONTSEP CODTAB
  OUTPUT F_DESCONTSEP S0
  CHECKTYPE NORMAL
  FIELD CONTSEP
  MODULE NP
END

STRING F_DESCONTSEP 50 48
BEGIN
  PROMPT 26 9 ""
  USE &NPENT KEY 2
  INPUT S0 F_DESCONTSEP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT F_CONTSEP
  CHECKTYPE NORMAL
  MODULE NP
END

GROUPBOX F_PRE0 76 5
BEGIN
  PROMPT 0 10 "@bPrefisso del piano dei conti analitico:"
  GROUP 6
END
ENDPAGE

ENDMASK