858ae87f12
git-svn-id: svn://10.65.10.50/branches/R_10_00@22934 c028cbd2-c16b-5b4b-a496-9718f37d4682
650 lines
11 KiB
Plaintext
Executable File
650 lines
11 KiB
Plaintext
Executable File
#include "ci0300a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -33 -11 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Configurazione" 0 2 0 0
|
|
|
|
SPREADSHEET F_SHEET -5 0
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
ITEM "Filtro"
|
|
ITEM "Descrizione@30"
|
|
ITEM "Rimani in\ninserimento@11"
|
|
ITEM "Rimani in\nmodifica@9"
|
|
ITEM "Documento\ncollegato@9"
|
|
ITEM "Numerazione"
|
|
ITEM "Tipo\nDocumento"
|
|
ITEM "Stato"
|
|
ITEM "Modifica documento\ncollegato@18"
|
|
ITEM "Campi modificati@50"
|
|
ITEM "Cancella le\nCommesse chiuse@20"
|
|
END
|
|
|
|
BUTTON F_MOVEUP 2 2
|
|
BEGIN
|
|
PROMPT -1 -37 ""
|
|
PICTURE BMP_DARROWU
|
|
END
|
|
|
|
BUTTON F_MOVEDN 2 2
|
|
BEGIN
|
|
PROMPT -1 -57 ""
|
|
PICTURE BMP_DARROWD
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bLivello di dettaglio"
|
|
END
|
|
|
|
LISTBOX F_DETTDISP 6
|
|
BEGIN
|
|
PROMPT 2 2 "Dettaglio disponibilità "
|
|
ITEM "G|Giorno"
|
|
ITEM "M|Mese"
|
|
ITEM "A|Anno"
|
|
FIELD DETTDISP
|
|
END
|
|
|
|
LISTBOX F_DETTCONS 6
|
|
BEGIN
|
|
PROMPT 2 3 "Dettaglio consuntivi "
|
|
ITEM "G|Giorno"
|
|
ITEM "M|Mese"
|
|
ITEM "A|Anno"
|
|
FIELD DETTCONS
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 5 "@bPreventivi"
|
|
END
|
|
|
|
STRING F_CODNUMPR 4
|
|
BEGIN
|
|
PROMPT 2 6 "Numerazione "
|
|
FIELD CODNUMPR
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUMPR
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUMPR CODTAB
|
|
OUTPUT F_DESNUMPR S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
KEY 1 2
|
|
END
|
|
|
|
STRING F_DESNUMPR 50
|
|
BEGIN
|
|
PROMPT 25 6 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUMPR
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUMPR
|
|
END
|
|
|
|
STRING F_TIPODOCPR 4
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo documento "
|
|
FIELD TIPODOCPR
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOCPR
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOCPR CODTAB
|
|
OUTPUT F_DESTIPODOCPR S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOCPR 50
|
|
BEGIN
|
|
PROMPT 25 7 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOCPR
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOCPR
|
|
END
|
|
|
|
STRING F_CODARTPR 20
|
|
BEGIN
|
|
PROMPT 2 8 "Articolo "
|
|
FIELD CODARTPR
|
|
USE LF_ANAMAG /*SELECT (SOTTOCV!=0)&&(SOTTOCA!=0)*/
|
|
INPUT CODART F_CODARTPR
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Grp.V." GRUPPOV
|
|
DISPLAY "Con.V." CONTOV
|
|
DISPLAY "Sot.V." SOTTOCV
|
|
DISPLAY "Grp.A." GRUPPOA
|
|
DISPLAY "Con.A." CONTOA
|
|
DISPLAY "Sot.A." SOTTOCA
|
|
OUTPUT F_CODARTPR CODART
|
|
OUTPUT F_DESARTPR DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAG "U"
|
|
END
|
|
|
|
STRING F_DESARTPR 50 30
|
|
BEGIN
|
|
PROMPT 45 8 ""
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR F_DESARTPR /*SELECT (SOTTOCV!=0)&&(SOTTOCA!=0)*/
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Grp.V." GRUPPOV
|
|
DISPLAY "Con.V." CONTOV
|
|
DISPLAY "Sot.V." SOTTOCV
|
|
DISPLAY "Grp.A." GRUPPOA
|
|
DISPLAY "Con.A." CONTOA
|
|
DISPLAY "Sot.A." SOTTOCA
|
|
COPY OUTPUT F_CODARTPR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 10 "@bConsuntivi"
|
|
END
|
|
|
|
STRING F_CODNUMCN 4
|
|
BEGIN
|
|
PROMPT 2 11 "Numerazione "
|
|
FIELD CODNUMCN
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUMCN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUMCN CODTAB
|
|
OUTPUT F_DESNUMCN S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DESNUMCN 50
|
|
BEGIN
|
|
PROMPT 25 11 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUMCN
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUMCN
|
|
END
|
|
|
|
STRING F_TIPODOCCN 4
|
|
BEGIN
|
|
PROMPT 2 12 "Tipo documento "
|
|
FIELD TIPODOCCN
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOCCN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOCCN CODTAB
|
|
OUTPUT F_DESTIPODOCCN S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOCCN 50
|
|
BEGIN
|
|
PROMPT 25 12 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOCCN
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOCCN
|
|
END
|
|
|
|
STRING F_CAUSCN 4
|
|
BEGIN
|
|
PROMPT 2 13 "Casuale cont. "
|
|
USE LF_CAUSALI SELECT MOVIND="X"
|
|
INPUT CODCAUS F_CAUSCN
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Analitica@C" MOVIND
|
|
DISPLAY "Industriale@C" MOVCGIND
|
|
OUTPUT F_CAUSCN CODCAUS
|
|
OUTPUT F_DESCAUSCN DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
FIELD CODCAUSCN
|
|
END
|
|
|
|
STRING F_DESCAUSCN 50
|
|
BEGIN
|
|
PROMPT 25 13 ""
|
|
USE LF_CAUSALI KEY 2 SELECT MOVIND="X"
|
|
INPUT DESCR F_DESCAUSCN
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Analitica@C" MOVIND
|
|
DISPLAY "Industriale@C" MOVCGIND
|
|
COPY OUTPUT F_CAUSCN
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -4
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 15 "@bMovimenti NON IVA"
|
|
END
|
|
|
|
STRING F_CODNUMNI 4
|
|
BEGIN
|
|
PROMPT 2 16 "Numerazione "
|
|
FIELD CODNUMNI
|
|
HELP "Codice numerazione"
|
|
COPY USE F_CODNUMPR
|
|
INPUT CODTAB F_CODNUMNI
|
|
COPY DISPLAY F_CODNUMPR
|
|
OUTPUT F_CODNUMNI CODTAB
|
|
OUTPUT F_DESNUMNI S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DESNUMNI 50
|
|
BEGIN
|
|
PROMPT 25 16 ""
|
|
HELP "Descrizione numerazione"
|
|
COPY USE F_DESNUMPR
|
|
INPUT S0 F_DESNUMNI
|
|
COPY DISPLAY F_DESNUMPR
|
|
COPY OUTPUT F_CODNUMNI
|
|
END
|
|
|
|
STRING F_TIPODOCNI 4
|
|
BEGIN
|
|
PROMPT 2 17 "Tipo documento "
|
|
FIELD TIPODOCNI
|
|
HELP "Codice tipo documento"
|
|
COPY USE F_TIPODOCPR
|
|
INPUT CODTAB F_TIPODOCNI
|
|
COPY DISPLAY F_TIPODOCPR
|
|
OUTPUT F_TIPODOCNI CODTAB
|
|
OUTPUT F_DESTIPODOCNI S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOCNI 50
|
|
BEGIN
|
|
PROMPT 25 17 ""
|
|
HELP "Descrizione tipo documento"
|
|
COPY USE F_DESTIPODOCPR
|
|
INPUT S0 F_DESTIPODOCNI
|
|
COPY DISPLAY F_DESTIPODOCPR
|
|
COPY OUTPUT F_TIPODOCNI
|
|
END
|
|
|
|
STRING F_CODIVANI 4
|
|
BEGIN
|
|
PROMPT 2 18 "Codice IVA "
|
|
FIELD CODIVANI
|
|
HELP "Codice IVA"
|
|
USE %IVA
|
|
INPUT CODTAB F_CODIVANI
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODIVANI CODTAB
|
|
OUTPUT F_DESIVANI S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_DESIVANI 50
|
|
BEGIN
|
|
PROMPT 25 18 ""
|
|
HELP "Descrizione IVA"
|
|
USE %IVA KEY 2
|
|
INPUT S0 F_DESIVANI
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODIVANI
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Certificati" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 1 "Pagamenti clienti"
|
|
END
|
|
|
|
STRING F_CODARTLC 20
|
|
BEGIN
|
|
PROMPT 2 2 "Lavori "
|
|
COPY USE F_CODARTPR
|
|
INPUT CODART F_CODARTLC
|
|
COPY DISPLAY F_CODARTPR
|
|
OUTPUT F_CODARTLC CODART
|
|
OUTPUT F_DESARTLC DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAG "U"
|
|
FIELD CODARTLC
|
|
END
|
|
|
|
STRING F_DESARTLC 50 30
|
|
BEGIN
|
|
PROMPT 45 2 ""
|
|
COPY USE F_DESARTPR
|
|
INPUT DESCR F_DESARTLC
|
|
COPY DISPLAY F_DESARTPR
|
|
COPY OUTPUT F_CODARTLC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODARTGC 20
|
|
BEGIN
|
|
PROMPT 2 3 "Garanzia "
|
|
COPY USE F_CODARTPR
|
|
INPUT CODART F_CODARTGC
|
|
COPY DISPLAY F_CODARTPR
|
|
OUTPUT F_CODARTGC CODART
|
|
OUTPUT F_DESARTGC DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FIELD CODARTGC
|
|
END
|
|
|
|
STRING F_DESARTGC 50 30
|
|
BEGIN
|
|
PROMPT 45 3 ""
|
|
COPY USE F_DESARTPR
|
|
INPUT DESCR F_DESARTGC
|
|
COPY DISPLAY F_DESARTPR
|
|
COPY OUTPUT F_CODARTGC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODARTAC 20
|
|
BEGIN
|
|
PROMPT 2 4 "Anticipi "
|
|
COPY USE F_CODARTPR
|
|
INPUT CODART F_CODARTAC
|
|
COPY DISPLAY F_CODARTPR
|
|
OUTPUT F_CODARTAC CODART
|
|
OUTPUT F_DESARTAC DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAG "U"
|
|
FIELD CODARTAC
|
|
END
|
|
|
|
STRING F_DESARTAC 50 30
|
|
BEGIN
|
|
PROMPT 45 4 ""
|
|
COPY USE F_DESARTPR
|
|
INPUT DESCR F_DESARTAC
|
|
COPY DISPLAY F_DESARTPR
|
|
COPY OUTPUT F_CODARTAC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 7 "Pagamenti fornitori"
|
|
END
|
|
|
|
STRING F_CODARTLF 20
|
|
BEGIN
|
|
PROMPT 2 8 "Lavori "
|
|
COPY USE F_CODARTPR
|
|
INPUT CODART F_CODARTLF
|
|
COPY DISPLAY F_CODARTPR
|
|
OUTPUT F_CODARTLF CODART
|
|
OUTPUT F_DESARTLF DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAG "U"
|
|
FIELD CODARTLF
|
|
END
|
|
|
|
STRING F_DESARTLF 50 30
|
|
BEGIN
|
|
PROMPT 45 8 ""
|
|
COPY USE F_DESARTPR
|
|
INPUT DESCR F_DESARTLF
|
|
COPY DISPLAY F_DESARTPR
|
|
COPY OUTPUT F_CODARTLF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODARTGF 20
|
|
BEGIN
|
|
PROMPT 2 9 "Garanzia "
|
|
COPY USE F_CODARTPR
|
|
INPUT CODART F_CODARTGF
|
|
COPY DISPLAY F_CODARTPR
|
|
OUTPUT F_CODARTGF CODART
|
|
OUTPUT F_DESARTGF DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAG "U"
|
|
FIELD CODARTGF
|
|
END
|
|
|
|
STRING F_DESARTGF 50 30
|
|
BEGIN
|
|
PROMPT 45 9 ""
|
|
COPY USE F_DESARTPR
|
|
INPUT DESCR F_DESARTGF
|
|
COPY DISPLAY F_DESARTPR
|
|
COPY OUTPUT F_CODARTGF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODARTAF 20
|
|
BEGIN
|
|
PROMPT 2 10 "Anticipi "
|
|
COPY USE F_CODARTPR
|
|
INPUT CODART F_CODARTAF
|
|
COPY DISPLAY F_CODARTPR
|
|
OUTPUT F_CODARTAF CODART
|
|
OUTPUT F_DESARTAF DESCR
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
FLAG "U"
|
|
FIELD CODARTAF
|
|
END
|
|
|
|
STRING F_DESARTAF 50 30
|
|
BEGIN
|
|
PROMPT 45 10 ""
|
|
COPY USE F_DESARTPR
|
|
INPUT DESCR F_DESARTAF
|
|
COPY DISPLAY F_DESARTPR
|
|
COPY OUTPUT F_CODARTAF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Tipologia Documento" -1 -1 78 13
|
|
|
|
STRING FR_FILTRO 4
|
|
BEGIN
|
|
PROMPT 1 1 "Filtro "
|
|
USE %NUM
|
|
INPUT CODTAB FR_FILTRO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_FILTRO CODTAB
|
|
OUTPUT FR_DES S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UPA"
|
|
END
|
|
|
|
STRING FR_DES 30
|
|
BEGIN
|
|
PROMPT 1 2 "Descrizione "
|
|
END
|
|
|
|
BOOLEAN FR_INS
|
|
BEGIN
|
|
PROMPT 1 3 "Rimani in inserimento"
|
|
END
|
|
|
|
BOOLEAN FR_MOD
|
|
BEGIN
|
|
PROMPT 1 4 "Rimani in modifica"
|
|
END
|
|
|
|
BOOLEAN FR_COLL
|
|
BEGIN
|
|
PROMPT 1 5 "Documento collegato"
|
|
MESSAGE FALSE CLEAR,1@
|
|
MESSAGE TRUE ENABLE,1@
|
|
END
|
|
|
|
BOOLEAN FR_MODCOLL
|
|
BEGIN
|
|
PROMPT 23 5 "Modifica interattiva del documento collegato"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FR_NUM 4
|
|
BEGIN
|
|
PROMPT 1 6 "Numerazione "
|
|
USE %NUM
|
|
INPUT CODTAB FR_NUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_NUM CODTAB
|
|
OUTPUT FR_DESNUM S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FR_DESNUM 50
|
|
BEGIN
|
|
PROMPT 23 6 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 FR_DESNUM
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FR_NUM
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FR_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 1 7 "Tipo "
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB FR_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_TIPODOC CODTAB
|
|
OUTPUT FR_DESTIPODOC S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UP"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FR_DESTIPODOC 50
|
|
BEGIN
|
|
PROMPT 23 7 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 FR_DESTIPODOC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FR_TIPODOC
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FR_STATO 1
|
|
BEGIN
|
|
PROMPT 1 8 "Stato "
|
|
USE %STD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB FR_STATO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_STATO CODTAB
|
|
OUTPUT FR_DESSTA S0
|
|
FLAG "U"
|
|
GROUP 1
|
|
END
|
|
|
|
STRING FR_DESSTA 50
|
|
BEGIN
|
|
PROMPT 23 8 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %STD KEY 2
|
|
INPUT S0 FR_DESSTA
|
|
DISPLAY "Descrizione@40" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FR_STATO
|
|
GROUP 1
|
|
END
|
|
|
|
ZOOM FR_VAR 50
|
|
BEGIN
|
|
PROMPT 1 9 "Campi variati "
|
|
GROUP 1
|
|
END
|
|
|
|
BOOLEAN FR_DELCLOSE
|
|
BEGIN
|
|
PROMPT 1 10 "Cancella i documenti di Commesse chiuse"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|