campo-sirio/cg/cg2200a.uml

#include "cg2200.h"

TOOLBAR "Toolbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_SELECT 10 1
BEGIN
  PROMPT 2 1 "Selezione"
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT 3 1 "~Elimina"
  MESSAGE EXIT,K_DEL
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT 4 1 ""
  PICTURE 0
END

BUTTON DLG_INFO 2 2
BEGIN
  PROMPT 5 1 "Info"
  MESSAGE EXIT,K_F2
  PICTURE BMP_INFO
END

BUTTON DLG_HELP 2 2
BEGIN
  PROMPT 6 1 "Help"
  MESSAGE EXIT,K_F1
  PICTURE BMP_HELP
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT 7 1 ""
END

ENDPAGE

PAGE "Gestione Movimenti Provvisori" -1 -1 52 14

LIST F_PROVV 10
BEGIN
  PROMPT 1 0 "@bTipo movimenti provvisori     "
  ITEM "P|Contabili"
  ITEM " |Tutti" 
  ITEM "C|Cespiti"
END

GROUPBOX DLG_NULL 50 3
BEGIN
  PROMPT 1 1 "@bDalla data/Alla data"
END

DATE F_FROMDATE
BEGIN
  PROMPT 2 2 "Dal "
  USE LF_MOV KEY 2 SELECT PROVVIS!=""
  INPUT DATAREG F_FROMDATE
  DISPLAY "Data@10" DATAREG
  DISPLAY "Numero@6" NUMREG
  DISPLAY "Causale" CODCAUS
  DISPLAY "Documento" NUMDOC    
  DISPLAY "Tipo" PROVVIS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FROMDATE DATAREG
END

DATE F_TODATE
BEGIN
  PROMPT 25 2 "Al "
  COPY USE F_FROMDATE
  INPUT DATAREG F_TODATE
  INPUT NUMREG F_TOREG
  COPY DISPLAY F_FROMDATE
  OUTPUT F_TODATE DATAREG
END

GROUPBOX DLG_NULL 50 4
BEGIN
  PROMPT 1 4 "@bDalla causale/Alla causale"
END

STRING F_FROMCAUS 3
BEGIN
  PROMPT 2 5 "Dalla "
  FLAGS "U"
  USE LF_CAUSALI SELECT REG==""
  INPUT CODCAUS F_FROMCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FROMCAUS CODCAUS
  OUTPUT F_FROMCAUSDESC DESCR
  CHECKTYPE NORMAL
END

STRING F_FROMCAUSDESC 50 30
BEGIN
  PROMPT 16 5 ""
  USE LF_CAUSALI KEY 2 SELECT REG==""
  INPUT DESCR F_FROMCAUSDESC
  DISPLAY "Descrizione@60" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_FROMCAUS
END

STRING F_TOCAUS 3
BEGIN
  PROMPT 2 6 "Alla  "
  FLAGS "U"
  COPY USE F_FROMCAUS
  INPUT CODCAUS F_TOCAUS
  COPY DISPLAY F_FROMCAUS
  OUTPUT F_TOCAUS CODCAUS
  OUTPUT F_TOCAUSDESC DESCR
  CHECKTYPE NORMAL
END

STRING F_TOCAUSDESC 50 30
BEGIN
  PROMPT 16 6 ""
  COPY USE F_FROMCAUSDESC
  INPUT DESCR F_TOCAUSDESC
  COPY DISPLAY F_FROMCAUSDESC
  COPY OUTPUT F_TOCAUS
END

GROUPBOX DLG_NULL 50 3
BEGIN
  PROMPT 1 8 "@bDal movimento/Al movimento"
END

NUMBER F_FROMREG 5
BEGIN
  PROMPT 2 9 "Dal "
  USE LF_MOV SELECT PROVVIS!=""
  INPUT NUMREG F_FROMREG
  DISPLAY "Numero@6" NUMREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "Causale" CODCAUS
  DISPLAY "Documento" NUMDOC    
  DISPLAY "Tipo" PROVVIS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FROMREG NUMREG
  CHECKTYPE SEARCH
END

NUMBER F_TOREG 5
BEGIN
  PROMPT 25 9 "Al "
  COPY USE F_FROMREG
  INPUT NUMREG F_TOREG
  COPY DISPLAY F_FROMREG
  OUTPUT F_TOREG NUMREG
  CHECKTYPE SEARCH
END

NUMBER F_SELECTED 7
BEGIN
  PROMPT 2 11 "Documenti selezionati "
  FLAGS "D"
END

ENDPAGE

ENDMASK