#include "pr1100.h"

PAGE "Stampa agenti" -1 -1 68 7

LISTBOX F_ORDINAMENTO 16
BEGIN
  PROMPT 2 1 "Ordinamento "
  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 3 "Dall'agente "
  FLAGS "U"
  USE LF_AGENTI
  INPUT CODAGE F_DAAGE
  DISPLAY "Codice" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_DAAGE CODAGE
  GROUP G_CODAGE
END

STRING F_AAGE 6
BEGIN
  PROMPT 2 4 " 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 3 "Dall'agente "
  FLAGS "U"
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_DADES
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" CODAGE
  OUTPUT F_DADES RAGSOC
  GROUP G_RAGSOC
END

STRING F_ADES 50
BEGIN
  PROMPT 2 4 " 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_PRINT 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE

ENDMASK