Alessandro Bonazzi
1f7ef4ae48
Files correlati : f135.dir f135.trr in0.exe in0200a.msk in0600a.msk
in0700a.msk intbird.msk
Commento :
Aggiornamento intra fase 3
Interno :
Inserimento rettifiche e riepiloghi e invii
Mancano stampe di controllo
102 lines
1.5 KiB
Plaintext
Executable File
102 lines
1.5 KiB
Plaintext
Executable File
#include "in0200a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Conferma"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
BUTTON F_RIEPILOGHI 2 2
|
|
BEGIN
|
|
PROMPT 2 1 "Riepiloghi"
|
|
PICTURE TOOL_ELABORA
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Intra 1/2" 0 2 0 0
|
|
|
|
LIST F_TIPO 1 10
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo riepilogo "
|
|
ITEM "A|Acquisti"
|
|
ITEM "C|Cessioni"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Anno "
|
|
FLAGS "AU"
|
|
END
|
|
|
|
LIST F_PERIODO_M 2 17
|
|
BEGIN
|
|
PROMPT 1 5 "Periodo "
|
|
FLAGS "AM"
|
|
FIELD PERIODO
|
|
END
|
|
|
|
LIST F_PERIODO_T 2 17
|
|
BEGIN
|
|
PROMPT 1 5 "Periodo "
|
|
ITEM "01|Gennaio-Marzo"
|
|
MESSAGE COPY,F_PERIODO_M
|
|
ITEM "02|Aprile-Giugno"
|
|
MESSAGE COPY,F_PERIODO_M
|
|
ITEM "03|Luglio-Settembre"
|
|
MESSAGE COPY,F_PERIODO_M
|
|
ITEM "04|Ottobre-Dicembre"
|
|
MESSAGE COPY,F_PERIODO_M
|
|
END
|
|
|
|
LIST F_PERIODO_A 2 17
|
|
BEGIN
|
|
PROMPT 1 5 "Periodo "
|
|
ITEM "01|Annuale"
|
|
MESSAGE COPY,F_PERIODO_M
|
|
END
|
|
|
|
STRING F_CODUA 4
|
|
BEGIN
|
|
PROMPT 1 7 "Codice UA "
|
|
VALIDATE FIXLEN_FUNC 4
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_NUMERO 6
|
|
BEGIN
|
|
PROMPT 1 9 "Prog.invio "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_PROGGIORN 2
|
|
BEGIN
|
|
PROMPT 30 9 "Prog.giornaliero "
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_UFFDOG 6
|
|
BEGIN
|
|
PROMPT 1 11 "Uff.doganale "
|
|
USE %UDD
|
|
INPUT CODTAB F_UFFDOG
|
|
DISPLAY "Ufficio" CODTAB
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_UFFDOG CODTAB
|
|
END
|
|
|
|
STRING F_PATH 50 29
|
|
BEGIN
|
|
PROMPT 1 13 "Cartella "
|
|
DSELECT
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|