campo-sirio/cm/cm0100a.uml

#include "cm0100a.h"

TOOLBAR "" 0 -2 0 2

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

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

ENDPAGE

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

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"
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 REQUIRED
  WARNING "Codice esercizio obbligatorio"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 5 "Dalla data        "
END

DATE F_DATAFIN
BEGIN
  PROMPT 50 5 "alla data "
END

STRING F_DACDC 20
BEGIN
  PROMPT 2 7 "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 7 "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 8 "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 8 "A fase    "
  FLAGS "UZ"
  COPY USE F_DAFSC
  INPUT CODTAB F_AFSC
  COPY DISPLAY F_DAFSC
  OUTPUT F_AFSC CODTAB
  CHECKTYPE SEARCH
END

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

NUMBER F_CONTOINI 3
BEGIN
  PROMPT 39 10 ""
  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 10 ""
  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 NORMAL
END

STRING F_DESCRINI 50
BEGIN
  PROMPT 2 11 "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
END

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

NUMBER F_CONTOFIN 3
BEGIN
  PROMPT 39 12 ""
  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 12 ""
  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 NORMAL
  WARNING "Sottoconto inesistente o mancante"
END

STRING F_DESCRFIN 50
BEGIN
  PROMPT 2 13 "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
END

BOOLEAN F_SALTOPAGINA
BEGIN
   PROMPT 2 15 "Salto pagina a fine commessa"
END

ENDPAGE

ENDMASK