campo-sirio/ca/ca3100.uml

#include "ca3100.h"
#include "camask.h"

TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>
ENDPAGE

TOOLBAR "bottombar" 0 -2 0 1

STRING F_REPORT 256 66
BEGIN
  PROMPT 1 -2 "Report  "
  FLAGS "B"
  CHECKTYPE REQUIRED
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Parametri stampa" 0 0 0 2

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
  FLAGS "RZ"
  ADD NONE
END

BOOLEAN F_COMPETENZA
BEGIN
  PROMPT 1 3 "Stampa i soli movimenti con competenza nell'esercizio precedente" 
END

RADIOBUTTON F_TIPOSTAMPA 12
BEGIN
  PROMPT 1 4 "Stampa per:"
  ITEM "2|data"   MESSAGE CLEAR,2@|ENABLE,3@
  ITEM "1|numero" MESSAGE CLEAR,3@|ENABLE,2@
END

DATE F_DATAINI
BEGIN
  PROMPT 16 5 "Stampa mov. dalla data "
  GROUP 3
  FIELD #DADATA
END

DATE F_DATAFIN
BEGIN
  PROMPT 52 5 "alla data "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale deve essere maggiore di quella iniziale"
  GROUP 3
  FIELD #ADATA
END

NUMBER F_NUMEROINI 7
BEGIN
  PROMPT 16 6 "Stampa mov. dal numero "
  USE LF_MOVANA KEY 1
  INPUT NUMREG F_NUMEROINI
  DISPLAY "Numero@7" NUMREG 
  DISPLAY "Data@10" DATAREG
  DISPLAY "Causale" CODCAUS
  DISPLAY "Documento" NUMDOC
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NUMEROINI NUMREG
  GROUP 2
END

NUMBER F_NUMEROFIN 7
BEGIN
  PROMPT 52 6 "al numero "
  COPY USE F_NUMEROINI
  INPUT NUMREG F_NUMEROFIN
  COPY DISPLAY F_NUMEROINI
  OUTPUT F_NUMEROFIN NUMREG
  NUM_EXPR ((#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI))
  WARNING "Limite superiore errato"
  GROUP 2
END

STRING F_CAUSALEINI 3
BEGIN
  PROMPT 1 8 "Stampa dalla causale     "
  USE LF_CAUSALI SELECT MOVIND!=''
  INPUT CODCAUS F_CAUSALEINI
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUSALEINI CODCAUS
  FLAGS "U" 
  VALIDATE ZEROFILL_FUNC 3
END

STRING F_CAUSALEFIN 3
BEGIN
  PROMPT 40 8 "alla causale "
  COPY USE F_CAUSALEINI
  INPUT CODCAUS F_CAUSALEFIN
  DISPLAY "Codice causale" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUSALEFIN CODCAUS
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 3
END

LIST F_TIPOMOV 23
BEGIN
  PROMPT 1 9 "Stampa movimenti di tipo "
  ITEM " |Qualsiasi"
  ITEM "N|Normale"
  ITEM "P|Preventivo"
  ITEM "V|Variazione preventivo"
  ITEM "T|Trasferito"
END

SPREADSHEET F_RIGHE -1 -1
BEGIN
  PROMPT 1 12 "Selezione su CdC / Commesse / Fasi"
  ITEM "Cdc1"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cdc5"
  ITEM "Cdc6"
  ITEM "Cdc7"
  ITEM "Cdc8"
  ITEM "Cdc9"
  ITEM "Cdc10"
  ITEM "Cdc11"
  ITEM "Cdc12"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 78 19

STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cdc1"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC2 20
BEGIN
  PROMPT 21 2 "Cdc2"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 41 2 "Cdc3"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 61 2 "Cdc4"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC5 20
BEGIN
  PROMPT 1 3 "Cdc5"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC6 20
BEGIN
  PROMPT 21 3 "Cdc6"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC7 20
BEGIN
  PROMPT 41 3 "Cdc7"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC8 20
BEGIN
  PROMPT 61 3 "Cdc8"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC9 20
BEGIN
  PROMPT 1 4 "Cdc9"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC10 20
BEGIN
  PROMPT 21 4 "Cdc10"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC11 20
BEGIN
  PROMPT 41 4 "Cdc11"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC12 20
BEGIN
  PROMPT 61 4 "Cdc12"
  FLAGS "B"
  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