30a91bb94d
Files correlati : ve0.exe Ricompilazione Demo : [ ] Commento : In fase di inserimento propone in progressivo successivo e non si riesce ad uscire dal programma se non inserendo un rek fuffa Se si annlla si puo' uscire altrimenti bisogns registrare quello che si e' fatto Se sono in aggiornamento di un contratto di un determinato cliente e ne voglio inserire un altro mi propone automaticamente il numero successico al contratto che sto correggendo che in relatà è già occupato dain relatà è già occupato da un altro cliente La numerazione dei contratti e' o per ditta cioe' un numero diverso per ogni contratto indipendentemente dal cliente oppure per cliente (default) cioe' ogni cliente ha il contratto 1 2 3 etc. E' stato aggiunto un parameto (NUmera i contratti per ditta) alla configurazione in modo da poter decidere quale usare git-svn-id: svn://10.65.10.50/trunk@17512 c028cbd2-c16b-5b4b-a496-9718f37d4682
725 lines
12 KiB
Plaintext
Executable File
725 lines
12 KiB
Plaintext
Executable File
#include "lv0300a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -14 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_INFO 10 2
|
|
BEGIN
|
|
PROMPT -24 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_HELP 10 2
|
|
BEGIN
|
|
PROMPT -34 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -44 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bDocumenti da generare"
|
|
END
|
|
|
|
STRING F_CODNUM_GEN 4
|
|
BEGIN
|
|
PROMPT 2 2 "Numerazione "
|
|
FIELD NUM_GEN
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM_GEN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM_GEN CODTAB
|
|
OUTPUT F_DESNUM_GEN S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DESNUM_GEN 50
|
|
BEGIN
|
|
PROMPT 24 2 ""
|
|
HELP "Descrizione Numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM_GEN
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM_GEN
|
|
END
|
|
|
|
STRING F_TIPODOC_GEN 4
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo "
|
|
FIELD TIPODOC_GEN
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC_GEN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC_GEN CODTAB
|
|
OUTPUT F_DESTIPODOC_GEN S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOC_GEN 50
|
|
BEGIN
|
|
PROMPT 24 3 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC_GEN
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC_GEN
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 5 "@bFatture"
|
|
END
|
|
|
|
STRING F_CODNUM_FAT 4
|
|
BEGIN
|
|
PROMPT 2 6 "Numerazione "
|
|
FIELD NUM_FAT
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM_FAT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM_FAT CODTAB
|
|
OUTPUT F_DESNUM_FAT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DESNUM_FAT 50
|
|
BEGIN
|
|
PROMPT 24 6 ""
|
|
HELP "Descrizione Numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM_FAT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM_FAT
|
|
END
|
|
|
|
STRING F_TIPODOC_FAT 4
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo "
|
|
FIELD TIPODOC_FAT
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC_FAT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC_FAT CODTAB
|
|
OUTPUT F_DESTIPODOC_FAT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOC_FAT 50
|
|
BEGIN
|
|
PROMPT 24 7 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC_FAT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC_FAT
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bOrdini fornitori"
|
|
END
|
|
|
|
STRING F_CODNUM_ORF 4
|
|
BEGIN
|
|
PROMPT 2 10 "Numerazione "
|
|
FIELD NUM_ORF
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM_ORF
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM_ORF CODTAB
|
|
OUTPUT F_DESNUM_ORF S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DESNUM_ORF 50
|
|
BEGIN
|
|
PROMPT 24 10 ""
|
|
HELP "Descrizione Numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM_ORF
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM_ORF
|
|
END
|
|
|
|
STRING F_TIPODOC_ORF 4
|
|
BEGIN
|
|
PROMPT 2 11 "Tipo "
|
|
FIELD TIPODOC_ORF
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC_ORF
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC_ORF CODTAB
|
|
OUTPUT F_DESTIPODOC_ORF S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOC_ORF 50
|
|
BEGIN
|
|
PROMPT 24 11 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC_ORF
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC_ORF
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 13 "@bOrdini clienti"
|
|
END
|
|
|
|
STRING F_CODNUM_ORC 4
|
|
BEGIN
|
|
PROMPT 2 14 "Numerazione "
|
|
FIELD NUM_ORC
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM_ORC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM_ORC CODTAB
|
|
OUTPUT F_DESNUM_ORC S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING F_DESNUM_ORC 50
|
|
BEGIN
|
|
PROMPT 24 14 ""
|
|
HELP "Descrizione Numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM_ORC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM_ORC
|
|
END
|
|
|
|
STRING F_TIPODOC_ORC 4
|
|
BEGIN
|
|
PROMPT 2 15 "Tipo "
|
|
FIELD TIPODOC_ORC
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC_ORC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC_ORC CODTAB
|
|
OUTPUT F_DESTIPODOC_ORC S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOC_ORC 50
|
|
BEGIN
|
|
PROMPT 24 15 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC_ORC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC_ORC
|
|
END
|
|
|
|
BOOLEAN F_UNICONT
|
|
BEGIN
|
|
PROMPT 2 17 "Numera i contratti per ditta "
|
|
FIELD UniCont
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Buoni" 0 2 0 0
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT -11 0 "@bBuoni di ritiro"
|
|
END
|
|
|
|
SPREADSHEET F_BUONIRIT 0 8
|
|
BEGIN
|
|
PROMPT 0 1 "Buoni di ritiro"
|
|
ITEM "Numerazione"
|
|
ITEM "Tipo documento"
|
|
ITEM "Desczrizione tipo documento"
|
|
ITEM "Stato"
|
|
ITEM "Descrizione numerazione"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT -11 10 "@bBuoni di anticipo"
|
|
END
|
|
|
|
SPREADSHEET F_BUONIANT 0 8
|
|
BEGIN
|
|
PROMPT 0 11 "Buoni di anticipo"
|
|
ITEM "Numerazione"
|
|
ITEM "Tipo documento"
|
|
ITEM "Desczrizione tipo documento"
|
|
ITEM "Stato"
|
|
ITEM "Descrizione numerazione"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Documenti per conguaglio e dotazione" 0 2 0 0
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT -11 0 "@bDocumenti per conguaglio"
|
|
END
|
|
|
|
SPREADSHEET F_DOCCONG 0 8
|
|
BEGIN
|
|
PROMPT 0 1 "Documenti per conguaglio"
|
|
ITEM "Numerazione"
|
|
ITEM "Tipo documento"
|
|
ITEM "Desczrizione tipo documento"
|
|
ITEM "Stato"
|
|
ITEM "Descrizione numerazione"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT -11 10 "@bDocumenti per dotazione"
|
|
END
|
|
|
|
SPREADSHEET F_DOCDOT 0 7
|
|
BEGIN
|
|
PROMPT 0 11 "Documenti per dotazione"
|
|
ITEM "Numerazione"
|
|
ITEM "Tipo documento"
|
|
ITEM "Desczrizione tipo documento"
|
|
ITEM "Stato"
|
|
ITEM "Descrizione numerazione"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Buoni di ritiro" -1 -1 80 5
|
|
|
|
STRING S_CODNUM_RIT 4
|
|
BEGIN
|
|
PROMPT 1 1 "Numerazione "
|
|
FIELD NUM_RIT
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB S_CODNUM_RIT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_CODNUM_RIT CODTAB
|
|
OUTPUT S_DESNUM_RIT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING S_DESNUM_RIT 50
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 S_DESNUM_RIT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_CODNUM_RIT
|
|
END
|
|
|
|
STRING S_TIPODOC_RIT 4
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo "
|
|
FIELD TIPODOC_RIT
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB S_TIPODOC_RIT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_TIPODOC_RIT CODTAB
|
|
OUTPUT S_DESTIPODOC_RIT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING S_DESTIPODOC_RIT 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 S_DESTIPODOC_RIT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_TIPODOC_RIT
|
|
END
|
|
|
|
STRING S_STATO_RIT 1
|
|
BEGIN
|
|
PROMPT 1 3 "Stato "
|
|
USE %STD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB S_STATO_RIT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATO_RIT CODTAB
|
|
FIELD STATO_RIT
|
|
FLAGS "U"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Buoni d'anticipo" -1 -1 80 5
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bBuoni di Anticipo"
|
|
END
|
|
|
|
STRING S_CODNUM_ANT 4
|
|
BEGIN
|
|
PROMPT 1 1 "Numerazione "
|
|
FIELD NUM_ANT
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB S_CODNUM_ANT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_CODNUM_ANT CODTAB
|
|
OUTPUT S_DESNUM_ANT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING S_DESNUM_ANT 50
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 S_DESNUM_ANT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_CODNUM_ANT
|
|
END
|
|
|
|
STRING S_TIPODOC_ANT 4
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo "
|
|
FIELD TIPODOC_ANT
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB S_TIPODOC_ANT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_TIPODOC_ANT CODTAB
|
|
OUTPUT S_DESTIPODOC_ANT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING S_DESTIPODOC_ANT 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 S_DESTIPODOC_ANT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_TIPODOC_ANT
|
|
END
|
|
|
|
STRING S_STATO_ANT 1
|
|
BEGIN
|
|
PROMPT 1 3 "Stato "
|
|
USE %STD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB S_STATO_ANT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATO_ANT CODTAB
|
|
FIELD STATO_ANT
|
|
FLAGS "U"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Documenti conguaglio" -1 -1 80 5
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bDocumenti conguaglio"
|
|
END
|
|
|
|
STRING S_CODNUM_CONG 4
|
|
BEGIN
|
|
PROMPT 1 1 "Numerazione "
|
|
FIELD NUM_CONG
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB S_CODNUM_CONG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_CODNUM_CONG CODTAB
|
|
OUTPUT S_DESNUM_CONG S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING S_DESNUM_CONG 50
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 S_DESNUM_CONG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_CODNUM_CONG
|
|
END
|
|
|
|
STRING S_TIPODOC_CONG 4
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo "
|
|
FIELD TIPODOC_CONG
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB S_TIPODOC_CONG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_TIPODOC_CONG CODTAB
|
|
OUTPUT S_DESTIPODOC_CONG S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING S_DESTIPODOC_CONG 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 S_DESTIPODOC_CONG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_TIPODOC_CONG
|
|
END
|
|
|
|
STRING S_STATO_CONG 1
|
|
BEGIN
|
|
PROMPT 1 3 "Stato "
|
|
USE %STD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB S_STATO_CONG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATO_CONG CODTAB
|
|
FIELD STATO_CONG
|
|
FLAGS "U"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Documenti dotazione" -1 -1 80 5
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 9 "@bDocumenti dotazione"
|
|
END
|
|
|
|
STRING S_CODNUM_DOT 4
|
|
BEGIN
|
|
PROMPT 1 1 "Numerazione "
|
|
FIELD NUM_DOT
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB S_CODNUM_DOT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_CODNUM_DOT CODTAB
|
|
OUTPUT S_DESNUM_DOT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UPA"
|
|
WARNING "Numerazione assente"
|
|
END
|
|
|
|
STRING S_DESNUM_DOT 50
|
|
BEGIN
|
|
PROMPT 20 1 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 S_DESNUM_DOT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_CODNUM_DOT
|
|
END
|
|
|
|
STRING S_TIPODOC_DOT 4
|
|
BEGIN
|
|
PROMPT 1 2 "Tipo "
|
|
FIELD TIPODOC_DOT
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB S_TIPODOC_DOT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_TIPODOC_DOT CODTAB
|
|
OUTPUT S_DESTIPODOC_DOT S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "UP"
|
|
END
|
|
|
|
STRING S_DESTIPODOC_DOT 50
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 S_DESTIPODOC_DOT
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_TIPODOC_DOT
|
|
END
|
|
|
|
STRING S_STATO_DOT 1
|
|
BEGIN
|
|
PROMPT 1 3 "Stato "
|
|
USE %STD
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODTAB S_STATO_DOT
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATO_DOT CODTAB
|
|
FIELD STATO_DOT
|
|
FLAGS "U"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 4 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|