campo-sirio/pr/pr1100.uml

#include "pr1100.h"
PAGE "Stampa agenti" -1 -1 78 20

LISTBOX F_ORDINAMENTO 16
BEGIN
        PROMPT 2 5 "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

STRING F_DAAGE 6
BEGIN
        PROMPT 2 7 "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 9 " all'agente     "
	FLAGS "U"
  COPY USE F_DAAGE
  INPUT CODAGE F_AAGE
  COPY DISPLAY F_DAAGE
  OUTPUT F_AAGE CODAGE
  GROUP G_CODAGE
END

STRING F_DADES 50
BEGIN
        PROMPT 2 7 "Dall'agente     "
	FLAGS "U"
        USE LF_AGENTI KEY 2
        INPUT RAGSOC F_DADES
        DISPLAY "Descr@50" RAGSOC
        DISPLAY "Codice" CODAGE
        OUTPUT F_DADES RAGSOC
        GROUP G_RAGSOC
END

STRING F_ADES 50
BEGIN
        PROMPT 2 9 " all'agente     "
	FLAGS "U"
	COPY USE F_DADES
        INPUT RAGSOC F_ADES
	COPY DISPLAY F_DADES
        OUTPUT F_ADES RAGSOC
        GROUP G_RAGSOC
END

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

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


ENDPAGE
ENDMASK