campo-sirio/ca/ca3200a.uml

#include "ca3200a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_PRINT 18 2
BEGIN
  PROMPT -13 -11 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON F_MEMORIZZA 18 2
BEGIN
  PROMPT -23 -11 "~Memorizza scelte"
END

BUTTON DLG_QUIT 18 2
BEGIN
  PROMPT -33 -11 ""
END

ENDPAGE

PAGE "Parametri stampa" -1 -1 78 20

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 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 15 1 ""
  FLAGS "D"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 1 2 "Data di stampa "
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 49 2 "Esercizio "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE NORMAL
  CHECKTYPE NORMAL
  MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97
  MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
  FLAGS "RZ"
  ADD NONE
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 4 "@bDa:"
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 10 "@bA:"
END

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 1 16 "@bOpzioni stampa"
END

TEXT 96
BEGIN
  PROMPT 2 17 "Dalla data competenza"
END

TEXT 97
BEGIN
  PROMPT 40 17 "Alla data competenza "
END

TEXT 98
BEGIN
  PROMPT 2 17 "Dalla data operazione "
END

TEXT 99
BEGIN
  PROMPT 40 17 "Alla data operazione  "
END

DATE F_DATAINI 
BEGIN
  PROMPT 26 17 ""
END

DATE F_DATAFINE
BEGIN
  PROMPT 62 17 ""
END
  
BOOLEAN F_STAMPA_PROG_ATT
BEGIN
  PROMPT 2 18 "Stampa progressivi attuali"
END

BOOLEAN F_STAMPA_SALDI_PROG
BEGIN
  PROMPT 2 19 "Stampa saldi progressivi"
END

BOOLEAN F_STAMPA_SALDI_SCAL
BEGIN
  PROMPT 2 20 "Stampa saldo scalare"
END

LIST F_SELEZ_STAMPA 34
BEGIN
  PROMPT 2 21 "Selezione mastrini  "
  ITEM "1|Movimentati nel periodo"
  ITEM "2|Con saldo diverso da 0"
  ITEM "3|Tutti"
END

ENDPAGE

PAGE "Selezioni" -1 -1 78 20

SPREADSHEET F_RIGHE -1 -2
BEGIN
  PROMPT 0 2 ""
  ITEM "Cdc 1"
  ITEM "Cdc 2"
  ITEM "Cdc 3"
  ITEM "Cdc 4"
  ITEM "Cms 1"
  ITEM "Cms 2"
  ITEM "Cms 3"
  ITEM "Cms 4"
  ITEM "Fas 1"
  ITEM "Fas 2"
  ITEM "Fas 3"
  ITEM "Fas 4"
  ITEM "Con 1"
  ITEM "Con 2"
  ITEM "Con 3"
  ITEM "Con 4"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 78 19

STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cdc 1"
  USE LF_CDC
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC2 20
BEGIN
  PROMPT 21 2 "Cdc 2"
  COPY USE S_CDC1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 41 2 "Cdc 3"
  COPY USE S_CDC1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 61 2 "Cdc 4"
  COPY USE S_CDC1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS1 20
BEGIN
  PROMPT 1 3 "Cms 1"
  USE LF_COMMESSE
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS2 20
BEGIN
  PROMPT 21 3 "Cms 2"
  COPY USE S_CMS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS3 20
BEGIN
  PROMPT 41 3 "Cms 3"
  COPY USE S_CMS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CMS4 20
BEGIN
  PROMPT 61 3 "Cms 4"
  COPY USE S_CMS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS1 20
BEGIN
  PROMPT 1 4 "Fas 1"
  USE LF_FASI
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS2 20
BEGIN
  PROMPT 21 4 "Fas 2"
  COPY USE S_FAS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS3 20
BEGIN
  PROMPT 41 4 "Fas 3"
  COPY USE S_FAS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_FAS4 20
BEGIN
  PROMPT 61 4 "Fas 4"
  COPY USE S_FAS1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON1 20
BEGIN
  PROMPT 1 5 "Con 1"
  USE LF_PCON
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON2 20
BEGIN
  PROMPT 21 5 "Con 2"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON3 20
BEGIN
  PROMPT 41 5 "Con 3"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CON4 20
BEGIN
  PROMPT 61 5 "Con 4"
  COPY USE S_CON1
  CHECKTYPE NORMAL
  GROUP 1
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE 

ENDMASK