campo-sirio/ca/ca1800a.uml

#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
  FLAGS "RZ"
  ADD RUN cg0 -5 esc
  CHECKTYPE NORMAL
  WARNING "Codice esercizio assente"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 5 "Dalla data        "
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"
END

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

STRING F_DACODCMS 20
BEGIN
  PROMPT 2 8 "Da Commessa   "
  FLAGS "UZ"
  USE COMMESSE
  INPUT CODCMS F_DACODCMS
  DISPLAY "Codice@20" CODCMS
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_DACODCMS CODCMS
  CHECKTYPE SEARCH
END

STRING F_DACODFASE 10
BEGIN
  PROMPT 50 8 "Da fase   "
  FLAGS "UZ"
  USE FASI
  INPUT CODFASE F_DACODFASE
  DISPLAY "Codice@20" CODFASE
  DISPLAY "Descrizione@50" DESCRIZ
  OUTPUT F_DACODFASE CODFASE
  CHECKTYPE SEARCH
END

STRING F_ACODCMS 20
BEGIN
  PROMPT 2 9 "A Commessa    "
  FLAGS "UZ"
  COPY USE F_DACODCMS
  INPUT CODCMS F_ACODCMS
  COPY DISPLAY F_DACODCMS
  OUTPUT F_ACODCMS CODCMS
  CHECKTYPE SEARCH
END

STRING F_ACODFASE 10
BEGIN
  PROMPT 50 9 "A fase    "
  FLAGS "UZ"
  COPY USE F_DACODFASE
  INPUT CODFASE F_ACODFASE
  COPY DISPLAY F_DACODFASE
  OUTPUT F_ACODFASE CODFASE
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 79 6
BEGIN
  PROMPT 1 12 "@bSelezione conti"
END

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

NUMBER F_CONTOINI 3
BEGIN
  PROMPT 39 13 ""
  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
  CHECKTYPE NORMAL
  WARNING "Conto inesistente o mancante"
  VALIDATE REQIF_FUNC 1 F_SOTTOCINI
END

NUMBER F_SOTTOCINI 6
BEGIN
  PROMPT 46 13 ""
  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 14 "Descrizione       "
  USE LF_PCON KEY 2
  CHECKTYPE NORMAL
  INPUT DESCR F_DESCRINI
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCINI
  ADD RUN cg0 -0
END

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

NUMBER F_CONTOFIN 3
BEGIN
  PROMPT 39 15 ""
  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
  CHECKTYPE NORMAL                    
  VALIDATE REQIF_FUNC 1 F_SOTTOCFIN
  WARNING "Conto inesistente o mancante"
END

NUMBER F_SOTTOCFIN 6
BEGIN
  PROMPT 46 15 ""
  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 16 "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

GROUPBOX DLG_NULL 79 3
BEGIN
  PROMPT 1 18 "@bSelezione elementi da stampare"
END

BOOLEAN F_DETTAGLI
BEGIN
   PROMPT 2 19 "Dettagli sottoconto"
END

BOOLEAN F_TOTCONTI
BEGIN
   PROMPT 31 19 "Totali per conto"
END

BOOLEAN F_TOTCMS
BEGIN
   PROMPT 57 19 "Totali per commessa"
END

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

ENDPAGE

ENDMASK