#include "ca1800a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "~Anteprima"
  PICTURE TOOL_PREVIEW
END

#include <printbar.h>

ENDPAGE

PAGE "Conti per CDC/Commessa" 0 2 0 0

GROUPBOX DLG_NULL 79 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "DF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Rag. Soc. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 79 4
BEGIN
  PROMPT 1 3 "@bPeriodo"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 4 "Codice esercizio  "
  HELP "Codice esercizio per cui si vuole la lista"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  OUTPUT F_DATAINI D0
  OUTPUT F_DATAFIN D1
  FLAGS "RZ"
  ADD RUN cg0 -5 esc
  CHECKTYPE NORMAL
  WARNING "Codice esercizio assente"
  FIELD #ANNO
END

DATE F_DATAINI
BEGIN
  PROMPT 2 5 "Dalla data        "
  FIELD #DATAINI
END

DATE F_DATAFIN
BEGIN
  PROMPT 50 5 "alla data "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale deve essere succeviva a quella iniziale"
  FIELD #DATAFIN
END

GROUPBOX DLG_NULL 79 4
BEGIN
  PROMPT 1 7 "@bSelezione commesse"
END

STRING F_DACODCMS 20
BEGIN
  PROMPT 2 8 "Da "
  FLAGS "UZ"
  USE COMMESSE
  INPUT CODCMS F_DACODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_DACODCMS CODCMS
  OUTPUT F_DADESCMS DESCRIZ
  CHECKTYPE SEARCH
  FIELD #DACODCMS
  GROUP 1
END

STRING F_DADESCMS 50 48
BEGIN
  PROMPT 29 8 ""
  USE COMMESSE KEY 2
  INPUT DESCRIZ F_DADESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_DACODCMS
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_ACODCMS 20
BEGIN
  PROMPT 2 9 "A  "
  FLAGS "UZ"
  COPY USE F_DACODCMS
  INPUT CODCMS F_ACODCMS
  COPY DISPLAY F_DACODCMS
  OUTPUT F_ACODCMS CODCMS
  OUTPUT F_ADESCMS DESCRIZ
  CHECKTYPE SEARCH
  FIELD #ACODCMS
  GROUP 1
END

STRING F_ADESCMS 50 48
BEGIN
  PROMPT 29 9 ""
  COPY USE F_DADESCMS
  INPUT DESCRIZ F_ADESCMS
  COPY DISPLAY F_DADESCMS
  COPY OUTPUT F_ACODCMS
  CHECKTYPE NORMAL
  GROUP 1
END

//campo solo per CA
STRING F_CODCMS 20
BEGIN
  PROMPT 2 8 ""
  FLAGS "UZ"
  USE COMMESSE
  INPUT CODCMS F_CODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_CODCMS CODCMS
  OUTPUT F_DESCMS DESCRIZ
  CHECKTYPE SEARCH
  FIELD #CODCMS
  GROUP 2
END

//campo solo per CA
STRING F_DESCMS 50 48
BEGIN
  PROMPT 29 8 ""
  USE COMMESSE KEY 2
  INPUT DESCRIZ F_DESCMS
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODCMS
  COPY OUTPUT F_CODCMS
  CHECKTYPE NORMAL
  GROUP 2
END

//campo solo per CA
TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "Non selezionare alcuna commessa per stamparle tutte"
  GROUP 2
END

GROUPBOX DLG_NULL 79 4
BEGIN
  PROMPT 1 11 "@bSelezione fasi"
  GROUP 3
END

STRING F_DACODFASE 10
BEGIN
  PROMPT 2 12 "Da "
  FLAGS "UZ"
  USE FASI
  INPUT CODFASE F_DACODFASE
  DISPLAY "Codice@20" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_DACODFASE CODFASE
  OUTPUT F_DADESFASE DESCRIZ
  CHECKTYPE SEARCH
  FIELD #DACODFASE
  GROUP 3
END

STRING F_DADESFASE 50
BEGIN
  PROMPT 19 12 ""
  USE FASI KEY 2
  INPUT DESCRIZ F_DADESFASE
  DISPLAY "Descrizione@50" DESCRIZ
  DISPLAY "Codice@20" CODFASE
  COPY OUTPUT F_DACODFASE
  CHECKTYPE NORMAL
  GROUP 3
END

STRING F_ACODFASE 10
BEGIN
  PROMPT 2 13 "A  "
  FLAGS "UZ"
  COPY USE F_DACODFASE
  INPUT CODFASE F_ACODFASE
  COPY DISPLAY F_DACODFASE
  OUTPUT F_ACODFASE CODFASE
  OUTPUT F_ADESFASE DESCRIZ
  CHECKTYPE SEARCH
  FIELD #ACODFASE
  GROUP 3
END

STRING F_ADESFASE 50
BEGIN
  PROMPT 19 13 ""
  COPY USE F_DADESFASE
  INPUT DESCRIZ F_ADESFASE
  COPY DISPLAY F_DADESFASE
  COPY OUTPUT F_ACODFASE
  CHECKTYPE NORMAL
  GROUP 3
END

GROUPBOX DLG_NULL 79 6
BEGIN
  PROMPT 1 15 "@bSelezione conti (solo conti di costo/ricavo)"
END

NUMBER F_GRUPPOINI 3
BEGIN
  PROMPT 2 16 "Da Gruppo - Conto - Sottoconto "
END

NUMBER F_CONTOINI 3
BEGIN
  PROMPT 39 16 ""
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI CONTO
  OUTPUT F_DESCRINI DESCR
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI
END

NUMBER F_SOTTOCINI 6
BEGIN
  PROMPT 46 16 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPOINI
  INPUT CONTO F_CONTOINI
  INPUT SOTTOCONTO F_SOTTOCINI
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOINI GRUPPO
  OUTPUT F_CONTOINI CONTO
  OUTPUT F_SOTTOCINI SOTTOCONTO
  OUTPUT F_DESCRINI DESCR
  CHECKTYPE SEARCH
  //ADD RUN cg0 -0
END

STRING F_DESCRINI 50
BEGIN
  PROMPT 2 17 "Descrizione       "
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRINI
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCINI
  CHECKTYPE NORMAL
  //ADD RUN cg0 -0
END

NUMBER F_GRUPPOFIN 3
BEGIN
  PROMPT 2 18 "A  Gruppo - Conto - Sottoconto "
END

NUMBER F_CONTOFIN 3
BEGIN
  PROMPT 39 18 ""
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPOFIN
  INPUT CONTO F_CONTOFIN
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF
  OUTPUT F_GRUPPOFIN GRUPPO
  OUTPUT F_CONTOFIN CONTO
  OUTPUT F_DESCRFIN DESCR
  CHECKTYPE NORMAL                    
  VALIDATE REQIF_FUNC 1 F_SOTTOCFIN
  WARNING "Conto inesistente o mancante"
END

NUMBER F_SOTTOCFIN 6
BEGIN
  PROMPT 46 18 ""
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO F_GRUPPOFIN
  INPUT CONTO F_CONTOFIN
  INPUT SOTTOCONTO F_SOTTOCFIN
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO 
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPOFIN GRUPPO
  OUTPUT F_CONTOFIN CONTO
  OUTPUT F_SOTTOCFIN SOTTOCONTO
  OUTPUT F_DESCRFIN DESCR
  CHECKTYPE SEARCH
  WARNING "Sottoconto inesistente o mancante"
  //ADD RUN cg0 -0
END

STRING F_DESCRFIN 50
BEGIN
  PROMPT 2 19 "Descrizione       "
  USE LF_PCON KEY 2
  CHECKTYPE NORMAL
  INPUT DESCR F_DESCRFIN
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCFIN
  //ADD RUN cg0 -0
END

BOOLEAN F_HIDESOTT
BEGIN
  PROMPT 1 21 "Nascondi sottoconti"
END

STRING F_REPORT 50
BEGIN
  PROMPT 1 22 "Report personalizzato "
  RSELECT ""
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK