campo-sirio/src/db/db1100a.uml

#include "db1100a.h"

TOOLBAR "topbar" 0 0 0 2

#include <printbar.h>

ENDPAGE

TOOLBAR "" 0 -2 0 2

STRING DLG_PROFILE 70 50
BEGIN
  FLAGS "G"
  PROMPT 10 -2 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Esplosione" 0 2 0 0

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 1 "Selezione documenti"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 2 "Anno              "
  FLAGS "A"
END

LIST F_PROVV 12
BEGIN
  PROMPT 2 3 "Tipo numerazione  "
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
  FLAGS "D"
END

STRING F_NUMFROM 4
BEGIN
  PROMPT 37 3 "Da numerazione "
  FLAG "U"
  USE %NUM
  INPUT CODTAB F_NUMFROM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMFROM CODTAB
  CHECKTYPE NORMAL
END

STRING F_NUMTO 4
BEGIN
  PROMPT 64 3 "a "
  FLAG "U"
  USE %NUM
  INPUT CODTAB F_NUMTO
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_NUMTO CODTAB
  CHECKTYPE NORMAL
END

LIST  F_TIPOSEL 12
BEGIN
  PROMPT 2 4 "Tipo selezione    "
  ITEM "0|Per numero"
  MESSAGE SHOW,GR_NUMDOC@|HIDE,GR_DATADOC@
  ITEM "1|Per data"
  MESSAGE HIDE,GR_NUMDOC@|SHOW,GR_DATADOC@
END

NUMBER F_NDOCFROM 7
BEGIN
  PROMPT 37 4 "Dal numero     "
  USE 33
  JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
  JOIN 13 TO 20 INTO COM=COMCF
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_NUMFROM SELECT
  INPUT NDOC F_NDOCFROM
  DISPLAY "Data@10" DATADOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
  DISPLAY "Comune@20" 13->DENCOM
  OUTPUT F_NDOCFROM NDOC
  CHECKTYPE NORMAL
  GROUP GR_NUMDOC
END

DATE F_EMISFROM
BEGIN
  PROMPT 37 4 "Dalla data     "
  GROUP GR_DATADOC
END


NUMBER F_NDOCTO 7
BEGIN
  PROMPT 64 4  "a "
  USE 33
  JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
  JOIN 13 TO 20 INTO COM=COMCF
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_NUMTO SELECT
  INPUT NDOC F_NDOCTO
  DISPLAY "Data@10" DATADOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
  DISPLAY "Comune@20" 13->DENCOM
  OUTPUT F_NDOCTO NDOC
  GROUP GR_NUMDOC
  CHECKTYPE NORMAL
END

DATE F_EMISTO
BEGIN
  PROMPT 64 4 "a "
  GROUP GR_DATADOC
END

DATE F_DATAOBS
BEGIN
  PROMPT 2 5 "Data osservazione "
  CHECKTYPE REQUIRED
END

LISTBOX F_PERIODS 1
BEGIN
  PROMPT 37 5 "Numero periodi    "
  ITEM "1|1"
  ITEM "2|2"
  ITEM "3|3"
  ITEM "4|4"
  ITEM "5|5"
  ITEM "6|6"
END

BOOLEAN F_SEPARATE_DIST
BEGIN
 PROMPT 2 7 "Separa le distinte"
 MESSAGE TRUE ENABLE,F_NEWPAGE|CLEAR,F_SEPARATE_GIAC
 MESSAGE FALSE CLEAR,F_NEWPAGE|ENABLE,F_SEPARATE_GIAC
END

BOOLEAN F_SEPARATE_GIAC
BEGIN
 PROMPT 39 7 "Separa le giacenze"
END

BOOLEAN F_NEWPAGE
BEGIN
 PROMPT 2 8 "Salto pagina al cambio distinta"
END


LISTBOX F_STAMPA 18
BEGIN
  PROMPT 2 9 "Esplosione "
  ITEM "0|Materiali di base"
  MESSAGE ENABLE,F_GROUPMODE
  ITEM "1|Scalare"
  MESSAGE CLEAR,F_GROUPMODE
END

NUMBER F_DETTAGLIO 3
BEGIN
  PROMPT 39 9 "Livello dettaglio "
  FLAGS "U"
END

GROUPBOX DLG_NULL 30 6
BEGIN
  PROMPT 1 10 "Esplodi"
END

BOOLEAN F_ARTICOLI
BEGIN
  PROMPT 2 11 "Articoli"
END

BOOLEAN F_LAVORAZIONI
BEGIN
  PROMPT 2 12 "Lavorazioni"
END

BOOLEAN F_VIRTUALI
BEGIN
  PROMPT 2 13 "Distinte virtuali"
END

BOOLEAN F_GHOST
BEGIN
 PROMPT 2 14 "Distinte non di produzione"
END

GROUPBOX DLG_NULL 50 6
BEGIN
  PROMPT 32 10 "Default"
END

STRING F_IMPIANTO 5
BEGIN
  PROMPT 33 11 "Impianto "
  FLAGS "U"
  USE IMP
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Desrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  OUTPUT F_DESCIMP S0
  CHECKTYPE NORMAL
END   

STRING F_DESCIMP 50 47
BEGIN
  PROMPT 33 12 ""
  FLAGS "D"
END

STRING F_LINEA 5
BEGIN
  PROMPT 33 13 "Linea   "
  FLAGS "U"
  USE LNP
  INPUT CODTAB F_LINEA
  DISPLAY "Codice" CODTAB
  DISPLAY "Desrizione@50" S0
  OUTPUT F_LINEA CODTAB
  OUTPUT F_DESCLIN S0
  CHECKTYPE NORMAL
END

STRING F_DESCLIN 50 47
BEGIN
  PROMPT 33 14 ""
  FLAGS "D"
END

NUMBER F_SORT 1
BEGIN
  PROMPT 2 16 "Ordina    "
  USE ORD
  INPUT CODTAB F_SORT
  DISPLAY "Codice ordinamento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SORT CODTAB
  OUTPUT F_SORTDESC S0
  CHECKTYPE NORMAL
  FLAGS "U"
  MESSAGE EMPTY "Immissione",F_SORTDESC|CLEAR,F_NOIGNORE
  MESSAGE ENABLE,F_NOIGNORE
END

STRING F_SORTDESC 50
BEGIN
  PROMPT 17 16 ""
  FLAGS "D"
END

BOOLEAN F_NOIGNORE
BEGIN
  PROMPT 2 17 "Includi anche righe senza un ordinamento specificato"
END 

LIST F_GROUPMODE 1 53
BEGIN
  PROMPT 2 18 "Raggruppa "
  ITEM "0|Nessun raggruppamento"
  ITEM "1|Raggruppa per unit<69> di misura"
  ITEM "2|Converti nell'unit<69> principale"
  ITEM "3|Raggruppa all'unit<69> di misura principale"
  ITEM "4|Converti nell'unit<69> di misura di distinta"
  ITEM "5|Raggruppa all'unit<69> di misura di distinta"
END

ENDPAGE

PAGE "Disponibilit<69>" -1 -1 78 20

BOOLEAN F_FABBISOGNO
BEGIN
  PROMPT 2 1 "Calcola disponibilit<69>"
  MESSAGE TRUE ENABLE,G_DISPONIB@
  MESSAGE FALSE CLEAR,G_DISPONIB@
END

GROUPBOX DLG_NULL 50 11
BEGIN
  PROMPT 2 1 ""
END

LIST F_LIVATTENZ 26
BEGIN
  PROMPT 3 2 "Segnala giacenza "
  ITEM " |sotto zero"
  ITEM "S|sotto scorta minima"
  GROUP G_DISPONIB
END

BOOLEAN F_FABBISOGNO_FIN
BEGIN
  PROMPT 3 3 "Non calcolare disp. sui finiti"
  GROUP G_DISPONIB
END

BOOLEAN F_NOZEROORD
BEGIN
  PROMPT 3 4 "Non stampare righe con fabbisogno nullo"
  GROUP G_DISPONIB
  FLAGS "D"
END

BOOLEAN F_ORCLI4DISP
BEGIN
  PROMPT 3 5 "Sottrai  l'ordinato clienti"
  GROUP G_DISPONIB
  FLAGS "D"
END

BOOLEAN F_ORFOR4DISP
BEGIN
  PROMPT 3 6 "Aggiungi l'ordinato fornitori"
  GROUP G_DISPONIB
  FLAGS "D"
END

BOOLEAN F_INPRF4DISP
BEGIN
  PROMPT 3 7 "Aggiungi i finiti in produzione"
  GROUP G_DISPONIB
  FLAGS "D"
END

BOOLEAN F_INPRC4DISP
BEGIN
  PROMPT 3 8 "Sottrai  i componenti in produzione"
  GROUP G_DISPONIB
  FLAGS "D"
END

BOOLEAN F_ACLV4DISP
BEGIN
  PROMPT 3 9 "Aggiungi i componenti a conto lavorazione"
  GROUP G_DISPONIB
  FLAGS "D"
END

BOOLEAN F_INCLV4DISP
BEGIN
  PROMPT 3 10 "Sottrai  i componenti in conto lavorazione"
  GROUP G_DISPONIB
  FLAGS "D"
END

LISTBOX F_VALORIZZAZIONE 32
BEGIN
  PROMPT 1 12 ""
  ITEM "0|Non valorizzare"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "1|Valorizza Ultimo costo"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "2|Valorizza Costo medio"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "10|Prezzo listino"
  MESSAGE SHOW,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "3|Valorizza Costo medio ponderato"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "4|Valorizza Media ultimi 2 costi"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "5|Valorizza Costo standard"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "6|Valorizza LIFO annuale"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "7|Valorizza LIFO storico"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "8|Valorizza FIFO annuale"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
  ITEM "9|Valorizza FIFO storico"
  MESSAGE HIDE,G_LISTINO@|ENABLE,F_ADVANCED_EXPL
END

BOOLEAN F_ADVANCED_EXPL
BEGIN
  PROMPT 38 12 "Non Dett.Articoli d'acquisto"
END

STRING F_CODLIST 3
BEGIN
  PROMPT 52 12 "Cod.listino "
  USE LF_CONDV SELECT TIPO=="L"
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN_LIST
  INPUT COD F_CODLIST
  DISPLAY "Cat. vendita" CATVEN
  DISPLAY "Listino"COD
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Inizio validita" VALIN
  DISPLAY "Fine validita" VALFIN
  OUTPUT F_CATVEN_LIST CATVEN
  OUTPUT F_CODLIST COD
  GROUP G_LISTINO
END

STRING F_CATVEN_LIST 2
BEGIN
  PROMPT 72 12 "Cat.vendita "
  USE CVE
  INPUT CODTAB F_CATVEN_LIST
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  DISPLAY "Provvigione" R0
  DISPLAY "Gruppo" I1
  DISPLAY "Conto"  I2
  OUTPUT F_CATVEN_LIST CODTAB
  GROUP G_LISTINO
END

GROUPBOX DLG_NULL 50 6
BEGIN
  PROMPT 2 13 "Disponibilit<69> & Valorizzazione"
END

STRING F_SLMAG 3
BEGIN
  PROMPT 3 14 "Mag. semilavorati     "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_SLMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_SLMAG CODTAB[1,3]
  CHECKTYPE NORMAL
END

STRING F_SLDEP 2
BEGIN
  PROMPT 32 14 ""
  FLAGS "U"
  USE MAG SELECT (IF(#F_SLMAG!="";((CODTAB[1,3]==#F_SLMAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
  INPUT CODTAB[1,3] F_SLMAG   SELECT
  INPUT CODTAB[4,5] F_SLDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_SLDEP CODTAB[4,5]
  OUTPUT F_SLMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  GROUP G_DEPOSITI
END

STRING F_MBMAG 3
BEGIN
  PROMPT 3 15 "Mag. materiali base   "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MBMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MBMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  MESSAGE ENABLE, F_VALMAGMB
END

STRING F_MBDEP 2
BEGIN
  PROMPT 32 15 ""
  FLAGS "U"
  USE MAG SELECT (IF(#F_MBMAG!="";((CODTAB[1,3]==#F_MBMAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
  INPUT CODTAB[1,3] F_MBMAG   SELECT
  INPUT CODTAB[4,5] F_MBDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_MBDEP CODTAB[4,5]
  OUTPUT F_MBMAG CODTAB[1,3]
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_VALDEPMB
  MESSAGE ENABLE, F_VALDEPMB
  GROUP G_DEPOSITI
END

BOOLEAN F_VALMAGMB
BEGIN
  PROMPT 3 16 "Usa magazzino in valorizzazione"
  MESSAGE TRUE  ENABLE,F_VALDEPMB
  MESSAGE FALSE CLEAR,F_VALDEPMB
  GROUP G_VALORIZZ
END

BOOLEAN F_VALDEPMB
BEGIN
  PROMPT 3 17 "Usa deposito in valorizzazione"
  GROUP G_DEPOSITI G_VALORIZZ
END

BOOLEAN F_DETORDFOR
BEGIN
  PROMPT 3 19 "Dettaglia ordinato fornitori"
  MESSAGE FALSE CLEAR,F_SORTFOR
  MESSAGE TRUE ENABLE,F_SORTFOR
END

BOOLEAN F_SORTFOR
BEGIN
  PROMPT 36 19 "Ordina per fornitore"
END


ENDPAGE

PAGE "Articoli" -1 -1 78 20

STRING F_DADIST 20
BEGIN
  PROMPT 1 1 "Esplosione dalla distinta "
  USE LF_DIST
  INPUT CODDIST F_DADIST
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "UM" UM
  OUTPUT F_DADIST CODDIST  
  CHECKTYPE NORMAL
END

STRING F_ADIST 20
BEGIN
  PROMPT 51 1 "alla "
  COPY USE F_DADIST
  INPUT CODDIST F_ADIST
  COPY DISPLAY F_DADIST
  OUTPUT F_ADIST CODDIST  
  CHECKTYPE NORMAL
END

SPREADSHEET F_SHEETART
BEGIN
  PROMPT 2 2 ""
  ITEM "Codice@20"
  ITEM "Liv1"
  ITEM "Liv2"
  ITEM "Liv3"
  ITEM "Liv4"
  ITEM "Imp."
  ITEM "Lin."
  ITEM "Mag."
  ITEM "Dep."
  ITEM "UM"
  ITEM "Qta@12"
  ITEM "Descrizione@50"
  ITEM "Data cons.@12"
  ITEM "Acquisto"
END

ENDPAGE

ENDMASK

PAGE "Articoli" -1 -1 68 14

STRING F_CODDIS 20
BEGIN
  PROMPT 2 2 "Codice      "
  USE LF_DIST SELECT VIRTUALE!="X"
  JOIN LF_UMART INTO CODART==CODDIST NRIGA==1
  INPUT CODDIST F_CODDIS 
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Desrizione@50" DESCR
  DISPLAY "Unit<69> di misura" UM
  OUTPUT F_CODDIS CODDIST
  OUTPUT F_DESCR DESCR
  OUTPUT F_UMEXPR UM
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV1|CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE, F_LIV1
  ADD RUN DB0 -0
  FLAGS "U"
END

STRING F_LIV1 10
BEGIN
  PROMPT 2 4 "Livello 1   "
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "1" 
  INPUT CODTAB[2,11] F_LIV1
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@10" CODTAB[2,20]
  DISPLAY "Descr.@30" S0
  OUTPUT F_LIV1 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV2|CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV2
END

STRING F_LIV2 10
BEGIN                   
  PROMPT 40 4 "Livello 2   "
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "2" 
  INPUT CODTAB[2,12] F_LIV2
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV2 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV3|CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV3
END

STRING F_LIV3 10
BEGIN
  PROMPT 2 5 "Livello 3   "
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "3" 
  INPUT CODTAB[2,12] F_LIV3
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV3 CODTAB[2,12] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR,F_LIV4
  MESSAGE ENABLE,F_LIV4
END

STRING F_LIV4 10
BEGIN
  PROMPT 40 5 "Livello 4   "
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "4" 
  INPUT CODTAB[2,12] F_LIV4
  COPY DISPLAY F_LIV1
  OUTPUT F_LIV4 CODTAB[2,12] 
  CHECKTYPE NORMAL
END

STRING F_IMP 5
BEGIN
  PROMPT 2 6 "Impianto    "
  FLAGS "U"
  USE IMP
  INPUT CODTAB F_IMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Desrizione@50" S0
  OUTPUT F_IMP CODTAB
  CHECKTYPE NORMAL
END

STRING F_LIN 5
BEGIN
  PROMPT 30 6 "Linea "
  FLAGS "U"
  USE LNP
  INPUT CODTAB F_LIN
  DISPLAY "Codice" CODTAB
  DISPLAY "Desrizione@50" S0
  OUTPUT F_LIN CODTAB
  CHECKTYPE NORMAL
END

STRING F_MAG 3
BEGIN
  PROMPT 2 7 "Magazzino   "
  FLAGS "U"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  CHECKTYPE NORMAL
END

STRING F_DEP 2
BEGIN
  PROMPT 20 7 ""
  FLAGS "U"
  USE MAG SELECT (IF(#F_MAG!="";((CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!=""));(CODTAB[4,5]!="")))
  INPUT CODTAB[1,3] F_MAG  SELECT
  INPUT CODTAB[4,5] F_DEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_DEP CODTAB[4,5]
  OUTPUT F_MAG CODTAB[1,3]
  CHECKTYPE NORMAL
END

STRING F_UMEXPR 2
BEGIN
  PROMPT 2 8 "Unit<69> di misura  "
  USE LF_UMART KEY 2 SELECT CODART==#F_CODDIS
  JOIN LF_ANAMAG INTO CODART==CODART
  INPUT CODART F_CODDIS SELECT
  INPUT UM F_UMEXPR
  DISPLAY "Unit<69>" UM
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione Articolo@50" LF_ANAMAG->DESCR
  OUTPUT F_UMEXPR UM
  CHECKTYPE REQUIRED
  ADD RUN ve2 -3
  FLAGS "U"
END

NUMBER F_QTA 12 5
BEGIN
  PROMPT 2 9 "Quantit<69>         "
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Descrizione "
  FLAGS "D"
END

DATE F_DATACONS
BEGIN
  PROMPT 2 10 "Data consegna    "
  CHECKTYPE REQUIRED
END

BOOLEAN F_ACQUISTO
BEGIN
  PROMPT 2 11 "Acquisto"
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK