campo-sirio/pr/pr1400.uml

#include "pr1400.h"

PAGE "Stampa statistiche temporali" -1 -1 78 12

LISTBOX F_ORDINAMENTO 16
BEGIN
  PROMPT 2 2 "Ordinamento per "
  FLAGS "U"
  ITEM "C|Codice"
  MESSAGE HIDE,G_RAGSOC@|SHOW,G_CODAGE@
  ITEM "R|Ragione sociale"
  MESSAGE SHOW,G_RAGSOC@|HIDE,G_CODAGE@
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 2 3 "Intervallo agenti"
END

STRING F_DAAGE 5
BEGIN
  PROMPT 3 4 "Dall'agente "
  FLAGS "UZ"
  USE LF_AGENTI
  INPUT CODAGE F_DAAGE
  DISPLAY "Codice" CODAGE
  DISPLAY "Descr@50" RAGSOC
  OUTPUT F_DAAGE CODAGE
  OUTPUT F_DESFROM RAGSOC
  CHECKTYPE NORMAL
  GROUP G_CODAGE
END

STRING F_DESFROM 50
BEGIN
  PROMPT 25 4 ""
  FLAGS "D"
  GROUP G_CODAGE
END

STRING F_AAGE 5
BEGIN
  PROMPT 3 5 "All'agente  "
  FLAGS "UZ"
  COPY USE F_DAAGE
  INPUT CODAGE F_AAGE
  COPY DISPLAY F_DAAGE
  OUTPUT F_AAGE CODAGE
  OUTPUT F_DESTO RAGSOC
  CHECKTYPE NORMAL
  GROUP G_CODAGE
END

STRING F_DESTO 50
BEGIN
  PROMPT 25 5 ""
  FLAGS "D"
  GROUP G_CODAGE
END

STRING F_DADES 50
BEGIN
  PROMPT 3 4 "Dall'agente "
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DADES
  DISPLAY "Descr@50" RAGSOC
  DISPLAY "Codice@20" CODAGE
  OUTPUT F_DADES RAGSOC
  CHECKTYPE NORMAL
  GROUP G_RAGSOC
END

STRING F_ADES 50
BEGIN
  PROMPT 3 5 "All'agente  "
  COPY USE F_DADES
  INPUT RAGSOC F_ADES
  COPY DISPLAY F_DADES
  OUTPUT F_ADES RAGSOC
  CHECKTYPE NORMAL
  GROUP G_RAGSOC
END

GROUPBOX DLG_NULL 38 3
BEGIN
  PROMPT 2 7 "Intervallo date"
END

DATE F_DATEFROM
BEGIN
  PROMPT 3 8 "Da   "
  CHECKTYPE REQUIRED
END

DATE F_DATETO
BEGIN
  PROMPT 24 8 "A   " 
  FLAGS "A"
  CHECKTYPE REQUIRED
END

LISTBOX F_GROUPMONTH 2
BEGIN
  PROMPT 42 8 "Mesi da raggruppare "
  ITEM "1|1"
  ITEM "2|2"
  ITEM "3|3"
  ITEM "4|4"
  ITEM "5|5"
  ITEM "6|6"
  ITEM "7|7"
  ITEM "8|8"
  ITEM "9|9"
  ITEM "10|10"
  ITEM "11|11"
  ITEM "12|12"
END

BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

ENDMASK