campo-sirio/cm/cm0100a.uml

#include "cm0100a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
 PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Conti per CDC/Commessa" -1 -1 76 20

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 5
BEGIN
  PROMPT 1 7 "@bSelezione commesse"
END

STRING F_DACDC 20
BEGIN
  PROMPT 2 8 "Da CDC/Commessa   "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_DACDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DACDC CODTAB
  CHECKTYPE SEARCH
END

STRING F_DAFSC 10
BEGIN
  PROMPT 50 8 "Da fase   "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB F_DAFSC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DAFSC CODTAB
  CHECKTYPE SEARCH
END

STRING F_ACDC 20
BEGIN
  PROMPT 2 9 "A CDC/Commessa    "
  FLAGS "UZ"
  COPY USE F_DACDC
  INPUT CODTAB F_ACDC
  COPY DISPLAY F_DACDC
  OUTPUT F_ACDC CODTAB
  CHECKTYPE SEARCH
END

STRING F_AFSC 10
BEGIN
  PROMPT 50 9 "A fase    "
  FLAGS "UZ"
  COPY USE F_DAFSC
  INPUT CODTAB F_AFSC
  COPY DISPLAY F_DAFSC
  OUTPUT F_AFSC CODTAB
  CHECKTYPE SEARCH
END

BOOLEAN F_SALTOPAGINA
BEGIN
   PROMPT 2 10 "Salto pagina a fine commessa"
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

ENDPAGE

ENDMASK