campo-sirio/cg/cg2200a.uml

#include "cg2200.h"

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

GROUPBOX DLG_NULL 50 4
BEGIN
  PROMPT 1 1 "Dalla data/causale"
END

DATE F_FROMDATE
BEGIN
  PROMPT 2 2 "Data    "
  HELP "Data del primo movimento provvisorio"
  USE LF_MOV KEY 2 SELECT PROVVIS="P"
  INPUT DATAREG F_FROMDATE
  INPUT NUMREG F_FROMREG
  DISPLAY "Data@10" DATAREG
  DISPLAY "Numero@6" NUMREG
  DISPLAY "Causale" CODCAUS
  DISPLAY "Documento" NUMDOC
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FROMDATE DATAREG
  OUTPUT F_FROMREG NUMREG
END

NUMBER F_FROMREG 5
BEGIN
  PROMPT 32 2 "Operazione "
  FLAGS "DR"
END

STRING F_FROMCAUS 3
BEGIN
  PROMPT 2 3 "Causale "
  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 3 ""
  USE LF_CAUSALI KEY 2 SELECT REG==""
  INPUT DESCR F_FROMCAUSDESC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_FROMCAUS
END

GROUPBOX DLG_NULL 50 4
BEGIN
  PROMPT 1 5 "Alla data/causale"
  HELP "Data dell'ultimo movimento provvisorio"
END

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

NUMBER F_TOREG 5
BEGIN
  PROMPT 32 6 "Operazione "
  FLAGS "DR"
END

STRING F_TOCAUS 3
BEGIN
  PROMPT 2 7 "Causale "
  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 7 ""
  COPY USE F_FROMCAUSDESC
  INPUT DESCR F_TOCAUSDESC
  COPY DISPLAY F_FROMCAUSDESC
  COPY OUTPUT F_TOCAUS
END


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

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


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

ENDPAGE