campo-sirio/pr/pr0700a.uml

#include "pr0700a.h"

TOOLBAR "" 0 20 0 2

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

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

ENDPAGE

PAGE "Gestione Provvigioni" -1 -1 78 8

GROUPBOX DLG_NULL 80 4
BEGIN
 PROMPT 1 1 "Agente"
 FLAGS "R"
END

STRING F_CODAGE 5
BEGIN
  PROMPT 2 2 "Codice          "
  FLAGS "UZ"
  USE LF_AGENTI
  INPUT CODAGE F_CODAGE
  DISPLAY "Codice@8R" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_CODAGE CODAGE
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN PR0 -4
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 3 "Ragione sociale "
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@8R" CODAGE
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_CODAGE CODAGE
  CHECKTYPE REQUIRED
  ADD RUN PR0 -4
END

NUMBER F_FILTERANNO 4
BEGIN
  PROMPT 2 5 "Mostra solo i documenti dell'anno "
  FLAGS "U"
END

ENDPAGE

ENDMASK