159 lines
2.6 KiB
Plaintext
Executable File
159 lines
2.6 KiB
Plaintext
Executable File
#include "at0100b.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
//#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Genera donazioni" -1 -1 78 20
|
|
|
|
NUMBER F_QUANTEGEN 3
|
|
BEGIN
|
|
PROMPT 2 2 "Numero donazioni da generare "
|
|
HELP "Numero donazioni da generare"
|
|
END
|
|
|
|
RADIOBUTTON F_COMEGEN 17
|
|
BEGIN
|
|
PROMPT 2 3 "Modalita' "
|
|
ITEM "A|Automatica"
|
|
MESSAGE ENABLE,F_FINOALGEN
|
|
MESSAGE DISABLE,F_DONGEN
|
|
ITEM "M|Manuale"
|
|
MESSAGE ENABLE,F_DONGEN
|
|
MESSAGE DISABLE,F_FINOALGEN
|
|
HELP "Modalita' di generazione: automatica o manuale (inserire solo le date)"
|
|
END
|
|
|
|
DATE F_FINOALGEN
|
|
BEGIN
|
|
PROMTP 2 7 "Fino al "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
HELP "Data ultima donazione da generare"
|
|
END
|
|
|
|
STRING F_TIPOGEN 2
|
|
BEGIN
|
|
PROMPT 2 8 "Tipo don. "
|
|
FLAGS "U"
|
|
USE TDN
|
|
INPUT CODTAB F_TIPOGEN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_TIPOGEN CODTAB
|
|
OUTPUT F_D_TIPOGEN S0
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "Codice tipo donazione non presente"
|
|
HELP "Tipo donazione"
|
|
END
|
|
|
|
STRING F_D_TIPOGEN 25
|
|
BEGIN
|
|
PROMPT 20 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_LUOGOGEN 4
|
|
BEGIN
|
|
PROMPT 2 9 "Punto prel."
|
|
FLAGS "U"
|
|
USE LDN
|
|
INPUT CODTAB F_LUOGOGEN
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_LUOGOGEN CODTAB
|
|
OUTPUT F_D_LUOGOGEN S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice punto di prelievo non presente"
|
|
HELP "Punto di prelievo"
|
|
END
|
|
|
|
STRING F_D_LUOGOGEN 50 25
|
|
BEGIN
|
|
PROMPT 20 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON F_ESEGUIGEN 21 2
|
|
BEGIN
|
|
PROMPT 2 11 "Esegui generazione"
|
|
END
|
|
|
|
SPREADSHEET F_DONGEN 29 18
|
|
BEGIN
|
|
PROMPT 50 2 ""
|
|
ITEM "Data@10"
|
|
ITEM "Tipo"
|
|
ITEM "Punto"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga donazione" -1 -1 60 12
|
|
|
|
DATE F_G_DATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data "
|
|
END
|
|
|
|
STRING F_G_TIPO 2
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo "
|
|
FLAGS "U"
|
|
USE TDN
|
|
INPUT CODTAB F_G_TIPO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_G_TIPO CODTAB
|
|
OUTPUT F_G_D_TIPO S0
|
|
CHECKTYPE REQUIRED
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
WARNING "Codice tipo donazione non presente"
|
|
HELP "Tipo donazione"
|
|
END
|
|
|
|
STRING F_G_LUOGO 4
|
|
BEGIN
|
|
PROMPT 2 5 "Punto prelievo "
|
|
FLAGS "U"
|
|
USE LDN
|
|
INPUT CODTAB F_G_LUOGO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_G_LUOGO CODTAB
|
|
OUTPUT F_G_D_LUOGO S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice punto di prelievo non presente"
|
|
HELP "Punto di prelievo"
|
|
END
|
|
|
|
STRING F_G_D_TIPO 25
|
|
BEGIN
|
|
PROMPT 30 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_G_D_LUOGO 50 25
|
|
BEGIN
|
|
PROMPT 30 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|