campo-sirio/pr/pr1300a.uml

#include "pr1300a.h"
PAGE "Stampa schede di provvigione" -1 -1 78 20

STRING F_DAAGE 6
BEGIN
  PROMPT 2 1 "Dall'agente "
  FLAGS "U"
  USE LF_AGENTI
  INPUT CODAGE F_DAAGE
  DISPLAY "Codice" CODAGE
  DISPLAY "Descr@50" RAGSOC
  OUTPUT F_DAAGE CODAGE
  GROUP G_CODAGE
END

STRING F_AAGE 6
BEGIN
  PROMPT 2 3 " all'agente "
  FLAGS "U"
  COPY USE F_DAAGE
  INPUT CODART F_AAGE
  COPY DISPLAY F_DAAGE
  OUTPUT F_AAGE CODART
  GROUP G_CODAGE
END

LIST F_FILTRO 30
BEGIN
  PROMPT 2 5 "     Stampo "
  ITEM "|tutte le provvigioni"
  ITEM "D|solo le provv. da pagare"
  ITEM "P|solo le provv. gia' pagate"
END

BOOL F_RAGGCLI 
BEGIN
  PROMPT 2 7 "Raggruppo i clienti"
  MESSAGE TRUE "X",F_RAGGDOC|DISABLE,F_RAGGDOC
  MESSAGE FALSE ENABLE,F_RAGGDOC
END

BOOL F_RAGGDOC 
BEGIN
  PROMPT 2 9 "Raggruppo i documenti"
  MESSAGE TRUE "X",F_RAGGRATE|DISABLE,F_RAGGRATE
  MESSAGE FALSE ENABLE,F_RAGGRATE
END

BOOL F_RAGGRATE 
BEGIN
  PROMPT 2 11 "Raggruppo le rate"
END


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

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


ENDPAGE
ENDMASK