campo-sirio/pr/pr1300a.uml
alex 7da1be4f90 Patch level : XX.312
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 01.05 patch 312


git-svn-id: svn://10.65.10.50/trunk@8093 c028cbd2-c16b-5b4b-a496-9718f37d4682
1999-04-26 15:58:05 +00:00

90 lines
1.5 KiB
Plaintext
Executable File

#include "pr1300a.h"
PAGE "Stampa schede di provvigione" -1 -1 78 13
STRING F_DAAGE 5
BEGIN
PROMPT 2 1 "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 35 1 "A agente "
FLAGS "UZ"
COPY USE F_DAAGE
INPUT CODAGE F_AAGE
COPY DISPLAY F_DAAGE
OUTPUT F_AAGE CODAGE
GROUP G_CODAGE
END
LIST F_DEFINITIVA 15
BEGIN
PROMPT 2 3 "Stampa "
ITEM "P|provvisoria"
MESSAGE ENABLE,F_FILTRO
ITEM "D|definitiva"
MESSAGE "D",F_FILTRO|DISABLE,F_FILTRO
END
LIST F_FILTRO 30
BEGIN
PROMPT 35 3 "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 5 "Raggruppo i clienti"
MESSAGE TRUE "X",F_RAGGDOC|DISABLE,F_RAGGDOC
MESSAGE FALSE ENABLE,F_RAGGDOC
END
BOOL F_RAGGDOC
BEGIN
PROMPT 35 5 "Raggruppo i documenti"
MESSAGE TRUE "X",F_RAGGRATE|DISABLE,F_RAGGRATE|"",F_TIPODOC|DISABLE, F_TIPODOC
MESSAGE FALSE ENABLE,F_RAGGRATE|ENABLE,F_TIPODOC
END
BOOL F_RAGGRATE
BEGIN
PROMPT 2 7 "Raggruppo le rate"
END
STRING F_TIPODOC 4
BEGIN
PROMPT 2 9 "Tipo doc. "
HELP "Codice tipo documento"
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
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK