campo-sirio/cg/cg2200a.uml

#include "cg2200.h"

PAGE "Eliminazione Movimenti Provvisori" -1 -1 42 9

GROUPBOX DLG_NULL 40 3
BEGIN
  PROMPT 1 1 "Dal movimento"
END

DATE F_FROMDATE
BEGIN
  PROMPT 2 2 "Data "
  HELP "Data del primo movimento provvisorio da eliminare"
  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
  CHECKTYPE NORMAL
END

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

GROUPBOX DLG_NULL 40 3
BEGIN
  PROMPT 1 4 "Al movimento"
  HELP "Data dell'ultimo movimento provvisorio da eliminare"
END

DATE F_TODATE
BEGIN
  PROMPT 2 5 "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 
  CHECKTYPE NORMAL
END

NUMBER F_TOREG 5
BEGIN
  PROMPT 22 5 "Operazione "
  FLAGS "DR"
END

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

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

ENDPAGE