campo-sirio/pr/pr1300a.uml

#include "pr1300a.h"                           

TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>
ENDPAGE

PAGE "Stampa schede di provvigione" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bIntervallo"
END

STRING F_DAAGE 5
BEGIN
  PROMPT 2 2 "Da agente "
  FLAGS "UZ"
  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 5
BEGIN
  PROMPT 2 3 "Ad agente "
  FLAGS "UZ"
  COPY USE F_DAAGE
  INPUT CODAGE F_AAGE
  COPY DISPLAY F_DAAGE
  OUTPUT F_AAGE CODAGE
  GROUP G_CODAGE
END

DATE F_DADATA
BEGIN
  PROMPT 34 2 "Da data   "
END

DATE F_ADATA
BEGIN
  PROMPT 34 3 "A data    "
END
          
GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 5 "@bParametri e filtri"
END

LIST F_DEFINITIVA 15
BEGIN
  PROMPT 2 6 "Stampa    "
  ITEM "P|provvisoria"
  MESSAGE ENABLE,F_FILTRO
  ITEM "D|definitiva"
  MESSAGE "D",F_FILTRO|DISABLE,F_FILTRO
END

LIST F_FILTRO 1 30
BEGIN
  PROMPT 34 6 "Selezione "
  ITEM "|Tutte le provvigioni"
  ITEM "D|Solo da pagare"
  ITEM "P|Solo gia' pagate"
END

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

BOOL F_RAGGDOC 
BEGIN
  PROMPT 34 7 "Raggruppamento documenti"
  MESSAGE FALSE ENABLE,F_RAGGRATE|ENABLE,F_TIPODOC
  MESSAGE TRUE "X",F_RAGGRATE|DISABLE,F_RAGGRATE|"",F_TIPODOC|DISABLE, F_TIPODOC
END

BOOL F_RAGGRATE 
BEGIN
  PROMPT 2 8 "Raggruppamento rate"
END

BOOL F_NOZERO
BEGIN
  PROMPT 34 8 "Non stampare documenti senza provvigioni"
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 9 "Tipo documento "
  HELP "Selezionare il tipo documento da stampare"
  USE %TIP SELECT B3=="X"
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_FORMULA 10
BEGIN
  PROMPT 2 11 "Stampa    "
  USE %FRD
  FLAG "U"        
  CHECKTYPE NORMAL
  INPUT CODTAB F_FORMULA
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FORMULA CODTAB
  OUTPUT F_D_FORMULA S0
END

STRING F_D_FORMULA 50
BEGIN
  PROMPT 26 11 ""
  FLAG "D"
END

STRING F_PROFILO 50
BEGIN
  PROMPT 2 -1 "Profilo   "
  PSELECT
  //MESSAGE K_SPACE,F_ORDINAMENTO|K_SPACE,F_VAL2PRINT
END

ENDPAGE
ENDMASK